TheBestLinks.com
TheBestLinks.com
Image:Truncated octahedra.jpg, Truncated octahedron, GFDL, Rhombic dodecahedron ... Print friendly version | Tell a friend
 
Navigation
Search
Toolbox

Image:Truncated octahedra.jpg

From TheBestLinks.com

Tesselation of space using truncated octahedra. See truncated octahedron.

Created by Andrew Kepert using povray in May 2004. All rights reversed. It is a modification of the povray code I used for the similar image on rhombic dodecahedron.


Gnu-head-sm.jpeg
Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.
Subject to disclaimers.


Povray code

File "truncated_octahedra.pov"

 #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
   }

Image history

Legend: (cur) = this is the current image, (del) = delete this old version, (rev) = revert to this old version.
Click on date to see image uploaded on that date.

Image links

There are no pages that link to this image.

Related links


Top visited 0 of 0 links

[no links posted yet]

>> place link >>

Discussion

Last posted 0 of 0 messages

[no messages posted yet]

>> post message >>

Watch

You can add this article to your own "watchlist" and receive e-mail notification about all changes in this page.
 
   
Innovate it
This page was last modified 07:09, 8 Sep 2004.
  Content is available under GNU Free Documentation License 1.2.
Powered by MediaWiki