0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug22849
1 puts "============"
2 puts "OCC22849"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Bad import of a STEP file (error during triangulation)
7 #######################################################################
8
9 set BugNumber OCC22849
10
11 catch {pload XDE}
12
13 stepread [locate_data_file OCC22849-2520-6002_step.stp] a *
14 checkshape a_1
15 ##tole a_1
16 incmesh a_1 0.1
17 tricheck a_1
18 explode a_1 f
19
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]
23
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]
27
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]
31
32 if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
33   puts "OK ${BugNumber}"
34 } else {
35   puts "Faulty ${BugNumber}"
36 }
37
38 checkview -display result -3d -path ${imagedir}/${test_image}.png