drawinfinity

[octopi]

hey, this is the infinity symbol

code:

procedure drawinfinity (x:int,y:int,size:int,col:int)   var xn,yn:real   for t:1..10000     xn:=3*size* cos (t)+x     yn:=size* sin (2*t)+y     drawdot(round(xn),round(yn),col)   end for end drawinfinity var thesize:int:=10 drawinfinity(100,100,thesize,45)  drawdot(100,100,4)

as shown intersection point is at x,y

[the_short1]

ur having fun doing all these draw procs arn't u??? 4 of them!!

good stuff!!