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
                              +++ B L O C K +++
                              =================
 
 
>plane 1/12 -rectan 0/12 10/12 30/12
>plane 3/12 -rectan 0/12 10/12 30/12
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>block cube2 -loc 0 -4/12 0
                              +++ B L O C K +++
                              =================
 
 
>plane 0/12 -rectan 1/12 2/12 20/12
>plane 2/12 -rectan 1/12 2/12 20/12
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>block cube3 -loc 0 0/12 0
                              +++ B L O C K +++
                              =================
 
 
>plane 0/12 -rectan 3/12 4/12 1/12
>plane 2/12 -rectan 3/12 4/12 1/12
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>union cube2 cube3 cube4
>diffe cube cube4 cube5
>show cube5
                         +++ 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 cube5
                         +++ 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 cube5 -body
>emit cube5 -piece '-diftype 3d'
>end_&surface
                               +++ M A I N +++
                               ===============
 
 
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.06
                           ========================
                           Total Units         0.06
                           ========================