home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polyray / dat / texture / maptst1.pi < prev    next >
Text File  |  1994-12-31  |  1KB  |  47 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0,0,-8>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 45
  10.    resolution 160, 160
  11.    }
  12.  
  13. background <0, 0, 0>
  14. light <-10,3, -20>
  15.  
  16. include "../colors.inc"
  17. include "maps.inc"
  18.  
  19. define tex1 texture { special shiny { color tigers_eye_colors1[marble_fn] } }
  20. define tex2 texture { special shiny { color tigers_eye_colors2[marble_fn] } }
  21. define ltex texture {
  22.    special matte {
  23.       color line_layer1[sawtooth(x)]
  24.       transmission white, 1-line_layer1[sawtooth(x)][0], 1.0
  25.       }
  26.    }
  27. define tex3 texture {
  28.    layered ltex, tex1
  29.    }
  30.  
  31. define noisy_x x + 1.5 * dnoise(P)[0]
  32. define noisy_y y + 1.5 * dnoise(P)[1]
  33. define noisy_z y + 1.5 * dnoise(P)[2]
  34. define noisy_x1 noisy_x - floor(noisy_x)
  35. define noisy_y1 noisy_y - floor(noisy_y)
  36. define noisy_z1 noisy_z - floor(noisy_z)
  37. define noisy_checker3_fn fmod((noisy_x1+noisy_y1+noisy_z1)/3, 1)
  38. define tex4 texture {
  39.    special shiny { color tigers_eye_colors2[noisy_checker3_fn] }
  40.    scale <0.5, 0.5, 0.5>
  41.    }
  42.  
  43. object { sphere <-1, 1, 0>, 1 tex4 }
  44. object { sphere <-1,-1, 0>, 1 tex2 }
  45. object { sphere < 1, 1, 0>, 1 tex3 }
  46. object { sphere < 1,-1, 0>, 1 tex1 }
  47.