home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / skyvase.dat < prev    next >
Text File  |  1991-04-12  |  3KB  |  133 lines
  1.    {  Author: Dan Farmer
  2.               Minneapolis, MN
  3.  
  4.       SKYVASE.DAT
  5.       Vase made with Hyperboloid and sphere, sitting on a hexagonal
  6.       marble column.  Take note of the color and surface characteristics
  7.       of the gold band around the vase.  It seems to be a successful
  8.       combination for gold or brass.
  9.  
  10.       This data file is for use with DKBTrace by David Buck.  This file
  11.       is released to the public domain and may be used or altered by
  12.       anyone as desired. }
  13.  
  14. INCLUDE "shapes.dat"
  15. INCLUDE "colors.dat"
  16. INCLUDE "textures.dat"
  17.  
  18. DECLARE DMF_Hyperboloid = QUADRIC  { Like Hyperboloid_Y, but more curvy }
  19.     <1.0 -1.0  1.0>
  20.     <0.0  0.0  0.0>
  21.     <0.0  0.0  0.0>
  22.     -0.5
  23. END_QUADRIC
  24.  
  25. VIEW_POINT
  26.    LOCATION <0.0  28.0  -200.0>
  27.    DIRECTION <0.0 0.0  2.0>
  28.    UP  <0.0  1.0  0.0>
  29.    RIGHT <1.33333 0.0 0.0>
  30.    LOOK_AT <0.0  -12.0 0.0>
  31. END_VIEW_POINT
  32.  
  33. { Light behind viewer postion (pseudo-ambient light) }
  34. OBJECT  
  35.    SPHERE <0.0  0.0  0.0>  2.0 END_SPHERE
  36.    TRANSLATE <100.0  500.0  -500.0>
  37.    TEXTURE
  38.      COLOUR White
  39.      AMBIENT 1.0
  40.      DIFFUSE 0.0
  41.    END_TEXTURE
  42.    LIGHT_SOURCE
  43.    COLOUR White
  44. END_OBJECT
  45.  
  46. COMPOSITE
  47.    OBJECT
  48.       UNION
  49.         INTERSECTION
  50.           PLANE <0 1 0> 0.7 END_PLANE
  51.           QUADRIC DMF_Hyperboloid SCALE <0.75 1.25 0.75> END_QUADRIC
  52.           QUADRIC DMF_Hyperboloid SCALE <0.70 1.25 0.70> INVERSE END_QUADRIC
  53.           PLANE <0.0 1.0 0.0> -1.0 INVERSE END_PLANE
  54.         END_INTERSECTION
  55.         QUADRIC Sphere SCALE <1.6 0.75 1.6 > TRANSLATE <0 -1.15 0> END_QUADRIC
  56.       END_UNION
  57.       SCALE <20 25 20>
  58.       TEXTURE
  59.         Cloud_Sky
  60.     0.05
  61.     TURBULENCE 0.85
  62.     SCALE <10.0 10.0 10.0>
  63.     AMBIENT 0.3
  64.     DIFFUSE 0.7
  65.     SPECULAR 0.75
  66.     ROUGHNESS 0.05
  67.     REFLECTION 0.45
  68.       END_TEXTURE
  69.       COLOR Green
  70.    END_OBJECT
  71.    OBJECT  { Gold ridge around sphere portion of vase}
  72.       QUADRIC Sphere
  73.          SCALE <1.6 0.75 1.6 >
  74.          TRANSLATE <0 -7.0 0>
  75.          SCALE <20.5 4.0  20.5 >
  76.       END_QUADRIC
  77.       TEXTURE
  78.      Polished_Metal
  79.      0.05
  80.      COLOR OldGold
  81.       END_TEXTURE
  82.       COLOR OldGold
  83.    END_OBJECT
  84.    BOUNDED_BY
  85.       INTERSECTION
  86.       Y_Disk
  87.       TRANSLATE <0.0 -0.5 0.0>
  88.       SCALE <34 100 34>
  89.       END_INTERSECTION
  90.    END_BOUND
  91. END_COMPOSITE
  92.  
  93. OBJECT  { Stand for the vase }
  94.     INTERSECTION Hexagon
  95.       ROTATE <0.0 0.0 -90.0>    { Stand it on end (vertical)}
  96.       ROTATE<0.0 -45.0 0.0>    { Turn it to a pleasing angle }
  97.       SCALE<40 25 40>
  98.       TRANSLATE<0 -70 0>
  99.     END_INTERSECTION
  100.     TEXTURE
  101.       Black_Marble
  102.       SCALE <10.0 10.0 10.0>
  103.       AMBIENT 0.3
  104.       DIFFUSE 0.7
  105.       REFLECTION 0.85
  106.     END_TEXTURE
  107.     COLOR RED 1.0          {Color is only for debugging w/o texture}
  108. END_OBJECT
  109.  
  110. OBJECT    {Left wall}
  111.     PLANE <0 0 1> 50 END_PLANE
  112.     ROTATE <0 -45 0>
  113.     TEXTURE
  114.       COLOR Gray
  115.       AMBIENT 0.3
  116.       DIFFUSE 0.7
  117.       REFLECTION 0.5
  118.     END_TEXTURE
  119.     COLOR Gray
  120. END_OBJECT
  121.  
  122. OBJECT     {Right wall}
  123.     PLANE <0 0 1> 50 END_PLANE
  124.     ROTATE <0 45 0>
  125.     TEXTURE
  126.       COLOR  Gray
  127.       AMBIENT 0.3
  128.       DIFFUSE 0.7
  129.       REFLECTION 0.5
  130.     END_TEXTURE
  131.     COLOR  Gray
  132. END_OBJECT
  133.