tests/boolean/bfuse_simple/E1

   1 # Original bug : pro7637
   2 # Date : 16apr97
   3
   4 dset SCALE 100
   5 ## Prismed oblong creation (size 200 mm)
   6 profile f1 c 50*SCALE 180 x -100*SCALE c 50*SCALE 180
   7 prism p1 f1 0 0 30*SCALE
   8
   9 ## Box creation (size 300 mm)
  10 profile f2 x 300*SCALE y 200*SCALE x -300*SCALE
  11 ttranslate f2 -200*SCALE -50*SCALE 0
  12 prism p2 f2 0 0 -50*SCALE
  13
  14 bfuse result p2 p1
  15
  16 set square 1.85425e+09