Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / boolean / bsection / M9
CommitLineData
8418c617 1restore [locate_data_file lh3d_px1.brep] a
40093367 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