home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / graphic / dkb / data / lemnisc2.dat < prev    next >
Encoding:
Text File  |  1991-04-25  |  2.0 KB  |  99 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. COMPOSITE
  8.    { Lemniscate of Gerono }
  9.    OBJECT
  10.       QUARTIC
  11.       < 1.0   0.0   0.0    0.0  0.0   0.0   0.0   0.0   0.0 -1.0
  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.       END_QUARTIC
  16.       BOUNDED_BY
  17.       SPHERE <0 0 0> 2.01 END_SPHERE
  18.       END_BOUND
  19.       TEXTURE
  20.         COLOR Red
  21.         PHONG 1.0
  22.         PHONGSIZE 10
  23.         AMBIENT 0.2
  24.         DIFFUSE 0.8
  25.       END_TEXTURE
  26.       ROTATE <0 0 45>
  27.    END_OBJECT
  28.  
  29.    { Lemniscate of Gerono }
  30.    OBJECT
  31.       QUARTIC
  32.       < 1.0   0.0   0.0    0.0  0.0   0.0   0.0   0.0   0.0 -1.0
  33.         0.0   0.0   0.0    0.0  0.0   0.0   0.0   0.0   0.0  0.0
  34.         0.0   0.0   0.0    0.0  0.0   1.0   0.0   0.0   0.0  0.0
  35.         0.0   0.0   1.0    0.0  0.0 >
  36.       END_QUARTIC
  37.       BOUNDED_BY
  38.       SPHERE <0 0 0> 2.01 END_SPHERE
  39.       END_BOUND
  40.       TEXTURE
  41.         COLOR Blue
  42.         PHONG 1.0
  43.         PHONGSIZE 10
  44.         AMBIENT 0.2
  45.         DIFFUSE 0.8
  46.       END_TEXTURE
  47.       ROTATE <0 0 -45>
  48.    END_OBJECT
  49.  
  50.    SCALE <4 4 4>
  51.    ROTATE <30 0 20>
  52.    TRANSLATE <0 0 5>
  53.  
  54. END_COMPOSITE
  55.  
  56. VIEW_POINT
  57.    LOCATION  <0.0  0.0 -10.0>
  58.    RIGHT     <1.0  0.0  0.0>
  59.    UP        <0.0  1.0  0.0>
  60.    DIRECTION <0.0  0.0  1.0>
  61. END_VIEW_POINT
  62.  
  63. OBJECT
  64.    SPHERE <0 0 0 > 1 END_SPHERE
  65.    TRANSLATE <200 30 -30>
  66.    TEXTURE
  67.      COLOUR White
  68.      AMBIENT 1.0
  69.      DIFFUSE 0.0
  70.    END_TEXTURE
  71.    LIGHT_SOURCE
  72.    COLOUR White
  73. END_OBJECT
  74.  
  75. OBJECT
  76.    SPHERE <0 0 0> 1 END_SPHERE
  77.    TRANSLATE <-200 30 -300>
  78.    TEXTURE
  79.      COLOUR White
  80.      AMBIENT 1.0
  81.      DIFFUSE 0.0
  82.    END_TEXTURE
  83.    LIGHT_SOURCE
  84.    COLOUR White
  85. END_OBJECT
  86.  
  87. { Put down floor }
  88. OBJECT
  89.    PLANE <0.0 1.0 0.0> -30.0 END_PLANE
  90.    TEXTURE
  91.      White_Marble
  92.      SCALE <30 30 30>
  93.      AMBIENT 0.3
  94.      DIFFUSE 0.7
  95.    END_TEXTURE
  96.    ROTATE <5 0 0>
  97. END_OBJECT
  98.  
  99.