File:Truncated octahedra.png

 #include "colors.inc"
 #include "math.inc"
 #include "rand.inc"
 
 //#include "truncated_octahedron.povi"
 #declare A=sqrt(3);
 #declare truncoct =
 intersection {
   box { < -2,-2,-2>, <2,2,2> }
   plane { < 1, 1, 1>, A }
   plane { < 1, 1,-1>, A }
   plane { < 1,-1, 1>, A }
   plane { < 1,-1,-1>, A }
   plane { <-1, 1, 1>, A }
   plane { <-1, 1,-1>, A }
   plane { <-1,-1, 1>, A }
   plane { <-1,-1,-1>, A }
   }
 //end of inclusion "truncated_octahedron.povi"
 
 global_settings{ ambient_light White }
 background { color White }
 
 #declare LX = 60;
 #declare LZ = 100;
 light_source { <LX,-LX,LZ> color White}
 light_source { <-LX,LX,LZ> color White}
 light_source { <LX,LX,LZ> color White}
 light_source { <-LX,-LX,LZ> color White}
 
 #declare extent = 3 ;
 #declare i = -extent;
 #while ( i <= extent )
   #declare j = -extent;
   #while ( j <= extent )
   #declare k = -extent;
     #while ( k <= extent )
       #if ( even(i+j) & even(i+k) & ( i+j+2*k<3*extent ) & Prob(0.95, RdmD))
         #declare RCOLOUR = rgb < Rand_Normal( 0.6, 0.2, RdmA ) ,
               Rand_Normal( 0.4, 0.2, RdmB ) ,
               Rand_Normal( 0.6, 0.2, RdmC ) > ; 
         #declare COLANG = rand(RdmA)*2*3.14159;
         object { truncoct
           scale 0.48
           translate < i, j, k >
           texture {
             pigment { color RCOLOUR }
             finish { ambient 0.3 diffuse 0.3 phong Rand_Normal( 0.5, 0.2, RdmC ) }
             }
           }
       #end // if
       #declare k = k+1;
     #end // while k
     #declare j = j+1;
   #end // while j
   #declare i = i+1;
 #end // while i
 
 camera {
   location 28*y
   direction -y
   right 0.4*x
   up 0.4*z
   rotate 20*x
   rotate -30*z
   translate -0.5*z
   }