b58dfc5e |
1 | puts "TODO DEBUG_OCC24121 Debian60-64: Process killed by CPU limit" |
2 | puts "TODO DEBUG_OCC24121 Debian60-64: TEST INCOMPLETE" |
3 | |
8418c617 |
4 | restore [locate_data_file lh3d_px1.brep] a |
40093367 |
5 | |
6 | #removing intersection of faces a_3 and a_220 |
7 | |
8 | set faces [explode a f] |
9 | bop a_3 a_220 |
10 | bopcut a_3 |
11 | compound b |
12 | foreach f $faces { |
13 | compound b $f b |
14 | } |
15 | |
16 | compound result |
17 | |
18 | set i -5 |
19 | while {$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 | |
29 | incr i 5 |
30 | while {$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 | } |
39 | incr i 20 |
40 | while {$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 | |
50 | set length 624193 |