home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / sweep / sweep2.pi < prev    next >
Encoding:
Text File  |  1994-01-23  |  771 b   |  36 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0,7,-10>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 45
  10.    resolution 128, 128
  11.    }
  12. include "..\colors.inc"
  13. background midnight_blue
  14. light <5, 20, -10>
  15.  
  16. define sweep_object
  17. object {
  18.    sweep 2, <0, 0, 1>, 12,
  19.       <2, -1, 1>, <3, -1, 1>, <3.4, -2, 1>, <4, -1.1, 1>, <3.6, -0.9, 1>,
  20.       <2.6, 0, 1>,
  21.       <3.6, 0.9, 1>, <4, 1.1, 1>, <3.4, 2, 1>, <3, 1, 1>, <2, 1, 1>,
  22.       <2, -1, 1>
  23.    scale <1, 1, -1>
  24.    rotate <90, 0, 0>
  25.    u_steps 16
  26.    shiny_red
  27.    }
  28.  
  29. object {
  30.      sweep_object
  31.    * object { box <-5, 0.01, -5>, <5, 0.99, 5> shiny_green }
  32.    translate <-3, -0.7, 0>
  33.    scale <1.2, 10, 1.2>
  34.    rotate <-90, 25, 0>
  35.    }
  36.