Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug60801
1
2 puts "========================"
3 puts "BUC60801"
4 puts "========================"
5
6 box b -10 -10 -10 30 40 40 
7 box a1 -20 0 -20 20 20 100
8 box a2 0 20 -20 50 20 100
9 box c -20 -20 20 100 100 100
10 bcut r1 b a1
11 bcut r2 r1 a2
12 bcut r3 r2 c
13 checkshape r3
14
15 renamevar r3 result
16
17 set square 6400
18 set 2dviewer 0
19