Hi, How do I change this code to draw a spiral using the standard Canvas.LineTo that only takes Integer X & Y co-ordinates? I did it before, but for the live of me I can't get it right now! :-)
eg: Draw(100, 100); procedure TForm1.Draw(X, Y: Integer); var Theta: Single; begin Theta := 0; Image.Bitmap.MoveToF(X, Y); while Theta < 15 * 3.1415926535 do begin Image.Bitmap.LineToFSP(X + Cos(Theta) * Theta, Y + Sin(Theta) * Theta); Theta := Theta + 0.2; end; end; Regards, - Graeme - _______________________________________________ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ _________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives