home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / dice6s / 6dice.pov next >
Encoding:
Text File  |  1994-04-23  |  1.2 KB  |  69 lines

  1. // Demonstration of Dice.Inc.  This one has one of each DieNUp in it
  2.  
  3. #include "colors.inc"
  4. #include "textures.inc"
  5. // All dice are Red with Yellow spots
  6. #declare DieSpotTexture = texture {pigment {color Yellow}}
  7. #include "dice.inc"
  8. #declare DieTexture = texture {pigment {color Red}}
  9.  
  10. camera {
  11.    location  <10, 10, -15>
  12.    direction <0, 0,  3>
  13.    up        <0, 1,  0>
  14.    right   <4/3, 0,  0>
  15.    look_at   <0, 0, 0>
  16. }
  17.  
  18. light_source {<20, 20, -30> color White}
  19.  
  20. //Put 6 dice in the middle of the picture
  21.  
  22. object {
  23.    Die1Up
  24.    texture {DieTexture}
  25.    scale 0.5
  26.    translate <-1, 0.5, 2.5>
  27. }
  28.  
  29. object {
  30.    Die2Up
  31.    texture {DieTexture}
  32.    scale 0.5
  33.    translate < 1, 0.5, 2.5>
  34. }
  35.  
  36. object {
  37.    Die3Up
  38.    texture {DieTexture}
  39.    scale 0.5
  40.    translate <-1.5, 0.5, 0>
  41. }
  42.  
  43. object {
  44.    Die4Up
  45.    texture {DieTexture}
  46.    scale 0.5
  47.    translate <1.5, 0.5, 0>
  48. }
  49.  
  50. object {
  51.    Die5Up
  52.    texture {DieTexture}
  53.    scale 0.5
  54.    translate <-1, 0.5, -2.5>
  55. }
  56.  
  57. object {
  58.    Die6Up
  59.    texture {DieTexture}
  60.    scale 0.5
  61.    translate < 1, 0.5, -2.5>
  62. }
  63.  
  64. //Add a plane for the dice to rest on
  65. object {
  66.    plane {y, 0}
  67.    texture {pigment {color White}}
  68. }
  69.