home *** CD-ROM | disk | FTP | other *** search
/ The Best of Windows 95.com 1996 September / WIN95_09962.iso / vrml / MWE105.ZIP / EExamples / Column.vxr next >
Text File  |  1996-02-17  |  885b  |  52 lines
  1. #VRML V1.0 ascii
  2.  
  3. # This file defines a simple greek column
  4.  
  5. # This file requires a parameters:columnRadius -- See Greek.vxr
  6.  
  7. Separator {
  8.     # Options: ON OFF AUTO
  9.     renderCulling AUTO
  10.     
  11.     Material {
  12.         diffuseColor =Color("white")
  13.     }
  14.     
  15.     DEF greekColumn Separator {
  16.         Separator {
  17.             Translation {
  18.                 translation 0 (base:height)/2 0
  19.             }
  20.             
  21.             DEF base Cylinder {
  22.                 parts ALL
  23.                 radius parameters:columnRadius*1.25
  24.                 height .1
  25.             }
  26.         }
  27.  
  28.         Separator {
  29.             Translation {
  30.                     translation 0 base:height+(column:height/2) 0
  31.             }
  32.         
  33.             DEF column Cylinder {
  34.                     parts ALL
  35.                     radius parameters:columnRadius
  36.                     height 1
  37.             }
  38.         }
  39.  
  40.         Separator {
  41.             Translation {
  42.                 translation 0 base:height+column:height+(crown:height/2) 0
  43.             }
  44.     
  45.             DEF crown Cylinder {
  46.                 parts ALL
  47.                 radius parameters:columnRadius*1.25
  48.                 height .1
  49.             }
  50.         }
  51.     }
  52. }