home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / STEINER.DAT < prev    next >
Encoding:
Text File  |  1991-09-06  |  1.4 KB  |  65 lines
  1. // Persistence of Vision Raytracer
  2. // Sample quartic file 
  3. // by Alexander Enzmann
  4.  
  5. #include "Shapes.Data"
  6. #include "Colors.Data"
  7. #include "Textures.Data"
  8. #include "shapesq.dat"
  9.  
  10. // Get the declaration of the coordinate axes 
  11. #include "axisbox.dat"
  12.  
  13. // Declare the orientation of the surface 
  14. #declare Steiner_Orientation = <50 -20 0>
  15.  
  16. object
  17.    quartic Steiner_Surface
  18.       texture color CRed phong 1.0 end_texture
  19.    end_quartic
  20.    bounded_by
  21.       sphere <0 0 0> 1 end_sphere
  22.    end_bound
  23.    scale <6 6 6>
  24.    rotate Steiner_Orientation
  25. end_object
  26.  
  27. // Show coordinate axes 
  28. composite Axes
  29.    rotate Steiner_Orientation
  30. end_composite
  31.  
  32. // The viewer is eight units back along the z-axis. 
  33. view_point
  34.    location  <0.0  0.0 -8.0>
  35.    right     <1.3333  0.0  0.0>
  36.    up        <0.0  1.0  0.0>
  37.    direction <0.0  0.0  1.0>
  38. end_view_point
  39.  
  40. // Put in some light sources so that highlighting can give visual clues
  41. //  as to the shape of the surface. 
  42. object
  43.    sphere <0 0 0> 1 end_sphere
  44.    translate <200 100 -300> 
  45.    texture
  46.      colour White
  47.      ambient 1.0
  48.      diffuse 0.0
  49.    end_texture
  50.    light_source
  51.    colour White
  52. end_object
  53.  
  54. object
  55.    sphere <0 0 0> 1 end_sphere
  56.    translate <-200 100 -300> 
  57.    texture
  58.      colour White
  59.      ambient 1.0
  60.      diffuse 0.0
  61.    end_texture
  62.    light_source
  63.    colour White
  64. end_object
  65.