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 one   = .true.
>&set two   = .true.
>&set three = .true.
>&set four  = .true.
>&set five  = .true.
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
>block one
                              +++ B L O C K +++
                              =================
 
 
>plane 0 100 -rect 0 20 90
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>block two
                              +++ B L O C K +++
                              =================
 
 
>plane 25 75 -rect  1  40 45
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>list_blocks
                             +++ B L O C K S +++
                             ===================
 
                               ONE      TWO
>&title one and two  before
>su_show one two
>union one two ans1
>&title union one and two
>su_show ans1
>block three
                              +++ B L O C K +++
                              =================
 
 
>plane 0 100 -rect 30 70 90
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>&title ans1 and three before
>su_show ans1 three
>union ans1 three ans2
>&title union ans1 and three
>su_show ans2
>block hole
                              +++ B L O C K +++
                              =================
 
 
>plane 40 60 -rect -10 100 20
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>list_blocks
                             +++ B L O C K S +++
                             ===================
 
             ANS1     ANS2     HOLE     ONE      THREE    TWO
>&title ans2 and hole before
>su_show ans2 hole
>difference ans2 hole ans3
>&title difference ans2 and three
>su_show ans3
>block half
                              +++ B L O C K +++
                              =================
 
 
>plane 50 110 -rect -5 200 200
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>list_blocks
                             +++ B L O C K S +++
                             ===================
 
    ANS1     ANS2     ANS3     HALF     HOLE     ONE      THREE    TWO
>&title ans3 and half before
>su_show ans3 half
>differenc ans3 half ans4
>&title difference ans3 and half
>su_show ans4
>rename_block ans4
>emit ans4 -body ans4 '-fact 0 -peri_use 6'
>emit ans4 -piece '-diftype 3ddif -cs_current 1 1 1 -cs_wind 1 1 1' -use_name  \
       yes -compartment "-description 'This is Extra '"
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.09
                           ========================
                           Total Units         0.09
                           ========================