home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / function / log1.pi next >
Encoding:
Text File  |  1992-09-20  |  613 b   |  26 lines
  1. // Sample transcendental surface.  This is a logarithmic surface, mostly
  2. // flat, but zooming off to minus infinity near the origin.
  3. // Polyray input file - Alexander Enzmann
  4.  
  5. // Set up the camera
  6. viewpoint {
  7.    from <0,4,-4>
  8.    at <0,0,0>
  9.    up <0,1,0>
  10.    angle 30
  11.    resolution 160, 160
  12.    }
  13.  
  14. // Set up background color & lights
  15. background MidnightBlue
  16. light <10,10,-10>
  17. include "..\colors.inc"
  18.  
  19. // Define a logarithmic surface
  20. object {
  21.      object { function y - 0.2 * ln(x^2 + 2.0 * z^2) }
  22.    & object { sphere <0, 0, 0>, 2 }
  23.    bounding_box <-2, -2, -2>, <2, 2, 2>
  24.    shiny_red
  25.    }
  26.