tests/boolean/bcommon_simple/E1

   1 ## Extension of /users/skv/testref/cd1/ED/cto/001/B1
   2
   3 ## common of two intersecting boxes
   4
   5 vertex v1 0 0 0
   6 vertex v2 1 0 0
   7 vertex v3 1 1 0
   8 vertex v4 0 1 0
   9
  10 edge e1 v1 v2
  11 edge e2 v2 v3
  12 edge e3 v3 v4
  13 edge e4 v4 v1
  14
  15 wire wa e1 e2 e3 e4
  16 mkplane fa wa
  17 prism ba fa 0 0 1
  18
  19 vertex v5 0 0 0
  20 vertex v6 1 0 0
  21 vertex v7 1 .5 0
  22 vertex v8 0 .5 0
  23
  24 edge e5 v5 v6
  25 edge e6 v6 v7
  26 edge e7 v7 v8
  27 edge e8 v8 v5
  28
  29 wire wb e5 e6 e7 e8
  30 mkplane fb wb
  31 prism bb fb 0 0 1
  32
  33
  34 bcommon result ba bb
  35
  36 checkprops result -s 4
  37 checkview -display result -2d -s -otherwise { ba bb } -path ${imagedir}/${test_image}.png