Re: Rotation von Rastern

["Robert Nowak" <robert.nowak@XXXXXXX.at>]

bekanntlich "landen" rotierte rasterpunkte im allgemeinen nicht wieder auf
rasterpunkten.
man muss also entweder fuer jeden punkt etscheiden welcher rasterpunkt am
naehesten dem rotierten orginalpunkt entspricht oder man kann mittels
geeigneter interpolation und graustufen mehrere der nachbarpunkte
einfaerben.
dies ist alles nicht so ganz trivial und kann in der einschlaegigen computer
graphic literatur nachgelesen werden.


 nach rotation das
---
Robert Nowak (robert.nowak@XXXXXXX.at)
IMS Nanofabrication GmbH
A-1020 Wien, Schreygasse 3, Austria
Phone: (+43 1)2144894-32, Fax: (+43 1)2144894-99

----- Original Message -----
From: "Ingo Michaelis" <ingo@XXXXXXX.de>
To: <robert.nowak@XXXXXXX.at>
Sent: Tuesday, February 12, 2002 12:24 PM
Subject: Re: Rotation von Rastern


> Hallo,
>
> mit Postscript-Ausgaben ist mir leider nicht geholfen, da ich auf das
gedrehte
> Raster zugreifen und dieses mit anderen vergleichen möchte.
>
> Ingo.
>
> Robert Nowak wrote:
>
> > vieleicht hlift das weiter:
> >
> > verwandle deine rasterpunkte in kreisscheiben  diese kann der mma
postscript
> > interpreter dann auch drehen.
> >
> > gg = Show[
> >     Graphics[{PostScript["15 rotate"],
> >         MapIndexed[{RGBColor @@ {#1, #1, #1}, Disk[#2, 1/2]} &,
> >           {{0, 0, 0, 0}, {0, 1, 1, 0}, {0, 1, 1, 0}, {0, 0, 0, 0}}, {2}]
> >         }]]
> >
> > noch authentisch pixeliger geht es mit quadraten welche ihr Raster zu
90%
> > auffuellen
> >
> > gg = Show[
> >     Graphics[{PostScript["15 rotate"],
> >         MapIndexed[{RGBColor @@ {#1, #1, #1}, Polygon[{
> >                   #2 + .9 1/2{-1, -1},
> >                   #2 + .9 1/2{-1, 1},
> >                   #2 + .9 1/2{1, 1},
> >                   #2 + .9 1/2{1, -1}
> >                   }]} &,
> >           {{0, 0, 0, 0}, {0, 1, 1, 0}, {0, 1, 1, 0}, {0, 0, 0, 0}}, {2}]
> >         }]]
> >
> > gruesse robert
> > ---
> > Robert Nowak (robert.nowak@XXXXXXX.at)
> > IMS Nanofabrication GmbH
> > A-1020 Wien, Schreygasse 3, Austria
> > Phone: (+43 1)2144894-32, Fax: (+43 1)2144894-99
> >
> > ----- Original Message -----
> > From: "Ingo Michaelis" <ingo@XXXXXXX.de>
> > To: "Deutsche Mathematica News Group" <dmug@XXXXXXX.ch>
> > Sent: Tuesday, February 12, 2002 9:50 AM
> > Subject: Rotation von Rastern
> >
> > > Hallo,
> > >
> > > ich möchte ein zweidimensionales Raster um einen Punkt rotieren.
Bisher
> > > habe ich nur die Funktion gefunden, die das Raster erzeugt. Das
folgende
> > > Beispiel erzeugt eine einfaches Raster und zeigt es an.
> > >
> > > Show[Graphics[Raster[{{0, 0, 0, 0}, {0, 1, 1, 0}, {0, 1, 1, 0}, {0, 0,
> > > 0, 0}}]]]
> > >
> > > Wie kann ich es um einen beliebigen Winkel drehen?
> > >
> > > Ingo.
> > >
>
> --
> =========================================
> Ingo Michaelis
> Universitätsklinikum Benjamin Franklin
> Zentrum für Muskel- und Knochenforschung
> Hindenburgdamm 30
> 12200 Berlin
> Germany
> Phone: +49 30 8445-1696
> Fax: +49 30 8445-1602
> Homepage: http://www.ingo-michaelis.de
> E-Mail: mailto:ingo@XXXXXXX.de
> =========================================
>
>