RosettaCodeData/Task/Draw-a-cuboid/OxygenBasic/draw-a-cuboid.basic

  % Title "Cuboid 2x3x4"
  '% Animated
  % PlaceCentral
  uses ConsoleG

  sub main
  ========
  cls 0.0, 0.2, 0.7
  shading
  scale 3
  pushstate
    GoldMaterial.act
    static float ang=45
    rotateX ang
    rotateY ang
    scale 2,3,4
    go cube
  popstate
  end sub

  EndScript