mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-22 12:48:37 +08:00
fb60057d23
Command tolmax was removed. Tcl command checkmaxtol is used now in test cases to check maximum tolerance. Reference values in test cases were updated.
37 lines
1.2 KiB
Plaintext
Executable File
37 lines
1.2 KiB
Plaintext
Executable File
puts "TODO OCC12345 ALL: Error : Tolerance invalid. Function FixShape works WRONGLY"
|
|
|
|
puts "========================"
|
|
puts " OCC547 "
|
|
puts "(case 2)"
|
|
puts "========================"
|
|
puts ""
|
|
##################################
|
|
## Big tolerance after "sewing" with tolearnce 0.5
|
|
##################################
|
|
|
|
restore [locate_data_file OCC547.brep] a
|
|
|
|
set tol1 [maxtolerance a]
|
|
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full face1
|
|
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full edge1
|
|
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full vert1
|
|
|
|
sewing result a 0.5 a
|
|
|
|
set tol2 [ maxtolerance result]
|
|
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full face2
|
|
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full edge2
|
|
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full vert2
|
|
|
|
if { ${face2} > ${face1} || ${edge2} > ${edge1} || ${vert2} > ${vert1} } {
|
|
puts "Error : Tolerance invalid. Function FixShape works WRONGLY"
|
|
} else {
|
|
puts "Tolerance valed. Function FixShape works CORRECTLY"
|
|
}
|
|
|
|
checkmaxtol result -ref 1.59071e+000
|
|
checknbshapes result -shell 1
|
|
checkfreebounds result 227
|
|
|
|
set 2dviewer 1
|