home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / graphic / dkb / data / devil.dat < prev    next >
Encoding:
Text File  |  1991-04-25  |  1.4 KB  |  65 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. { Variant of a devil's curve }
  8. OBJECT
  9.    INTERSECTION
  10.      QUARTIC
  11.      <-1.0   0.0   0.0    0.0  0.0   0.0   0.0  -2.0   0.0  0.36
  12.        0.0   0.0   0.0    0.0  0.0   0.0   0.0   0.0   0.0  0.0
  13.        1.0   0.0   0.0    0.0  0.0  -0.25  0.0   0.0   0.0  0.0
  14.       -1.0   0.0   0.0    0.0  0.0 >
  15.        TEXTURE
  16.          COLOR Red
  17.       SPECULAR 0.8
  18.       ROUGHNESS 0.01
  19.      AMBIENT 0.4
  20.      DIFFUSE 0.6
  21.        END_TEXTURE
  22.      END_QUARTIC
  23.      SPHERE <0 0 0> 2 TEXTURE COLOR Clear END_TEXTURE END_SPHERE
  24.      PLANE <0 0  1> 0.5 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  25.      PLANE <0 0 -1> 0.5 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  26.    END_INTERSECTION
  27.    BOUNDED_BY
  28.      SPHERE <0 0 0> 2 END_SPHERE
  29.    END_BOUND
  30.    SCALE <2 2 2>
  31.    ROTATE <0 30 0>
  32.    TRANSLATE <0 0 5>
  33. END_OBJECT
  34.  
  35. VIEW_POINT
  36.    LOCATION  <0.0  0.0 -5.0>
  37.    DIRECTION <0.0  0.0  1.0>
  38.    UP        <0.0  1.0  0.0>
  39.    RIGHT     <1.33 0.0  0.0>
  40. END_VIEW_POINT
  41.  
  42. OBJECT
  43.    SPHERE <0 0 0> 1 END_SPHERE
  44.    TRANSLATE <200 30 -300>
  45.    TEXTURE
  46.      COLOR White
  47.      AMBIENT 1.0
  48.      DIFFUSE 0.0
  49.    END_TEXTURE
  50.    LIGHT_SOURCE
  51.    COLOUR White
  52. END_OBJECT
  53.  
  54. OBJECT
  55.    SPHERE <0 0 0> 1 END_SPHERE
  56.    TRANSLATE <-200 30 -300>
  57.    TEXTURE
  58.      COLOR White
  59.      AMBIENT 1.0
  60.      DIFFUSE 0.0
  61.    END_TEXTURE
  62.    LIGHT_SOURCE
  63.    COLOUR White
  64. END_OBJECT
  65.