home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / uvmaps / nurb0.pi < prev    next >
Encoding:
Text File  |  1994-02-09  |  1.2 KB  |  42 lines
  1. // NURB and it's equivalent 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. include "../colors.inc"
  14.  
  15. if (1 == 1)
  16. object {
  17.    nurb 4, 4, 4, 4,
  18.     [0, 0, 0, 0, 1, 1, 1, 1], [0, 0, 0, 0, 1, 1, 1, 1],
  19.     [[< 0.0, 0.0, 2.0>, < 1.0, 0.0, 0.0>, < 2.0, 0.0, 0.0>, < 3.0, 0.0,-2.0>],
  20.      [< 0.0, 1.0, 0.0>, < 1.0, 1.0, 0.0>, < 2.0, 1.0, 0.0>, < 3.0, 1.0, 0.0>],
  21.      [< 0.0, 2.0, 0.0>, < 1.0, 2.0, 0.0>, < 2.0, 2.0, 0.0>, < 3.0, 2.0, 0.0>],
  22.      [< 0.0, 3.0, 2.0>, < 1.0, 3.0, 0.0>, < 2.0, 3.0, 0.0>, < 3.0, 3.0,-2.0>]]
  23.    translate <-1.5, -1.5, 0>
  24.    scale <2, 2, 2>
  25.    rotate <30, -70, 0>
  26.    uv_steps 8, 8
  27.    shiny_red
  28.    }
  29. else
  30. object {
  31.    bezier 2, 0.05, 8, 8,
  32.       < 0.0, 0.0, 2.0>, < 1.0, 0.0, 0.0>, < 2.0, 0.0, 0.0>, < 3.0, 0.0,-2.0>,
  33.       < 0.0, 1.0, 0.0>, < 1.0, 1.0, 0.0>, < 2.0, 1.0, 0.0>, < 3.0, 1.0, 0.0>,
  34.       < 0.0, 2.0, 0.0>, < 1.0, 2.0, 0.0>, < 2.0, 2.0, 0.0>, < 3.0, 2.0, 0.0>,
  35.       < 0.0, 3.0, 2.0>, < 1.0, 3.0, 0.0>, < 2.0, 3.0, 0.0>, < 3.0, 3.0,-2.0>
  36.    translate <-1.5, -1.5, 0>
  37.    scale <2, 2, 2>
  38.    rotate <30, -70, 0>
  39.    uv_steps 16, 16
  40.    shiny_red
  41.    }
  42.