tests/bugs/modalg_5/bug24203

   1 puts "============"
   2 puts "OCC24203"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 ## Command "sameparameter" in DRAW on attached edge set tolerance equal to 116.
   7 #######################################################################
   8
   9 pload DATAEXCHANGEKERNEL
  10
  11 restore [locate_data_file bug24203_notspedge.brep] e1
  12
  13 sameparameter e1
  14
  15 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance e1] full MaxTol_1
  16
  17 puts "MaxTolerance = $MaxTol_1"
  18
  19 set MaxTol 0.20
  20
  21 if { $MaxTol_1 > $MaxTol } {
  22     puts "Faulty OCC24203"
  23 } else {
  24     puts "OCC24203 OK"
  25 }