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 +++
                               ===============
 
 
>&device -oecho no -g_default device
>&dimen -dimen feet kips
>&Title block debugging
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
>block cube -loc 0 4.5/12
                              +++ B L O C K +++
                              =================
 
 
>plane 1/12 -rectan 0/12 3/12 10/12
>plane 3/12 -rectan 0/12 3/12 10/12
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>block cube2 -loc 0 0.5/12 0
                              +++ B L O C K +++
                              =================
 
 
>plane 0/12 -rectan 1/12 2/12 1/12
>plane 2/12 -rectan 1/12 2/12 1/12
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>block cube3 -loc 0 2.5/12 0
                              +++ B L O C K +++
                              =================
 
 
>plane 0/12 -rectan 1/12 2/12 1/12
>plane 2/12 -rectan 1/12 2/12 1/12
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>block cube4 -loc 0 4.5/12 0
                              +++ B L O C K +++
                              =================
 
 
>plane 0/12 -rectan 1/12 2/12 1/12
>plane 2/12 -rectan 1/12 2/12 1/12
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>block cube5 -loc 0 6.5/12 0
                              +++ B L O C K +++
                              =================
 
 
>plane 0/12 -rectan 1/12 2/12 1/12
>plane 2/12 -rectan 1/12 2/12 1/12
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>union  cube2 cube5 cubea
>union  cubea cube3 cubeb
>union  cubeb cube4 cubec
>diffe cube cubec cubed
>show cubed
                         +++ I L L U S T R A T E +++
                         ===========================
 
 
>pic front -xg_win 1/12-0.01 1/12+0.01 -shrink -poi -ano yes
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>show cubed
                         +++ I L L U S T R A T E +++
                         ===========================
 
 
>pic front -xg_win 1/12-0.01 1/12+0.01 -shrink -poi -ano yes
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>emit cubed -body
>emit cubed -piece '-diftype 3d'
>end_&surface
                               +++ M A I N +++
                               ===============
 
 
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.10
                           ========================
                           Total Units         0.10
                           ========================