uses consoleG
'indexbase 1
uses glo2\geodesics
beginscript
procedure main()
================
if opening
  % count=20
  static int list
  list=glGenLists count
  dec list 'adjust base
  'glNewList List 7, GL_COMPILE
  '
  'glTranslatef 0,0,0
  'Spirodome2 .25, 12
  'glEndList
  '
  'glNewList List 12, GL_COMPILE
  'RenderTetraGeo 0
  'glEndList
  '
  'glNewList List 13, GL_COMPILE
  'RenderOctaGeo 2
  'glEndList
  '
  glNewList List 14, GL_COMPILE
  'RenderIcosGeo 1
  'RenderIcos
  'Render60
  RenderBuckyBall()
  'RenderDodec
  glEndList
  '
  'glNewList List 15, GL_COMPILE
  'RenderCube()
  'glEndList
  '
  'glNewList List 16, GL_COMPILE
  'RenderDodec()
  'glEndList
  '
endif 'opening
'
'
move 20,-15
UserMovement m1,700 'identity in steps of 100
scale 15
'glCallList List 7
'lCallList List 12
'glCallList List 13
glCallList List 14
'glCallList List 15
'glCallList List 16
if closing
  inc list 'adjust base
  glDeleteLists list,count
endif
end procedure
endscript
