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