TetaTricks/code/awk/mkunion.awk

#!/usr/bin/awk -f

# create the sdl object: an union of sphere
BEGIN	{
        print "#declare Bubules = object"
	print "{ \nunion  { "
	}

# active portion of the code
	{
	printf("  sphere { <%f, %f, %f>, %f }\n", 	\
			    $1, $2, $3, $4 )
	}

# closing sdl structure
END	{
	print "  }\n}\n"
	}