home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / stonewal.dat < prev    next >
Text File  |  1991-04-12  |  4KB  |  172 lines
  1.    {  Author name : Dan Farmer
  2.                     Minneapolis, MN
  3.  
  4.       A pastoral scene with a granite stone fence.  This was never really
  5.       "finished", but it works as it is.  Plenty of material to play around
  6.       with here.  The basic building blocks are here... just use your
  7.       imagination.
  8.  
  9.       This data file is for use with DKBTrace by David Buck.  This file
  10.       is released to the public domain and may be used or altered by
  11.       anyone as desired. }
  12.  
  13. INCLUDE "shapes.dat"          {Includes New "Cube" Primitive}
  14. INCLUDE "colors.dat"
  15. INCLUDE "textures.dat"
  16.  
  17. VIEW_POINT
  18.     LOCATION <50.0  40.0  -350.0>
  19.     LOOK_AT <-100.0 0.0 0.0>
  20.     DIRECTION <0.0 0.0 2.0>
  21.     RIGHT < 1.3333 0.0 0.0 >
  22. END_VIEW_POINT
  23.  
  24. { Add light source }
  25. OBJECT
  26.     SPHERE <0.0 0.0 0.0> 20.0 END_SPHERE
  27.     TRANSLATE <100.0  200.0  -630.0>
  28.     TEXTURE
  29.       COLOR White
  30.       AMBIENT 1.0
  31.       DIFFUSE 0.0
  32.     END_TEXTURE
  33.     LIGHT_SOURCE
  34.     COLOR White
  35. END_OBJECT
  36.  
  37. OBJECT
  38.     SPHERE <0.0 0.0 0.0> 50.0 END_SPHERE
  39.     TRANSLATE <50.0  20000.0 50.0>
  40.     TEXTURE
  41.       COLOR White
  42.       AMBIENT 1.0
  43.       DIFFUSE 0.0
  44.     END_TEXTURE
  45.     LIGHT_SOURCE
  46.     COLOR White
  47. END_OBJECT
  48.  
  49. { Add the sky to the picture }
  50. OBJECT
  51.     SPHERE <0.0 0.0 0.0> 1000000.0 END_SPHERE
  52.     TEXTURE
  53.         COLOR SkyBlue
  54.     DIFFUSE 0.0
  55.     AMBIENT 0.5
  56.     END_TEXTURE
  57.     COLOR SkyBlue
  58. END_OBJECT
  59.  
  60. { Grassy meadow }
  61. OBJECT
  62.     PLANE <0.0 1.0 0.0> -2.0 END_PLANE
  63.     TEXTURE
  64.         0.05  { This value dithers the colors }
  65.     COLOR RED 0.2 GREEN 1.0 BLUE 0.4
  66.     WAVES 1.0
  67.     FREQUENCY 2000.0
  68.     SCALE <50000.0 50000.0 50000.0>
  69.     AMBIENT 0.1
  70.     DIFFUSE 0.3
  71.     END_TEXTURE
  72.     COLOR RED 0.2 GREEN 1.0 BLUE 0.4
  73. END_OBJECT
  74.  
  75. { Put up a distant wall to prevent a black line in the middle of the
  76.    screen }
  77. OBJECT
  78.     PLANE <0.0 0.0 1.0> 1000000.0  END_PLANE
  79.     TEXTURE
  80.         COLOR RED 0.4 GREEN 0.4 BLUE 0.8
  81.     AMBIENT 1.0
  82.     DIFFUSE 0.0
  83.     END_TEXTURE
  84.     COLOR RED 0.4 GREEN 0.4 BLUE 0.8
  85. END_OBJECT
  86.  
  87.  
  88. DECLARE Wall_Segment = OBJECT
  89.     INTERSECTION Cube END_INTERSECTION
  90.     SCALE <8.0 50.0 100.0>
  91.     TEXTURE
  92.         0.05
  93.         GRANITE
  94.     AMBIENT 0.3
  95.     DIFFUSE 0.7
  96.     BRILLIANCE 7.0
  97.     REFLECTION 0.1
  98.     PHONG 1.0
  99.     PHONGSIZE 60
  100.     END_TEXTURE
  101.     COLOR White
  102. END_OBJECT
  103.  
  104. DECLARE Granite_Ball = OBJECT
  105.     SPHERE <0.0 0.0 10.0> 10.0 END_SPHERE
  106.     TEXTURE
  107.         0.05
  108.         GRANITE
  109.     AMBIENT 0.3
  110.     DIFFUSE 0.7
  111.     BRILLIANCE 7.0
  112.     REFLECTION 0.1
  113.     PHONG 1.0
  114.     PHONGSIZE 60
  115.     END_TEXTURE
  116.     COLOR White
  117. END_OBJECT
  118.  
  119. DECLARE Column = OBJECT
  120.     INTERSECTION Cube END_INTERSECTION
  121.     SCALE <12.0 60.0 12.0>
  122.     TEXTURE
  123.         0.05
  124.         GRANITE
  125.     AMBIENT 0.3
  126.     DIFFUSE 0.7
  127.     BRILLIANCE 7.0
  128.     REFLECTION 0.1
  129.     PHONG 1.0
  130.     PHONGSIZE 60
  131.     END_TEXTURE
  132.     COLOR White
  133. END_OBJECT
  134.  
  135. { NOTE: Granite column is 12 wide x 12 deep x 60 high
  136.         Granite ball has a radius of 20 }
  137. DECLARE Pillar = COMPOSITE
  138.     OBJECT Column       TRANSLATE <0.0  0.0 0.0> END_OBJECT
  139.     OBJECT Granite_Ball TRANSLATE <0.0 70.0 0.0> END_OBJECT
  140. END_COMPOSITE
  141.  
  142. { Note: Wall segments are 100 units long, Pillars are 12 units "long" }
  143. COMPOSITE
  144.     Pillar
  145.     TRANSLATE <0.0 0.0 -106.0 >
  146. END_COMPOSITE
  147. OBJECT
  148.     Wall_Segment
  149.     TRANSLATE <-2.0 0.0 -6.0 >
  150. END_OBJECT
  151. COMPOSITE
  152.     Pillar
  153.     TRANSLATE <0.0 0.0 0.0 >
  154. END_COMPOSITE
  155. OBJECT
  156.     Wall_Segment
  157.     TRANSLATE <-2.0 0.0 112.0 >
  158. END_OBJECT
  159. COMPOSITE
  160.     Pillar
  161.     TRANSLATE <0.0 0.0 112.0 >
  162. END_COMPOSITE
  163. OBJECT
  164.     Wall_Segment
  165.     ROTATE <0.0 -90.0 0.0>
  166.     TRANSLATE <76.0 0.0 114.0 >
  167. END_OBJECT
  168. COMPOSITE
  169.     Pillar
  170.     TRANSLATE <176.0 0.0 112.0 >
  171. END_COMPOSITE
  172.