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 +++
                               ===============
 
 
>&dimen -dimen meters m-tons
>&device -g_default devi
>&set detail = .false.
>&device -lime 0 -debug
>&set plot = .true.
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
>&set dep    = 24
>&set np     = 4
>&set theta  = 22.5
>&set dstab  = 19
>&set dstbc  = 17.1
>&set leng   = 22.8
>&set clsbx  = 41.8
>&set clscx  = 81.70001
>&set simple = 22.8 32.3 41.8 41.8+22.8 81.70001 81.70001+22.8  119.7 153.9
>&set complx = 22.8 .5*(22.8+41.8) 41.8 41.8+.5*22.8 41.8+22.8 41.8+22.8  \
       .5*(41.8+22.8+81.70001) 81.70001  81.70001+.5*22.8 81.70001+22.8 119.7  \
       128.25 136.85 145.35 153.9
                            Building Stbd Pontoon
                            =====================
>block h1s -locat  0 30.1 0
                              +++ B L O C K +++
                              =================
 
 
>plane 0 -RECT 11.4 13.6 28
>plane 11.4 -RECT 5.7 13.6 28
>plane 22.8 32.3 41.8 41.8+22.8 81.70001 81.70001+22.8  119.7 153.9 -RECT 0  \
       13.6 28
>end block
                            +++ S U R F A C E +++
                            =====================
 
 
                             Building aft column
                             ===================
>&set leng  = 34.2
>&set brdt  = 27.5
>&set bilgd = 10.75
>&set top   = 31.2
>&set bot   = 3
>block coll -LOC 119.7 30.1 13.6+24 0 90
                              +++ B L O C K +++
                              =================
 
 
>plane 0 25 -rect 0 34.2 27.5
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
                             Building fwd column
                             ===================
>&set leng  = 22.8
>&set brdt  = 22.8
>&set bilgd = 8.4
>&set top   = 19.8
>&set bot   = 3
>&set epsx   = .01
>&set epsy   = .01
>block colsa -LOC .01 32.6-.01 13.6+24 0 90
                              +++ B L O C K +++
                              =================
 
 
>plane 0+.01 25.9-.01  -rect 0 22.8 22.8
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
                        Building intermediate columns
                        =============================
>move_block colsa colsb 41.8
>move_block colsa colsc 81.70001
                          joining to make stbd side
                          =========================
>union coll h1s h1cll
>union h1cll colsa h2col
>union h2col colsb h3col
>su_show h2col colsb
>union h3col colsc stbd
>delete_block h1s coll h1cll h2col h3col colsa colsb colsc
>reflect_block stbd port y
>&set clsbx  = 41.8
>&set clscx  = 81.70001
>block deck -loca 0 0 13.6+23.9
                              +++ B L O C K +++
                              =================
 
 
>plane -2 0 10 20 30 40 50 60 70 80 90 100 110 120 130 140 150 156 -rect 0 10  \
       88.4
>end block
                            +++ S U R F A C E +++
                            =====================
 
 
                             joining stbd to Deck
                             ====================
>union stbd deck half
                             joining port to Deck
                             ====================
>union half port db102
>delete deck half port stbd
>su_show db102
>rename db102
>emit db102 -body
>emit db102 -piece '-diftype 3ddif -cs_curr 1 1 1 -cs_wind 1 1 1'
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.34
                           ========================
                           Total Units         0.34
                           ========================