
  $ title "Cloud"
  $ filename "b.exe"
  % ExplicitMain
  'uses RTL64
  uses OpenglSceneFrame
  uses glo2\particles

  sub initialize(sys hWnd)
  ========================
  '
  seed=0x12345678
  glGenTextures 2, texn
  MinTexture texn[1],0x80ffffee,0x40ffffee,0x00ffffee
  MinTexture texn[2],0x80ffffee,0x40ffffee,0x00000000
  end sub

  sub Release(sys hwnd)
  =====================
  glDeleteTextures 2, texn
  end sub

  Cloud cl
  sys count

  sub scene(sys hWnd)
  ===================
  '
  ActiveFrame
  glClearColor 0.4, 0.45, 0.8, 0
 'Fog          0.4, 0.45, 0.8, 0.0125
  '
  'CLOUD
  '
  glEnable GL_TEXTURE_2D
  glPushMatrix
  gltranslatef -25.0, -20.0, -90.0
  glscalef 25,25,1
  cl.basetex=1
  cl.render 30 'max 50
  glPopMatrix
  glDisable GL_TEXTURE_2D
  '
  sleep 10
  '
  end sub


  MainWindow width,height,WS_OVERLAPPEDWINDOW
