home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / sweep / glyph3.pi < prev    next >
Encoding:
Text File  |  1994-02-08  |  1.7 KB  |  52 lines
  1. // Set up the camera
  2. viewpoint {
  3.    from <0,4,-8>
  4.    at <0,0,0>
  5.    up <0,1,0>
  6.    angle 30
  7.    resolution 128, 128
  8.    }
  9.  
  10. include "..\colors.inc"
  11.  
  12. background <0, 0, 0>
  13. light <-10, 10, -19>
  14.  
  15. define r0 1
  16. define r1 2
  17. define dt (2.0 * 3.14159265) / 14
  18.  
  19. define star_column
  20. object {
  21.    glyph 1 contour 14,
  22.          <r0*cos( 1*dt), r0*sin( 1*dt)>, <r1*cos( 2*dt), r1*sin( 2*dt), 1>,
  23.          <r0*cos( 3*dt), r0*sin( 3*dt)>, <r1*cos( 4*dt), r1*sin( 4*dt), 1>,
  24.          <r0*cos( 5*dt), r0*sin( 5*dt)>, <r1*cos( 6*dt), r1*sin( 6*dt), 1>,
  25.          <r0*cos( 7*dt), r0*sin( 7*dt)>, <r1*cos( 8*dt), r1*sin( 8*dt), 1>,
  26.          <r0*cos( 9*dt), r0*sin( 9*dt)>, <r1*cos(10*dt), r1*sin(10*dt), 1>,
  27.          <r0*cos(11*dt), r0*sin(11*dt)>, <r1*cos(12*dt), r1*sin(12*dt), 1>,
  28.          <r0*cos(13*dt), r0*sin(13*dt)>, <r1*cos(14*dt), r1*sin(14*dt), 1>
  29.    rotate <0, 0, 0.0001>
  30.    texture { shiny { color <1, 0.3, 0.2> reflection white, 0.4 } }
  31.    }
  32.  
  33. // Create a ground plane
  34. object {
  35.    object {
  36.       polygon 4, <-20, 0, -20>, <-20, 0, 20>, <20, 0, 20>, <20, 0, -20>
  37.       texture { checker reflective_white, reflective_tan }
  38.       }
  39.    - (star_column { rotate <-90, 0, 0> translate <0, -0.75, 0> } +
  40.       star_column { rotate <-90, 0, 0> translate <-3, -0.75, 2> } +
  41.       star_column { rotate <-90, 0, 0> translate < 2, -0.75, 4> } +
  42.       star_column { rotate <-90, 0, 0> translate <-1, -0.75, 6> } +
  43.       star_column { rotate <-90, 0, 0> translate < 3, -0.75, 8> } +
  44.       star_column { rotate <-90, 0, 0> translate <-4, -0.75,10> } +
  45.       star_column { rotate <-90, 0, 0> translate < 1, -0.75,-2> })
  46.    }
  47.  
  48. object {
  49.    box <-20, -5, -20>, <20, 30, 20>
  50.    texture { special shiny { color sky_color_map[noise(P, 3)] } }
  51.    }
  52.