#declare tile = superellipsoid { <0.03,0.03> translate -y scale 0.5}
#declare fin =finish {diffuse 0.7 specular 0.3 roughness 0.08 reflection
0.25}

#declare mio_pig=  pigment {pigment_pattern {checker color rgb 1, color rgb
0 scale 2}
                pigment_map {
                        [0 checker color rgb <.2,.35,.55>, color rgb
<1,1,.9>]
                        [1 checker color rgb <.55,.2,.35>, color rgb
<1,1,.9>]}
}

#declare land=
union{
#declare I=seed(0);
#declare i=-30;
#while (i<=30)
#declare j=40;
#while (j>=-10)
object {tile pigment {rgb eval_pigment(mio_pig,<i,0,j>)} finish {fin}
translate <i,-0.075+rand(I)*0.05,j>}
#declare j=j-1;
#end
#declare i=i+1;
#end
}

--
Jonathan

Post a reply to this message