home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polyray / dat / function / lundin.pi < prev    next >
Text File  |  1994-12-31  |  534b  |  28 lines
  1. // start_frame  0
  2. // end_frame   40
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <10,0,0>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 30
  10.    resolution 256, 256
  11.    }
  12.  
  13. // Set up background color & lights
  14. background SkyBlue
  15. light <10,10,-10>
  16. include "..\colors.inc"
  17.  
  18. define d 0.5 * (1 - frame / end_frame)
  19. define k 1.0
  20.  
  21. // Define a Lundin surface
  22. object {
  23.    function (x - d * sin(k / z))^2 + (y - d * cos(k / z))^2 + z^2 - 1
  24.    bounding_box <-(1+d), -(1+d),-2>, <(1+d), (1+d), 2>
  25.    uv_steps 256, 256
  26.    shiny_red
  27.    }
  28.