1. make object cube 1, 5
  2. color object 1, rgb(255,0,255,)
  3. scale object 1, 400, 600, 50
  4. position object 1, -25, 10, 50
  5.  
  6.  
  7. make object cone 2, 7
  8. color object 2, rgb(0,0,255,)
  9. scale object 2, 750, 750, 10
  10. position object 2, 60, -120, 200
  11. XROTATE OBJECT 2, 170
  12. YROTATE OBJECT 2, 170
  13. ZROTATE OBJECT 2, 25
  14.  
  15.  
  16. make object cylinder 3, 75
  17. color object 3, rgb(0,255,0,)
  18. position object 3, -120, -180, 300
  19. XROTATE OBJECT 3, 36
  20. YROTATE OBJECT 3, 72
  21. ZROTATE OBJECT 3, 79
  22.  
  23.  
  24. make object sphere 4, 9
  25. color object 4, rgb(0,255,255,)
  26. scale object 4, 900, 900, 100
  27. position object 4, 4, 4, 250
  28.  
  29. do
  30.    text 2,2, "3D Shapes"
  31.    x = scancode()
  32.    if (keystate (x)=1) then exit
  33. loop
  34.  
  35.  
  36.  
  37.  
  38. wait key
  39. end