Re: Rotation von Rastern

[Hajo Spitzer <hjspitzer@XXXXXXX.de>]

Wenn man schon so schön, wie Robert, das Raster selbst erzeugt hat, dann
kann man es auch durch eine Transformation drehen , z.B. :

  primitive=       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}] 
Needs["Geometry`Rotations`"]
primitive /.Polygon[{p1_, p2_, p3_, p4_}] -> 
  Polygon[Rotate2D[#, N[Pi/3]] & /@ {p1, p2, p3, p4}]

Gruß

Hajo Spitzer

Robert Nowak schrieb:
> 
> 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
> > =========================================
> >
> >