mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-30 12:14:08 +03:00
5ae01c8551
Test for sewing command were updated to check reference information. Commands for testing were moved to the file src/DrawResources/CheckCommands.tcl Documentation overview was updated.
30 lines
627 B
Plaintext
Executable File
30 lines
627 B
Plaintext
Executable File
puts "========"
|
|
puts "OCC6491"
|
|
puts "========"
|
|
puts ""
|
|
####################################################
|
|
## Sewing in DRAW on attached the shape with tolerance 1000 adds duplicated faces
|
|
####################################################
|
|
|
|
set BugNumber OCC6491
|
|
|
|
restore [locate_data_file OCC6491.brep] a
|
|
|
|
set tolerance 1000
|
|
|
|
sewing result ${tolerance} a
|
|
regexp {FACE +: +([-0-9.+eE]+)} [nbshapes result] full res_faces
|
|
|
|
set good_faces 263
|
|
|
|
if { ${res_faces} != ${good_faces} } {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
checkmaxtol result 105.192615242296
|
|
checknbshapes result -shell 1
|
|
checkfreebounds result 73
|
|
|
|
set 2dviewer 0
|
|
|