 Uses ConsoleG
 BeginScript

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

  EndScript