- var
- phi cosphi, sinphi : float;
- x,y : int;
- xOriginal, yOriginal : float;
- begin
- phi = frei wählen;
- cosphi = cos(-phi);
- sinphi = sin(-phi);
- for x = 0 to breite do
- for y = 0 to hoehe do
- xOriginal = cosphi*x - sinphi*y;
- yOriginal = sinphi*x + cosphi*y;
- ergebnisBild[x,y] = originalBild[xOriginal, yOriginal];
- endfor
- endfor
- end