home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / partorus.dat < prev    next >
Text File  |  1991-04-24  |  1KB  |  70 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. { Parabolic 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   0.0  -2.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    0.0    -2.0  56.0   0.0   0.0   0.0    0.0
  13.      0.0   0.0   1.0  104.0   784.0 >
  14.    END_QUARTIC
  15.    SCALE <0.7 0.7 0.4>
  16.    BOUNDED_BY
  17.      SPHERE <0 0 0> 40 END_SPHERE
  18.    END_BOUND
  19.    TEXTURE
  20.       COLOR Red
  21.       PHONG 1.0
  22.       PHONGSIZE 20
  23.    END_TEXTURE
  24.    ROTATE <120 0 0>
  25.    ROTATE <0 -30 0>
  26.    TRANSLATE <0 0 40>
  27. END_OBJECT
  28.  
  29. { Put down a floor }
  30. OBJECT
  31.    PLANE <0.0  1.0  0.0> -20.0 END_PLANE
  32.    TEXTURE
  33.       Blue_Agate
  34.       SCALE < 20.0 20.0 20.0 >
  35.       AMBIENT 0.5
  36.       DIFFUSE 0.5
  37.    END_TEXTURE
  38. END_OBJECT
  39.  
  40. VIEW_POINT
  41.    LOCATION  <0.0  0.0 -20.0>
  42.    DIRECTION <0.0  0.0   1.0>
  43.    UP        <0.0  1.0   0.0>
  44.    RIGHT     <1.33 0.0   0.0>
  45. END_VIEW_POINT
  46.  
  47. OBJECT
  48.    SPHERE <0 0 0> 1 END_SPHERE
  49.    TRANSLATE <200 30 -300>
  50.    TEXTURE
  51.      COLOR White
  52.      AMBIENT 1.0
  53.      DIFFUSE 0.0
  54.    END_TEXTURE
  55.    LIGHT_SOURCE
  56.    COLOUR White
  57. END_OBJECT
  58.  
  59. OBJECT
  60.    SPHERE <0 0 0> 1 END_SPHERE
  61.    TRANSLATE <-200 30 -300>
  62.    TEXTURE
  63.      COLOR White
  64.      AMBIENT 1.0
  65.      DIFFUSE 0.0
  66.    END_TEXTURE
  67.    LIGHT_SOURCE
  68.    COLOUR White
  69. END_OBJECT
  70.