VIEW=-vf sculp.vp
AMB=-av .2 .2 .2
DEV=x11

view:	sculp.oct
	rview $(AMB) $(VIEW) -o $(DEV) sculp.oct

sculp.oct:	body1.cal body2.cal body3.cal bub.cal bub.fmt \
flipper flipper.patch fluke.patch flukes patch3w.cal \
room sculp whale1 whale2 whale3
	oconv -f room '!xform -e -n sculp -t 15 0 15 sculp' > sculp.oct
	
flipper.patch:	flipper.cal patch3w.cal
	gensurf blue_glass s 'x(s,t)' 'y(s,t)' 'z(s,t)' 8 8 \
-f patch3w.cal -f flipper.cal > flipper.patch
	
fluke.patch:	fluke.cal patch3w.cal
	gensurf blue_glass s 'x(s,t)' 'y(s,t)' 'z(s,t)' 8 8 \
-f patch3w.cal -f fluke.cal > fluke.patch
