home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / graphsInSpace / grid2.wwModel / model.eve < prev   
Encoding:
Text File  |  1995-04-23  |  1.7 KB  |  54 lines
  1.  
  2. #we want a patch where positive X is ascending time, and have 
  3.  
  4. set width 8
  5. set depth 3
  6. set text(color) "1 1 1"
  7. set text(fontName) Helvetica
  8. set text(size) 18
  9. set dataSlice(yRotate) 180
  10. set dataSlice(zRotate) 270
  11. set time 0
  12.  
  13. animatable: {set dataSlice(origin) [expr {-1 * $time}]}
  14. animatable: {set dataSlice(xTranslate) [expr {-1 * $depth}]}
  15. set dataSlice(yTranslate) 0
  16. animatable: {set dataSlice(zTranslate) [expr {-1 * $depth}]}
  17.  
  18. loadControlPanel controls.nib
  19.  
  20. startShape gridWorld
  21.   startShape  floor
  22.     MakeTexture $modelPath/grid.tiff /tmp/grid.tx clamp clamp box 2 2 
  23.     Surface paintedplastic texturename /tmp/grid.tx
  24.     Patch bilinear P "0 0 0  \
  25.                       0 0 $depth \
  26.                       $width 0 0 \
  27.                       $width 0 $depth"
  28.     startShape ticks
  29.       Surface constant
  30.       for {set i 0} {$i <= $width} {incr i} \
  31.       {  startShape tick.${i}
  32.            Translate $i 0 0; 
  33.            Color $text(color)
  34.            WW3DText $text(fontName) $text(size) $i;
  35.          endShape
  36.       }
  37.     endShape
  38.   endShape
  39.   startShape dataSlice
  40.     Declare mapname string
  41.     MakeTexture $modelPath/dataSlice.tiff /tmp/dataSlice.tx clamp clamp box 2 2 
  42.     Surface WWAlphaPaintedPlastic mapname /tmp/dataSlice.tx
  43.     Color $text(color)
  44.     animatable: {Rotate $dataSlice(yRotate) 0 1 0}
  45.     animatable: {Rotate $dataSlice(zRotate) 0 0 1}
  46.     animatable: {Translate $dataSlice(xTranslate) $dataSlice(yTranslate) $dataSlice(zTranslate)}
  47.     animatable: {Translate 0 $dataSlice(origin) 0 }
  48.     animatable: {Patch bilinear P "0 0 0  \
  49.                               0 0 $depth \
  50.                               $depth 0 0 \
  51.                               $depth 0 $depth"}
  52.   endShape
  53. endShape
  54.