procedure Naci-Cross;
var F, D, F', D':array[1..2] of real;
var alpha: real;
begin
randomize(F, D); alpha:= 0;
while alpha < 2 * pi do begin
F':= F * Cos(alpha) - D * Sin(alpha);
D':= F * Sin(alpha) + D * Cos(alpha);
MoveTo(Center); LineTo(D'); LineTo(F');
alpha:= alpha + pi / 2;
KillLoop;
you should get the Naci-Cross.
www.geocities.com/dedanoe
DedaNoe Wants Heavy Medal!!!
.
|
