Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug75_1
CommitLineData
0e94a94e 1puts "============"
2puts "BUC60861"
3puts "OCC75"
4puts "============"
5puts ""
6puts "(case 1)"
7###############################
8## Incorrect work of section Shell-Shell.
9###############################
10
11restore [locate_data_file BUC60861_gap.brep] ss
12checkshape ss
13
14plane pl1 25680.2288 21428 9995 1 0 0
15mkface f1 pl1 -4000 8000 -5000 5000
16bsection result ss f1 -a
17
18set good_len 9265
19regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full tol
20regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
21if { [expr 1.*abs(${good_len} - $len)] > $tol } {
22 puts "Error : Length is bad"
23}
24
25set 2dviewer 0
26
27
28
29