tests/boolean/bcommon_simple/H4

   1 ## Extension of /users/skv/testref/cd1/ED/cto/003/D1
   2
   3 dset r sqrt(2)
   4 dset k r/2
   5
   6 vertex v1 0 0 0
   7 vertex v2 1 0 0
   8 vertex v3 1 1 0
   9 vertex v4 0 1 0
  10
  11 edge e1 v1 v2
  12 edge e2 v2 v3
  13 edge e3 v3 v4
  14 edge e4 v4 v1
  15
  16 wire wa e1 e2 e3 e4
  17 mkplane fa wa
  18 prism ba fa 0 0 1
  19
  20
  21 vertex v3 -0.25 -0.25 0
  22 vertex v4 2 -0.25 0
  23 edge eb v3 v4
  24 prism fb eb 0 k-0.25 0
  25 prism bb fb 0 0 1
  26
  27 vertex v5 -0.25 -0.25 0
  28 vertex v6 2 -0.25 0
  29 vertex v7 2 k 0
  30 vertex v8 -0.25 k 0
  31
  32 edge e5 v5 v6
  33 edge e6 v6 v7
  34 edge e7 v7 v8
  35 edge e8 v8 v5
  36
  37 wire wb e5 e6 e7 e8
  38 mkplane fb wb
  39 prism bb fb 0 0 1
  40
  41 trotate bb -0.25 -0.25 0 0 0 1 45
  42
  43
  44 bcommon result ba bb
  45
  46 set square 4.41421