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)