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 -g_default device  -mecho yes
 input_line <&parameter -m_dis 10>
>&parameter -m_dis 10
 input_line <&set sml = .01>
>&set sml = .01
 input_line <&set plot = .true.>
>&set plot = .true.
 input_line <&set len    := 240.                   $ctr to ctr length>
>&set len    := 240.
 input_line <&set beam   := 239.99 $ctr to ctr beam>
>&set beam   := 239.99
 input_line <&set cdia   :=  85.4518  $colm dia>
>&set cdia   :=  85.4518
 input_line <&set ctop   := 176.8459  $height to column top>
>&set ctop   := 176.8459
 input_line <&set cbtm   :=  -0.1042  $height to column btm>
>&set cbtm   :=  -0.1042
 input_line <&set npc    := 9         $number of points to make a circle>
>&set npc    := 9
 input_line <&set pwidth  := 37.5492  $width of pontoon>
>&set pwidth  := 37.5492
 input_line <&set ptop    := 29.0499  $height to pontoon top>
>&set ptop    := 29.0499
 input_line <&set pbtm    := -0.0842  $height to pontoon bottom>
>&set pbtm    := -0.0842
 input_line <&set plmid   := 87.2746  $length of parallel midbody>
>&set plmid   := 87.2746
 input_line <&set pclnang := 45       $angle at which pontoon intersects column,>
>&set pclnang := 45
 input_line <&macro su_show nams>
 input_line <&macro column CN X Y -npoint poi np = 9 -topelev tel top -btmelev bel btm -diameter di dia>
 input_line <&m_act column block>
>&m_act column block
 input_line <&macro pontoon cn x y z angle clen>
 input_line <&m_act pontoon block>
>&m_act pontoon block
 input_line <&surface>
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
 input_line <pont S -240./2  239.99/2 0 0 240.>
>pont S -240./2  239.99/2 0 0 240.
 input_line <cn x y z angle clen>
 input_line <block S -location -240./2 239.99/2 0 0 0 0>
                              +++ B L O C K +++
                              =================
 
 
 input_line <&set dcos = 85.4518*0.7071068>
 input_line <&set dsin = 85.4518*0.7071067>
 input_line <&set d1 = 30.21178>
 input_line <&set d2 = 76.3627>
 input_line <&set dd = 4.27259>
 input_line <&set w1 = 60.42355>
 input_line <&set w1 = 60.53956>
 input_line <&set d1 = 25.93919>
 input_line <&set d3 = 163.6373>
 input_line <&set d4 = 214.0608>
 input_line <plane 25.93919      -rect -0.0842 29.0499 60.53956>
 input_line <plane 76.3627 163.6373 -rect -0.0842 29.0499 37.5492>
 input_line <plane 214.0608      -rect -0.0842 29.0499 60.53956>
 input_line <end>
                            +++ S U R F A C E +++
                            =====================
 
 
 input_line <colu sf -240./2  239.99/2  -topelev 176.8459 -btmelev -0.1042 -npoin 9 -dia 85.4518>
>colu sf -240./2  239.99/2  -topelev 176.8459 -btmelev -0.1042 -npoin 9 -dia  \
       85.4518
 input_line <CN X Y -npoint poi np = 9 -topelev tel top -btmelev bel btm -diameter di dia>
 input_line <block sf -location -240./2 239.99/2 00 2 -90>
                              +++ B L O C K +++
                              =================
 
 
 input_line <&set angi = 22.5>
 input_line <plane -0.1042 29.0499+.02 176.8459 -e_circ 0 0 85.4518/2 0 22.5 9>
 input_line <end>
                            +++ S U R F A C E +++
                            =====================
 
 
 input_line <colu sa +240./2  239.99/2  -topelev 176.8459 -btmelev -0.1042 -npoin 9 -dia 85.4518>
>colu sa +240./2  239.99/2  -topelev 176.8459 -btmelev -0.1042 -npoin 9 -dia  \
       85.4518
 input_line <CN X Y -npoint poi np = 9 -topelev tel top -btmelev bel btm -diameter di dia>
 input_line <block sa -location +240./2 239.99/2 00 2 -90>
                              +++ B L O C K +++
                              =================
 
 
 input_line <&set angi = 22.5>
 input_line <plane -0.1042 29.0499+.02 176.8459 -e_circ 0 0 85.4518/2 0 22.5 9>
 input_line <end>
                            +++ S U R F A C E +++
                            =====================
 
 
 input_line <su_show>
>su_show
 input_line <nams>
 input_line <&if .true. &then>
 **** skip,  action = IF      ,skip depth =  2, skiping = F, looking for else(if) = T
 input_line <&selec :n -sel  >
 input_line <&picture iso -parent :n>
 input_line <&endif>
 **** skip,  action = ENDIF   ,skip depth =  1, skiping = F, looking for else(if) = F
 input_line <union s sf temp>
>union s sf temp
 input_line <delete s sf>
>delete s sf
 input_line <su_show temp sa>
>su_show temp sa
 input_line <nams>
 input_line <&if .true. &then>
 **** skip,  action = IF      ,skip depth =  2, skiping = F, looking for else(if) = T
 input_line <&selec :n -sel temp sa>
 input_line <&picture iso -parent :n>
 input_line <&endif>
 **** skip,  action = ENDIF   ,skip depth =  1, skiping = F, looking for else(if) = F
 input_line <union temp sa stbd>
