home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / boundingBoxTests / Sphere(scale).mdl / model.eve
Encoding:
Text File  |  1995-04-23  |  835 b   |  27 lines
  1. set sphere(color) {1.0 0.0 0.0}
  2. set sphere(radius) 1.0
  3. set sphere(zMin) -$sphere(radius)
  4. set sphere(zMax) $sphere(radius)
  5. set sphere(thetaMax) 360.0
  6. set sphere(xScale) .5
  7. set sphere(yScale) .5
  8. set sphere(zScale) .5
  9. set sphere(xTranslate) 0
  10. set sphere(yTranslate) 0
  11. set sphere(zTranslate) 0
  12. set sphere(xRotate) 0
  13. set sphere(yRotate) 0
  14. set sphere(zRotate) 0
  15.  
  16. loadControlPanel controls.nib
  17.  
  18. startShape aSphere
  19.   animatable: {Color $sphere(color)}
  20.   animatable: {Scale $sphere(xScale) $sphere(yScale) $sphere(zScale)}
  21.   animatable: {Translate $sphere(xTranslate) $sphere(yTranslate) $sphere(zTranslate)}
  22.   animatable: {Rotate $sphere(xRotate) 1 0 0 }
  23.   animatable: {Rotate $sphere(yRotate) 0 1 0 }
  24.   animatable: {Rotate $sphere(zRotate) 0 0 1 }
  25.   animatable: {Sphere $sphere(radius) $sphere(zMin) $sphere(zMax) $sphere(thetaMax)}
  26. endShape
  27.