Forum: Multimedia
by Mavarik,
21. Nov 2006
Sorry dreeeeeeeer!!!
Form1.Canvas.LineTo(trunc(sin(i*Pi/180)*100)+100,trunc(Cos(i*Pi/180)*100)+100);
oder auch...
Form1.Canvas.moveTo(trunc(sin(0*Pi/180)*100)+100,trunc(Cos(0*Pi/180)*100)+100);
Forum: Multimedia
by Mavarik,
21. Nov 2006
Naja ich schreibe immer...
CX := cos(Winkel*180/Pi)
Daher liefert folgende procedure auch das "richtige" Ergebniss..
for i:=0 to 360 do
begin
Form1.Canvas.MoveTo(100,100);
Form1.Canvas.LineTo(trunc(sin(i*180/Pi)*100)+100,trunc(Cos(i*180/Pi)*100)+100);
Forum: Multimedia
by Mavarik,
21. Nov 2006
Hast Du auch daran gedacht, dass Delphi bei Cos Bogenmaß zurück gibt?
Frank