home *** CD-ROM | disk | FTP | other *** search
/ swCHIP 1991 January / swCHIP_95-1.bin / chip / stereo3d / polyray / dat / poly / bicorn.pi next >
Text File  |  1995-12-11  |  728b  |  31 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, -10>
  19.  
  20. // Bicorn
  21. // This curve looks like the top part of a paraboloid, bounded
  22. // from below by another paraboloid.  The basic equation is:
  23. define a 1.0
  24. object {
  25.     object { polynomial  y^2*(a^2 - (x^2 + z^2)) - (x^2 + z^2 + 2*a*y - a^2)^2 }
  26.   & object { box <-0.3, -3, -3>, <0.3, 3, 3> }
  27.   bounding_box <-0.3, -3, -3>, <0.3, 3, 3>
  28.   rotate <20, 70, 0>
  29.   shiny_red
  30.   }
  31.