  $ FileName  "t.exe"
  'uses rtl32
  'uses rtl64
  $ title     "Rotating Quad"
  uses OpenglSceneFrame


  sub initialize(sys hWnd)
  '=======================
  end sub
  '

  sub scene(sys hWnd)
  '==================
  '
  static single s1,s2,s3,s4,ang1,angi1=1
  '
  glLoadIdentity
  glClear GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT
  glClearColor 0.5, 0, 0, 0
  '
  '
  s1=.2    'x y
  s2=-1    'z
  s3=0.5   'color
  s4=s3*.2 'color
  '
  glrotatef ang1, 0,0,1
  '
  glbegin GL_QUADS
  glcolor4f   00,  s3,  s3, 1 : glvertex3f -s1, -s1,  s2
  glcolor4f   s3,  s3,  00, 1 : glvertex3f  s1, -s1,  s2
  glcolor4f   s4,   0,  s3, 1 : glvertex3f  s1,  s1,  s2
  glcolor4f   s4,   0,  s3, 1 : glvertex3f -s1,  s1,  s2
  glend
  '
  'UPDATE ROTATION ANGLES
  '----------------------
  '
  ang1+=angi1
  if ang1>360 then ang1-=360
  '
  end sub


  sub Release(sys hwnd)
  '====================
  end sub

