home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / poly / loop.pi < prev    next >
Encoding:
Text File  |  1992-09-20  |  794 b   |  33 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0, 5, -5>
  7.    at   <0, 0,  0>
  8.    up   <0, 1,  0>
  9.    angle 30
  10.    resolution 160, 160
  11.    }
  12.  
  13. // Get various surface finishes
  14. include "..\colors.inc"
  15.  
  16. // Set up background color & lights
  17. background black
  18. light <10, 10, -20>
  19.  
  20. // This is a figure with a bumpy sheet on one side and something that
  21. // looks like a paraboloid (but with an internal bubble).
  22. define a 10
  23. define c 1
  24. object {
  25.      object { polynomial (x^2 + y^2 + z^2 + a*c*x)^2 -
  26.                          (x^2 + y^2 + z^2) * (c - a*x)^2 }
  27.    & object { box <-2, -2, -0.4>, <2, 2, 0.4> }
  28.    bounding_box <-2, -2, -0.4>, <2, 2, 0.4>
  29.    rotate <0, 0, -90>
  30.    rotate <20, 20, 0>
  31.    shiny_red
  32.    }
  33.