tests/bugs/modalg_2/bug297_4

   1
   2 puts "========"
   3 puts "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 -80
  25
  26 halfspace hs f $x $y $Zpoint
  27
  28 box b 0 0 $Zbox 150 200 200
  29
  30 bcut result b hs
  31 set square 116000
  32 set 2dviewer 0