// Persistence of Vision Ray Tracer Scene Description File // // Water Tunnel Scene: Stone Bricks // // Copyright April-June 2001 Christoph Hormann // #version unofficial MegaPov 0.7; //------( Texture )---------------------- #macro T_Stones2(Bright) pigment { granite color_map { [0.4 color rgb <0.7, 0.66, 0.65>*0.60*Bright ] [0.7 color rgb <0.7, 0.66, 0.65>*0.35*Bright ] } turbulence 0.6 scale 0.4 } finish { ambient 0.0 diffuse 0.66 brilliance 2.0 specular 0.2 roughness 0.02 } #end //--------------------------------------- #declare RX = seed(1121); #declare RY = seed(1232); #declare RZ = seed(1343); #declare RA = seed(100); //------( Stone Macro )------------------ #macro Stone_B_01(Xsz, Ysz, Zsz, Round) object { #local fnBox = function { "superellipsoid", } #local fnNoise = function { pigment { granite color_map { [0 rgb 0.0][1 rgb 0.27] } scale 5 warp { turbulence 0.3 } scale 0.2 scale 0.52 } } #local DX=rand(RA)*5; #local DY=rand(RA)*5; #local DZ=rand(RA)*5; isosurface{ function { fnBox(x/(Xsz*0.5), y/(Ysz*0.5), z/(Zsz*0.5)) - fnNoise((x+DX), (y+DY), (z+DZ)) } contained_by{ box{ -*1.1, *1.1 } } sign -1 method 2 //eval accuracy 0.006 max_gradient 20 scale 1.046 texture { T_Stones2(1.26-rand(RX)*0.52) translate *10 } } } #end #declare BlockX=0.4; #declare BlockY=0.25; #declare BlockZ=0.208; #declare BrickRound=0.1; object { Stone_B_01(BlockX, BlockY, BlockZ, BrickRound) }