$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$       --------------------   bblocks  ----------------------
$
$  This comi file demonstrates the use of the combination commands
$  in the &surface menu. Severarl blocks are "unioned" together, a
$  hole is cut into the assembly, and finally half of the result
$  is thrown away.
$
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      dimensions
$
&dimensions -dimen feet kips
$
$*********************************************      basic parameters
$
&device  -pri device
$
$*********************************************      control parameters
$
&set ano   = -ano yes
&set ano   =
&set plot  = .true.
&set one   = .true.
&set two   = .true.
&set three = .true.
&set four  = .true.
&set five  = .true.
$
$*********************************************      macro for plotting
$
&macro suplot nams
   &if %plot &then
      &selec :n -sel %nams
      &picture iso -parent :n
   &endif
&endmacro
$
$*********************************************      generate
$
&surface
$
$*********************************************      define two blocks
$
$
   block one
      plane 0 100 -rect 0 20 90
   end_block
   block two
      plane 25 75 -rect  1  40 45
   end_block
$
$*********************************************      combine
$
   list_blocks
   &title one and two  before
   suplot one two
   union one two ans1
   &title union one and two
   suplot ans1
$
$*********************************************      add third block
$
   block three
      plane 0 100 -rect 30 70 90
   end_block
   &title ans1 and three before
   suplot ans1 three
   union ans1 three ans2
   &title union ans1 and three
   suplot ans2
$
$*********************************************      cut hole
$
   block hole
      plane 40 60 -rect -10 100 20
   end_block
   list_blocks
   &title ans2 and hole before
   suplot ans2 hole
   difference ans2 hole ans3
   &title difference ans2 and three
   suplot ans3
$
$*********************************************      clip half
$
   block half
      plane 50 110 -rect -5 200 200
   end_block
   list_blocks
   &title ans3 and half before
   suplot ans3 half
   differenc ans3 half ans4
   &title difference ans3 and half
   suplot ans4
$
$*********************************************      emit
$
   rename_block ans4
   emit ans4 -body ans4
   emit ans4 -piece '-diftype 3ddif -cs_current 1 1 1 -cs_wind 1 1 1' \
             -use_name yes \
             -compartment "-description 'This is Extra '"
&finish