home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polymore / fig2-8.pi < prev    next >
Text File  |  1994-09-20  |  2KB  |  117 lines
  1. //PROGRAM: SPHERES2.PI
  2.  
  3. include "d:\polyray\include\colors.inc"
  4. include "d:\polyray\include\texture.inc"
  5. include "d:\polyray\include\stones.inc"
  6.  
  7. define FirstSphere object { 
  8.                      sphere < 1.6, 0, 0>, 0.5
  9.                    }
  10.  
  11. viewpoint {
  12.  from      <0.0, 0.0, -2.0>
  13.  at        <0.0, 0.0, 0.0>
  14.  up        <0.0, 1.0, 0.0>
  15.  resolution      100,100
  16.  aspect          1.0
  17. }
  18.  
  19. // LIGHT_SOURCE
  20.     light <0, 5, -5>
  21.  
  22. // LIGHT_SOURCE
  23.     light <0, 10, 0>
  24.  
  25. // LIGHT_SOURCE
  26.     light <5, 5, 10>
  27.  
  28.  
  29. // SPHERE
  30. object {
  31.     FirstSphere
  32.     Stone1 
  33. }
  34.  
  35. // SPHERE
  36. object {
  37.     FirstSphere    
  38.     rotate<0, 0, 30>
  39.     Stone2 
  40. }
  41.  
  42. // SPHERE
  43. object {
  44.     FirstSphere    
  45.     rotate<0, 0, 60>
  46.     Stone3 
  47. }
  48.  
  49. // SPHERE
  50. object {
  51.     FirstSphere    
  52.     rotate<0, 0, 90>
  53.     Stone4 
  54. }
  55.  
  56. // SPHERE
  57. object {
  58.     FirstSphere    
  59.     rotate<0, 0, 120>    
  60.     Stone5 
  61. }
  62.  
  63. // SPHERE
  64. object {
  65.     FirstSphere    
  66.     rotate<0, 0, 150>
  67.     Stone6 
  68. }
  69.  
  70. // SPHERE
  71. object {
  72.     FirstSphere    
  73.     rotate<0, 0, 180>
  74.     Stone7 
  75. }
  76.  
  77. // SPHERE
  78. object {
  79.     FirstSphere    
  80.     rotate<0, 0, 210>
  81.     Stone8 
  82. }
  83.  
  84. // SPHERE
  85. object {
  86.     FirstSphere    
  87.     rotate<0, 0, 240>
  88.     Stone9 
  89. }
  90.  
  91. // SPHERE
  92. object {
  93.     FirstSphere    
  94.     rotate<0, 0, 270>
  95.     Stone10 
  96. }
  97.  
  98. // SPHERE
  99. object {
  100.     FirstSphere    
  101.     rotate<0, 0, 300>
  102.     Stone11 
  103. }
  104.  
  105. // SPHERE
  106. object {
  107.     FirstSphere    
  108.     rotate<0, 0, 330>
  109.     Stone12 
  110. }
  111.  
  112. // SPHERE
  113. object {
  114.     sphere < 0, 0, 0>, 0.8
  115.     Stone13 
  116. }
  117.