tests/bugs/modalg/buc60882

   1 puts "============"
   2 puts "BUC60882"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 ## The edge is corrupted after applying command "fsameparameter": tolerance is increased up to 1e+50
   7 #######################################################################
   8
   9 pload XDE
  10
  11 restore [locate_data_file BUC60882_samepar.brep] result
  12
  13 set che [checkshape result]
  14
  15 if { [regexp {Faulty} $che ] == 1 } {
  16     puts "Warning BUC60882: Source shape is NOT correct. It was detected by Checkshape command"
  17 } else {
  18     puts "BUC60882 OK: Source shape is valid"
  19 }
  20
  21 puts "*** Before : "
  22
  23 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol
  24
  25 puts "MaxTolerance = $MaxTol"
  26 if { $MaxTol > 1 } {
  27     puts "Warning : Tolerance of Source edge is more then 1.0"
  28 } else {
  29     puts " Tolerance of source edge is less then 1.0"
  30 }
  31
  32 fsameparameter result 1e-5
  33
  34 puts "*** After : "
  35 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol_1
  36
  37 puts "MaxTolerance = $MaxTol_1"
  38 if { $MaxTol_1 > $MaxTol } {
  39     puts [format "Faulty BUC60882 : Tolerance of Result edge increased and it is equal to %s" $MaxTol_1]
  40 } else {
  41     puts " BUC60882 OK: Tolerance of Result edge is less or equal to tolerance of Sourse edge."
  42 }
  43
  44 set length 1768.53
  45 set 2dviewer 0