Spider wrote:
> I'd like you all to post _your_ "favourite" texture in a simple image 
> in p-b-i. 

Here's mine.

#macro HexTiles( Map )                                           
  #local hexGrad=pigment { gradient x color_map {Map} scale
sqrt(3)/2+.0001} 
  #local hexBlock=pigment { radial pigment_map{ #local i=0; #while (i<6)
[i/6 
  hexGrad rotate (30+60*i)*y][(i+1)/6 hexGrad rotate (30+60*i)*y] #local
i=i+1; 
  #end}} radial pigment_map { #local i=1; #while (i<3) [i/3 hexBlock
translate 
  vrotate(x,(120*i-60)*y)][i/3 hexBlock translate
vrotate(x,(120*i+60)*y)]
  #local i=i+1; #end} translate x  warp {repeat 1.5*x flip x} warp
{repeat 
  .5*sqrt(3)*z flip z}
#end 

camera { location <0,5,-10> look_at 0}
light_source { <0,20,-10> rgb 2 spotlight point_at 0 radius 25 falloff
30 tightness .1}
 
#declare pMap = color_map {
  [.95 rgbt 1]
  [.95 rgb .6]
}

plane {y 0
  texture {
    pigment {
      hexagon 
      pigment {hexagon color rgb <.7,.3,.1> color rgb <.8,.4,0> color
rgb <.5,0,0> translate <.5,0,sqrt(3)/2>}
      pigment {hexagon color rgb <.8,.4,0> color rgb <.5,0,0> color rgb
<.7,.3,.1> translate <.5,0,sqrt(3)/2>}
      pigment {hexagon color rgb <.5,0,0> color rgb <.7,.3,.1> color rgb
<.8,.4,0> translate <.5,0,sqrt(3)/2>}
    }
  } 
  texture {
    pigment {
      HexTiles( pMap )
      translate <.5,0,sqrt(3)/2>
    }
  }
  texture {
    pigment {
      HexTiles( pMap )
    }
  }
}

Post a reply to this message

Attachments:
Download 'hextiles.gif' (28 KB)

Preview of image 'hextiles.gif'