$
$*********************************************      dimensions
$
&dimensions -dimen feet kips
$
$*********************************************      basics
$
&device  -g_default device
$
$*********************************************      control parameters
$
&set ano      = -ano yes
&set ano      =
&set plot     = .true.
&set Hull     = .true.
&set B1       = .true.
&set B2       = .true.
&set B3       = .true.
&set B4       = .true.
&set B5       = .true.
&set B6       = .true.
&set B7       = .true.
&set B8       = .true.
&set B9       = .true.
&set B10      = .true.
&set S1       = .true.
&set S2       = .true.
&set S3       = .true.
&set LEG      = .true.
&set LEG1     = .true.
&set LEG2     = .true.
&set L1       = .true.
&set L2       = .true.
&set L3       = .true.
&set L4       = .true.
&set L5       = .true.
&set L6       = .true.
&set M1       = .true.
&set M2       = .true.
&set M3       = .true.
&set M4       = .true.
&set M5       = .true.
$
$*********************************************      macro for plotting
$
&macro su_show nams
   &if %plot &then
      plot %nams
         picture iso %ano -points no
         picture side %ano -points no
         picture top %ano -points no
         picture front %ano -points no
      end
   &endif
&endmacro
$
$*********************************************      generate
$
&surface
$
$*********************************************      mat
$
block M1
   plane -13-4/12    -rect 0 10  92
   plane 114+4/12    -rect 0 10 185
   plane 139         -rect 0 10 185
   plane 208         -rect 0 10 185
end_block
$
block B1
   plane -15      -rect -2 12  49.25
   plane  12      -rect -2 12  49.25
   plane  12      -rect -2 12  40.25
   plane  33      -rect -2 12  40.25
   plane  33      -rect -2 12  50+1.5/12
   plane 114+4/12 -rect -2 12  70
   plane 114+4/12 -rect -2 12 111.5
   plane 148+4/12 -rect -2 12 111.5
   plane 148+4/12 -rect -2 12  70
   plane 220      -rect -2 12  70
end_block
$
block M2
   plane  33         -rect -2 12  50+1.5/12
   plane 114+4/12    -rect -2 12  70
end_block
$
block M3
   plane 148+4/12    -rect -2 12  70
   plane 220         -rect -2 12  70
end_block
$
   differ M1 M2 M4
   differ M4 M3 M5
$
$*********************************************      remove leg wells
$
  block Leg -loc 0 0 0 0 -90 1 -cs_wind 0.79 0.79 0
    plane -5 20  -e_circ 0 0 11.2/2 0 10 19
  end_block
$
   move_block Leg L1  12   0 0
   move_block Leg L2 139  55 0
   move_block Leg L3 139 -55 0
$
   differ M5 L1 B2
   differ B2 L2 B3
   differ B3 L3 Mat
$
   &title BARUNA V mat
   su_show Mat
$
   differ M1 B1 F1
   differ F1 L2 F2
   differ F2 L3 F3
$
   &title BARUNA V permanently flooded compartments in mat
   su_show F3
$
block C1
   plane -13-4/12 -rect 0 10  49.25
   plane  12.001  -rect 0 10  49.25
   plane  12.001  -rect 0 10  40.25
   plane  33      -rect 0 10  40.25
end_block
$
   differ C1 L1 1C
$
   &title BARUNA V mat compartment 1C
   su_show 1C
$
block 3C
   plane 114+4/12 -rect 0 10  70
   plane 148+4/12 -rect 0 10  70
end_block
$
   &title BARUNA V mat compartment 3C
   su_show 3C
$
block B4
   plane 114+4/12 -rect 0 10 20.75
   plane 148+4/12 -rect 0 10 20.75
end_block
$
   move_block B4 P3  0 -35-20.75/2 0
   move_block B4 S3  0  35+20.75/2 0
$
   differ P3 L3 3P
   &title BARUNA V mat compartment 3P
   su_show 3P
$
   differ S3 L2 3S
   &title BARUNA V mat compartment 3S
   su_show 3S
$
list_blocks
$
$*********************************************      emit Mat
$
 delete B1 B2 B3 B4 M1 M2 M3 M4 M5 LEG L1 L2 L3  \
        C1 F1 F2 P3 S3 Hull
   rename @   -point *M -panel M -sort xyz -equivalent 0.01
   emit @     -part leg_cb
   emit Mat   -use_name  \
              -piece '-cs_wind 1 1 1 -cs_curr 1 1 1 '
   emit F3    -use_name  \
              -compart "-note 'flooded' "  \
              -piece '-perm -0.03'
   emit 1C    -use_name  \
              -compart "-note 'Mat 1C' "  \
              -piece '-perm -0.97'
   emit 3C    -use_name  \
              -compart "-note 'Mat 3C' "  \
              -piece '-perm -0.97'
   emit 3P    -use_name  \
              -compart "-note 'Mat 3P' "  \
              -piece '-perm -0.97'
   emit 3S    -use_name  \
              -compart "-note 'Mat 3S' "  \
              -piece '-perm -0.97'
$
end_&surface
$
$
$*********************************************      all done
$
&fini
$
