tests/boolean/bcommon_simple/E2

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