mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
58cf74e0c0
- Added function checkprops, set default tolerance parameter to 1.0e-4 - Using "area" instead of "square". - Options "-equal\notequal" isn't used together with "-s" in blend and offset test cases. - Correct regressions/differences/improvements and CPU problem (set props tolerance to 0.1) - Corrected test cases to use checkprops proc. - Correct image difference - Updated TODOs in test cases. - Updated test cases to get correct images of result shape
32 lines
883 B
Plaintext
Executable File
32 lines
883 B
Plaintext
Executable File
if { [isdraw result] } {
|
|
#check if result is valid
|
|
set ch [checkshape result]
|
|
puts $ch
|
|
|
|
if { [string compare $ch "This shape seems to be valid"] == 0 } {
|
|
#check if tolerance is less 1.
|
|
set tol 10.
|
|
if { [regexp {Face +:.+Max +([-0-9.+eE]+)} [maxtolerance result] full tol] == 0 } {
|
|
#Avoiding maxtolerance bug on Windows
|
|
if { [array get Draw_Groups "Shape Healing"] == "" } {
|
|
pload XSDRAW
|
|
}
|
|
regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full tol
|
|
}
|
|
if { $tol > 1. } {
|
|
puts "Error: The tolerance of the resulting shape is too big ($tol)."
|
|
}
|
|
}
|
|
|
|
clear
|
|
smallview
|
|
donly result
|
|
fit
|
|
xwd $imagedir/${test_image}.png
|
|
} else {
|
|
puts "Error : The skin cannot be built."
|
|
}
|
|
|
|
# to end a test script
|
|
puts "TEST COMPLETED"
|