tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add finish to bloubs

Browse Source
This commit is contained in:
tTh 2024-01-30 13:31:54 +01:00
parent da681c3455
commit ad82a68039
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
BloubWorld/toinc.awk
View File

@ -35,13 +35,16 @@ BEGIN {
by += $2 by += $2
bz += $3 bz += $3
pigment = "pigment { color " color " }" pigment = "pigment { color " color " }"
printf "\tsphere { <%f, %f, %f>, %f %s }\n", \ printf "\tsphere { <%f, %f, %f>, %f \n\t\t%s }\n", \
$1, $2, $3, $4, pigment $1, $2, $3, $4, pigment
count++ count++
} }
END { END {
print "\t} // end of union\n}\n" # print "\t}\n"
print "\t} // end of union\n"
print "finish { phong 0.67 specular 0.57 }\n"
print "}\n"
print "#declare Nb_Bloubs = ", count, ";\n" print "#declare Nb_Bloubs = ", count, ";\n"
print "#declare Bary_X = ", bx/count, ";"; print "#declare Bary_X = ", bx/count, ";";
print "#declare Bary_Y = ", by/count, ";"; print "#declare Bary_Y = ", by/count, ";";