0023260: Regression: Instability in parallel incmesh on Linux.
[occt.git] / tests / boolean / bsection / M9
... / ...
CommitLineData
1restore lh3d_px1.brep a
2
3#removing intersection of faces a_3 and a_220
4
5set faces [explode a f]
6bop a_3 a_220
7bopcut a_3
8compound b
9foreach f $faces {
10 compound b $f b
11}
12
13set i 0
14compound result
15
16repeat 21 {
17 plane p_$i 0 $i*100 0 0 1 0
18 mkface f_$i p_$i
19 bsection s_$i b f_$i -2d -a
20 compound result s_$i result
21 set dist [expr $i * 100]
22 puts "OK Section:$dist"
23 incr i 10
24}
25
26set length 2.49755e+06