1 #puts "TODO #23749 ALL: Faulty shapes in variables faulty_1 to faulty_"
5 restore [locate_data_file lh3d_px2.brep] a
9 plane p_$i 0 $i*100 0 0 1 0
11 set bsres [bsection s_$i a f_$i]
12 if { [regexp {Error} $bsres] } {
13 puts "Error: bsection not done"
15 compound result s_$i result
16 set dist [expr $i * 100]
17 puts "OK Section:$dist"