home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polyray / dat / function / noisefn.pi < prev    next >
Text File  |  1994-12-31  |  546b  |  30 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0, 5, -10>
  7.    at   <0, 0,  0>
  8.    up   <0, 1,  0>
  9.    angle 25
  10.    resolution 320, 240
  11.    aspect 4/3
  12.    }
  13.  
  14. include "..\colors.inc"
  15.  
  16. background white
  17. light <10, 10, -20>
  18.  
  19. // Define a noise surface
  20. object {
  21.    object {
  22.       function noise(3*P) - 0.5
  23.       uv_steps 64, 64, 64
  24.       shiny_red
  25.       bounding_box <-2, -2, -2>, <2, 2, 2>
  26.       }
  27.    & object { sphere <0, 0, 0>, 2 }
  28.    rotate <-10, 20, 0>
  29.    }
  30.