a4eba920 |
1 | puts "TODO OCC12345 ALL: Error : is WRONG because number of " |
e54706ed |
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] |
e54706ed |
37 | |
cd718a73 |
38 | checkreal "Tolerance" ${Tol1} ${Tol2} 0 0.001 |
a4eba920 |
39 | checknbshapes OCC9531a -vertex 5748 -edge 5680 -wire 915 -face 899 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 13243 |
58cf74e0 |
40 | checkprops OCC9531a -s 5236.89 |
41 | checkprops OCC9531b -s 5236.89 |
a4eba920 |
42 | checknbshapes OCC9531b -vertex 5748 -edge 5680 -wire 915 -face 899 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 13243 |
e54706ed |
43 | } |
44 | |
45 | renamevar OCC9531b result |
5747059b |
46 | checkview -display result -2d -path ${imagedir}/${test_image}.png |