home *** CD-ROM | disk | FTP | other *** search
/ swCHIP 1991 January / swCHIP_95-1.bin / chip / stereo3d / polyray / dat / poly / hyptorus.pi < prev    next >
Text File  |  1995-12-11  |  735b  |  32 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. // Hyperbolic torus
  21. define r0 0.6
  22. define r1 0.4
  23. object {
  24.      object { polynomial x^4 + 2*x^2*y^2 - 2*x^2*z^2 - 2*(r0^2+r1^2)*x^2 + y^4 -
  25.                    2*y^2*z^2 + 2*(r0^2-r1^2)*y^2 + z^4 + 2*(r0^2+r1^2)*z^2 +
  26.                    (r0^2-r1^2)^2 }
  27.    & object { box <-2, -2, -2>, <2, 2, 2> }
  28.    bounding_box <-2, -2, -2>, <2, 2, 2>
  29.    rotate <-20, -30, 0>
  30.    shiny_red
  31.    }
  32.