tests/boolean/bcommon_simple/G8

   1 ## Extension of /users/skv/testref/cd1/ED/cto/002/B1
   2
   3 dset r sqrt(5)
   4 dset a30 atan2(1,2)*180/pi
   5 dset k 1/r
   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 vertex v5 0 0 1
  22 vertex v6 r/2 0 1
  23 vertex v7 r/2 k 1
  24 vertex v8 0 k 1
  25
  26 edge e5 v5 v6
  27 edge e6 v6 v7
  28 edge e7 v7 v8
  29 edge e8 v8 v5
  30
  31 wire wb e5 e6 e7 e8
  32 mkplane fb wb
  33
  34 prism bb fb 0 0 -1
  35
  36 trotate bb 0 0 0 0 0 1 45
  37
  38 bcommon result ba bb
  39
  40 set square 3.55724