7 ###############################
8 ## Incorrect work of section Shell-Shell.
9 ###############################
11 restore [locate_data_file BUC60861_gap.brep] ss
14 plane pl1 25680.2288 21428 9995 1 0 0
15 mkface f1 pl1 -4000 8000 -5000 5000
16 bsection result ss f1 -a
19 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full tol
20 regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
21 if { [expr 1.*abs(${good_len} - $len)] > $tol } {
22 puts "Error : Length is bad"