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 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 cube2
                              +++ B L O C K +++
                              =================
 
 
>plane 1/12 -rectan 0.5/12 2.5/12 2/12
>plane 3/12 -rectan 0.5/12 2.5/12 2/12
>end_block
                            +++ S U R F A C E +++
                            =====================
 
 
>diffe cube2 cube cube3
>show cube3
                         +++ I L L U S T R A T E +++
                         ===========================
 
 
>picture front -xg_wind 1/12-0.01 1/12+0.01 -shrink -poi -ano yes
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>&device -g_default device
>show cube3
                         +++ I L L U S T R A T E +++
                         ===========================
 
 
>picture front -xg_wind 1/12-0.01 1/12+0.01 -shrink -poi -ano yes
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>emit cube3 -body
>emit cube3 -piece '-diftype 3d'
>end_&surface
                               +++ M A I N +++
                               ===============
 
 
 
 
                          MOSES   Finished Normally
                          =========================
                           CP Time             0.05
                           ========================
                           Total Units         0.05
                           ========================