home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / robotStuff / boringBot.wwModel / support.eve < prev   
Encoding:
Text File  |  1995-03-22  |  2.6 KB  |  71 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. startShape {Support} ;
  6.         loadControlPanel quickieControls.nib
  7.     Translate 0 -1.5 0
  8.     Scale .1 .1 .1
  9.     startShape {aFork} ;
  10.         Surface metal ;
  11.         EveCmd {Color $fork(color)};
  12.         TransformBegin;
  13.         EveCmd {Translate $topOfFork(xTranslate) $topOfFork(yTranslate) $topOfFork(zTranslate)};
  14.         EveCmd {Rotate $topOfFork(xRotate) 1 0 0 };
  15.         EveCmd {Cylinder $topOfFork(radius) $topOfFork(zMin) $topOfFork(zMax) $topOfFork(thetaMax)};
  16.         TransformEnd;
  17.         TransformBegin;
  18.         EveCmd {Scale $fork(xScale) $fork(yScale) $fork(zScale)};
  19.         EveCmd {Torus $fork(majorRadius) $fork(minorRadius) $fork(phiMin) $fork(phiMax) $fork(thetaMax)};
  20.         TransformEnd;
  21.         startShape {Wheel} ;
  22.             Rotate 90.000000 0.000000 1.000000 0.000000;
  23.             startShape {Tire} ;
  24.                 Surface RCRubber ;
  25.                 EveCmd {Color $tire(color)};
  26.                 EveCmd {Scale $tire(xScale) $tire(yScale) $tire(zScale)};
  27.                 EveCmd {Translate $tire(xTranslate) $tire(yTranslate) $tire(zTranslate)};
  28.                 EveCmd {Rotate $tire(xRotate) 1 0 0 };
  29.                 EveCmd {Rotate $tire(yRotate) 0 1 0 };
  30.                 EveCmd {Rotate $tire(zRotate) 0 0 1 };
  31.                 EveCmd {Torus $tire(majorRadius) $tire(minorRadius) $tire(phiMin) $tire(phiMax) $tire(thetaMax)};
  32.                 startShape {Hubcap} ;
  33.                     Surface metal ;
  34.                     EveCmd {Color $hubcap(color)};
  35.                     EveCmd {Scale $hubcap(xScale) $hubcap(yScale) $hubcap(zScale)};
  36.                     EveCmd {Translate $hubcap(xTranslate) $hubcap(yTranslate) $hubcap(zTranslate)};
  37.                     EveCmd {Rotate $hubcap(xRotate) 1 0 0 };
  38.                     EveCmd {Rotate $hubcap(yRotate) 0 1 0 };
  39.                     EveCmd {Rotate $hubcap(zRotate) 0 0 1 };
  40.                     EveCmd {Sphere $hubcap(radius) $hubcap(zMin) $hubcap(zMax) $hubcap(thetaMax)};
  41.  
  42.                 endShape
  43.  
  44.             endShape
  45.  
  46.         endShape
  47.  
  48.     endShape
  49.     startShape {Piston} ;
  50.         Surface metal ;
  51.         EveCmd {Color $piston(color)};
  52.         EveCmd {Translate 0 $piston(bounce) 0};
  53.         TransformBegin;
  54.         EveCmd {Translate $piston(xTranslate) $piston(yTranslate) $piston(zTranslate)};
  55.         EveCmd {Rotate $piston(xRotate) 1 0 0 };
  56.         EveCmd {Cylinder $piston(radius) $piston(zMin) $piston(zMax) $piston(thetaMax)};
  57.         TransformEnd;
  58.         startShape {Gasket} ;
  59.             Surface RCRubber ;
  60.             EveCmd {Color $gasket(color)};
  61.             EveCmd {set gasket(yTranslate) [expr {$piston(yTranslate) - $piston(zMax)}]};
  62.             EveCmd {Translate 0 $gasket(yTranslate) 0};
  63.             Rotate 90.000000 1.000000 0.000000 0.000000;
  64.             EveCmd {Torus $gasket(majorRadius) $gasket(minorRadius) $gasket(phiMin) $gasket(phiMax) $gasket(thetaMax)};
  65.  
  66.         endShape
  67.  
  68.     endShape
  69.  
  70. endShape
  71.