to circle :diameter
  repeat 360 [forward :diameter / 115 right 1]
end


If you would like to know how I got 115, click here and then here.