home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d513 / dkbtrace.lha / DKBTrace / dkb212dt.lzh / trough.dat < prev    next >
Text File  |  1991-04-24  |  2KB  |  67 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 Quartic_Saddle =
  8.    QUARTIC
  9.    < 0.0   0.0   0.0   0.0  0.0   0.0   0.0   4.0   0.0  0.0
  10.      0.0   0.0   0.0   0.0  0.0   0.0   0.0   0.0   0.0  0.0
  11.      0.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 >
  13.    END_QUARTIC
  14.  
  15. DECLARE Unit_Cube =
  16.    INTERSECTION
  17.       PLANE < 1  0  0> 1 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  18.       PLANE <-1  0  0> 1 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  19.       PLANE < 0  1  0> 1 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  20.       PLANE < 0 -1  0> 1 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  21.       PLANE < 0  0  1> 1 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  22.       PLANE < 0  0 -1> 1 TEXTURE COLOR Clear END_TEXTURE END_PLANE
  23.    END_INTERSECTION
  24.  
  25. { Crossed Trough }
  26. OBJECT
  27.    INTERSECTION
  28.      QUARTIC Quartic_Saddle
  29.        TEXTURE
  30.          COLOR Red
  31.      SPECULAR 0.8
  32.      ROUGHNESS 0.005
  33.      AMBIENT 0.3
  34.      DIFFUSE 0.6
  35.        END_TEXTURE
  36.      END_QUARTIC
  37.      INTERSECTION Unit_Cube END_INTERSECTION
  38.    END_INTERSECTION
  39.    BOUNDED_BY
  40.      INTERSECTION Unit_Cube SCALE <1.5 1.5 1.5> END_INTERSECTION
  41.    END_BOUND
  42.    SCALE <2 2 2> 
  43.    ROTATE <0 -10 0>
  44.    ROTATE <-60 0 0>
  45.    TRANSLATE <0 0 4>
  46. END_OBJECT
  47.  
  48. VIEW_POINT
  49.    LOCATION  <0.0  0.0 -4.0>
  50.    RIGHT     <1.33 0.0  0.0>
  51.    UP        <0.0  1.0  0.0>
  52.    DIRECTION <0.0  0.0  1.0>
  53. END_VIEW_POINT
  54.  
  55. OBJECT
  56.    SPHERE <0 0 0> 1 END_SPHERE
  57.    TRANSLATE <200 30 -300>
  58.    TEXTURE
  59.      COLOR White
  60.      AMBIENT 1.0
  61.      DIFFUSE 0.0
  62.    END_TEXTURE
  63.    LIGHT_SOURCE
  64.    COLOUR White
  65. END_OBJECT
  66.  
  67.