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.
28 lines
487 B
Plaintext
Executable File
28 lines
487 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC859"
|
|
puts "SAM1637"
|
|
puts "================"
|
|
puts ""
|
|
#####################
|
|
## Attached shape is not sewed.
|
|
#####################
|
|
|
|
restore [locate_data_file OCC859.brep] a
|
|
checkshape a
|
|
|
|
sewing result a
|
|
|
|
freebounds result 0.1
|
|
|
|
set list [statshape result_o]
|
|
|
|
if {[llength ${list}] > 4} {
|
|
puts "Faulty OCC859: here is sewing problem"
|
|
}
|
|
|
|
checkmaxtol result -ref 0.00025118948696105701
|
|
checknbshapes result -shell 1
|
|
checkfreebounds result 6
|
|
|
|
set 2dviewer 1
|