0023273: Avoid failures due to datadir commend when data files are not present
[occt.git] / tests / boolean / bsection / M9
1 restore [locate_data_file lh3d_px1.brep] a
2
3 #removing intersection of faces a_3 and a_220
4
5 set faces [explode a f]
6 bop a_3 a_220
7 bopcut a_3
8 compound b
9 foreach f $faces {
10   compound b $f b
11 }
12
13 set i 0
14 compound result
15
16 repeat 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
26 set length 2.49755e+06