Canvas Zeichnung drehen

[hboy]

naja mit der ellipse wirds schwerer, aber die Linien gehen so:

Delphi-Quellcode:

a: single;

[...]

procedure TMann2.zeichnen; 
var
  axis: TPoint;
  p : TPoint;
begin
  axis := Point(xpos + 8, ypos + 50);
[...]
  p := RotateCCW(Point(xpos,ypos+20),axis,a);
  Form1.Canvas.Moveto(p.x,p.y); 
  p := RotateCCW(Point(xpos,ypos+50),axis,a);
  Form1.Canvas.LineTo(p.x,p.y);
[...]