
  % Title "Console Image Demo"
 '% Animated
 '% ScaleUp
 '% PlaceCentral
 '% AnchorCentral
  uses consoleG 
  

  BeginScript

  procedure main()
  ================
  if opening
    CreateTexture imgn,"../../images/Dawn1815.jpg"
  end if
  cls ' .3,.3,.5
  pushstate
  move 20,-15
  UserMovement m1,100
  '
  'display image
  '
  flat
  color 1,1,1,1
  texture imgn
  scale 15
  quadnorm 1.0,imgnHt/imgnWi 'apply image texture to a quad
  texture 0
  popstate
  '
  end procedure 'main

  EndScript