$
$*********************************************      dimensions
$
&dimensions -dimen feet kips
$
$*********************************************      basic parameters
$
&device  -pri 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 L1       = .true.
&set L2       = .true.
&set L3       = .true.
&set H1       = .true.
&set H2       = .true.
&set H3       = .true.
&set H4       = .true.
&set H5       = .true.
$
$*********************************************      macro for plotting
$
&macro suplot 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
$
$*********************************************      define hull
$
block B1
  plane   0  -cart  0 0  12 0  12 18
  plane  12  -cart  0 0  12 0  12 18
  plane  12  -cart  0 0  28 0  28 18
  plane  28  -cart  0 0  48 0  48 18
  plane  58  -cart  0 0  48 0  48 18
  plane 127  -cart  0 0  66 0  66 18
  plane 139  -cart  0 0  66 0  66 18
  plane 157  -cart  0 0  66 0  66 18
end_block
$
   &title Hull - Block B1
   suplot B1
$
$****************************************          remove leg wells
$
  block Leg -loc 0 0 0 0 -90 0
    plane -5 50  -e_circ 0 0 14/2 0 20 10
  end_block
$
   move_block Leg L1  12   0 0
   move_block Leg L2 139  55 0
   move_block Leg L3 139 -55 0
$
   suplot B1 L1 L2 L3
$
   differ B1 L1 B2
   differ B2 L2 B3
   differ B3 L3 Hull
$
   &title BARUNA V Hull
   suplot Hull
$
list_blocks
$
$*********************************************      emit Hull
$
   rename Hull -point *H -panel H -sort xyz -equivalent 0.01
   emit Hull   -body Baruna
   emit Hull   -use_name  \
               -compart "-note 'BARUNA V Hull' "  \
               -piece "-cs_wind 1 1 1"
$
end_&surface
$
$*********************************************      all done
$
&fini