home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polyray / dat / misc / focal2.pi < prev    next >
Text File  |  1994-12-31  |  1KB  |  65 lines
  1. include "../colors.inc"
  2.  
  3. viewpoint {
  4.    from <-7, 4, -6>
  5.    at <-0.5, 1.0, -1.0>
  6.    up <0, 1, 0>
  7.    aspect 1.333
  8.    angle 0.5*degrees(atan(2.25))
  9.  
  10.    max_trace_depth 20
  11.    resolution 320, 240
  12.    pixelsize 24
  13.    antialias 2
  14.  
  15.    aperture 0.2
  16.    max_samples 4
  17.    }
  18.  
  19. background 0.2 * white
  20.  
  21. light 0.7*white, < 2, 4, -3>
  22. light 0.4*white, <-10, 8, -2>
  23.  
  24. object {
  25.    disc <0, 0, 0>, <0, 1, 0>, 1000
  26.    texture {
  27.       checker
  28.      texture { matte { color white reflection white, 0.135 } },
  29.      texture { matte { color blue_violet reflection white, 0.135 } }
  30.      }
  31.    }
  32.  
  33. object {
  34.    sphere < 1.25, 0.8, 0>, 0.65
  35.    texture { shiny { color red reflection white, 0.95 } }
  36.    }
  37.  
  38. object {
  39.    sphere < -1.25, 0.85, -1.0>, 0.7
  40.    texture { shiny { color green reflection white, 0.95 } }
  41.    }
  42.  
  43. object {
  44.    box -white, white
  45.    rotate <-45, -45, 0>
  46.    translate < 1, 1.3, 2>
  47.    mirror
  48.    }
  49.  
  50. object { sphere <-2.5, 1, 0>, 1 mirror }
  51.  
  52. define Disk_Y
  53.    object {
  54.         object { disc <0, 0, 0>, <0,-1, 0>, 1 }
  55.       + object { disc <0, 1, 0>, <0, 1, 0>, 1 }
  56.       + object { cylinder <0, 0, 0>, <0, 1, 0>, 1 }
  57.       }
  58. object {
  59.      Disk_Y { scale <0.75, 0.65, 0.75> }
  60.    * Disk_Y { scale <0.73, 1.00, 0.73> }
  61.    translate <2.5, 0.75, -1.25>
  62.    rotate <0, 0, 15>
  63.    mirror
  64.    }
  65.