home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / sweep / sweep4.pi < prev    next >
Encoding:
Text File  |  1994-01-23  |  1.2 KB  |  46 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0,4,-8>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 30
  10.    resolution 128, 128
  11.    }
  12.  
  13. include "..\colors.inc"
  14.  
  15. background <0, 0, 0>
  16. light <-10, 10, -20>
  17.  
  18. define r0 1
  19. define r1 2
  20. define dt (2.0 * 3.14159265) / 14
  21.  
  22. define star_column
  23. object {
  24.    sweep 2, <0, 0, 1>, 14,
  25.          <r0*cos( 1*dt), r0*sin( 1*dt), 1>, <r1*cos( 2*dt), r1*sin( 2*dt), 1>,
  26.          <r0*cos( 3*dt), r0*sin( 3*dt), 1>, <r1*cos( 4*dt), r1*sin( 4*dt), 1>,
  27.          <r0*cos( 5*dt), r0*sin( 5*dt), 1>, <r1*cos( 6*dt), r1*sin( 6*dt), 1>,
  28.          <r0*cos( 7*dt), r0*sin( 7*dt), 1>, <r1*cos( 8*dt), r1*sin( 8*dt), 1>,
  29.          <r0*cos( 9*dt), r0*sin( 9*dt), 1>, <r1*cos(10*dt), r1*sin(10*dt), 1>,
  30.          <r0*cos(11*dt), r0*sin(11*dt), 1>, <r1*cos(12*dt), r1*sin(12*dt), 1>,
  31.          <r0*cos(13*dt), r0*sin(13*dt), 1>, <r1*cos(14*dt), r1*sin(14*dt), 1>
  32.    rotate <-90, 0, 0>
  33.    shiny_red
  34.    }
  35.  
  36. star_column
  37.  
  38. // Create a ground plane
  39. object {
  40.    polygon 4, <-20,-2, -20>, <-20,-2, 20>, <20,-2, 20>, <20,-2, -20>
  41.    texture {
  42.       checker matte_white, matte_black
  43.       translate <0, 0.1, 0>
  44.       }
  45.    }
  46.