tests/bugs/moddata_2/bug75_2

   1 puts "============"
   2 puts "BUC60861"
   3 puts "OCC75"
   4 puts "============"
   5 puts ""
   6 puts "case 2"
   7 ###############################
   8 ## Incorrect work of section Shell-Shell.
   9 ###############################
  10
  11 restore [locate_data_file BUC60861_gap1.brep] ss
  12 checkshape ss
  13
  14 plane pl1 25680.2288 21428 9995 1 0 0
  15 mkface f1 pl1 -1 11 -5 5
  16 bsection result ss f1 -n2d
  17
  18 set good_len 10.0009
  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 : len is bad"
  23 }
  24
  25 set 2dviewer 0
  26
  27
  28