home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / function / sinsurf.pi < prev    next >
Encoding:
Text File  |  1994-01-23  |  677 b   |  32 lines
  1. //
  2. // the value theta_offset is used in animations to make
  3. // the surface move
  4. define theta_offset radians(frame * 12)
  5.  
  6. // Set up the camera
  7. viewpoint {
  8.    from <0,5,-5>
  9.    at <0,0,0>
  10.    up <0,1,0>
  11.    angle 30
  12.    resolution 160, 160
  13.    }
  14.  
  15. define white <1,1,1>
  16. define DarkSlateGray <0.184314, 0.309804, 0.309804>
  17. define red <1, 0, 0>
  18. define SkyBlue <0.196078, 0.6, 0.8>
  19.  
  20. // Set up background color & lights
  21. background SkyBlue
  22. light <10,10,-10>
  23. include "..\colors.inc"
  24.  
  25. // Define a sinusoidal surface
  26. object {
  27.    function y - 0.25 * sin(18.85 * x * z + theta_offset)
  28.    shiny_red
  29.    bounding_box <-2, -0.5, -2>, <2, 0.5, 2>
  30.    uv_steps 64, 64
  31.    }
  32.