home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / lily1.dat < prev    next >
Text File  |  1991-04-13  |  4KB  |  132 lines
  1. {   LILY1.DAT  DKBTrace Script             January 26, '91
  2.     By Dan Farmer
  3.     1001 E. 80th Street, Apt #102
  4.     Minneapolis, MN 55425
  5.  
  6.     Renders a water lily & pad on a pond.
  7.  
  8.     This data file is for use with DKBTrace by David Buck.  This file
  9.     is released to the public domain and may be used or altered by
  10.     anyone as desired.
  11.  
  12. }
  13.  
  14. INCLUDE "shapes.dat"
  15. INCLUDE "colors.dat"
  16. INCLUDE "textures.dat"
  17.  
  18. { A speckled yellow texture }
  19. DECLARE StamenTexture = TEXTURE
  20.     BUMPS 0.3
  21.     GRANITE 0.5
  22.     COLOR_MAP
  23.         [0.00 0.40 COLOR Yellow COLOR Yellow]
  24.         [0.40 0.50 COLOR Gold COLOR Wheat]
  25.         [0.50 1.001 COLOR Wheat COLOR Yellow]
  26.     END_COLOR_MAP
  27.     SCALE <0.5 0.5 0.5>
  28. END_TEXTURE
  29.  
  30. DECLARE Petal = OBJECT
  31. { Creates a shape like a wedge of orange peel
  32.  With the main axis is in the Z plane, rotated upward on the X axis.
  33.  
  34.                ^
  35.              /   \                ^
  36.            /       \              |
  37.          /           \            Y
  38.        /               \          |
  39.       --_             _--         v
  40.          --_      _ --
  41.               --               <- X ->
  42. }
  43.     INTERSECTION
  44.         SPHERE <0.0 0.0 0.0> 30.0 END_SPHERE
  45.         SPHERE <0.0 0.0 0.0> 29.9 INVERSE END_SPHERE
  46.         PLANE <-1.0 0.0 0.0> 0.0 ROTATE <0.0 0.0 -45.0> END_PLANE
  47.         PLANE <1.0 0.0 0.0> 0.0 ROTATE <0.0 0.0 45.0> END_PLANE
  48.     END_INTERSECTION
  49.     TEXTURE
  50.        COLOR White
  51.     END_TEXTURE
  52.     COLOR White
  53.     ROTATE <-20.0 0.0 0.0>
  54. END_OBJECT
  55.  
  56. { Rotate the petals around the center point to create the flower composite}
  57. DECLARE PetalLayer1 = COMPOSITE
  58.   OBJECT Petal TRANSLATE <0.0 0.0 30.0> END_OBJECT
  59.   OBJECT Petal TRANSLATE <0.0 0.0 30.0> ROTATE < 0.0  -45.000000 0.0 > END_OBJECT
  60.   OBJECT Petal TRANSLATE <0.0 0.0 30.0> ROTATE < 0.0  -90.000000 0.0 > END_OBJECT
  61.   OBJECT Petal TRANSLATE <0.0 0.0 30.0> ROTATE < 0.0 -135.000000 0.0 > END_OBJECT
  62.   OBJECT Petal TRANSLATE <0.0 0.0 30.0> ROTATE < 0.0  180.000000 0.0 > END_OBJECT
  63.   OBJECT Petal TRANSLATE <0.0 0.0 30.0> ROTATE < 0.0 -225.000000 0.0 > END_OBJECT
  64.   OBJECT Petal TRANSLATE <0.0 0.0 30.0> ROTATE < 0.0 -270.000000 0.0 > END_OBJECT
  65.   OBJECT Petal TRANSLATE <0.0 0.0 30.0> ROTATE < 0.0 -315.000000 0.0 > END_OBJECT
  66.   OBJECT SPHERE <0.0 -6.0 0.0> 15.0 END_SPHERE
  67.       COLOR Yellow
  68.       TEXTURE StamenTexture END_TEXTURE
  69.   END_OBJECT
  70.   ROTATE <0.0 -22.5 0.0>     { rotate 1/2 of the 45 degree step }
  71. END_COMPOSITE
  72.  
  73. {******************************************************************************}
  74. { You }
  75. VIEW_POINT
  76.    LOCATION <20.0  120.0  -170.0>
  77.    DIRECTION <0.0 0.0  1.0>
  78.    UP  <0.0  1.0  0.0>
  79.    RIGHT <1.33333 0.0 0.0>
  80.    LOOK_AT <0.0 0.0  -30.0>
  81. END_VIEW_POINT
  82.  
  83. { The Sun}
  84. OBJECT  
  85.    SPHERE <0.0  0.0  0.0>  2.0 END_SPHERE
  86.    TRANSLATE <10.0  200.0  -150.0>
  87.    TEXTURE
  88.       COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  89.       AMBIENT 1.0
  90.       DIFFUSE 0.0
  91.    END_TEXTURE
  92.    COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  93.    LIGHT_SOURCE
  94. END_OBJECT
  95.  
  96. { The pond }
  97. OBJECT
  98.     PLANE <0.0 1.0 0.0> 0.0 END_PLANE
  99.     COLOR Blue
  100.     TEXTURE
  101.         COLOR Blue
  102.         WAVES 0.3
  103.         FREQUENCY 100.0
  104.         SCALE <1000.0 1000.0 1000.0>
  105.     END_TEXTURE
  106. END_OBJECT
  107.  
  108. { Create a somewhat rounded lily-pad with the split in one end, and a
  109.   "cleavage-line" down the center }
  110. OBJECT
  111.     UNION
  112.         QUADRIC Sphere
  113.             SCALE <45.0 5.0 25.0>
  114.             TRANSLATE <45.0 0.0 0.0>
  115.         END_QUADRIC
  116.         QUADRIC Sphere
  117.             SCALE <45.0 5.0 25.0>
  118.             TRANSLATE <45.0 0.0 0.0>
  119.             ROTATE <0.0 -20.0 0.0>
  120.         END_QUADRIC
  121.         TRANSLATE <0.0 0.0 0.0>
  122.     END_UNION
  123.     TRANSLATE <-45.0 0.0 -10.0>
  124.     SCALE <2.5 2.5 2.5>
  125.     TEXTURE
  126.        COLOR Green
  127.     END_TEXTURE
  128. END_OBJECT
  129.  
  130. { Now, put it all together.}
  131. COMPOSITE PetalLayer1 TRANSLATE <15.0 45.0 -10.0> END_COMPOSITE
  132.