5 #######################################################################
6 # Bad import of a STEP file (error during triangulation)
7 #######################################################################
13 stepread [locate_data_file OCC22849-2520-6002_step.stp] a *
20 set info1 [fromshape a_1_67]
21 regexp {Shape a_1_67 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info1 full entity1
22 set word1 [string compare $entity1 4973:#5009]
24 set info2 [fromshape a_1_73]
25 regexp {Shape a_1_73 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info2 full entity2
26 set word2 [string compare $entity2 5157:#5193]
28 set info3 [fromshape a_1_91]
29 regexp {Shape a_1_91 : imported from entity ([-0-9.+eE]+:#[-0-9.+eE]+)} $info3 full entity3
30 set word3 [string compare $entity3 5659:#5695]
32 if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
33 puts "OK ${BugNumber}"
35 puts "Faulty ${BugNumber}"
38 checkview -display result -3d -path ${imagedir}/${test_image}.png