TetaTricks/code/awk/mkunion.awk

#!/usr/bin/awk -f

BEGIN	{
        print "#declare Bubules = object"
	print "{ \nunion  { "
	}

	{
	printf("  sphere { <%f, %f, %f>, %f }\n", 	\
			    $1, $2, $3, $4 )
	}

END	{

	}