$ $********************************************* dimensions $ &dimensions -dimen feet kips $ $********************************************* basic parameters $ &title Generate a Three Leg Jackup &device -pri device $ $********************************************* control parameters $ &set ano = &set plot = .true. $ $********************************************* macro for plotting $ ¯o suplot nams &if %plot &then &selec :n -sel %nams &picture iso %ano -points no -parent :n &picture side %ano -points no -parent :n &picture top %ano -points no -parent :n &picture front %ano -points no -parent :n &endif &endmacro $ $********************************************* generate $ &surface $ $********************************************* define hull $ block basic_hull plane 0 -cart 0 8 8+4/12 8 30 8 51.5 8 51.5 13 40 13.01 plane 1 -cart 0 6+(11+7/8)/12 8+4/12 7+(13/16)/12 30 7+(3+1/2)/12 51.5 7+(7+3/16)/12 51.5 13 40 13.01 plane 2 -cart 0 5+(11+7/8)/12 8+4/12 6+(1+9/16)/12 30 6+(7+3/16)/12 51.5 7+(2+3/8)/12 51.5 13 40 13.01 plane 3 -cart 0 4+(11+1/2)/12 8+4/12 5+(2+7/16)/12 30 5+(11+1/16)/12 51.5 6+(9+9/16)/12 51.5 13 40 13.01 plane 4 -cart 0 3+(11+5/16)/12 8+4/12 4+(3+1/4)/12 30 5+(3+1/4)/12 51.5 6+(4+3/4)/12 51.5 13 40 13.01 plane 5 -cart 0 2+(11+7/16)/12 8+4/12 3+4/12 30 4+(7+7/8)/12 51.5 6 51.5 13 40 13.01 plane 6 -cart 0 1+(11+3/16)/12 8+4/12 2+5/12 30 4+1/12 51.5 5+(7+5/16)/12 51.5 13 40 13.01 plane 7 -cart 0 1+(2+5/16)/12 8+4/12 1+(8+11/16)/12 30 3+(6+3/4)/12 51.5 5+(2+13/16)/12 51.5 13 40 13.01 plane 8 -cart 0 0+(8+5/16)/12 8+4/12 1+(3+11/16)/12 30 3+(1+1/8)/12 51.5 4+(10+11/16)/12 51.5 13 40 13.01 plane 9 -cart 0 0+(2+15/16)/12 8+4/12 0+(11+5/8)/12 30 2+(8+3/16)/12 51.5 4+7/12 51.5 13 40 13.01 plane 9.5 -cart 0 0+(7/16)/12 8+4/12 0+(9+5/8)/12 30 2+6/12 51.5 4+(5+7/16)/12 51.5 13 40 13.01 plane 9.5 -cart 0 0+(7/16)/12 8+4/12 0+(9+5/8)/12 30 2+6/12 30.1 2+6/12 51.5 4+(5+7/16)/12 51.5 13 40 13.01 plane 10 -cart 0 0 8+4/12 0+(7+11/16)/12 30 2+4/12 30 2+(6+1/2)/12 51.5 4+4/12 51.5 13 40 13.01 plane 11 -cart 0 0 8+4/12 0+(3+13/16)/12 30 2+(1/2)/12 30 2+(7+9/16)/12 51.5 4+(1+11/16)/12 51.5 13 40 13.01 plane 12 -cart 0 0 8+4/12 0 30 1+(9+5/8)/12 30 2+(8+5/8)/12 51.5 3+(11+15/16)/12 51.5 13 40 13.01 plane 12 -cart 0 0 30 1+(9+5/8)/12 30 2+(8+5/8)/12 51.5 3+(11+15/16)/12 51.5 13 40 13.01 plane 13 -cart 0 0 30 1+(7+1/16)/12 30 2+(9+11/16)/12 51.5 3+(10+5/8)/12 51.5 13 40 13.01 plane 14 -cart 0 0 30 1+(4+3/4)/12 30 2+(10+3/4)/12 51.5 3+(9+5/8)/12 51.5 13 40 13.01 plane 15 -cart 0 0 30 1+(2+1/2)/12 30 2+(11+3/4)/12 51.5 3+(8+11/16)/12 51.5 13 40 13.01 plane 16 -cart 0 0 30 1+(3/16)/12 30 3+(13/16)/12 51.5 3+(7+3/4)/12 51.5 13 40 13.01 plane 17 -cart 0 0 30 (9+13/16)/12 30 3+(1+7/8)/12 51.5 3+(6+7/8)/12 51.5 13 40 13.01 plane 18 -cart 0 0 30 (7+7/16)/12 30 3+3/12 51.5 3+6/12 51.5 13 40 13.01 plane 19 -cart 0 0 30 5/12 30 3+4/12 51.5 3+5/12 51.5 13 40 13.01 plane 19.5 -cart 0 0 30 5/12 30 3+4/12 51.5 3+5/12 51.5 13 40 13.01 plane 19.5 -cart 0 0 30 5/12 30 6+(3+7/8)/12 34+11/12 7+1.5/12 51.5 7+1.5/12 51.5 13 40 13.01 plane 20 -cart 0 0 30 (2+1/2)/12 30 6+4/12 35+4/12 7+2/12 51.5 7+2/12 51.5 13 40 13.01 plane 21 -cart 0 0 30 0 30 6+4/12 35+4/12 7+3/12 51.5 7+3/12 51.5 13 40 13.01 plane 5*5 -cart 0 0 30 0 30 6+4/12 37+10/12 7+7/12 51.5 7+7/12 51.5 13 40 13.01 plane 6*5 -cart 0 0 30 0 30 6+4/12 40+4/12 8 51.5 8 51.5 13 40 13.01 plane 7*5 -cart 0 0 30 0 30 6+4/12 40+4/12 8 51.5 8 51.5 13 40 13.01 plane 8*5 -cart 0 0 30 0 30 6+4/12 40+4/12 8 51.5 8 51.5 13 40 13.01 plane 9*5 -cart 0 0 30 0 30 6+4/12 37+10/12 7+7/12 51.5 7+7/12 51.5 13 40 13.01 plane 10*5 -cart 0 0 30 0 30 6+4/12 35+3/12 7+2/12 51.5 7+2/12 51.5 13 40 13.01 plane 11*5 -cart 0 0 30 0 30 3+(7+5/8)/12 30.1 3+(7+5/8)/12 51.5 3+(7+5/8)/12 51.5 13 40 13.01 plane 11*5 -cart 0 0 30 0 30 3+(7+5/8)/12 51.5 3+(7+5/8)/12 51.5 13 40 13.01 plane 12*5 -cart 0 0 30 0 30+1/12 0 51.5 0 51.5 13 40 13.01 plane 12*5 -rect 0 13 2*(51.5) plane 13*5 -rect 0 13 2*(51.5) plane 14*5 -rect 0 13 2*(51.5) plane 23*5 -rect 0 13 2*(37+3/12) plane 27*5 -cart 6 7+3/12 31 7+3/12 31 13 6 13.01 plane 29*5 -cart 6 7+11/12 20+5/12 7+11/12 20+5.5/12 13 6 13.01 plane 156.5 -cart 6 8 4+4/12 8 8+4/12 13 6 13.01 end_block $ $**************************************** plot it $ &subtitle Basic Hull suplot basic_hull $ $**************************************** holes for legs $ block Port_Leg -loc 7*5 -(30+15) 2 0 -90 plane -2 15 -e_circ 0 0 8.75/2 0 10 19 end_block block Stbd_Leg -loc 7*5 (30+15) 2 0 -90 plane -2 15 -e_circ 0 0 8.75/2 0 10 19 end_block block Aft_Leg -loc 0.5+30*5 0 2 0 -90 plane -2 15 -e_circ 0 0 8.75/2 0 10 19 end_block $ $**************************************** port crane pedestal $ block Crane -loc 17*5 -(30+16.75) 0 0 -90 plane 0.02 12.98 -e_circ 0 0 4/2 0 10 19 end_block $ $**************************************** bow thrusters $ &set eps = .03 &set w = 2.5 block t1 plane -(1+8/12) -cart %w 0 %w 1.6 %w 8 plane 0 -cart %w -(1+7/12) %w 1.6 %w 8 plane 1.6 -cart %w -(1+7/12) %w 1.6 %w 8 plane 10 -cart %w -(1+7/12) %w 1.6 %w 8 end_block block t2 -loc 0 -2.51 0 5 0 90 plane 0-%eps 5+%eps -e_circ 0 0 (1+7/12) 0 20 10 end_block union t1 t2 T3 block T4 -loc 0 -3 0 2 0 90 plane -1 6 -e_circ 0 0 1 0 20 10 end_block difference T3 T4 T5 $suplot t1 t2 t3 t4 t5 move_block T5 p_thrust 4 -(23+4/12) 2 0 -10 0 move_block T5 s_thrust 4 (23+4/12) 2 0 -10 0 $suplot p_thrust s_thrust $ $********************************************* rack blocks $ block Rack plane -5.125 +5.125 -rect -2 17 (1+2/12) end_block move_block Rack Rack1 7*5 -(30+15) 0 move_block Rack Rack2 7*5 (30+15) 0 move_block Rack Rack3 0.5+30*5 0 0 $ $********************************************* remove leg wells $ suplot basic_hull port_leg differ basic_hull Port_Leg B2 differ B2 Stbd_Leg B3 differ B3 Aft_Leg B4 $ $********************************************* rack cutouts $ &subtitle Hull with leg wells removed differ B4 Rack1 B5 differ B5 Rack2 B6 differ B6 Rack3 B7 suplot B7 $ $********************************************* add crane ped. $ &subtitle Hull with leg wells removed and crane pedestal added union B7 Crane B8 suplot B8 $ $********************************************* add thrusters $ suplot b8 p_thrust s_thrust union B8 p_thrust B9 union B9 s_thrust jackup &subtitle Hull Complete suplot Jackup $ $********************************************* rename $ rename Jackup -point *JH -panel JP -sort xyz -equivalent 0.01 $ $********************************************* emit $ emit Jackup -part jackup emit Jackup -use_name \ -piece "-cs_wind 1 1 1 -cs_curr 1 1 1 -dif 3ddif" $ $********************************************* all done $ end_&surface &fini