home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / gridded / cubgrid.pi < prev    next >
Encoding:
Text File  |  1994-03-12  |  1.5 KB  |  55 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0, 4, -14>
  7.    at <-3,3,0>
  8.    up <0,1,0>
  9.    angle 45
  10.    resolution 320, 200
  11.    aspect 1.3333
  12.    }
  13.  
  14. background midnight_blue
  15. haze 0.8, 3, midnight_blue
  16.  
  17. // Note that when you use a directional light you should not use two
  18. // sided surfaces.  The reason is that there will be no shadow checks to
  19. // remove odd diffuse & specular lighting.
  20. directional_light <-10,10, -20>
  21.  
  22. include "..\colors.inc"
  23.  
  24. define node
  25. object {
  26.      object { sphere <0.5, 0.5, 0.5>, 0.1 shiny_green }
  27.    + object { cylinder <0.0, 0.5, 0.5>, <1.0, 0.5, 0.5>, 0.05 shiny_red }
  28.    + object { cylinder <0.5, 0.0, 0.5>, <0.5, 1.0, 0.5>, 0.05 shiny_red }
  29.    + object { cylinder <0.5, 0.5, 0.0>, <0.5, 0.5, 1.0>, 0.05 shiny_red }
  30.    }
  31.  
  32. define cubgrid
  33.    object {
  34.       gridded "allblk.tga", node
  35.       translate <-16, 0, -16>
  36.       shading_flags 0
  37.       }
  38.  
  39. object {
  40.      cubgrid { translate <0, -3, 0> }
  41.    + cubgrid { translate <0, -2, 0> }
  42.    + cubgrid { translate <0, -1, 0> }
  43.    + cubgrid
  44.    + cubgrid { translate <0,  1, 0> }
  45.    + cubgrid { translate <0,  2, 0> }
  46.    + cubgrid { translate <0,  3, 0> }
  47.    + cubgrid { translate <0,  4, 0> }
  48.    + cubgrid { translate <0,  5, 0> }
  49.    + cubgrid { translate <0,  6, 0> }
  50.    + cubgrid { translate <0,  7, 0> }
  51.    + cubgrid { translate <0,  8, 0> }
  52.    + cubgrid { translate <0,  9, 0> }
  53.    + cubgrid { translate <0, 10, 0> }
  54.    }
  55.