A little something I've been messing around with... try different numbers
for the 91671 in the second-to-last line.  Requires some flavor of MegaPOV
(though if you don't have MegaPOV you can still play... just delete the
pigment called C and replace the [.05 C] with [.05 rgb 1] )

#macro Arabesque( Param )
  #declare Sd = seed(Param);
  #declare Rv = <rand(Sd),rand(Sd),rand(Sd)>*500;
  #local C=pigment{crackle solid 
    color_map{
      [1/12 red 1]
      [1/12 red 1 green 1][3/12 red 1 green 1]
      [3/12 green 1][5/12 green 1]
      [5/12 green 1 blue 1][7/12 green 1 blue 1]
      [7/12 blue 1][9/12 blue 1]
      [9/12 blue 1 red 1][11/12 blue 1 red 1]
      [11/12 red 1]
    }
  }         
  #local G=pigment{crackle
    pigment_map{[.05 rgb 0][.05 C]}
    scale .2
    translate Rv
    warp {repeat z flip z}
  }      
  #local B=pigment{
    radial 
    pigment_map{
      #local i=0;
      #while(i<6)
        [i/6 G rotate(30+60*i)*y]
        [(i+1)/6 G rotate(30+60*i)*y]
        #local i=i+1;
      #end
    }
  }
  #local T2=sqrt(3)/2;
  radial 
  pigment_map{
    [1/3 B translate<.5,0,-T2>]
    [1/3 B translate<-1,0,0>]
    [2/3 B translate<-1,0,0>]
    [2/3 B translate<.5,0,T2>]
  }
  translate x 
  warp{repeat 1.5*x flip x}
  warp{repeat .5*sqrt(3)*z flip z}
#end

plane {y 0 pigment {Arabesque(91671)} finish {ambient 1}}
camera {location 5*y sky z look_at 0}


-- 
Ron Parker   http://www2.fwi.com/~parkerr/traces.html
My opinions.  Mine.  Not anyone else's.

Post a reply to this message