Re: Rotation von Rastern

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

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.
>