  #compact
  $ filename "t.exe"
 'uses rtl64
  % MathUtilExtra 'for rotateaxis
  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,-5

  'MATRIX AXIAL ROTATION TESTS
  'rotation from origin, looking along axis 
 'rotatef       ang1,1,0,0 'x clockwise
 'rotatef       ang1,0,1,0 'y clockwise
 'rotatef       ang1,0,0,1 'z clockwise
  '
  'QUATERNION AXIAL ROTATION TESTS
 'rotation from origin, looking along axis 
 'rotateAxis    ang1,1,0,0 'x clockwise
 'rotateAxis    ang1,0,1,0 'y clockwise
 'rotateAxis    ang1,0,0,1 'z clockwise
 'rotateaxis ang1,10,10,0
  rotatef     ang1,10,10,0 'same as rotateaxis which uses a quaternion
  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
