-----------------------------------

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!!