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