$
$*********************************************      basics
$
&device -oecho no -g_default device
&dimen -dimen feet kips
&Title block debugging
$
&surface
block cube -loc 0 4.5/12
plane 1/12 -rectan 0/12 3/12 10/12
plane 3/12 -rectan 0/12 3/12 10/12
end_block
block cube2 -loc 0 0.5/12 0
plane 0/12 -rectan 1/12 2/12 1/12
plane 2/12 -rectan 1/12 2/12 1/12
end_block
block cube3 -loc 0 2.5/12 0
plane 0/12 -rectan 1/12 2/12 1/12
plane 2/12 -rectan 1/12 2/12 1/12
end_block
block cube4 -loc 0 4.5/12 0
plane 0/12 -rectan 1/12 2/12 1/12
plane 2/12 -rectan 1/12 2/12 1/12
end_block
block cube5 -loc 0 6.5/12 0
plane 0/12 -rectan 1/12 2/12 1/12
plane 2/12 -rectan 1/12 2/12 1/12
end_block
union  cube2 cube5 cubea
union  cubea cube3 cubeb
union  cubeb cube4 cubec
diffe cube cubec cubed
show cubed
$  pic iso  -shrink -poi -ano yes
$  pic side  -shrink -poi -ano yes
  pic front -xg_win 1/12-0.01 1/12+0.01 -shrink -poi -ano yes
end
show cubed
  pic front -xg_win 1/12-0.01 1/12+0.01 -shrink -poi -ano yes
end
emit cubed -body
emit cubed -piece '-diftype 3d'
end_&surface
$
$
$*********************************************      all done
$
&finish
