1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

var x, y, xalt, yalt, Breite, Hoehe : Integer;
    Winkel, Faktor, Radius : Real;
    Farbe : TColor;
begin
  Faktor:=1.305;   // durch probieren ermittelt
  Breite:=Image1.Width;
  Hoehe:=Image1.Height;
  for y:=0 to Breite do
   begin
    for x:=0 to Hoehe do
      begin
        // Abstand des Pixels zum Mittelpunkt  
        Radius:=Sqrt(Sqr(Breite div 2-x)+Sqr(Hoehe div 2-y));
       // Winkel zwischen x-Achse und Radiuslinie 
        if x<>Breite div 2
          then Winkel:=arctan((Hoehe div 2-y)/(x-Breite div 2))
          else if y<Hoehe div 2
            then Winkel:=-Pi/2
            else Winkel:=Pi/2;
        if x>Breite div 2
          then Winkel:=Winkel+Pi;
        // Winkel ermitteln, von wo ich das Pixel hole, 
        // je größer der Radius um so größer der Winkel -> soll ja ne Spirale werden
        Winkel:=Winkel+pi/180*Radius*Faktor;
        // dazugehörige x- und y- Koordinaten ermitteln
        xalt:=Round(-cos(Winkel)*Radius);
        yalt:=Round(sin(Winkel)*Radius);
        // Farbe auslesen
        Farbe:=Image1.Canvas.Pixels[Breite div 2+xalt,Hoehe div 2+yalt];
        if Radius>=Breite div 2
          then Image2.Canvas.Pixels[x,y]:=clWhite // damit man sieht, was gedreht wird, sonst clBlack
          else Image2.Canvas.Pixels[x,y]:=Farbe;
      end;
    Application.ProcessMessages;
   end;
  Image2.Picture.SaveToFile('Rätselbild3.bmp');