Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug297_4
CommitLineData
0e94a94e 1
2puts "========"
3puts "OCC297"
4puts "========"
5
6vertex v1 250 250 0
7vertex v2 -250 250 0
8vertex v3 -250 -250 0
9vertex v4 250 -250 0
10
11edge e1 v1 v2
12edge e2 v2 v3
13edge e3 v3 v4
14edge e4 v4 v1
15
16wire w1 e1 e2 e3 e4
17
18mkplane f w1
19
20set x 0
21set y 0
22
23set Zpoint 100
24set Zbox -80
25
26halfspace hs f $x $y $Zpoint
27
28box b 0 0 $Zbox 150 200 200
29
30bcut result b hs
31set square 116000
32set 2dviewer 0