$ $********************************************* dimensions $ &dimensions -dimen feet kips $ $********************************************* basic parameters $ &device -oecho yes -g_default device -mecho no &device -g_default screen $ $********************************************* control parameters $ &set ano = -ano no &set plot = .true. $ $******************************************* frame sapcing $ &set s_space = 9.25 &set f_space = 2.00 &dcptime $ $******************************************* clip blocks bounded by x1 and x2 planes $ ¯o mk_bl bi x1 x2 block %bi plane, %x1, -rectan -1 , 28 , 50 plane, %x2, -rectan -1 , 28 , 50 end_block &endmacro $ $**************************************** bulwark macro $ ¯o x_transf x y1 y2 y3 z1 z2 z3 y4 y5 y6 z4 z5 z6 &if %inter &then &set y2 = &number(real %y2%-3 ) &set y5 = &number(real %y5%-3 ) &set z3 = &number(real %z3%+2) &set z5 = &number(real %z5%+3) &endif plane %x*9.25 -cart &number(max 0 %y1%+%y2%/12+%y3%/96) \ &number(max 0 %z1%+%z2%/12+%z3%/96) \ &number(max 0 %y4%+%y5%/12+%y6%/96) \ &number(max 0 %z4%+%z5%/12+%z6%/96) &endmacro &m_act x_transf plane ¯o bulwark b_name -interior inter pgen %b_name -perm 0 &if %inter &then &set last_x = 19.9 &set first_x = -1.35 &set p_w = 2.67 &set p_h = 32.9 &else &set last_x = 20 &set first_x = -1.36 &set p_w = 2.87 &set p_h = 31.9 &endif x_transf %first_x 0 0 1 31 11 9 0 0 1 32 0 0 plane -9.42 -cart 0 27 %p_w %p_h x_transf 0 8 1 0 26 9 4 11 5 0 31 7 4 x_transf 1 12 5 5 26 6 4 15 1 4 31 3 2 x_transf 2 15 7 0 26 3 6 17 8 7 30 10 4 x_transf 3 17 9 1 26 0 4 19 3 7 30 10 4 x_transf 4 19 1 6 25 9 4 20 0 0 30 1 2 x_transf 5 19 9 2 25 6 0 20 0 0 29 8 4 x_transf 6 20 0 0 25 3 0 20 0 0 29 3 6 x_transf 7 19 5 4 25 0 0 20 0 0 28 11 0 x_transf 8 19 10 4 16 6 0 20 0 0 23 1 6 x_transf 9 19 11 4 16 6 0 20 0 0 21 6 0 x_transf 10 20 0 0 16 6 0 20 0 0 21 6 0 x_transf 11 20 0 0 16 6 0 20 0 0 21 6 0 x_transf 12 20 0 0 16 6 0 20 0 0 21 6 0 x_transf 13 20 0 0 16 6 0 20 0 0 21 6 0 x_transf 14 20 0 0 16 6 0 20 0 0 21 6 0 x_transf 15 20 0 0 16 6 0 20 0 0 21 6 0 x_transf 16 20 0 0 16 6 0 20 0 0 21 6 0 x_transf 17 20 0 0 16 6 0 20 0 0 20 0 0 x_transf 18 20 0 0 16 6 0 20 0 0 20 0 0 x_transf 19 20 0 0 16 6 0 20 0 0 20 0 0 x_transf %last_x 19 2 7 16 6 0 20 0 0 20 0 0 end &endmacro &m_act bulwark delete_block $ $****************************************** a macro to fix offsets $ ¯o r_plane x -cartesian car cor &set out = &loop i 1 900 2 &set y = &token(%i %cor) &exit &null(%y%) &set z = &token(%i%+1 %cor) &set out = %out %z %y &endloop plane %x -cart &reverse(%out%) &endmacro &m_act r_plane plane $ $****************************************** clip block bounded to the left by y1 plane $ ¯o mk_bly bi y1 block %bi -both plane, -10, -cartesian -30 28 -30 -1 %y1 -1 %y1 28 plane, 210, -cartesian -30 28 -30 -1 %y1 -1 %y1 28 end_block &endmacro $ $********************************************* macro for plotting $ ¯o suplot nams &if %plot &then plot %nams picture iso %ano $-points -body -part -categor -ends picture side %ano $-points -body -part -categor -ends picture top %ano $-points -body -part -categor -ends picture front %ano $-points -body -part -categor -ends end &endif &endmacro $ $********************************************* surface menu $ &surface $ $********************************************* vessel model $ $ $ body for tank calculations includes up to the main deck $ pgen vessel -perm 1 -cs_wind .5 1 1 -cs_curr .5 1 1 r_plane -9.4166 -cartesian 0.01 27 0.01 26.99 0.01 26.985 0.0 26.985 r_plane 0*%s_space% -cartesian 8.083333 26.791666 2.083333 \ 16.500000 0.802083 14.000000 0.000000 12.000000 r_plane 1*%s_space% -cartesian 12.468750 26.541666 7.125000 \ 16.500000 5.177083 12.291667 0.000000 3.395833 r_plane 2*%s_space% -cartesian 15.583333 26.312500 11.145833 \ 16.500000 8.864583 10.625000 0.000000 0.625000 r_plane 3*%s_space% -cartesian 17.760416 26.041666 14.375000 \ 16.500000 11.791667 8.958333 0.000000 0.000000 r_plane 4*%s_space% -cartesian 19.145834 25.791666 16.500000 \ 16.500000 14.145833 7.354167 0.000000 0.000000 r_plane 5*%s_space% -cartesian 19.770834 25.500000 18.000000 \ 16.500000 16.093750 6.000000 0.000000 0.000000 r_plane 6*%s_space% -cartesian 20.000000 25.250000 18.958334 \ 16.500000 17.697916 4.750000 0.000000 0.000000 r_plane 7*%s_space% -cartesian 20.000000 25.000000 19.458334 \ 16.500000 18.895834 3.791667 0.000000 0.000000 r_plane 8*%s_space% -cartesian 19.875000 16.500000 19.645834 \ 3.270833 0.000000 0.000000 r_plane 9*%s_space% -cartesian 19.958334 16.500000 19.833334 \ 3.125000 0.000000 0.000000 r_plane 10*%s_space% -cartesian 20.000000 16.500000 20.000000 \ 3.000000 0.000000 0.000000 r_plane 11*%s_space% -cartesian 20.000000 16.500000 20.000000 \ 3.000000 0.000000 0.000000 r_plane 12*%s_space% -cartesian 20.000000 16.500000 20.000000 \ 3.000000 0.000000 0.000000 r_plane 13*%s_space% -cartesian 20.000000 16.500000 20.000000 \ 3.000000 0.000000 0.000000 r_plane 14*%s_space% -cartesian 20.000000 16.500000 20.000000 \ 3.000000 0.000000 0.000000 r_plane 15*%s_space% -cartesian 20.000000 16.500000 20.000000 \ 3.625000 0.000000 0.583333 r_plane 16*%s_space% -cartesian 20.000000 16.500000 20.000000 \ 5.500000 0.000000 2.270833 r_plane 17*%s_space% -cartesian 20.000000 16.500000 20.000000 \ 8.083333 0.000000 4.958333 r_plane 18*%s_space% -cartesian 20.000000 16.500000 20.000000 \ 10.541667 0.000000 7.979167 r_plane 19*%s_space% -cartesian 20.000000 16.500000 20.000000 \ 12.375000 0.000000 10.625000 r_plane 20*%s_space% -cartesian 19.239584 16.500000 19.239584 \ 13.000000 0.000000 12.000000 end $ $********************************************* vessel clip blocks $ $ block c_propel -location 0 0 0 0 0 -90 -both plane -25 25 -e_circular 23 6 1.71 0 30 12 end_block $ block cc_hinge -location 0 0 0 0 0 -90 -both plane -25 25 -e_circular 185.5 14.75 2.5 0 30 12 end_block $ block cp_hinge -location 0 0 0 0 0 -90 -both plane -19.23 -4 -e_circular 185.5 14.75 2.5 0 30 12 end_block $ block cs_hinge -location 0 0 0 0 0 -90 -both plane 4 19.23 -e_circular 185.5 14.75 2.5 0 30 12 end_block $ block cs_shaft -both plane 50*2 90*2 -e_circular 11.125 3.5 0.958 0 30 12 end_block $ block cp_shaft -both plane 50*2 90*2 -e_circular -11.125 3.5 0.958 0 30 12 end_block $ block rm_focas plane -100 200 -rect 16.5 100 100 end_block $ $ $********************************************* make 'x' clip blocks $ &set eps = .0001 mk_bl cx_01 -20-%eps 5*2 mk_bl cx_02 5*2-%eps 10*2 mk_bl cx_03 10*2-%eps 19*2 mk_bl cx_04 19*2-%eps 27*2 mk_bl cx_05 27*2-%eps 35*2 mk_bl cx_06 35*2-%eps 47*2 mk_bl cx_06.2 47*2-%eps 49*2 mk_bl cx_07 49*2-%eps 51*2 mk_bl cx_08 51*2-%eps 53*2 mk_bl cx_09 53*2-%eps 71*2 mk_bl cx_10 71*2-%eps 78*2 mk_bl cx_11 78*2-%eps 86*2 mk_bl cx_12 86*2-%eps 97*2 $ $****************************************** make 'y' clip blocks $ mk_bly cy_00 0.0 mk_bly cy_01 -15.5 mk_bly cy_01r 15.5 mk_bly cy_02 -12.0 mk_bly cy_02r 12.0 mk_bly cy_03 -3.00 mk_bly cy_03r 3.01 mk_bly cy_04 -12.5 mk_bly cy_04r 12.5 mk_bly cy_05 -9.75 mk_bly cy_05r 9.75 mk_bly cy_06 -2.75 mk_bly cy_06r 2.75 $ $********************************************* special clip blocks $ block b04.2mod plane, 24*2, -rectan -1 30 31 plane, 40*2, -rectan -1 30 31 end_block block bz1 plane, -10, -rectan -1 7.5 100 plane, 200, -rectan -1 7.5 100 end_block block bz2 plane, -10, -rectan -1 4.0 100 plane, 200, -rectan -1 4.0 100 end_block block b10mod plane, 70*2 -rectan -1 30 200 plane, 72.4*2, -rectan -1 30 200 end_block block c_dirty plane 44*2 46*2 -rectan -1 4 6*2 end_block block c_steer plane 83*2 89.5*2 -rectan -1 31 15.5*2 end_block &dcptime Time To Create Major Blocks $ $***************************************** winches $ pgen s_winch -cs_wind 1 1 0 -perm 0 -dif none \ -loca 29*2+21.25 +13.885 16.5 plane -18.25/2 18.25/2 -rect 0 11.25 12.5 end pgen p_winch -cs_wind 1 1 0 -perm 0 -dif none \ -loca 29*2+21.25 -13.885 16.5 plane -18.25/2 18.25/2 -rect 0 11.25 12.5 end $ $***************************************** pilot house $ pgen ph_b1 plane 8*%f_space -cart 14 25 12 39.5 plane 25*%f_space -cart 14 25 12 39.5 end pgen ph_b2 plane 10*%f_space -cart 10 39.1 10 41.75 plane 25*%f_space -cart 10 39.1 10 41.75 end union ph_b1 ph_b2 ph_b difference ph_b vessel p_house delete ph_b1 ph_b2 ph_b $ $******************************************* crane $ &set eps = 1.e-6 pgen cr_base -perm 0 -loc 129.25 -2.5 16.5 plane 0 -rect 0 1.75 10 plane 10 -rect 0 1.75 10 end pgen cr_ped -perm 0 -loc 129.25+2.835 -2.5 16.5+1.75 plane 0 -cart 0 4.9 .665 4.9 .665 4.9-%eps 1.08 4.9-%eps 1.5 0 0. 0. plane 1.085 -cart 0 8.9 .665 8.9 .665 4.9-%eps 1.08 4.9-%eps 1.5 0 0. 0. plane 1.085+2.16 -cart 0 8.9 .665 8.9 .665 4.9-%eps 1.08 4.9-%eps 1.5 0 0. 0. plane 1.085*2+2.16 -cart 0 4.9 .665 4.9 .665 4.9-%eps 1.08 4.9-%eps 1.5 0 0. 0. end pgen cr_boom -perm 0 -loc 129.25+2.835+1.085 -2.5 16.5+1.75+8.9 0 -30 plane 0 -rect 0 2 2.166 plane 30-%eps -rect 0 2 2.166 plane 30 -rect -1 2 2.166 plane 31.5 -rect -1 2 2.166 end $ $***************************************** stacks $ pgen p_ss -location 27*%f_space +(20-4) plane 0 -rect 15 41 4 plane 10 -rect 15 39 4 plane 16 -rect 15 23 4 end pgen p_sp -location 27*%f_space -(20-4) plane 0 -rect 15 41 4 plane 10 -rect 15 39 4 plane 16 -rect 15 23 4 end union p_ss p_sp p_s difference p_s vessel stacks $ $***************************************** bulwark $ bulwark b_ext bulwark b_int -inter difference b_ext b_int bulwark delete_block b_ext b_int $ $***************************************** remove thruster $ difference vessel c_propel vess2 delete block vessel c_propel $ $***************************************** remove caisson $ difference vess2 cc_hinge vessel delete_block vess2 cc_hinge $ $***************************************** remove shafts $ difference vessel cs_shaft vess1 delete vessel difference vess1 cp_shaft vessel delete_block vess1 cs_shaft cp_shaft $delete_block cs_shaft cp_shaft $ $***************************************** remove forecastle $ difference vessel rm_focas p_tunion delete vess1 rm_focas $suplot p_tunion $ $***************************************** exterior add caissons $ union vessel cs_hinge vess3 union vess3 cp_hinge p_exterior delete vessel vess3 cp_hinge cs_hinge $suplot p_exterior &dcptime Time To Create Major Blocks $ $****************************************** generate main slices $ intersect p_tunion cx_01 p_01 intersect p_tunion cx_02 ts_02 intersect p_tunion cx_03 ts_03 intersect p_tunion cx_04 ts_04 intersect p_tunion cx_05 ts_05 intersect p_tunion cx_06 ts_06 intersect p_tunion cx_06.2 ts_06.2 intersect p_tunion cx_07 ts_07 intersect p_tunion cx_08 ts_08 intersect p_tunion cx_09 ts_09 intersect p_tunion cx_10 ts_10 intersect p_tunion cx_11 ts_11 intersect p_tunion cx_12 ts_12 $ $****************************************** clean up $ delete_b cx_@ cc_@ cs_@ cp_@ vess2 p_2mdeck p_tunion $ $******************************************** $ $ Here we cut compartments and voids from $ the previously defined slices $ $********************************************* slice 2 $ intersect ts_02 cy_00 p_02p1 difference ts_02 cy_00 p_02s1 delete_block ts_02 $ $********************************************* slice 3 $ intersect ts_03 cy_03 p_03p1 difference ts_03 cy_03 b03a1 intersect b03a1 cy_03r b03a2 intersect b03a2 bz2 p_03c difference b03a2 bz2 p_03cv difference ts_03 cy_03r p_03s1 delete_block ts_03 b03@ $ $********************************************* slice 4 $ intersect ts_04 cy_03 b04a1 difference b04a1 b04.2mod p_04p1 difference ts_04 cy_03 b04a2 intersect b04a2 cy_03r b04a3 intersect b04a3 bz1 b04ca intersect b04ca b04.2mod p_04cv2 difference b04ca b04.2mod p_04c difference b04a3 bz1 p_04cv difference ts_04 cy_03r b04a4 difference b04a4 b04.2mod p_04s1 intersect b04a1 b04.2mod b04.2a1 intersect b04.2a1 bz1 p_04.2p1 difference b04.2a1 bz1 p_04.2pv intersect b04a4 b04.2mod b04.2a2 intersect b04.2a2 bz1 p_04.2s1 difference b04.2a2 bz1 p_04.2sv delete_block ts_04 b04@ $ $ $********************************************* slice 5 $ intersect ts_05 cy_01 p_05p1 difference ts_05 cy_01 b05a1 intersect b05a1 cy_02 b05p2a intersect b05p2a bz1 p_05p2 difference b05p2a bz1 p_05pv difference ts_05 cy_02 b05a2 intersect b05a2 cy_00 p_05p3 difference ts_05 cy_00 b05a3 intersect b05a3 cy_02r p_05s3 difference ts_05 cy_02r b05a4 intersect b05a4 cy_01r b05s2a intersect b05s2a bz1 p_05s2 difference b05s2a bz1 p_05sv difference ts_05 cy_01r p_05s1 delete_block ts_05 b05@ bz@ $ $********************************************* slice 6 $ intersect ts_06 cy_01 p_06p1 difference ts_06 cy_01 b06a1 intersect b06a1 cy_01r b06a2 difference b06a2 c_dirty p_06c intersect b06a2 c_dirty p_06c2 difference ts_06 cy_01r p_06s1 $ $********************************************* slice 6.2 $ intersect ts_06.2 cy_01 p_06.2p1 difference ts_06.2 cy_01 b06.2a1 intersect b06.2a1 cy_01r p_06.2c difference ts_06.2 cy_01r p_06.2s1 delete_block ts_06@ b06@ $ $********************************************* slice 7 $ intersect ts_07 cy_01 p_07p1 difference ts_07 cy_01 b07a1 intersect b07a1 cy_01r p_07c difference ts_07 cy_01r p_07s1 delete_block ts_07 b07a@ $ $********************************************* slice 8 $ intersect ts_08 cy_01 p_08p1 difference ts_08 cy_01 b08a1 intersect b08a1 cy_01r p_08c difference ts_08 cy_01r p_08s1 delete_block ts_08 b08a@ $ $********************************************* slice 9 $ intersect ts_09 cy_04 p_09p1 difference ts_09 cy_04 b09a1 intersect b09a1 cy_05 p_09p2 difference ts_09 cy_05 b09a2 intersect b09a2 cy_05r p_09c difference ts_09 cy_05r b09a3 intersect b09a3 cy_04r p_09s2 difference ts_09 cy_04r p_09s1 delete_block ts_09 b09a@ $ $********************************************* slice 10 $ intersect ts_10 cy_02 p_10p1 difference ts_10 cy_02 b10a1 intersect b10a1 cy_06 b10p2a difference b10p2a b10mod p_10p2 intersect b10p2a b10mod p_10p2l difference ts_10 cy_06 b10a3 intersect b10a3 cy_00 b10ca difference b10ca b10mod p_10c intersect b10ca b10mod p_10cl difference ts_10 cy_00 b10a2 intersect b10a2 cy_02r b10s2a difference b10s2a b10mod p_10s2 intersect b10s2a b10mod p_10s2l difference ts_10 cy_02r p_10s1 delete_block ts_10 b10@ $ $********************************************* slice 11 $ intersect ts_11 cy_02 p_11p1 difference ts_11 cy_02 b11a1 intersect b11a1 cy_06 p_11p2 difference ts_11 cy_06 b11a2 intersect b11a2 cy_00 p_11c difference ts_11 cy_00 b11a3 intersect b11a3 cy_02r p_11s2 difference ts_11 cy_02r p_11s1 delete_block ts_11 b11a@ $ $********************************************* slice 12 $ difference ts_12 c_steer b12a intersect b12a cy_00 p_12p difference b12a cy_00 p_12s intersect ts_12 c_steer p_12c delete_block ts_12 b12a c_steer $ $********************************************* clean c@ $ delete_block cy_@ c_@ &dcptime Time To Create Tanks $ $********************************************* rename $ rename -equiv .15 &dcptime Time To Rename $ $********************************************* emit points $ emit @ -body -name sea_puma $ $*************************************************************** $ $ Here we emit the compartments and voids associated with $ each transversal slice. The compartments that make up $ the Bilge are defined at the end. $ $*************************************************************** $ $********************************************* hull exterior $ emit p_exterior -name sea_puma -compartment " " \ -piece " -perm 1 -diftyp 3ddif -cs_wind .5 1 1 \ -cs_cur .5 1 1 " emit bulwark \ -piece " -perm 0 -diftyp none -cs_wind .5 1 0 \ -cs_curr .5 1 0 " emit p_house \ -piece " -perm 1 -diftyp none -cs_wind .5 1 0 \ -cs_curr .5 1 0 " emit stacks \ -piece " -perm 1 -diftyp none -cs_wind .5 1 0 \ -cs_curr .5 1 0 " emit cr_base \ -piece " -perm 0 -diftyp none -cs_wind 1. 1 1 \ -cs_curr .5 1 1 " emit cr_ped \ -piece " -perm 0 -diftyp none -cs_wind 1. 1 1 \ -cs_curr .5 1 1 " emit cr_boom \ -piece " -perm 0 -diftyp none -cs_wind 1. 1 1 \ -cs_curr .5 1 1 " emit p_winch \ -piece " -perm 0 -diftyp none -cs_wind 1 1 0 \ -cs_curr .5 1 1 " emit s_winch \ -piece " -perm 0 -diftyp none -cs_wind 1 1 0 \ -cs_curr .5 1 1 " $ $********************************************* define allowance $ &set bperm = -.98 &set vperm = -.98 $ $********************************************* slice 1 $ emit p_01 -name t01fp \ -compartment "-note 'Ballast' -conten 1.026 " \ -piece " -perm %bperm" $ $********************************************* slice 2 $ emit p_02s1 p_02p1 -name t02 \ -compartment "-note 'Storage' -conten 1.026 " \ -piece " -perm %bperm" $ $********************************************* slice 3 - $ emit p_03p1 -name t03p \ -compartment "-note 'Black Water' -conten 1.000 " \ -piece " -perm %bperm" emit p_03c -name t03c \ -compartment "-note 'Below Machinery' -conten 1.026 " \ -piece " -perm %bperm" emit p_03s1 -name t03s \ -compartment "-note 'Ballast' -conten 1.026 " \ -piece " -perm %bperm" $ $********************************************* slice 4 $ $ emit p_04p1 p_04.2p1 -name t04p \ -compartment "-note 'Gray Water' -conten 1.000 " \ -piece " -perm %bperm" emit p_04c -name t04c \ -compartment "-note 'Sewage Holding Tank' -conten 1.026 " \ -piece " -perm %bperm" emit p_04s1 p_04.2s1 -name t04s \ -compartment "-note 'Gray Water' -conten 1.000 " \ -piece " -perm %bperm" $ $********************************************* slice 5 $ emit p_05p1 p_05p2 -name t05p1 \ -compartment "-note 'Potable Water' -conten 1.000 " \ -piece " -perm %bperm" emit p_05p3 -name t05p2 \ -compartment "-note 'Potable Water' -conten 1.000 " \ -piece " -perm %bperm" emit p_05s3 -name t05s2 \ -compartment "-note 'Potable Water' -conten 1.000 " \ -piece " -perm %bperm" emit p_05s1 p_05s2 -name t05s1 \ -compartment "-note 'Potable Water' -conten 1.000 " \ -piece " -perm %bperm" $ $********************************************* slice 6 $ emit p_06p1 -name t06p \ -compartment "-note 'Potable Water' -conten 1.000 " \ -piece " -perm %bperm" emit p_06s1 -name t06s \ -compartment "-note 'Potable Water' -conten 1.000 " \ -piece " -perm %bperm" emit p_06c2 -name t06c2 \ -compartment "-note 'Dirty Oil' -conten 0.901 " \ -piece " -perm %bperm" $ $********************************************* slice 6.2 $ emit p_06.2p1 -name t06.2p \ -compartment "-note 'Void' -conten 1.026 " \ -piece " -perm %bperm" emit p_06.2s1 -name t06.2s \ -compartment "-note 'Void' -conten 1.026 " \ -piece " -perm %bperm" $ $********************************************* slice 7 $ emit p_07p1 -name t07p \ -compartment "-note 'Rig Wash' -conten 1.000 " \ -piece " -perm %bperm" emit p_07s1 -name t07s \ -compartment "-note 'Lube Oil' -conten 0.901 " \ -piece " -perm %bperm" $ $********************************************* slice 8 $ emit p_08p1 -name t08p \ -compartment "-note 'Lube Oil' -conten 0.901 " \ -piece " -perm %bperm" emit p_08s1 -name t08s \ -compartment "-note 'Hydraulic Oil' -conten 0.871 " \ -piece " -perm %bperm" $ $********************************************* slice 9 $ emit p_09p1 -name t09p \ -compartment "-note 'Fuel Oil' -conten 0.849 " \ -piece " -perm %bperm" emit p_09c -name t09c \ -compartment "-note 'Void' -conten 1.026 " \ -piece " -perm %bperm" emit p_09s1 -name t09s \ -compartment "-note 'Fuel Oil' -conten 0.849 " \ -piece " -perm %bperm" $ $********************************************* slice 10 $ emit p_10p1 -name t10p1 \ -compartment "-note 'Ballast' -conten 1.026 " \ -piece " -perm %bperm" emit p_10p2 -name t10p2 \ -compartment "-note 'Potable Water' -conten 1.000 " \ -piece " -perm %bperm" emit p_10s2 -name t10s2 \ -compartment "-note 'Potable Water' -conten 1.000 " \ -piece " -perm %bperm" emit p_10s1 -name t10s1 \ -compartment "-note 'Ballast' -conten 1.026 " \ -piece " -perm %bperm" $ $********************************************* slice 11 $ emit p_11p1 -name t11p1 \ -compartment "-note 'Ballast' -conten 1.026 " \ -piece " -perm %bperm" emit p_11p2 -name t11p2 \ -compartment "-note 'Ballast' -conten 1.026 " \ -piece " -perm %bperm" emit p_11s2 -name t11s2 \ -compartment "-note 'Ballast' -conten 1.026 " \ -piece " -perm %bperm" emit p_11s1 -name t11s1 \ -compartment "-note 'Ballast' -conten 1.026 " \ -piece " -perm %bperm" $ $********************************************* slice 12 $ emit p_12p p_12s -name t12 \ -compartment "-note 'Ballast' -conten 1.026 " \ -piece " -perm %bperm" emit p_12c -name steering \ -compartment " -note 'Steering Compartment' \ -conten 1.000 " \ -piece " -perm %bperm" $ $********************************************* bilge $ emit p_03cv p_04.2pv p_04.2sv p_04cv p_04cv2 \ p_05pv p_05sv p_06c p_06.2c p_07c \ p_08c p_09p2 p_09s2 p_10p2l p_10cl \ p_10s2l p_10c p_11c \ -name Bilge \ -compartment "-note 'Void' -conten 1.026 " \ -piece " -perm %bperm" &dcptime Time To emit $ $********************************************* exit $ end_&surface $ $********************************************* all done $ &fini