home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / PARTORUS.DAT < prev    next >
Encoding:
Text File  |  1991-09-07  |  1.5 KB  |  74 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. { Parabolic Torus having major radius sqrt(40), minor radius sqrt(12) }
  12. object
  13.    quartic
  14.    < 1.0   0.0   0.0    0.0     2.0   0.0   0.0   0.0  -2.0 -104.0
  15.      0.0   0.0   0.0    0.0     0.0   0.0   0.0   0.0   0.0    0.0
  16.      1.0   0.0   0.0    0.0    -2.0  56.0   0.0   0.0   0.0    0.0
  17.      0.0   0.0   1.0  104.0   784.0 >
  18.    end_quartic
  19.    scale <0.7 0.7 0.4>
  20.    bounded_by
  21.      sphere <0 0 0> 40 end_sphere
  22.    end_bound
  23.    texture
  24.       color CRed
  25.       phong 1.0
  26.       phongsize 20
  27.    end_texture
  28.    rotate <120 0 0>
  29.    rotate <0 -30 0>
  30.    translate <0 0 40>
  31. end_object
  32.  
  33. { Put down a floor }
  34. object
  35.    plane <0.0  1.0  0.0> -20.0 end_plane
  36.    texture
  37.       Blue_Agate
  38.       scale < 20.0 20.0 20.0 >
  39.       ambient 0.5
  40.       diffuse 0.5
  41.    end_texture
  42. end_object
  43.  
  44. view_point
  45.    location  <0.0  0.0 -20.0>
  46.    direction <0.0  0.0   1.0>
  47.    up        <0.0  1.0   0.0>
  48.    right     <1.33 0.0   0.0>
  49. end_view_point
  50.  
  51. object
  52.    sphere <0 0 0> 1 end_sphere
  53.    translate <200 30 -300>
  54.    texture
  55.      color White
  56.      ambient 1.0
  57.      diffuse 0.0
  58.    end_texture
  59.    light_source
  60.    colour White
  61. end_object
  62.  
  63. object
  64.    sphere <0 0 0> 1 end_sphere
  65.    translate <-200 30 -300>
  66.    texture
  67.      color White
  68.      ambient 1.0
  69.      diffuse 0.0
  70.    end_texture
  71.    light_source
  72.    colour White
  73. end_object
  74.