home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1997 June / PC_Shareware-1997-06.iso / programy / breeze / programs.z / DEMO.MAC < prev    next >
Encoding:
Text File  |  1995-10-23  |  1.5 KB  |  85 lines
  1. '
  2. ' Breeze Designer Demo Macro...
  3. ' Set option to create;
  4. '
  5. '     0 = Spiral
  6. '     1 = Cross
  7. '     2 = Stack
  8. '
  9. ' Breeze Designer Macro
  10. ' Written by Neville Richards
  11. '
  12. Option = 0
  13. pi     = 3.14159
  14. delphi = pi/6
  15.  
  16. MsgBox "Breeze Designer Demo Macro"
  17.  
  18. ' Delete existing scene!
  19. New
  20.  
  21. if Option = 1 then cross
  22. if Option = 2 then stack
  23.  
  24. '
  25. ' Create a long sprial from cubes
  26. '
  27. revolutions = 2
  28. radius = 5
  29. pz = -12.0
  30. count = revolutions*24
  31.  
  32. for m = 0 to count
  33.  
  34.     phi = pz*delphi
  35.     c   = cos(phi)
  36.     s   = sin(phi)
  37.     px  = radius*c
  38.     py  = radius*s
  39.     pz = pz+0.5
  40.  
  41.     SetCursor( px, pz, py )
  42.     CreateDefaultObject( BOX )
  43.  
  44. next
  45. end
  46.  
  47. '
  48. ' Create a 3D X from spheres...
  49. '
  50. :cross
  51. for i = 0 to 5
  52.  
  53.     SetCursor( i, i, i )
  54.     CreateDefaultObject( SPHERE )
  55.     SetCursor( i*-1, i*-1, i )
  56.     CreateDefaultObject( SPHERE )
  57.     SetCursor( i*-1, i, i )
  58.     CreateDefaultObject( SPHERE )
  59.     SetCursor( i, i*-1, i )
  60.     CreateDefaultObject( SPHERE )
  61.     SetCursor( i, i, i*-1 )
  62.     CreateDefaultObject( SPHERE )
  63.     SetCursor( i*-1, i*-1, i*-1 )
  64.     CreateDefaultObject( SPHERE )
  65.     SetCursor( i*-1, i, i*-1 )
  66.     CreateDefaultObject( SPHERE )
  67.     SetCursor( i, i*-1, i*-1 )
  68.     CreateDefaultObject( SPHERE )
  69. next
  70. end
  71.  
  72. '
  73. ' Create a stack of cylinders
  74. '
  75. :stack
  76. for i = 0 to 5
  77.     for j = 0 to i
  78.         SetCursor( j, i, 0 )
  79.         CreateDefaultObject( CYLINDER )
  80.         Scale( .5, 2, .5 )
  81.         Rotate( 90, 0, 0 )
  82.      next 
  83. next
  84. end
  85.