mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-05 11:24:17 +03:00
26 lines
534 B
Plaintext
Executable File
26 lines
534 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}"
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|