home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / DKBPICS.ZIP / PILLARS.DAT < prev    next >
Encoding:
Text File  |  1990-07-02  |  2.1 KB  |  101 lines
  1. INCLUDE "BasicShapes.data"
  2.  
  3. VIEW_POINT
  4.    LOCATION <0.0  20.0  -100.0>
  5.    DIRECTION <0.0 0.0  1.0>
  6.    UP  <0.0  1.0  0.0>
  7.    RIGHT <1.333333333 0.0 0.0>
  8. END_VIEW_POINT
  9.  
  10. { Put down a wooden floor }
  11. OBJECT
  12.    PLANE < 0.0 1.0 0.0 > -10. END_PLANE
  13.  
  14.    AMBIENT 0.3
  15.    DIFFUSE 0.7
  16.    REFLECTION 0.2
  17.    TEXTURE
  18.       0.05
  19.       WOOD
  20.       TURBULENCE 0.1
  21.       ROTATE <45.0 0.0 0.0>
  22.       SCALE <15.0 8.0 8.0>
  23.       COLOUR_MAP
  24.           [0.0 0.8 COLOUR RED 0.666 GREEN 0.312 BLUE 0.2
  25.                   COLOUR RED 0.666 GREEN 0.312 BLUE 0.2]
  26.           [0.8 1.01 COLOUR RED 0.4 GREEN 0.133 BLUE 0.066
  27.                    COLOUR RED 0.2 GREEN 0.065 BLUE 0.033]
  28.       END_COLOUR_MAP
  29.    END_TEXTURE
  30. END_OBJECT
  31.  
  32. { Now, erect two metallic beams that are clipped at the top }
  33. OBJECT
  34.    INTERSECTION
  35.       UNION
  36.          QUADRIC
  37.             Cylinder_Y
  38.             SCALE <5.0 5.0 5.0>
  39.             TRANSLATE <-10.0 0.0 0.0>
  40.          END_QUADRIC
  41.  
  42.          QUADRIC
  43.             Cylinder_Y
  44.             SCALE <5.0 5.0 5.0>
  45.             TRANSLATE <10.0 0.0 0.0>
  46.          END_QUADRIC
  47.       END_UNION
  48.  
  49.       PLANE < 0.0 1.0 0.0 > 40.0 END_PLANE
  50.    END_INTERSECTION
  51.  
  52.    AMBIENT 0.3
  53.    DIFFUSE 0.7
  54.    BRILLIANCE 5.0
  55.    SPECULAR 2.0
  56.    ROUGHNESS 0.009
  57.    COLOUR Green
  58. END_OBJECT
  59.  
  60. { Just for fun, add two water beams behind the others }
  61. OBJECT
  62.    INTERSECTION
  63.       UNION
  64.          QUADRIC
  65.             Cylinder_Y
  66.             SCALE <5.0 5.0 5.0>
  67.             TRANSLATE <-30.0 0.0 20.0>
  68.          END_QUADRIC
  69.  
  70.          QUADRIC
  71.             Cylinder_Y
  72.             SCALE <5.0 5.0 5.0>
  73.             TRANSLATE <30.0 0.0 20.0>
  74.          END_QUADRIC
  75.       END_UNION
  76.  
  77.       PLANE < 0.0 1.0 0.0 > 40.0 END_PLANE
  78.    END_INTERSECTION
  79.  
  80.    REFLECTION 0.5
  81.    REFRACTION 0.5
  82.    SPECULAR 1.0
  83.    ROUGHNESS 0.01
  84.    TEXTURE
  85.       RIPPLES 1.0
  86.       SCALE <2.0 2.0 2.0>
  87.    END_TEXTURE
  88. END_OBJECT
  89.  
  90. { Add a light source }
  91. OBJECT
  92.     SPHERE <0.0 0.0 0.0> 20.0 END_SPHERE
  93.  
  94.     TRANSLATE < 60.0 50.0 -110.0 >
  95.     LIGHT_SOURCE
  96.     COLOUR White
  97.     AMBIENT 1.0
  98.     DIFFUSE 0.0
  99. END_OBJECT
  100.  
  101.