home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / hyptorus.dat < prev    next >
Text File  |  1991-04-24  |  1KB  |  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.  
  8. { Hyperbolic Torus having major radius sqrt(40), minor radius sqrt(12) }
  9. OBJECT
  10.    QUARTIC
  11.    < 1.0   0.0   0.0    0.0     2.0   0.0   0.0  -2.0   0.0 -104.0
  12.      0.0   0.0   0.0    0.0     0.0   0.0   0.0   0.0   0.0    0.0
  13.      1.0   0.0   0.0   -2.0     0.0  56.0   0.0   0.0   0.0    0.0
  14.      1.0   0.0  104.0   0.0   784.0 >
  15.    END_QUARTIC
  16.    BOUNDED_BY
  17.      SPHERE <0 0 0> 20 END_SPHERE
  18.    END_BOUND
  19.    TEXTURE
  20.       COLOR Red
  21.       SPECULAR 1.0
  22.       ROUGHNESS 0.01
  23.       AMBIENT 0.2
  24.       DIFFUSE 0.8
  25.    END_TEXTURE
  26.    ROTATE <90 0 0>
  27.    ROTATE <0 30 0>
  28.    TRANSLATE <0 0 20>
  29. END_OBJECT
  30.  
  31. { Put down a floor }
  32. OBJECT
  33.    PLANE <0.0  1.0  0.0> -20.0 END_PLANE
  34.    TEXTURE
  35.       Blue_Agate
  36.       SCALE < 20.0 20.0 20.0 >
  37.       AMBIENT 0.5
  38.       DIFFUSE 0.5
  39.    END_TEXTURE
  40. END_OBJECT
  41.  
  42. VIEW_POINT
  43.    LOCATION  <0.0  0.0 -20.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.