home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / uvmaps / nurb1.pi < prev    next >
Encoding:
Text File  |  1994-02-09  |  936 b   |  30 lines
  1. // Non-uniform B-Spline patch
  2.  
  3. viewpoint {
  4.    from <0, 5,-10>
  5.    at <0,0,0>
  6.    up <0,1,0>
  7.    angle 30
  8.    resolution 160, 160
  9.    }
  10.  
  11. background <0, 0, 0>
  12. light < 0, 50, -10>
  13.  
  14. include "../colors.inc"
  15. object {
  16.    nurb 4, 6, 4, 5,
  17.         [0, 0, 0, 0, 1.5, 1.5, 3, 3, 3, 3], // Non-uniform knot vector
  18.         [0, 0, 0, 0, 1, 2, 2, 2, 2],        // Uniform open knot vector
  19.     [[< 0, 0, 0>, < 1, 0, 3>,    < 2, 0,-3>,      < 3, 0, 3>, < 4, 0, 0>],
  20.      [< 0, 1, 0>, < 1, 1, 0>,    < 2, 1, 0>,      < 3, 1, 0>, < 4, 1, 0>],
  21.      [< 0, 2, 0>, < 1, 2, 0, 2>, < 2, 2, 5, 0.5>, < 3, 2, 0>, < 4, 2, 0>],
  22.      [< 0, 3, 0>, < 1, 3, 0, 2>, < 2, 3, 5, 0.5>, < 3, 3, 0>, < 4, 3, 0>],
  23.      [< 0, 4, 0>, < 1, 4, 0>,    < 2, 4, 0, 20>,  < 3, 4, 0>, < 4, 4, 0>],
  24.      [< 0, 5, 0>, < 1, 5,-3>,    < 2, 5, 3>,      < 3, 5,-3>, < 4, 5, 0>]]
  25.    translate <-2, -2.5, 0>
  26.    rotate <-90, -30, 0>
  27.    uv_steps 32, 16
  28.    shiny_red
  29.    }
  30.