home *** CD-ROM | disk | FTP | other *** search
- set cylinder(radius) {1.0};
- set cylinder(thetaMax) {360.0};
- set cylinder(zMin) {-1.0};
- set cylinder(xRotate) {0.000000};
- set cylinder(zMax) {1.0};
- set cylinder(color) {1.0 0.0 0.0};
-
- startShape {aCylinder}
- Color $cylinder(color)
- EveCmd {Rotate $cylinder(xRotate) 1 0 0 } {\
- {0.000000 { {{waveToFriend} 1.000000 {Rotate 0.000000 1.000000 0.000000 0.000000;}} \
- {{scratchHead} 1.000000 {Rotate 30.000000 1.000000 0.000000 0.000000;}} }} \
- {1.000000 { {{waveToFriend} 1.000000 {Rotate 90.000000 1.000000 0.000000 0.000000;}} \
- {{scratchHead} 1.000000 {Rotate 60.000000 1.000000 0.000000 0.000000;}} }} \
- };
- Cylinder $cylinder(radius) $cylinder(zMin) $cylinder(zMax) $cylinder(thetaMax)
- endShape
-
-
-
-
-