改写成画圆算法 画16 个

-- open the Lots of Robots tutorial file bounce.max

Myobj = $Box001
slidertime = 0
deletekeys Myobj.pos.controller
Myobj.pos = [0,0,0]
deletekeys Myobj[3][2][3].controller
Myobj[3][2][3].value = 0

NowTime = 0
for i = 1 to 15  do
 (
 --animate on
 --at time NowTime
  (
    Myobj =copy Myobj
  in coordsys local Myobj.pos += [0,0,0]
  Myobj[3][2][3].value +=  22
  )
 NowTime += 5
 
 --animate on
 --at time NowTime
  (
  in coordsys local Myobj.pos += [5,0,5]
  )
 NowTime += 5
 
 --animate on
 --at time NowTime
  (
  in coordsys local Myobj.pos += [5,0,-5]
  )
 NowTime += 5
 
 )