home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / GRAFBIC.DAT < prev    next >
Encoding:
Text File  |  1991-09-06  |  1.9 KB  |  91 lines
  1. // Persistence of Vision Raytracer
  2. // Sample Quartic file
  3. // by Alexander Enzmann
  4.  
  5. // Bicorn 
  6. #case_sensitive_opt
  7. #include "shapes.dat"
  8. #include "colors.dat"
  9. #include "textures.dat"
  10. #include "shapesq.dat"
  11.  
  12. // Get the declaration of the coordinate axes 
  13. #include "axisbox.dat"
  14.  
  15. // Declare the orientation of the surface 
  16. #declare Orient = <-20 -60 0>
  17.  
  18. // Bicorn 
  19. composite
  20.    object
  21.       quartic Bicorn
  22.      texture color CRed phong 1.0 end_texture
  23.       sturm
  24.       end_quartic
  25.       scale <3 3 3>
  26.       bounded_by
  27.      sphere <0 0 0> 3 end_sphere
  28.       end_bound
  29.       clipped_by
  30.      plane < 1 0 0> 0.5 end_plane
  31.      plane <-1 0 0> 0.5 end_plane
  32.       end_clip
  33.    end_object
  34.    object
  35.       quartic Bicorn
  36.      texture color CBlue phong 1.0 end_texture
  37.       sturm
  38.       end_quartic
  39.       scale <2.99 2.99 2.99>
  40.       translate <0 0.01 0>
  41.       bounded_by
  42.      sphere <0 0 0> 2.99 end_sphere
  43.       end_bound
  44.       clipped_by
  45.      plane < 1 0 0> 0.49 end_plane
  46.      plane <-1 0 0> 0.49 end_plane
  47.       end_clip
  48.    end_object
  49.    translate <0 -1.5 0 >
  50.    rotate Orient
  51. end_composite
  52.  
  53. // Show coordinate axes 
  54. composite Axes
  55.    rotate Orient
  56. end_composite
  57.  
  58. // The viewer is eight units back along the z-axis. 
  59. view_point
  60.    location  <0.0  0.0 -8.0>
  61.    right     <1.3333  0.0  0.0>
  62.    up        <0.0  1.0  0.0>
  63.    direction <0.0  0.0  1.0>
  64. end_view_point
  65.  
  66. // Put in some light sources so that highlighting can give visual clues
  67. //  as to the shape of the surface. 
  68. object
  69.    sphere <0 0 0> 1 end_sphere
  70.    translate <200 100 -300> 
  71.    texture
  72.      colour White
  73.      ambient 1.0
  74.      diffuse 0.0
  75.    end_texture
  76.    light_source
  77.    colour White
  78. end_object
  79.  
  80. object
  81.    sphere <0 0 0> 1 end_sphere
  82.    translate <-200 100 -300> 
  83.    texture
  84.      colour White
  85.      ambient 1.0
  86.      diffuse 0.0
  87.    end_texture
  88.    light_source
  89.    colour White
  90. end_object
  91.