0024224: Suspicious logics in changing clipping planes at OpenGl_Structure

[occt.git] / tests / bugs / vis / bug22849

puts "TODO ?OCC11111 ALL: Faulty OCC22849"
puts "TODO DEBUG_OCC24121 Debian60-64 Windows: Warning: ShapeFix_Solid::SolidFromShell: Exception"

puts "============"
puts "OCC22849"
puts "============"
puts ""
#######################################################################
# Bad import of a STEP file (error during triangulation)
#######################################################################

set BugNumber OCC22849

catch {pload XDE}

stepread [locate_data_file OCC22849-2520-6002_step.stp] a *
checkshape a_1
##tole a_1
incmesh a_1 0.1
tricheck a_1
explode a_1 f

set info1 [fromshape a_1_67]
regexp {Shape a_1_67 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info1 full entity1
set word1 [string compare $entity1 4973:#5009]

set info2 [fromshape a_1_73]
regexp {Shape a_1_73 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info2 full entity2
set word2 [string compare $entity2 5157:#5193]

set info3 [fromshape a_1_91]
regexp {Shape a_1_91 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info3 full entity3
set word3 [string compare $entity3 5659:#5695]

if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
  puts "OK ${BugNumber}"
} else {
  puts "Faulty ${BugNumber}"
}

set 3dviewer 1