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

  % Title "Sphere"
  '% Animated
  % PlaceCentral
  uses ConsoleG

  sub main
  ========
  cls 0.0, 0.2, 0.7
  shading
  scale 10
  pushstate
    GoldMaterial.act
    go sphere
  popstate
  end sub

  EndScript