mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-22 04:37:23 +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.
24 lines
503 B
Plaintext
Executable File
24 lines
503 B
Plaintext
Executable File
puts "========"
|
|
puts "OCC6675"
|
|
puts "========"
|
|
puts ""
|
|
####################################################
|
|
## Sewing can not sewed attached shape for any tolerance.Followed bug for 6542.
|
|
####################################################
|
|
|
|
set BugNumber OCC6675
|
|
|
|
restore [locate_data_file OCC6675.brep] a
|
|
|
|
set tolerance 1.00000e-07
|
|
|
|
sewing result ${tolerance} a
|
|
|
|
checkshape result
|
|
checkmaxtol result -ref 1.0021647610996499e-005
|
|
checknbshapes result -shell 1
|
|
checkfreebounds result 0
|
|
|
|
set 2dviewer 0
|
|
|