puts "============" puts "OCC9490" puts "============" puts "" ####################################################################### # Increasing of tolerance in loop test for IGES ####################################################################### set BugNumber OCC9490 set IsOk 1 set filepath [locate_data_file support_bobine.igs] if {[catch {igesread $filepath OCC9490a *}]} { puts "Faulty ${BugNumber} : here is reading problem" set IsOk 0 } file delete ${imagedir}/OCC9490tmp.igs if {[catch {brepiges OCC9490a ${imagedir}/OCC9490tmp.igs}]} { puts "Faulty ${BugNumber} : here is conversation to brep problem" set IsOk 0 } catch {exec chmod 777 ${imagedir}/OCC9490tmp.igs} if {[catch {igesread ${imagedir}/OCC9490tmp.igs OCC9490b *}]} { puts "Faulty ${BugNumber} : here is 2nd reading problem" set IsOk 0 } if { ${IsOk} == 1} { set aTokList {= } set Tol1 [lindex [split [tolerance OCC9490a] ${aTokList}] 2] set Tol2 [lindex [split [tolerance OCC9490b] ${aTokList}] 2] set percent_max 0.1 set Tolerance_percent [GetPercent ${Tol1} ${Tol2}] puts "Tolerance_percent = ${Tolerance_percent} %" if { ${Tolerance_percent} > ${percent_max} } { set IsOk 0 } set good_square 36259 checknbshapes OCC9490a -vertex 1770 -edge 1237 -wire 140 -face 123 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 3271 regexp {Mass +: +([-0-9.+eE]+)} [sprops OCC9490a] full sq1 if {$sq1 != $good_square} { set IsOk 0 } checknbshapes OCC9490b -vertex 1770 -edge 1237 -wire 140 -face 123 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 3271 regexp {Mass +: +([-0-9.+eE]+)} [sprops OCC9490b] full sq2 if {$sq2 != $good_square} { set IsOk 0 } if { ${IsOk} == 0 } { puts "${BugNumber}: Faulty" } else { puts "${BugNumber}: OK" } } renamevar OCC9490b result set 2dviewer 0