proj rename
copy ^^tanker.gf, tanker.$
read ^^fvw.gf
enter pmx /direct
create ball
 class sail
 sphere (64) 30,0,26, 18
 component hanger
 cyl 30,0,35, 30,0,40, 0.2
 component cap
 cyl 30,0,35, 30,0,37, 3
/
create ballsea
class sail
top 25.5
ends 20, 40
fit (int) ball.c
/
scale 9,9,9
write bigfvw.$
clear
read tanker.$
macro ren
 rename %1, T-%1
/
.ren "hull"
.ren "foday.p"
.ren "fw.p" 
.ren "fw.s" 
scale 0.45,1,1
fill (t-hull) .5
shift 103,0,65
surface (t-hull) tkhull.$;  opacity:1.0; color:orange
read bigfvw.$
unit=f
draft=55
surface (ball,t-hull)
display status profile:outboard
fill (hull) 10.0
surface (hull\hull.c) fvhull.$; opacity:1.0; color:1.0, 0.2, 0.2
surface (hull\focsle.c) fvfocsle.$; opacity:1.0; color:0.2, 1.0, 0.2
surface (mast,boom) rig.$; color:brown
surface (ball) ball.$; opacity:0.1
surface (ballsea) ballsea.$; opacity:0.25; color:0.5, 0.5, 1.0
render fvhull.$, fvfocsle.$, rig.$, ball.$, ballsea.$, tkhull.$; WPL:0:0:{depth}; CAM:190,10,0.4
quit pm
erase "*.$" /nor
erase "fvhull.$_etc.py"
quit