home *** CD-ROM | disk | FTP | other *** search
/ Mega A/V / mega_av.zip / mega_av / GRAPHUTL / POVSCN.ZIP / LEVEL3.ZIP / LAMP.POV < prev    next >
Text File  |  1992-07-03  |  3KB  |  124 lines
  1. // Persistence Of Vision raytracer version 1.0 sample file.
  2.  
  3. // By Jorge Arreguin
  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, Jorge!  -  Aaron A. Collins */
  8. // Note: This file is designed in "right-handed" coordinates: z=height y=depth
  9. // Anybody up to adding bounding shapes??
  10. // NOTE: This file has "Disk" primitives that may be different than those
  11. // in shapes.inc!
  12.  
  13. #include "colors.inc"
  14. #include "shapes.inc"
  15. #include "textures.inc"
  16.  
  17. camera {
  18.    location <0.0 -80.0 0.0>
  19.    direction <0.0 1.0 0.0>
  20.    up <0.0 0.0 1.0>
  21.    right <1.333333 0.0 0.0>
  22.    translate < 25.0 0.0 5.0 >
  23.    rotate < -30.0 0.0 30.0 >
  24. }
  25.  
  26. object {
  27.    light_source { <44.514 0.0 13.5>
  28.       color White
  29.    }
  30. }
  31.  
  32. object {
  33.    light_source { <-60.514 0.0 160.5>
  34.       color red 0.7 green 0.7 blue 0.7
  35.    }
  36. }
  37.  
  38. object {
  39.    sphere { < 0.0 0.0 0.0 > 5.0 }
  40.    texture { Brass_Texture }
  41. }
  42.  
  43. object {
  44.    sphere { < 38.161 0.0 17.197 > 1.0 }
  45.    texture { Brass_Texture }
  46. }
  47.  
  48. object {
  49.    sphere { < 9.307 0.0 30.288 > 1.0 }
  50.    texture { Brass_Texture }
  51. }
  52.  
  53. object {
  54.    intersection { Disk_X }
  55.    scale < 31.685 1.0 1.0 >
  56.    rotate < 0.0 -72.9193 0.0 >
  57.    texture { Brass_Texture }
  58. }
  59.  
  60. object { intersection { Disk_X }
  61.    scale < 31.685 1.0 1.0 >
  62.    rotate < 0.0 -155.5969 0.0 >
  63.    translate < 38.161 0.0 17.197 >
  64.    texture { Brass_Texture }
  65. }
  66.  
  67. object {
  68.    intersection { Disk_X }
  69.    scale < 3.2 0.5 0.5 >
  70.    translate < 38.161 0.0 17.197 >
  71.    texture { Brass_Texture }
  72. }
  73.  
  74. object {
  75.    intersection {
  76.       quadric {
  77.          QCone_Z
  78.          scale < 1.0 1.0 1.0 >
  79.          translate < 44.514 0.0 17.685 >
  80.       }
  81.       quadric {
  82.          QCone_Z
  83.          scale < 1.0 1.0 1.0 >
  84.          translate < 44.514 0.0 16.685 >
  85.          inverse
  86.       }
  87.       plane { < 0.0 0.0 1.0 > 7.685 inverse }
  88.       plane { < 0.0 0.0 1.0 > 13.695 }
  89.    }
  90.    texture { Brass_Texture }
  91. }
  92.  
  93. object {
  94.    intersection {
  95.       quadric {
  96.          QCone_Z
  97.          scale < 0.2 0.2 1.0 >
  98.          translate < 44.514 0.0 33.496 >
  99.       }
  100.       quadric {
  101.          QCone_Z
  102.          scale < 0.2 0.2 1.0 >
  103.          translate < 44.514 0.0 32.496 >
  104.          inverse
  105.       }
  106.       plane { < 0.0 0.0 1.0 > 13.695 inverse }
  107.       plane { < 0.0 0.0 1.0 > 23.496 }
  108.    }
  109.    texture { Brass_Texture }
  110. }
  111.  
  112. object {
  113.    plane { < 0.0 0.0 1.0 > -4.0 }
  114.    texture {
  115.       color Red
  116.       ambient 0.4
  117.       diffuse 0.6
  118.       brilliance 8.0
  119.       reflection 0.8
  120.       phong 1.0
  121.       phong_size 30.0
  122.    }
  123. }
  124.