puts "========"
puts "OCC25923"
puts "========"
puts ""
#############################################
# Remove small wires on face read from STEP
#############################################

smallview
restore [locate_data_file OCC25923_FixSmallWire_Orientation.brep] a
fit

dlog reset
dlog on
decho off
checkshape a
set bug_info_1 [dlog get]
set bug_info_1 [lrange $bug_info_1 2 7]
decho on

fixshape r a +s +o 1e-3
dlog reset
dlog on
decho off
checkshape r
set bug_info_2 [dlog get]
set bug_info_2 [lrange $bug_info_2 2 7]
decho on

fixshape r r +o
dlog reset
dlog on
decho off
checkshape r
set bug_info_3 [dlog get]
set bug_info_3 [lrange $bug_info_3 2 7]
decho on

if {[string compare $bug_info_1 "This shape seems to be valid"] != 0} {
  puts "ERRROR: Restored shape is not valid."
}
if {[string compare $bug_info_2 "This shape seems to be valid"] == 0} {
  puts "ERRROR: OCC25923 is reproduced. Algorythm of removing small wires on face does not work."
}
if {[string compare $bug_info_3 "This shape seems to be valid"] != 0} {
  puts "ERRROR: OCC25923 is reproduced. Algorythm of removing small wires on face does not work."
}

set only_screen_axo 1
