Adjusting test unstable testing cases in Debug mode for current state of OCCT
[occt.git] / tests / boolean / bsection / M8
CommitLineData
429a6c4d 1#puts "TODO DEBUG_OCC24121 Debian60-64: Process killed by CPU limit"
2#puts "TODO DEBUG_OCC24121 Debian60-64: TEST INCOMPLETE"
b58dfc5e 3
8418c617 4restore [locate_data_file lh3d_px1.brep] a
40093367 5
6#removing intersection of faces a_3 and a_220
7
8set faces [explode a f]
9bop a_3 a_220
10bopcut a_3
11compound b
12foreach f $faces {
13 compound b $f b
14}
15
16compound result
17
18set i -5
19while {$i < 0} {
20 plane p_$i $i*1000 0 0 1 0 0
21 mkface f_$i p_$i
4e57c75e 22 bsection s_$i b f_$i
40093367 23 compound result s_$i result
24 set dist [expr $i * 1000]
25 puts "OK Section$i:$dist"
26 incr i
27}
28
29incr i 5
30while {$i <= 30} {
31 plane p_$i $i*1000 0 0 1 0 0
32 mkface f_$i p_$i
4e57c75e 33 bsection s_$i b f_$i
40093367 34 compound result s_$i result
35 set dist [expr $i * 1000]
36 puts "OK Section$i:$dist"
37 incr i 5
38}
39incr i 20
40while {$i <= 105} {
41 plane p_$i $i*1000 0 0 1 0 0
42 mkface f_$i p_$i
4e57c75e 43 bsection s_$i b f_$i
40093367 44 compound result s_$i result
45 set dist [expr $i * 1000]
46 puts "OK Section$i:$dist"
47 incr i 5
48}
49
50set length 624193