home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / HYPTORUS.DAT < prev    next >
Encoding:
Text File  |  1991-09-07  |  1.5 KB  |  76 lines
  1. // Persistence of Vision Raytracer
  2. // Sample file
  3. // By Alexander Enzmann
  4.  
  5. { sample quartic data file written by Alexander Enzmann }
  6.  
  7. #include "colors.dat"
  8. #include "shapes.dat"
  9. #include "textures.dat"
  10.  
  11.  
  12. { Hyperbolic Torus having major radius sqrt(40), minor radius sqrt(12) }
  13. object
  14.    quartic
  15.    < 1.0   0.0   0.0    0.0     2.0   0.0   0.0  -2.0   0.0 -104.0
  16.      0.0   0.0   0.0    0.0     0.0   0.0   0.0   0.0   0.0    0.0
  17.      1.0   0.0   0.0   -2.0     0.0  56.0   0.0   0.0   0.0    0.0
  18.      1.0   0.0  104.0   0.0   784.0 >
  19.    end_quartic
  20.    bounded_by
  21.      sphere <0 0 0> 20 end_sphere
  22.    end_bound
  23.    texture
  24.       color CRed
  25.       specular 1.0
  26.       roughness 0.01
  27.       ambient 0.2
  28.       diffuse 0.8
  29.    end_texture
  30.    rotate <90 0 0>
  31.    rotate <0 30 0>
  32.    translate <0 0 20>
  33. end_object
  34.  
  35. { Put down a floor }
  36. object
  37.    plane <0.0  1.0  0.0> -20.0 end_plane
  38.    texture
  39.       Blue_Agate
  40.       scale < 20.0 20.0 20.0 >
  41.       ambient 0.5
  42.       diffuse 0.5
  43.    end_texture
  44. end_object
  45.  
  46. view_point
  47.    location  <0.0  0.0 -20.0>
  48.    direction <0.0  0.0   1.0>
  49.    up        <0.0  1.0   0.0>
  50.    right     <1.33 0.0   0.0>
  51. end_view_point
  52.  
  53. object
  54.    sphere <0 0 0> 1 end_sphere
  55.    translate <200 30 -300>
  56.    texture
  57.      color White
  58.      ambient 1.0
  59.      diffuse 0.0
  60.    end_texture
  61.    light_source
  62.    colour White
  63. end_object
  64.  
  65. object
  66.    sphere <0 0 0> 1 end_sphere
  67.    translate <-200 30 -300>
  68.    texture
  69.      color White
  70.      ambient 1.0
  71.      diffuse 0.0
  72.    end_texture
  73.    light_source
  74.    colour White
  75. end_object
  76.