$
$*********************************************      basics
$
&device -oecho no -g_default device
&dimen -dimen feet kips
&Title block debugging
$
&macro blo_show nams
      &sele :n -sel %nams
      &picture iso -shrink -poi -ano yes -parent :n
      &picture side -shrink -poi -ano yes
      &picture top -shrink -poi -ano yes
      &picture front -shrink -poi -ano yes
&endmacro
$&describe body pumita
&surface
block cube
plane 0/12 -rectan 1/12 2/12 1/12
plane 2/12 -rectan 1/12 2/12 1/12
end_block
block cube2
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
$intersect cube cube2 cube3
diffe cube2 cube cube3
show cube3
$     picture iso -shrink -poi -ano yes
     picture front -xg_wind 1/12-0.01 1/12+0.01 -shrink -poi -ano yes
end
&device -g_default device
show cube3
$     picture iso -shrink -poi -ano yes
     picture front -xg_wind 1/12-0.01 1/12+0.01 -shrink -poi -ano yes
end
emit cube3 -body
emit cube3 -piece '-diftype 3d'
end_&surface
$
$
$*********************************************      all done
$
&finish
