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
>&set sodia  = 63
>&set sdep   = 300
>&set nps    = 10
>&set sidia  = 32
>&set hdis   = 100
>&set plot = .true.
>&m_act column block
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
>column spar 0 0 -height 300 -npoin 10 -dia 63
                              +++ B L O C K +++
                              =================
 
 
                            +++ S U R F A C E +++
                            =====================
 
 
>&subt spar body
>su_show spar
>rename spar
>block ctmp1  -loc 0 0 0 0 0 91
                              +++ B L O C K +++
                              =================
 
 
>plane -63 63   -rect  100+10  300-10  (2*63)
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>intersection spar  ctmp1 compart
>&subt spar and ctmp1
>su_show spar ctmp1
>&subt spar and compart
>su_show spar compart
>&subt compartment only
>su_show compart
>&select :n -select spar compart
>rename :n -equiv .001
>emit :n -body  spar
>emit spar -name spar -piece "-perm 1 -diftype 3ddif -cs_wind 1 1 1 -cs_curr  \
       1 1 1" -use_name yes
>emit compart -name sample -compartment " " -piece '-perm -1 -diftype none  \
       -cs_win 0 0 0 -cs_curr 0 0 0'
>end
                               +++ M A I N +++
                               ===============
 
 
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.08
                           ========================
                           Total Units         0.08
                           ========================