uses consoleG
uses glo2\geodesics
'
beginscript
procedure main()
================
if opening
  % count=1
  static int list
  list=glGenLists count
  dec list 'adjust base
  glNewList List 1, GL_COMPILE
  RenderOctaGeo 0
  glEndList
endif 'opening
'
move 20,-15
UserMovement m1,700 'identity in steps of 100
scale 15
glCallList List 1
if closing
  inc list 'adjust base
  glDeleteLists list,count
endif
end procedure
endscript
