tests/boolean/bcommon_simple/G2

   1
   2 ## prism the diagonal face as we would in Euclid Designer
   3
   4 vertex v1 0 0 0
   5 vertex v2 1 0 0
   6 vertex v3 1 1 0
   7 vertex v4 0 1 0
   8
   9 edge e1 v1 v2
  10 edge e2 v2 v3
  11 edge e3 v3 v4
  12 edge e4 v4 v1
  13
  14 wire wa e1 e2 e3 e4
  15 mkplane fa wa
  16 prism ba fa 0 0 1
  17
  18 # prism from bottom
  19
  20 vertex v5 0 0 0
  21 vertex v6 1 1 0
  22 vertex v7 1 1 1
  23 vertex v8 0 0 1
  24
  25 edge e5 v5 v6
  26 edge e6 v6 v7
  27 edge e7 v7 v8
  28 edge e8 v8 v5
  29
  30 wire wb e5 e6 e7 e8
  31 mkplane fb wb
  32
  33 prism bb fb -.5 .5 0
  34
  35 bcommon result ba bb
  36
  37 set square 4.41421