sodala
ich habe es geschafft meine 6 bunten linien zu erzeugen...
so:
Delphi-Quellcode:
procedure TForm1.TimerRotTimer(Sender: TObject);
var s: double;
begin
s := 1;
lrot(s);
form1.flaeche.surface.Canvas.Release;
form1.flaeche.Flip;
end;
procedure lrot(s: Double);
begin
arot := arot+ s;
brot := brot+ s;
form1.flaeche.Surface.canvas.Pen.Color := clRed;
form1.flaeche.Surface.canvas.Pen.Width := 5;
form1.flaeche.surface.Canvas.MoveTo(xrot, yrot);
form1.flaeche.surface.Canvas.LineTo((xrot + round(arot)), yrot + round(brot));
form1.flaeche.surface.Canvas.Release;
form1.flaeche.Flip;
end;
s ist die schrittweite...
folgendes problem:
die linien werden nur stufenweise länger... -> schaut schlecht aus
&
die linien sollen nicht alle in die gleiche richtung starten...
kann mir da bitte wieder jemand helfen?
danke