----------------------------------- octopi Wed Jun 09, 2004 8:29 pm drawinfinity ----------------------------------- hey, this is the infinity symbol 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 Wed Jun 09, 2004 8:35 pm ----------------------------------- ur having fun doing all these draw procs arn't u??? 4 of them!! good stuff!!