home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / atari / GRAPHX / POV / 68030.060 / POV31G30 / POVRAY_3.1G / SCENES / INTERIOR / CRYSTAL.POV < prev    next >
Text File  |  1999-10-30  |  2KB  |  81 lines
  1. // Persistence Of Vision raytracer version 3.1 sample file.
  2. // A synthetic photograph by Dan Farmer
  3. //---------------------------------------------------------------------------
  4. // This scene file was designed to emulate the digitized photographic image
  5. // of a crystal sphere { on a checkerboard that David Buck took, and to
  6. // verify or refute the correctness of the current refractive functions
  7. // in POV-Ray.  The original image is available on CompuServe
  8. // (GO GRAPHDEV), by the name of crysta.gif.
  9. //---------------------------------------------------------------------------
  10.  
  11. #include "colors.inc"
  12. #include "shapes.inc"
  13. #include "textures.inc"
  14.  
  15.  
  16. global_settings { assumed_gamma 2.2 }
  17.  
  18. camera {
  19.    location <-0.85, 12.5, -28>
  20.    direction <0, 0, 4.125>
  21.    up  <0, 1, 0>
  22.    right <4/3, 0, 0>
  23.    look_at <0.25, 0.15, 0>
  24.  
  25.  
  26. }
  27.  
  28. light_source { <-5, 50, -5> colour red 0.85 green 0.85 blue 0.85 }
  29. light_source { <-500, 500, -500> colour DimGray }
  30. // light (under checkerboard, for background
  31. light_source { <10, -50, 5> colour White }
  32.  
  33. // The background.  Designed to give the shaded quality of the photo
  34. sphere { <0, 0, 0>, 1
  35.    hollow
  36.    scale <10000, 500, 500>
  37.    rotate 60*y
  38.  
  39.    finish {
  40.       ambient 0.2
  41.       diffuse 0.75
  42.       crand 0.025
  43.    }
  44.    pigment { color Gray }
  45. }
  46.  
  47. union {
  48.    object { Cube
  49.       scale <5, 0.001, 7>
  50.  
  51.       pigment {
  52.          checker color Black color White
  53.          translate <1, 0, 7>
  54.       }
  55.       finish {
  56.          ambient 0.35
  57.          diffuse 0.65
  58.          crand 0.015
  59.       }
  60.    }
  61.  
  62.    sphere { <-0.25, 2.15,-4.25>, 2.15
  63.       pigment { White filter 0.95 }
  64.       interior{
  65.          ior 1.45
  66.          fade_distance 2
  67.          fade_power 2
  68.          caustics 2.0
  69.       }
  70.       finish {
  71.          ambient 0.2
  72.          diffuse 0.0
  73.          reflection 0.12
  74.          specular 1.0
  75.          roughness 0.001
  76.       }
  77.    }
  78.  
  79.    rotate -6*z       /* Simulate the slight camera tilt in the photo */
  80. }
  81.