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 feet kips
>&device -pri devi
>&set plot = .true.
>&set len    := 215
>&set beam   := 215
>&set pdia   := 30
>&set ponhgt := 20
>&set npp    := 9
>&set cdia   := 63
>&set cdep   := 165
>&set npc    := 9
>&m_act column block
>&m_act pontoon block
>&local ext_col = 20+.5*30+1
>&local ext_pon = .65*63
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
>pontoon S -215/2  215/2 20 0 -length 215 -npoin 9 -dia 30
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>column sf -215/2  215/2  -height 165 -npoin 9 -dia 63
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>column sa +215/2  215/2  -height 165 -npoin 9 -dia 63
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>suplot
>union s sf temp
>delete s sf
>suplot temp sa
>union temp sa stbd
>delete temp sa
>suplot stbd
>reflect stbd port y
>pont F -215/2  215/2 20 -90 -length 215 -npoin 9 -dia 30
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>suplot stbd port f
>union stbd f temp
>union port temp ttemp
>delete stbd f port temp
>suplot ttemp
>pontoon a  215/2  215/2 20 -90 -length 215 -npoin 9 -dia 30
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>suplot ttemp a
>union ttemp a tlp
>suplot tlp
>rename tlp -equiv .1
>emit tlp -body
>emit tlp  -piece '-diftype 3ddif -cs_curr 1 1 1 -cs_wind 1 1 1'
>end
                               +++ M A I N +++
                               ===============
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             1.82
                           ========================
                           Total Units         1.82
                           ========================