home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / tweenTests / cylinder.wwScene < prev    next >
Encoding:
Text File  |  1995-03-23  |  781 b   |  22 lines

  1. set cylinder(radius) {1.0};
  2. set cylinder(thetaMax) {360.0};
  3. set cylinder(zMin) {-1.0};
  4. set cylinder(xRotate) {0.000000};
  5. set cylinder(zMax) {1.0};
  6. set cylinder(color) {1.0 0.0 0.0};
  7.  
  8. startShape {aCylinder}
  9.     Color $cylinder(color)
  10.     EveCmd {Rotate $cylinder(xRotate) 1 0 0 } {\
  11.             {0.000000 { {{waveToFriend} 1.000000 {Rotate 0.000000 1.000000 0.000000 0.000000;}} \
  12.                             {{scratchHead} 1.000000 {Rotate 30.000000 1.000000 0.000000 0.000000;}} }} \
  13.             {1.000000 { {{waveToFriend} 1.000000 {Rotate 90.000000 1.000000 0.000000 0.000000;}} \
  14.                             {{scratchHead} 1.000000 {Rotate 60.000000 1.000000 0.000000 0.000000;}} }} \
  15.            };
  16.     Cylinder $cylinder(radius) $cylinder(zMin) $cylinder(zMax) $cylinder(thetaMax)
  17. endShape
  18.  
  19.  
  20.  
  21.  
  22.