408e0d5c |
1 | cpulimit 500 |
2 | |
8418c617 |
3 | restore [locate_data_file lh3d_px1.brep] a |
40093367 |
4 | |
5 | #removing intersection of faces a_3 and a_220 |
6 | |
7 | set faces [explode a f] |
8 | bop a_3 a_220 |
9 | bopcut a_3 |
10 | compound b |
11 | foreach f $faces { |
12 | compound b $f b |
13 | } |
14 | |
15 | set i 0 |
16 | compound result |
17 | |
18 | repeat 21 { |
19 | plane p_$i 0 $i*100 0 0 1 0 |
20 | mkface f_$i p_$i |
94f71cad |
21 | set bsres [bsection s_$i b f_$i] |
22 | if { [regexp {Error} $bsres] } { |
23 | puts "Error: bsection not done" |
24 | } |
40093367 |
25 | compound result s_$i result |
26 | set dist [expr $i * 100] |
27 | puts "OK Section:$dist" |
28 | incr i 10 |
29 | } |
30 | |
58cf74e0 |
31 | checkprops result -l 2.49755e+06 |
32 | checksection result |
5747059b |
33 | checkview -display result -2d -path ${imagedir}/${test_image}.png |