home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / LAMP.DAT < prev    next >
Encoding:
Text File  |  1991-09-07  |  2.8 KB  |  132 lines
  1. // Persistence of Vision Raytracer
  2. // Sample file
  3. // By Anon.
  4.  
  5. { This would have won the Intl. Obfuscated Raytrace Code Contest, So I }
  6. { reformatted it while converting it :-)  All kidding }
  7. { aside, nice job, whoever wrote it!  -  Aaron A. Collins }
  8.  
  9. #include "colors.dat"
  10. #include "shapes.dat"    
  11. #include "textures.dat"
  12.  
  13. view_point
  14.   location <0.0 -80.0 0.0>
  15.   direction <0.0 1.0 0.0>
  16.   up <0.0 0.0 1.0>
  17.   right <1.333333 0.0 0.0>
  18.   translate < 25.0 0.0 5.0 >
  19.   rotate < -30.0 0.0 30.0 >
  20. end_view_point
  21.  
  22. object
  23.   sphere <0.0 0.0 0.0> 1.0 end_sphere
  24.   translate <44.514 0.0 13.5>
  25.   texture
  26.     color White
  27.     ambient 1.0
  28.     diffuse 0.0
  29.   end_texture
  30.   light_source
  31.   color White
  32. end_object
  33.  
  34. object
  35.   sphere <0.0 0.0 0.0> 1.0 end_sphere
  36.   translate <-60.514 0.0 160.5>
  37.   texture
  38.     color red 0.7 green 0.7 blue 0.7
  39.     ambient 1.0
  40.     diffuse 0.0
  41.   end_texture
  42.   light_source
  43.   color red 0.7 green 0.7 blue 0.7
  44. end_object
  45.  
  46. object
  47.   sphere < 0.0 0.0 0.0 > 5.0 end_sphere
  48.   texture Brass_Texture end_texture
  49. end_object
  50.  
  51. object
  52.   sphere < 38.161 0.0 17.197 > 1.0 end_sphere
  53.   texture Brass_Texture end_texture
  54. end_object
  55.  
  56. object
  57.   sphere < 9.307 0.0 30.288 > 1.0 end_sphere
  58.   texture Brass_Texture end_texture
  59. end_object
  60.  
  61. object
  62.   intersection X_Disk end_intersection
  63.   scale < 31.685 1.0 1.0 >
  64.   rotate < 0.0 -72.9193 0.0 >
  65.   texture Brass_Texture end_texture
  66. end_object
  67.  
  68. object intersection X_Disk end_intersection
  69.   scale < 31.685 1.0 1.0 >
  70.   rotate < 0.0 -155.5969 0.0 >
  71.   translate < 38.161 0.0 17.197 >
  72.   texture Brass_Texture end_texture
  73. end_object
  74.  
  75. object
  76.   intersection X_Disk end_intersection
  77.   scale < 3.2 0.5 0.5 >
  78.   translate < 38.161 0.0 17.197 >
  79.   texture Brass_Texture end_texture
  80. end_object
  81.  
  82. object
  83.   intersection
  84.     quadric
  85.       Cone_Z
  86.       scale < 1.0 1.0 1.0 >
  87.       translate < 44.514 0.0 17.685 >
  88.     end_quadric
  89.     quadric
  90.       Cone_Z
  91.       scale < 1.0 1.0 1.0 >
  92.       translate < 44.514 0.0 16.685 >
  93.       inverse
  94.     end_quadric
  95.     plane < 0.0 0.0 1.0 > 7.685 inverse end_plane
  96.     plane < 0.0 0.0 1.0 > 13.695 end_plane
  97.   end_intersection
  98.   texture Brass_Texture end_texture
  99. end_object
  100.  
  101. object
  102.   intersection
  103.     quadric
  104.       Cone_Z
  105.       scale < 0.2 0.2 1.0 >
  106.       translate < 44.514 0.0 33.496 >
  107.     end_quadric
  108.     quadric
  109.       Cone_Z
  110.       scale < 0.2 0.2 1.0 >
  111.       translate < 44.514 0.0 32.496 >
  112.       inverse
  113.     end_quadric
  114.     plane < 0.0 0.0 1.0 > 13.695 inverse end_plane
  115.     plane < 0.0 0.0 1.0 > 23.496 end_plane
  116.   end_intersection
  117.   texture Brass_Texture end_texture
  118. end_object
  119.  
  120. object
  121.   plane < 0.0 0.0 1.0 > -4.0 end_plane
  122.   texture
  123.     color CRed
  124.     ambient 0.4
  125.     diffuse 0.6
  126.     brilliance 8.0
  127.     reflection 0.8
  128.     phong 1.0
  129.     phongsize 30.0
  130.   end_texture
  131. end_object
  132.