>union temp sa stbd
 input_line <delete temp sa>
>delete temp sa
 input_line <su_show stbd>
>su_show stbd
 input_line <nams>
 input_line <&if .true. &then>
 **** skip,  action = IF      ,skip depth =  2, skiping = F, looking for else(if) = T
 input_line <&selec :n -sel stbd>
 input_line <&picture iso -parent :n>
 input_line <&endif>
 **** skip,  action = ENDIF   ,skip depth =  1, skiping = F, looking for else(if) = F
 input_line <reflect stbd port y>
>reflect stbd port y
 input_line <pont F -240./2  239.99/2 0 -90  239.99>
>pont F -240./2  239.99/2 0 -90  239.99
 input_line <cn x y z angle clen>
 input_line <block F -location -240./2 239.99/2 0 0 0 -90>
                              +++ B L O C K +++
                              =================
 
 
 input_line <&set dcos = 85.4518*0.7071068>
 input_line <&set dsin = 85.4518*0.7071067>
 input_line <&set d1 = 30.21178>
 input_line <&set d2 = 76.3577>
 input_line <&set dd = 4.27259>
 input_line <&set w1 = 60.42355>
 input_line <&set w1 = 60.53956>
 input_line <&set d1 = 25.93919>
 input_line <&set d3 = 163.6323>
 input_line <&set d4 = 214.0508>
 input_line <plane 25.93919      -rect -0.0842 29.0499 60.53956>
 input_line <plane 76.3577 163.6323 -rect -0.0842 29.0499 37.5492>
 input_line <plane 214.0508      -rect -0.0842 29.0499 60.53956>
 input_line <end>
                            +++ S U R F A C E +++
                            =====================
 
 
 input_line <su_show stbd port f>
>su_show stbd port f
 input_line <nams>
 input_line <&if .true. &then>
 **** skip,  action = IF      ,skip depth =  2, skiping = F, looking for else(if) = T
 input_line <&selec :n -sel stbd port f>
 input_line <&picture iso -parent :n>
 input_line <&endif>
 **** skip,  action = ENDIF   ,skip depth =  1, skiping = F, looking for else(if) = F
 input_line <union stbd f temp>
>union stbd f temp
 input_line <union port temp ttemp>
>union port temp ttemp
 input_line <delete stbd f port temp>
>delete stbd f port temp
 input_line <su_show ttemp>
>su_show ttemp
 input_line <nams>
 input_line <&if .true. &then>
 **** skip,  action = IF      ,skip depth =  2, skiping = F, looking for else(if) = T
 input_line <&selec :n -sel ttemp>
 input_line <&picture iso -parent :n>
 input_line <&endif>
 **** skip,  action = ENDIF   ,skip depth =  1, skiping = F, looking for else(if) = F
 input_line <pont a  240./2  239.99/2 0 -90    239.99>
>pont a  240./2  239.99/2 0 -90    239.99
 input_line <cn x y z angle clen>
 input_line <block a -location 240./2 239.99/2 0 0 0 -90>
                              +++ B L O C K +++
                              =================
 
 
 input_line <&set dcos = 85.4518*0.7071068>
 input_line <&set dsin = 85.4518*0.7071067>
 input_line <&set d1 = 30.21178>
 input_line <&set d2 = 76.3577>
 input_line <&set dd = 4.27259>
 input_line <&set w1 = 60.42355>
 input_line <&set w1 = 60.53956>
 input_line <&set d1 = 25.93919>
 input_line <&set d3 = 163.6323>
 input_line <&set d4 = 214.0508>
 input_line <plane 25.93919      -rect -0.0842 29.0499 60.53956>
 input_line <plane 76.3577 163.6323 -rect -0.0842 29.0499 37.5492>
 input_line <plane 214.0508      -rect -0.0842 29.0499 60.53956>
 input_line <end>
                            +++ S U R F A C E +++
                            =====================
 
 
 input_line <su_show ttemp a>
>su_show ttemp a
 input_line <nams>
 input_line <&if .true. &then>
 **** skip,  action = IF      ,skip depth =  2, skiping = F, looking for else(if) = T
 input_line <&selec :n -sel ttemp a>
 input_line <&picture iso -parent :n>
 input_line <&endif>
 **** skip,  action = ENDIF   ,skip depth =  1, skiping = F, looking for else(if) = F
 input_line <union ttemp a tlp>
>union ttemp a tlp
 input_line <su_show tlp>
>su_show tlp
 input_line <nams>
 input_line <&if .true. &then>
 **** skip,  action = IF      ,skip depth =  2, skiping = F, looking for else(if) = T
 input_line <&selec :n -sel tlp>
 input_line <&picture iso -parent :n>
 input_line <&endif>
 **** skip,  action = ENDIF   ,skip depth =  1, skiping = F, looking for else(if) = F
 input_line <rename tlp>
>rename tlp
 input_line <emit tlp -body tlp>
>emit tlp -body tlp
 input_line <emit tlp  -piece '-diftype 3ddif -cs_curr 1 1 1 -cs_wind 1 1 1'>
>emit tlp  -piece '-diftype 3ddif -cs_curr 1 1 1 -cs_wind 1 1 1'
 input_line <end>
>end
                               +++ M A I N +++
                               ===============
 
 
 input_line <&fini>
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.28
                           ========================
                           Total Units         0.28
                           ========================