! Пример другого способа анимации графики
! без gr.modify

gr.open ,,,,0,1
gr.screen sw,sh
cw=sw/2  :  ch=sh/2
gosub gr_functions
  !Выше все должно быть ясно


  !Поехали
Do
  !Цикл начинается с отрисовки фигур.
  !Заканчивается стиранием всей графики и удалением
  !графических объектов из памяти.
  !При помощи переменных v_, фигуры отрисовываются
  !снова с измененным углом наклона.

   !Белый фон
   white_background()
   
   !пустой квадрат по-часовой
   coordinates= figure(sw/3,sh/5,4,v1++)
   draw(coordinates)
   
   !пустой треугольник против часовой
   coordinates= figure(sw/3*2,sh/5,3,v2--)
   draw(coordinates)

   !линия против часовой
   v3-=2
   coordinates= figure(sw/3,ch,2,v3)
   draw(coordinates)
   
   !восьмиугольник по_часовой
   v4+=2.5
   coordinates= figure(sw/3*2,ch,8,v4)
   draw(coordinates)

   !залитый шестнадцатиугольник по-часовой
   v5+=1.4
   coordinates= figure(sw/3,sh/5*4,16,v5)
   draw_fill(coordinates)
   
   !Залитый треугольник против часовой
   v6-=3
   coordinates= figure(sw/3*2,sh/5*4,3,v6)
   draw_fill(coordinates)

   !Рисуем
   gr.render
   
   !Стираем графику
   gr.cls

Until 0



Gr_functions:

  fn.def draw(coordinates)
     gr.color 255,0,0,200,0
     gr.set.stroke 2
     gr.poly op,coordinates
  fn.end



  fn.def draw_fill(coordinates)
     gr.color 255,0,0,200,1
     gr.set.stroke 2
     gr.poly op,coordinates
  fn.end



  fn.def figure(x0, y0, n, a)
     list.create n,coordinates
     r=100
   for i=1 to 360 step 360/n
       x=cos(toradians(i+a))*r+x0
       y=sin(toradians(i+a))*r+y0
       list.add coordinates,x,y
    next
    fn.rtn coordinates
  fn.end



  fn.def white_background()
   gr.screen w,h
   gr.color 255,255,255,255,1
   gr.rect r,0,0,w,h
  fn.end

Return