tests/boolean/bopcut_simple/ZP4

   1 puts "================================="
   2 puts "CUT of box and halfspace"
   3 puts "Case is duplicate of chl 918 CIN001_b5.rle, bug OCC297 "
   4 puts "================================="
   5
   6 vertex v1  250  250 0
   7 vertex v2 -250  250 0
   8 vertex v3 -250 -250 0
   9 vertex v4  250 -250 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 w1 e1 e2 e3 e4
  17
  18 mkplane f w1
  19
  20 set x 0
  21 set y 0
  22
  23 set Zpoint 100
  24 set Zbox -30
  25
  26 halfspace hs f $x $y $Zpoint
  27
  28 box b 0 0 $Zbox 150 200 200
  29
  30 bop b hs
  31 bopcut result
  32
  33 set square 81000