Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug297_3
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 144000
32 set 2dviewer 0