mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-26 11:05:31 +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.
28 lines
482 B
Plaintext
Executable File
28 lines
482 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 0.00025118948696105701
|
|
checknbshapes result -shell 1
|
|
checkfreebounds result 6
|
|
|
|
set 2dviewer 1
|