home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / TAKEOFF.DAT < prev    next >
Encoding:
Text File  |  1991-09-07  |  4.6 KB  |  194 lines
  1. // Persistence of Vision Raytracer
  2. // Sample quartic file 
  3. // by Alexander Enzmann
  4.  
  5. #include "shapes.dat"
  6. #include "colors.dat"
  7. #include "textures.dat"
  8. #include "shapesq.dat"
  9.  
  10. #declare Steel = texture
  11.  color SteelBlue
  12.  phong 1.0
  13.  phongsize 20
  14.  ambient 0.2
  15.  diffuse 0.8
  16. end_texture
  17.  
  18. #declare Fin = object
  19.  difference
  20.   intersection
  21.    quadric QSphere scale <2 4 0.5> end_quadric
  22.    plane <0.0 1.0 0.0> -0 inverse end_plane
  23.    plane <1.0 0.0 0.0> -0 end_plane
  24.   end_intersection
  25.   quadric QSphere scale <2 2 2> end_quadric
  26.  end_difference
  27.  translate <-1.2 0 0>
  28.  texture Steel end_texture
  29. end_object
  30.  
  31. #declare Fins = composite
  32.  object Fin rotate <0 0 0>   end_object
  33.  object Fin rotate <0 90 0>  end_object
  34.  object Fin rotate <0 180 0> end_object
  35.  object Fin rotate <0 270 0> end_object
  36.  bounded_by
  37.   intersection
  38.    quadric Cylinder_Y scale <3.5 1 3.5> end_quadric
  39.    plane <0.0 1.0 0.0> 4 end_plane
  40.    plane <0.0 1.0 0.0> 0 inverse end_plane
  41.   end_intersection
  42.  end_bound
  43. end_composite
  44.  
  45. composite Fins rotate <0 25 0> translate <0 6 0> end_composite
  46.  
  47.  
  48. object
  49.  intersection
  50.   union
  51.    intersection
  52.     quartic Piriform
  53.      translate <-0.75 0 0>
  54.      rotate <0 0 -90>
  55.      scale <2 6 2>
  56.      texture Steel end_texture
  57.     end_quartic
  58.     quadric Cone_Y
  59.      scale <1.8 5.0 1.8>
  60.      rotate <180 0 0>
  61.      translate <0 5 0>
  62.      color Clear
  63.     end_quadric
  64.     plane <0.0 1.0 0.0> 5 color Clear end_plane
  65.     plane <0.0 1.0 0.0> 0 inverse color Clear end_plane
  66.    end_intersection
  67.    intersection
  68.     quartic Piriform
  69.      translate <-0.75 0 0>
  70.      rotate <0 0 90>
  71.      scale <2 18 2>
  72.      texture Steel end_texture
  73.     end_quartic
  74.     quadric Cone_Y
  75.      scale <1.8 15.0 1.8>
  76.      translate <0 -15 0>
  77.      color Clear
  78.     end_quadric
  79.     plane <0.0 1.0 0.0> 0 color Clear end_plane
  80.     plane <0.0 1.0 0.0> -8 inverse color Clear end_plane
  81.    end_intersection
  82.    intersection
  83.     quartic Piriform
  84.      translate <-0.40 0 0>
  85.      rotate <0 0 90>
  86.      scale <2 6 2>
  87.      texture Steel end_texture
  88.     end_quartic
  89.     plane <0.0 1.0 0.0> 0 inverse end_plane
  90.     translate <0 -11 0>
  91.    end_intersection
  92.   end_union
  93.   quadric Cylinder_Y scale <1.45 1.0 1.45> color Clear end_quadric
  94.  end_intersection
  95.  bounded_by
  96.   intersection
  97.    quadric Cylinder_Y scale <1.45 1.0 1.45> end_quadric
  98.    plane <0.0 1.0 0.0> 5 end_plane
  99.    plane <0.0 1.0 0.0> -11 inverse end_plane
  100.   end_intersection
  101.  end_bound
  102. {translate <0 12 0>}
  103.  translate <0 18 0>
  104. end_object
  105.  
  106. object
  107.  intersection
  108.   quartic Piriform
  109.    translate <-0.40 0 0>
  110.    rotate <0 0 90>
  111.    scale <0.8 5 0.8>
  112.    texture Luminous color Yellow alpha 0.7 end_texture
  113.   end_quartic
  114.   quadric Cylinder_Y scale <0.8 1.0 0.8> end_quadric
  115.  end_intersection
  116.  light_source
  117.  bounded_by
  118.   intersection
  119.    quadric Cylinder_Y scale <0.8 1.0 0.8> end_quadric
  120.    plane <0.0 1.0 0.0> 6 end_plane
  121.    plane <0.0 1.0 0.0> -8 inverse end_plane
  122.   end_intersection
  123.  end_bound
  124.  translate <0 4 0>
  125. end_object
  126.  
  127. view_point
  128.    location  <3.0  30 -20.0>
  129.    up        <0.0  1.0  0.1>
  130.    right     <1.33 0.0  0.0>
  131.    look_at   <0.0  12 0>
  132. end_view_point
  133.  
  134. object
  135.    sphere <0 0 0> 1 end_sphere
  136.    translate <100 100 -100>
  137.    texture
  138.      colour White
  139.      ambient 1.0
  140.      diffuse 0.0
  141.    end_texture
  142.    light_source
  143.    colour White
  144. end_object
  145.  
  146. object
  147.  plane <0.0 1.0 0.0> 0 end_plane
  148.  texture
  149.   checker
  150.    colour Gold
  151.    colour Aquamarine
  152.   scale < 5 5.1 5 >
  153.   reflection 0.5
  154.   ambient 0.1
  155.   diffuse 0.8
  156.  end_texture
  157. end_object
  158.  
  159. object
  160.    sphere <0.0  0.0  0.0> 300.0 end_sphere
  161.    texture
  162.       gradient <0.0  1.0  0.0>
  163.       colour_map [0.0 0.8  colour red 1.0 green 0.3 blue 0.0
  164.                            colour red 0.7 green 0.7 blue 1.0]
  165.                  [0.8 1.0 colour red 0.7 green 0.7 blue 1.0
  166.                           colour red 0.7 green 0.7 blue 1.0]
  167.       end_colour_map
  168.       scale <300.0  300.0  300.0>
  169.       ambient 0.7
  170.       diffuse 0.0
  171.    end_texture
  172.    colour red 0.7  green 0.7 blue 1.0
  173. end_object
  174.  
  175. object
  176.    sphere <0.0  0.0  0.0> 259.0 end_sphere
  177.    texture
  178.       bozo
  179.       turbulence 0.5
  180.       colour_map
  181.           [0.0 0.6  colour red 1.0 green 1.0 blue 1.0 alpha 1.0
  182.                     colour red 1.0 green 1.0 blue 1.0 alpha 1.0]
  183.           [0.6 0.8 colour red 1.0 green 1.0 blue 1.0 alpha 1.0
  184.                     colour red 1.0 green 1.0 blue 1.0]
  185.           [0.8 1.001 colour red 1.0 green 1.0 blue 1.0
  186.                      colour red 0.8 green 0.8 blue 0.8]
  187.       end_colour_map
  188.       scale <100.0  20.0  100.0>
  189.       ambient 0.7
  190.       diffuse 0.0
  191.    end_texture
  192.    colour red 0.7 green 0.7 blue 1.0
  193. end_object
  194.