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
