home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / graphic / dkb / data / torus.dat < prev    next >
Encoding:
Text File  |  1991-04-25  |  1.5 KB  |  71 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. { Torus having major radius sqrt(40), minor radius sqrt(12) }
  8. OBJECT
  9.    QUARTIC
  10.    < 1.0   0.0   0.0    0.0     2.0   0.0   0.0   2.0   0.0 -104.0
  11.      0.0   0.0   0.0    0.0     0.0   0.0   0.0   0.0   0.0    0.0
  12.      1.0   0.0   0.0    2.0     0.0  56.0   0.0   0.0   0.0    0.0
  13.      1.0   0.0 -104.0   0.0   784.0 >
  14.    END_QUARTIC
  15.    BOUNDED_BY
  16.    SPHERE <0 0 0> 10 END_SPHERE
  17.    END_BOUND
  18.    TEXTURE
  19.      COLOR Red
  20.      PHONG 1.0
  21.      PHONGSIZE 10
  22.      AMBIENT 0.2
  23.      DIFFUSE 0.8
  24.    END_TEXTURE
  25.    ROTATE <-45 0 0>
  26.    TRANSLATE <0 0 20>
  27.    COLOR Red
  28. END_OBJECT
  29.  
  30. { Put down checkered floor }
  31. OBJECT
  32.    PLANE <0.0  1.0  0.0> -20.0 END_PLANE
  33.    TEXTURE
  34.       CHECKER COLOUR NavyBlue COLOUR MidnightBlue
  35.       SCALE < 20.0 20.0 20.0 >
  36.       AMBIENT 0.8
  37.       DIFFUSE 0.2
  38.    END_TEXTURE
  39. END_OBJECT
  40.  
  41. VIEW_POINT
  42.    LOCATION  <0.0  2.0 -10.0>
  43.    LOOK_AT   <0.0  0.0   0.0>
  44.    UP        <0.0  1.0   0.0>
  45.    RIGHT     <1.33 0.0   0.0>
  46. END_VIEW_POINT
  47.  
  48. OBJECT
  49.    SPHERE<0.0 0.0 0.0> 1 END_SPHERE
  50.    TRANSLATE <50 100 0>
  51.    TEXTURE
  52.      COLOUR White
  53.      AMBIENT 1.0
  54.      DIFFUSE 0.0
  55.    END_TEXTURE
  56.    LIGHT_SOURCE
  57.    COLOUR White
  58. END_OBJECT
  59.  
  60. OBJECT
  61.    SPHERE <0.0 0.0 0.0> 1 END_SPHERE
  62.    TRANSLATE <-200 30 -300>
  63.    TEXTURE
  64.      COLOUR White
  65.      AMBIENT 1.0
  66.      DIFFUSE 0.0
  67.    END_TEXTURE
  68.    LIGHT_SOURCE
  69.    COLOUR White
  70. END_OBJECT
  71.