home *** CD-ROM | disk | FTP | other *** search
/ The Best of Windows 95.com 1996 September / WIN95_09962.iso / vrml / MWE105.ZIP / EExamples / SpiralStairs.vxr < prev    next >
Text File  |  1996-01-25  |  1KB  |  90 lines
  1. #VRML V1.0 ascii
  2.  
  3. Separator {
  4.     # Options: ON OFF AUTO
  5.     renderCulling AUTO
  6.     
  7.     OUTPUT_TO SpiralStairs.wrl
  8.     
  9.     DEF BackgroundColor Info {
  10.         string  ".6 .3 .3"
  11.     }
  12.  
  13.     Material {
  14.         diffuseColor =Color("black")
  15.     }
  16.     
  17.     Separator {
  18.         # Options: ON OFF AUTO
  19.         renderCulling AUTO
  20.  
  21.         Translation {
  22.             translation 0 -floor:height/2 0
  23.         }
  24.         
  25.         DEF floor Cube {
  26.             width 5
  27.             height .2
  28.             depth 5
  29.         }
  30.     }
  31.  
  32.     Material {
  33.         diffuseColor =Color("black")
  34.     }
  35.  
  36.     Separator {
  37.         # Options: ON OFF AUTO
  38.         renderCulling AUTO
  39.         
  40.         Translation {
  41.             translation 0 pole:height/2 0
  42.         }
  43.         
  44.         DEF pole Cylinder {
  45.             parts ALL
  46.             radius 4'in
  47.             height 12'ft
  48.         }
  49.     }
  50.     
  51.     Material {
  52.         diffuseColor =Color("yellow")
  53.     }
  54.  
  55.     Separator {
  56.         # Options: ON OFF AUTO
  57.         renderCulling AUTO
  58.         
  59.         Translation {
  60.             translation step:width/2 step:height/2 0
  61.         }
  62.     
  63.         DEF step Cube {
  64.             width 3'ft
  65.             height 3'in
  66.             depth 12'in
  67.         }
  68.     }
  69.     
  70.     LOOP {
  71.         fields [ SFLong start, SFLong end, SFLong step, SFLong position ]
  72.         start 1
  73.         end 16
  74.         step 1
  75.         
  76.         
  77.         Separator {
  78.             # Options: ON OFF AUTO
  79.             renderCulling AUTO
  80.             
  81.             Transform {
  82.                 translation step:width/2 step:height/2+position*8'in 0
  83.                 rotation 0 1 0 position*30'deg
  84.                 center -step:width/2 0 0
  85.             }
  86.             
  87.             USE step
  88.         }
  89.     }
  90. }