#include "shapes.inc"
#declare S=seed(0);

#local Scale = .375;
#local StartRing = 5;
#local NumberOfRings=10;
#local TileSize = .48*Scale; //set the space for grout


#local Ring=StartRing;

//circular grid
#while(Ring<NumberOfRings)

   //#debug #concat ("\n Lat ",str(Lat,0,0 ))
   #local Circum = 2*3.1416*Ring*Scale;
   #local NumberOfTiles = int(Circum/Scale);
   #local Remainder =  mod(Circum/Scale,1);
   #local Adj = 1+Remainder/NumberOfTiles;
   #local Offset=60*rand(S);

   #local Tile=1;#while(Tile<NumberOfTiles+1 )

     object {
       Round_Box_Merge (
         <-TileSize,0,0>,
         <TileSize,-.5,2*TileSize>,
         TileSize/20
       )
       translate  <0,0,Ring*Scale>
       rotate  y*(Offset+(360*(Tile*Adj)/(Circum/Scale)))
       pigment { rgb .5}
     }

   #local Tile=Tile+1;#end
#local Ring=Ring+1;#end

Post a reply to this message