Hallo,
Graphics Gems,
Paeth, Alan W., A Fast Algorithm for General Raster Rotation, p.
179-195.
Das wird jedenfalls von ImageMagic's convert und den g"angigen
Bildbearbeitungs
Programmen verwendet.
Ansonsten rotiert
gg = Show[
Graphics[{PostScript["35 rotate"],
Raster[{{0, 0, 0, 0}, {0, 1, 1, 0}, {0, 1, 1, 0}, {0, 0,
0, 0}}]}]]
auch das Raster[] allerdings zeigt der "phantastische" PostScript
interpreter von Mathematica das nicht an. Mit GhostScript oder
einem anderen richtigen PostScript Interpreter ist das Raster[]
aber sch"on gedreht ..
Gruss
Jens
Ingo Michaelis wrote:
>
> 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.