25 lines
382 B
Awk
25 lines
382 B
Awk
|
#!/bin/awk -f
|
||
|
|
||
|
#
|
||
|
# this software is NOT ready for prime time !
|
||
|
#
|
||
|
|
||
|
BEGIN {
|
||
|
count = 0
|
||
|
print "/* DO NOT EDIT BY HAND, BASTARD !*/"
|
||
|
print "/* generated ", strftime(), " */"
|
||
|
print
|
||
|
print "#declare OBJ_vertices = object\n{"
|
||
|
print "union {"
|
||
|
}
|
||
|
|
||
|
{
|
||
|
printf "sphere { <%.9f, %.9f, %.9f>, RR }\n", $1, $2, $3
|
||
|
count++;
|
||
|
}
|
||
|
|
||
|
END {
|
||
|
print " }\n}\n"
|
||
|
print "// ", count, "vertices.\n"
|
||
|
}
|