puts "============"
puts "OCC24203"
puts "============"
puts ""
#######################################################################
## Command "sameparameter" in DRAW on attached edge set tolerance equal to 116.
#######################################################################

pload DATAEXCHANGEKERNEL

restore [locate_data_file bug24203_notspedge.brep] e1

sameparameter e1

regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance e1] full MaxTol_1

puts "MaxTolerance = $MaxTol_1"

set MaxTol 0.20

if { $MaxTol_1 > $MaxTol } {
    puts "Faulty OCC24203"
} else {
    puts "OCC24203 OK"
}
