home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polyray / dat / sweep / glyph2.pi < prev    next >
Text File  |  1994-12-31  |  1KB  |  49 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.    glyph 1 contour 14,
  25.          <r0*cos( 1*dt), r0*sin( 1*dt)>, <r1*cos( 2*dt), r1*sin( 2*dt), 1>,
  26.          <r0*cos( 3*dt), r0*sin( 3*dt)>, <r1*cos( 4*dt), r1*sin( 4*dt), 1>,
  27.          <r0*cos( 5*dt), r0*sin( 5*dt)>, <r1*cos( 6*dt), r1*sin( 6*dt), 1>,
  28.          <r0*cos( 7*dt), r0*sin( 7*dt)>, <r1*cos( 8*dt), r1*sin( 8*dt), 1>,
  29.          <r0*cos( 9*dt), r0*sin( 9*dt)>, <r1*cos(10*dt), r1*sin(10*dt), 1>,
  30.          <r0*cos(11*dt), r0*sin(11*dt)>, <r1*cos(12*dt), r1*sin(12*dt), 1>,
  31.          <r0*cos(13*dt), r0*sin(13*dt)>, <r1*cos(14*dt), r1*sin(14*dt), 1>
  32.    texture { shiny { color red reflection 0.2 } }
  33.    }
  34.  
  35. object {
  36.    star_column { rotate <0, 0, 0.1> }
  37.    - object { box <-0.5, -0.5, -2>, <0.5, 0.5, 2>
  38.           texture { shiny { color green reflection 0.2 } } }
  39.    }
  40.  
  41. // Create a ground plane
  42. object {
  43.    polygon 4, <-20,-2, -20>, <-20,-2, 20>, <20,-2, 20>, <20,-2, -20>
  44.    texture {
  45.       checker matte_white, matte_black
  46.       translate <0, 0.1, 0>
  47.       }
  48.    }
  49.