home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / support / darkCycleWheel.eve < prev   
Encoding:
Text File  |  1995-03-22  |  5.6 KB  |  157 lines
  1. # This eve model file generated by Michael B. Johnson's WW3DKit software running under NeXTSTEP.
  2. # Contact him at wave@media.mit.edu or (617) 666-4119 for more information.
  3. #
  4. # Writing out all the current values of the global variables:
  5. set fork(thetaMax) {180.000000};
  6. set fork(xScale) {0.565574};
  7. set fork(majorRadius) {2.0};
  8. set fork(phiMin) {0.0};
  9. set fork(minorRadius) {0.333333};
  10. set fork(yScale) {3.000000};
  11. set fork(zScale) {2.000000};
  12. set fork(phiMax) {360.0};
  13. set fork(color) {0.924665 0.901624 1.000000};
  14. set tire(yScale) {1.060000};
  15. set tire(thetaMax) {360.000000};
  16. set tire(minorRadius) {2.000000};
  17. set tire(phiMin) {0.0};
  18. set tire(xTranslate) {0};
  19. set tire(xRotate) {0};
  20. set tire(phiMax) {360.0};
  21. set tire(yRotate) {0};
  22. set tire(xScale) {1.000000};
  23. set tire(zTranslate) {0};
  24. set tire(zRotate) {0};
  25. set tire(majorRadius) {2.0};
  26. set tire(zScale) {0.344262};
  27. set tire(yTranslate) {0};
  28. set tire(color) {0.099994 0.099994 0.099994};
  29. set tire(spikeCount) 12
  30. set gasket(thetaMax) {360.0};
  31. set gasket(majorRadius) {0.400000};
  32. set gasket(phiMin) {0.0};
  33. set gasket(minorRadius) {0.200000};
  34. set gasket(yTranslate) {8.0};
  35. set gasket(xRotate) {90.000000};
  36. set gasket(color) {0.000000 0.000000 0.000000};
  37. set gasket(phiMax) {180.0};
  38. set surface(rubber) {RCRubber};
  39. set surface(metal) {ECDentedMetalEffect};
  40. set topOfFork(zTranslate) {0};
  41. set topOfFork(zMax) {1.0};
  42. set topOfFork(thetaMax) {360.0};
  43. set topOfFork(radius) {0.400000};
  44. set topOfFork(zRotate) {0};
  45. set topOfFork(xTranslate) {0};
  46. set topOfFork(zMin) {-3.0};
  47. set topOfFork(yTranslate) {7.000000};
  48. set topOfFork(xRotate) {90.000000};
  49. set hubcap(radius) {3.400000};
  50. set hubcap(yScale) {1};
  51. set hubcap(thetaMax) {360.0};
  52. set hubcap(zMin) {-5.333333};
  53. set hubcap(xTranslate) {0};
  54. set hubcap(xRotate) {0};
  55. set hubcap(yRotate) {0};
  56. set hubcap(zMax) {9.000000};
  57. set hubcap(xScale) {1};
  58. set hubcap(zTranslate) {0};
  59. set hubcap(zRotate) {0};
  60. set hubcap(zScale) {1};
  61. set hubcap(color) {0.924665 0.901624 1.000000};
  62. set hubcap(yTranslate) {0};
  63. set piston(zTranslate) {0};
  64. set piston(zMax) {3.0};
  65. set piston(thetaMax) {360.0};
  66. set piston(radius) {0.600000};
  67. set piston(bounce) {0.0};
  68. set piston(zRotate) {0};
  69. set piston(xTranslate) {0};
  70. set piston(zMin) {0.0};
  71. set piston(yTranslate) {11.000000};
  72. set piston(xRotate) {90.000000};
  73. set piston(color) {0.924665 0.901624 1.000000};
  74. set modelPath {/LocalDeveloper/WWPalettes/Examples/WavesWorld/support/lightCycleWheel.wwModel};
  75. # end of globals
  76. # Writing out all the current definitions of all the non built-in procs:
  77. # end of procs
  78. startShape {Support} {0.360549 0.000000 0.932740 0.000000 \
  79.                     0.000000 1.000000 0.000000 0.000000 \
  80.                     -0.932740 0.000000 0.360549 0.000000 \
  81.                     0.090000 -3.270000 16.700001 1.000000};
  82.  
  83.     startShape {aFork} ;
  84.         Surface ECDentedMetalEffect ;
  85.         EveCmd {Color $fork(color)};
  86.         TransformBegin;
  87.         EveCmd {Translate $topOfFork(xTranslate) $topOfFork(yTranslate) $topOfFork(zTranslate)};
  88.         EveCmd {Rotate $topOfFork(xRotate) 1 0 0 };
  89.         EveCmd {Cylinder $topOfFork(radius) $topOfFork(zMin) $topOfFork(zMax) $topOfFork(thetaMax)};
  90.         TransformEnd;
  91.         TransformBegin;
  92.         EveCmd {Scale $fork(xScale) $fork(yScale) $fork(zScale)};
  93.         EveCmd {Torus $fork(majorRadius) $fork(minorRadius) $fork(phiMin) $fork(phiMax) $fork(thetaMax)};
  94.         TransformEnd;
  95.         startShape {Wheel} ;
  96.             Rotate 90.000000 0.000000 1.000000 0.000000;
  97.             startShape {Hubcap} ;
  98.                 Surface ECDentedMetalEffect ;
  99.                 EveCmd {Color $hubcap(color)};
  100.                 EveCmd {Scale $tire(xScale) $tire(yScale) $tire(zScale)};
  101.                 EveCmd {Scale $hubcap(xScale) $hubcap(yScale) $hubcap(zScale)};
  102.                 EveCmd {Translate $hubcap(xTranslate) $hubcap(yTranslate) $hubcap(zTranslate)};
  103.                 EveCmd {Rotate $hubcap(xRotate) 1 0 0 };
  104.                 EveCmd {Rotate $hubcap(yRotate) 0 1 0 };
  105.                 EveCmd {Rotate $hubcap(zRotate) 0 0 1 };
  106.                 EveCmd {Sphere $hubcap(radius) $hubcap(zMin) $hubcap(zMax) $hubcap(thetaMax)};
  107.             endShape
  108.             startShape {Tire} ;
  109.         set oldF [treatAttributeBeginLikeStartShape]
  110.         treatAttributeBeginLikeStartShape 0
  111.         AttributeBegin
  112.                   Surface RCRubber ;
  113.                     EveCmd {Color $tire(color)};
  114.                     EveCmd {Scale $tire(xScale) $tire(yScale) $tire(zScale)};
  115.                     EveCmd {Translate $tire(xTranslate) $tire(yTranslate) $tire(zTranslate)};
  116.                     EveCmd {Rotate $tire(xRotate) 1 0 0 };
  117.                     EveCmd {Rotate $tire(yRotate) 0 1 0 };
  118.                     EveCmd {Rotate $tire(zRotate) 0 0 1 };
  119.                     EveCmd {Torus $tire(majorRadius) $tire(minorRadius) $tire(phiMin) $tire(phiMax) $tire(thetaMax)};
  120.               AttributeEnd
  121.         treatAttributeBeginLikeStartShape $oldF
  122.         for {set i 0} {$i < $tire(spikeCount)} {incr i} \
  123.         {  startShape spike${i}
  124.             Rotate [expr {$i * (360./$tire(spikeCount))}] 0 0 1
  125.                       EveCmd {Translate 0 [expr {$tire(minorRadius) + $tire(majorRadius)}] 0}
  126.                         Rotate -90 1 0 0
  127.                 EveCmd {Cone [expr {$tire(majorRadius) * .2}] [expr {$tire(majorRadius) * .1}] 360}
  128.            endShape
  129.         }
  130.             endShape
  131.  
  132.         endShape
  133.  
  134.     endShape
  135.     startShape {Piston} ;
  136.         Surface ECDentedMetalEffect ;
  137.         EveCmd {Color $piston(color)};
  138.         EveCmd {Translate 0 $piston(bounce) 0};
  139.         TransformBegin;
  140.         EveCmd {Translate $piston(xTranslate) $piston(yTranslate) $piston(zTranslate)};
  141.         EveCmd {Rotate $piston(xRotate) 1 0 0 };
  142.         EveCmd {Cylinder $piston(radius) $piston(zMin) $piston(zMax) $piston(thetaMax)};
  143.         TransformEnd;
  144.         startShape {Gasket} ;
  145.             Surface RCRubber ;
  146.             EveCmd {Color $gasket(color)};
  147.             EveCmd {set gasket(yTranslate) [expr {$piston(yTranslate) - $piston(zMax)}]};
  148.             EveCmd {Translate 0 $gasket(yTranslate) 0};
  149.             Rotate 90.000000 1.000000 0.000000 0.000000;
  150.             EveCmd {Torus $gasket(majorRadius) $gasket(minorRadius) $gasket(phiMin) $gasket(phiMax) $gasket(thetaMax)};
  151.  
  152.         endShape
  153.  
  154.     endShape
  155.  
  156. endShape
  157.