$
$*********************************************      basics
$
&device -oecho no -g_default device
&dimen -dimen feet kips
&Title block debugging
$
$&describe body pumita
&surface
block cube
plane 0/12 -rectan 0/12 2/12 2/12
plane 2/12 -rectan 0/12 2/12 2/12
end_block
block cube2 -loc 0 1/12 1/12
plane 1/12 -rectan 0/12 2/12 2/12
plane 3/12 -rectan 0/12 2/12 2/12
end_block
diffe cube2 cube cube3
show cube3
  pic iso  -shrink -poi -ano yes
end
emit cube3 -body
emit cube3 -piece '-diftype 3d'
end_&surface
$
$
$*********************************************      all done
$
&finish
