home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / graphic / dkb / data / tcubic.dat < prev    next >
Encoding:
Text File  |  1991-04-25  |  1.3 KB  |  64 lines
  1. { DKB sample QUARTIC data file written by Alexander Enzmann }
  2.  
  3. INCLUDE "shapes.dat"
  4. INCLUDE "colors.dat"
  5. INCLUDE "textures.dat"
  6.  
  7. { Cubic curve - can make a nice teardrop by cleverly adding a clipping plane }
  8. OBJECT
  9.    INTERSECTION
  10.      QUARTIC
  11.      < 0.0   0.0   0.0   -0.5  0.0   0.0   0.0   0.0   0.0 -0.5
  12.        0.0   0.0   0.0    0.0  0.0   0.0   0.0   0.0   0.0  0.0
  13.        0.0   0.0   0.0    0.0  0.0   1.0   0.0   0.0   0.0  0.0
  14.        0.0   0.0   1.0    0.0  0.0 >
  15.        TEXTURE
  16.          COLOR Red
  17.      PHONG 1.0
  18.      DIFFUSE 0.8
  19.      AMBIENT 0.2
  20.        END_TEXTURE
  21.      END_QUARTIC
  22.      SPHERE <0 0 0> 2
  23.        TEXTURE
  24.          COLOR Clear
  25.        END_TEXTURE
  26.      END_SPHERE
  27.    END_INTERSECTION
  28.    BOUNDED_BY
  29.      SPHERE <0 0 0> 2.2 END_SPHERE
  30.    END_BOUND
  31.    ROTATE <0 20 0>
  32. END_OBJECT
  33.  
  34. VIEW_POINT
  35.    LOCATION  <0.0  0.0 -5.0>
  36.    DIRECTION <0.0  0.0  1.0>
  37.    UP        <0.0  1.0  0.0>
  38.    RIGHT     <1.33 0.0  0.0>
  39. END_VIEW_POINT
  40.  
  41. OBJECT
  42.    SPHERE <0 0 0> 1 END_SPHERE
  43.    TRANSLATE <200 30 -300>
  44.    TEXTURE
  45.      COLOR White
  46.      AMBIENT 1.0
  47.      DIFFUSE 0.0
  48.    END_TEXTURE
  49.    LIGHT_SOURCE
  50.    COLOUR White
  51. END_OBJECT
  52.  
  53. OBJECT
  54.    SPHERE <0 0 0> 1 END_SPHERE
  55.    TRANSLATE <-200 30 -300>
  56.    TEXTURE
  57.      COLOR White
  58.      AMBIENT 1.0
  59.      DIFFUSE 0.0
  60.    END_TEXTURE
  61.    LIGHT_SOURCE
  62.    COLOUR White
  63. END_OBJECT
  64.