In addition to playing with the random seed, try using different (small!)
values for j.

#macro Arabesque2( 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 .1
    translate Rv
    warp {repeat 2*z flip z}
  }      
        
  radial 
  pigment_map{
    #local i=0;  
    #local j=8;
    #while(i<j)
      [i/j G rotate(180/j+360/j*i)*y]
      [(i+1)/j G rotate(180/j+360/j*i)*y]
      #local i=i+1;
    #end
  }

  warp{repeat .5*x flip x}
  warp{repeat .5*z flip z}
#end


plane {y 0 pigment {Arabesque2(8192)} finish {ambient 1}}
camera {location 3*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