// Last edited on 2019-07-16 00:00:22 by stolfilocal // Processed by remove-cam-lights background{ color rgb < 1.0, 1.0, 1.00 > } #declare tx_plastico = texture{ pigment{ color rgb < 0.10, 0.80, 1.00 > } finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 } } #declare tx_fosca = texture{ pigment{ color rgb < 1.00, 0.80, 0.10 > } finish{ diffuse 0.9 ambient 0.1 } } #declare tx_espelho = texture{ pigment{ color rgb < 1.00, 0.85, 0.30 > } finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 } } #declare tx_vidro = texture{ pigment{ color rgb < 0.8, 0.8, 0.8 > filter 0.70 } finish{ diffuse 0.03 reflection 0.1 ambient 0.02 specular 0.25 roughness 0.005 } } #declare tx_xadrez = texture{ pigment{ checker color rgb < 0.10, 0.32, 0.60 >, color rgb < 1.00, 0.97, 0.90 > } finish{ diffuse 0.9 ambient 0.1 } scale 2.0 } #declare tx_teste = texture{ pigment{ color rgb < 0.9, 0.90, 0.1 > } finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 } } #macro corda(nVol, raio, esp) #declare r= seed((10 * nVol) * 2); #declare i = 0; #declare pos = array[nVol * 10]; #declare compl = array[nVol * 10]; #declare j = -sin(rand(r)); #declare k = -cos(rand(r)); #while (i < nVol) #declare j = j + esp; #declare k = k + esp; #declare pos[i] = ; #declare compl[i] = ; #declare i = i + 1; #end #declare i = 0; #while (i < nVol) object {sphere {pos[i] , raio texture{tx_fosca}}} object {sphere {compl[i] , raio texture{tx_fosca}}} #declare i = i + 1; #end #end #include "eixos.inc" union{ // object{ eixos(3.00) } corda(50,0.1, 0.08) } #include "camlight.inc" #declare centro_cena = < 3.00, 1.00, 1.50 >; #declare raio_cena = 4.0; #declare dir_camera = < 14.00, 7.00, 4.00 >; #declare dist_camera = 5*raio_cena; #declare intens_luz = 1.20; camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)