  #compact
  $ filename "t.exe"
 'uses rtl64
  uses glTransA

  sub scene(sys hWnd)
  ===================
  '
  PrepareSceneFrame
  glLoadIdentity
  StandardLighting li
  StandardMaterial  ma
  '
  'SETUP TEXTURE
  '
  static sys   imgn,res,wi,ht
  if not imgn
    imgn=21
    res=0 'use wi and ht of image
    LoadTexture "../../images/glass.jpg",imgn,res,wi,ht
  end if
  '
  '
  'GLO2 TRANSFORMS
  ----------------
  '/*
  texture imgn
  pushmatrix
  'TRANSFORM VERTICES
  translatef    0,0,-4
 'rotatef       ang1,1,0,0
 rotatef       ang1,0,1,0
 'rotateAxis    ang1,0,0,1
'translatef    0,0,-0
  transformf    v[12],v[112],4
  'TRANSFORM NORMAL
  transnormf    v[24],v[124],1
  ColorQuad
  popmatrix
  texture 0
  '*/
  ------------------------
  '
  end sub



  MainWindow width,height,WS_OVERLAPPEDWINDOW
