home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / uvmaps / bezier1.pi next >
Encoding:
Text File  |  1994-03-11  |  903 b   |  38 lines
  1. // Bezier patch
  2. viewpoint {
  3.    from <0,0,-15>
  4.    at <0,0,0>
  5.    up <0,1,0>
  6.    angle 45
  7.    resolution 160, 160
  8.    }
  9.  
  10. background <0, 0, 0>
  11. light <-10,10, -5>
  12.  
  13. define two_sided_image
  14. texture {
  15.    special surface {
  16.       color (N . I < 0
  17.            ? planar_imagemap(image("fract005.jpg"), <u, 0, v>)
  18.            : blue)
  19.       ambient 0.1
  20.       diffuse 0.7
  21.       specular white, 0.7
  22.       microfacet Cook 5
  23.       }
  24.    }
  25.  
  26. object {
  27.    bezier 2, 0.05, 5, 5,
  28.       < 0.0, 0.0, 2.0>, < 1.0, 2.0, 0.0>, < 2.0, 2.0, 0.0>, < 3.0, 0.0,-2.0>,
  29.       < 0.0, 1.0, 0.0>, < 1.0, 1.0, 0.0>, < 2.0, 1.0, 0.0>, < 3.0, 1.0, 0.0>,
  30.       < 0.0, 2.0, 0.0>, < 1.0, 2.0, 0.0>, < 2.0, 2.0, 0.0>, < 3.0, 2.0, 0.0>,
  31.       < 0.0, 3.0, 2.0>, < 1.0, 5.0, 0.0>, < 2.0, 5.0, 0.0>, < 3.0, 3.0,-2.0>
  32.    translate <-1.5, -1.5, 0>
  33.    scale <2, 2, 2>
  34.    rotate <40, -60, 0>
  35.    two_sided_image
  36.    uv_steps 8, 8
  37.    }
  38.