home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / quarpara.dat < prev    next >
Text File  |  1991-04-24  |  2KB  |  72 lines
  1. { DKB sample QUARTIC data file written by Alexander Enzmann }
  2.  
  3. INCLUDE "colors.dat"
  4. INCLUDE "shapes.dat"
  5. INCLUDE "textures.dat"
  6.  
  7. DECLARE Rectangle =
  8.    INTERSECTION
  9.       PLANE < 1  0  0> 3 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  10.       PLANE <-1  0  0> 3 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  11.       PLANE < 0  1  0> 3 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  12.       PLANE < 0 -1  0> 3 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  13.       PLANE < 0  0  1> 1 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  14.       PLANE < 0  0 -1> 1 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  15.    END_INTERSECTION
  16.  
  17. { Quartic parabola of sorts }
  18. OBJECT
  19.    INTERSECTION
  20.      QUARTIC
  21.      < 0.1   0.0   0.0  0.0   0.0   0.0   0.0   0.0   0.0  -1.0
  22.        0.0   0.0   0.0  0.0   0.0   0.0   0.0   0.0   0.0   0.0
  23.        0.0   0.0   0.0  0.0   0.0   0.0   0.0   0.0   0.0  -1.0
  24.        0.0   0.0  -1.0  0.0   0.9 >
  25.        TEXTURE
  26.          COLOR Red
  27.      PHONG 1.0
  28.      PHONGSIZE 20
  29.      AMBIENT 0.2
  30.      DIFFUSE 0.8
  31.        END_TEXTURE
  32.      END_QUARTIC
  33.      INTERSECTION Rectangle END_INTERSECTION
  34.    END_INTERSECTION
  35.    BOUNDED_BY
  36.       INTERSECTION Rectangle END_INTERSECTION
  37.    END_BOUND
  38.    { TRANSLATE <0 0 3> }
  39.    ROTATE <-30 0 0>
  40. END_OBJECT
  41.  
  42. VIEW_POINT
  43.    LOCATION  <0.0  0.0 -10.0>
  44.    DIRECTION <0.0  0.0   1.0>
  45.    UP        <0.0  1.0   0.0>
  46.    RIGHT     <1.33 0.0   0.0>
  47. END_VIEW_POINT
  48.  
  49. OBJECT
  50.    SPHERE <0 0 0> 1 END_SPHERE
  51.    TRANSLATE <200 30 -300>
  52.    TEXTURE
  53.      COLOR White
  54.      AMBIENT 1.0
  55.      DIFFUSE 0.0
  56.    END_TEXTURE
  57.    LIGHT_SOURCE
  58.    COLOUR White
  59. END_OBJECT
  60.  
  61. OBJECT
  62.    SPHERE <0 0 0> 1 END_SPHERE
  63.    TRANSLATE <-200 30 -300>
  64.    TEXTURE
  65.      COLOR White
  66.      AMBIENT 1.0
  67.      DIFFUSE 0.0
  68.    END_TEXTURE
  69.    LIGHT_SOURCE
  70.    COLOUR White
  71. END_OBJECT
  72.