home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / support / wheel.wwModel / wheel.wwModel.eve < prev   
Encoding:
Text File  |  1995-03-22  |  3.4 KB  |  98 lines
  1. #
  2. # This eve scene file generated by Michael B. Johnson's WW3DKit software running under NeXTSTEP.
  3. # Contact him at wave@media.mit.edu or (617) 547-0563 for more information.
  4. #
  5. # Writing out all the current values of the global variables:
  6. set rim(majorRadius) {1.99};
  7. set rim(minorRadius) {0.12};
  8. set rim(color) {0.924665 0.901624 1.000000};
  9. set tire(radius) {2.0};
  10. set tire(thickness) {0.100000};
  11. set tire(color) {.1 .1 .1};
  12. set cylinder(radius) {0.010000};
  13. set cylinder(yScale) {1};
  14. set cylinder(thetaMax) {360.0};
  15. set cylinder(zMin) {0.150000};
  16. set cylinder(xTranslate) {0};
  17. set cylinder(xRotate) {-93.000000};
  18. set cylinder(yRotate) {0.000000};
  19. set cylinder(zMax) {2.000000};
  20. set cylinder(xScale) {1};
  21. set cylinder(zTranslate) {0.150000};
  22. set cylinder(zRotate) {0.000000};
  23. set cylinder(zScale) {1};
  24. set cylinder(color) {0.924665 0.901624 1.000000};
  25. set cylinder(yTranslate) {0};
  26. set rubber {RCRubber};
  27. set modelPath {    +H    („ûB@};
  28. set metal {RCMetal};
  29. # end of globals
  30. # Writing out all the current definitions of all the non built-in procs:
  31. # end of procs
  32. startShape wheel {-0.312213 0.609599 0.728638 0.000000 \
  33.                   0.481824 0.762621 -0.431574 0.000000 \
  34.                   -0.818761 0.216334 -0.531819 0.000000 \
  35.                   -0.220000 -0.040000 -2.950001 1.000000};
  36.  
  37.     startShape aCylinder ;
  38.         EveCmd {Color $cylinder(color)} {\
  39.                 {0.000000 {Color {0.924665 0.901624 1.000000};}} \
  40.                };
  41.         EveCmd {Scale $cylinder(xScale) $cylinder(yScale) $cylinder(zScale)} {\
  42.                 {0.000000 {Scale 1.000000 1.000000 1.000000;}} \
  43.                };
  44.         EveCmd {Translate $cylinder(xTranslate) $cylinder(yTranslate) $cylinder(zTranslate)} {\
  45.                 {0.000000 {Translate 0.000000 0.000000 0.150000;}} \
  46.                };
  47.         EveCmd {Rotate $cylinder(xRotate) 1 0 0 } {\
  48.                 {0.000000 {Rotate -93.000000 1.000000 0.000000 0.000000;}} \
  49.                };
  50.         EveCmd {Rotate $cylinder(yRotate) 0 1 0 } {\
  51.                 {0.000000 {Rotate 0.000000 0.000000 1.000000 0.000000;}} \
  52.                };
  53.         EveCmd {Rotate $cylinder(zRotate) 0 0 1 } {\
  54.                 {0.000000 {Rotate 0.000000 0.000000 0.000000 1.000000;}} \
  55.                };
  56.         EveCmd {Cylinder $cylinder(radius) $cylinder(zMin) $cylinder(zMax) $cylinder(thetaMax)} {\
  57.                 {0.000000 {Cylinder 0.010000 0.150000 2.000000 360.000000 ;}} \
  58.                };
  59.  
  60.     endShape
  61.     startShape innerRim ;
  62.         Surface RCMetal;
  63.         EveCmd {Color $rim(color)} {\
  64.                 {0.000000 {Color {0.924665 0.901624 1.000000};}} \
  65.                };
  66.         #RIBCommand called;
  67.         EveCmd {Scale $tire(thickness) $tire(thickness) $tire(thickness)} {\
  68.                 {0.000000 {Scale 0.100000 0.100000 0.100000;}} \
  69.                };
  70.         EveCmd {Torus $tire(radius) [expr {$tire(radius) * .75}] 90 270 360} {\
  71.                 {0.000000 {Torus 2.000000 1.500000 90.000000 270.000000 360.000000;}} \
  72.                };
  73.         #RIBCommand called;
  74.         startShape rim ;
  75.             Surface RCMetal;
  76.             EveCmd {Color $rim(color)} {\
  77.                     {0.000000 {Color {0.924665 0.901624 1.000000};}} \
  78.                    };
  79.             EveCmd {Torus $rim(majorRadius)  $rim(minorRadius) 90 270  360} {\
  80.                     {0.000000 {Torus 1.990000 0.120000 90.000000 270.000000 360.000000;}} \
  81.                    };
  82.  
  83.         endShape
  84.         startShape tire ;
  85.             Surface null;
  86.             EveCmd {Color $tire(color)} {\
  87.                     {0.000000 {Color {0.100000 0.100000 0.100000};}} \
  88.                    };
  89.             EveCmd {Torus $tire(radius) $tire(thickness) 0 360 360} {\
  90.                     {0.000000 {Torus 2.000000 0.100000 0.000000 360.000000 360.000000;}} \
  91.                    };
  92.  
  93.         endShape
  94.  
  95.     endShape
  96.  
  97. endShape
  98.