WELCOME TO  MOSES Rev devlop
                         ============================
 
              This Program is licensed for the exclusive use of
 
                               Ultramarine inc.
 
              Copying of this program or use  by  anyone  other
              than  an  employee  of  the  above  firm  without
              written  consent  of  Ultramarine   is   strictly
                                 prohibited.
 
 
 
                               +++ M A I N +++
                               ===============
 
 
>&dimensions -dimen feet kips
>&device  -g_default device
>&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.
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
>block B1
                              +++ B L O C K +++
                              =================
 
 
>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
                            +++ S U R F A C E +++
                            =====================
 
 
>&title Hull - Block B1
>su_show B1
                         +++ I L L U S T R A T E +++
                         ===========================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>block Leg -loc 0 0 0 0 -90 1
                              +++ B L O C K +++
                              =================
 
 
>plane -5 50  -e_circ 0 0 14/2 0 20 10
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>move_block Leg L1  12   0 0
>move_block Leg L2 139  55 0
>move_block Leg L3 139 -55 0
>su_show B1 L1 L2 L3
                         +++ I L L U S T R A T E +++
                         ===========================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>differ B1 L1 B2
>differ B2 L2 B3
>differ B3 L3 Hull
>&title BARUNA V Hull
>su_show Hull
                         +++ I L L U S T R A T E +++
                         ===========================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>list_blocks
                             +++ B L O C K S +++
                             ===================
 
    B1       B2       B3       HULL     L1       L2       L3       LEG
>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
                               +++ M A I N +++
                               ===============
 
 
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.25
                           ========================
                           Total Units         0.25
                           ========================