tests/boolean/bopcommon_simple/ZP5

   1 puts "================================="
   2 puts "COMMON of box and halfspace"
   3 puts "================================="
   4
   5 vertex v1  250  250 0
   6 vertex v2 -250  250 0
   7 vertex v3 -250 -250 0
   8 vertex v4  250 -250 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 w1 e1 e2 e3 e4
  16
  17 mkplane f w1
  18
  19 set x 0
  20 set y 0
  21
  22 set Zpoint -100
  23 set Zbox -80
  24
  25 halfspace hs f $x $y $Zpoint
  26
  27 box b 0 0 $Zbox 150 200 200
  28
  29 bop b hs
  30 bopcommon result
  31
  32 set square 116000