e54706ed |
1 | puts "TODO OCC12345 ALL: OCC9531: Faulty" |
2 | |
3 | puts "============" |
4 | puts "OCC9531" |
5 | puts "============" |
6 | puts "" |
7 | ####################################################################### |
8 | # Regression after writing-reading operation |
9 | ####################################################################### |
10 | |
11 | set BugNumber OCC9531 |
12 | |
13 | set IsOk 1 |
5d1833ef |
14 | set filepath [locate_data_file 919-001-T02-04-CP-VL.igs] |
15 | if {[catch {igesread $filepath OCC9531a *}]} { |
e54706ed |
16 | puts "Faulty ${BugNumber} : here is reading problem" |
17 | set IsOk 0 |
18 | } |
19 | |
20 | file delete ${imagedir}/OCC9531tmp.igs |
21 | |
22 | if {[catch {brepiges OCC9531a ${imagedir}/OCC9531tmp.igs}]} { |
23 | puts "Faulty ${BugNumber} : here is conversation to brep problem" |
24 | set IsOk 0 |
25 | } |
26 | catch {exec chmod 777 ${imagedir}/OCC9531tmp.igs} |
27 | |
28 | if {[catch {igesread ${imagedir}/OCC9531tmp.igs OCC9531b *}]} { |
29 | puts "Faulty ${BugNumber} : here is 2nd reading problem" |
30 | set IsOk 0 |
31 | } |
32 | |
33 | if { ${IsOk} == 1} { |
34 | set aTokList {= } |
35 | set Tol1 [lindex [split [tolerance OCC9531a] ${aTokList}] 2] |
36 | set Tol2 [lindex [split [tolerance OCC9531b] ${aTokList}] 2] |
37 | set percent_max 0.1 |
38 | set Tolerance_percent [GetPercent ${Tol1} ${Tol2}] |
39 | puts "Tolerance_percent = ${Tolerance_percent} %" |
40 | if { ${Tolerance_percent} > ${percent_max} } { |
41 | set IsOk 0 |
42 | } |
43 | |
44 | set good_square 5236.89 |
45 | set good_vertex 5748 |
46 | set good_edge 5680 |
47 | set good_wire 915 |
48 | set good_face 899 |
49 | set good_shell 0 |
50 | set good_solid 0 |
51 | set good_compsolid 0 |
52 | set good_compound 1 |
53 | set good_shape 13243 |
54 | |
55 | set nb_info [nbshapes OCC9531a] |
56 | regexp {Mass +: +([-0-9.+eE]+)} [sprops OCC9531a] full sq1 |
57 | regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v1 |
58 | regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_e1 |
59 | regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full nb_w1 |
60 | regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_f1 |
61 | regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_sh1 |
62 | regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_sol1 |
63 | regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nb_compsol1 |
64 | regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound1 |
65 | regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_shape1 |
66 | if {$sq1 != $good_square |
67 | || $nb_v1 != $good_vertex |
68 | || $nb_e1 != $good_edge |
69 | || $nb_w1 != $good_wire |
70 | || $nb_f1 != $good_face |
71 | || $nb_sh1 != $good_shell |
72 | || $nb_sol1 != $good_solid |
73 | || $nb_compsol1 != $good_compsolid |
74 | || $compound1 != $good_compound |
75 | || $nb_shape1 != $good_shape } { |
76 | set IsOk 0 |
77 | } |
78 | |
79 | set nb_info [nbshapes OCC9531b] |
80 | regexp {Mass +: +([-0-9.+eE]+)} [sprops OCC9531b] full sq2 |
81 | regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v2 |
82 | regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_e2 |
83 | regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full nb_w2 |
84 | regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_f2 |
85 | regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_sh2 |
86 | regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_sol2 |
87 | regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nb_compsol2 |
88 | regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound2 |
89 | regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_shape2 |
90 | if {$sq2 != $good_square |
91 | || $nb_v2 != $good_vertex |
92 | || $nb_e2 != $good_edge |
93 | || $nb_w2 != $good_wire |
94 | || $nb_f2 != $good_face |
95 | || $nb_sh2 != $good_shell |
96 | || $nb_sol2 != $good_solid |
97 | || $nb_compsol2 != $good_compsolid |
98 | || $compound2 != $good_compound |
99 | || $nb_shape2 != $good_shape } { |
100 | set IsOk 0 |
101 | } |
102 | |
103 | if { ${IsOk} == 0 } { |
104 | puts "${BugNumber}: Faulty" |
105 | } else { |
106 | puts "${BugNumber}: OK" |
107 | } |
108 | } |
109 | |
110 | renamevar OCC9531b result |
111 | set 2dviewer 0 |