RosettaCodeData/Task/Draw-a-rotating-cube/OxygenBasic/draw-a-rotating-cube.basic

  % Title "Rotating Cube"
  % Animated
  % PlaceCentral
  uses ConsoleG

  sub main
  ========
  cls 0.0, 0.5, 0.7
  shading
  scale 7
  pushstate
    GoldMaterial.act
    static float ang
    rotateX ang
    rotateY ang
    go cube
  popstate
  ang+=.5 : if ang>=360 then ang-=360
  end sub

  EndScript