mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-05 11:24:17 +03:00
30 lines
632 B
Plaintext
Executable File
30 lines
632 B
Plaintext
Executable File
puts "============"
|
|
puts "BUC60861"
|
|
puts "OCC75"
|
|
puts "============"
|
|
puts ""
|
|
puts "(case 1)"
|
|
###############################
|
|
## Incorrect work of section Shell-Shell.
|
|
###############################
|
|
|
|
restore [locate_data_file BUC60861_gap.brep] ss
|
|
checkshape ss
|
|
|
|
plane pl1 25680.2288 21428 9995 1 0 0
|
|
mkface f1 pl1 -4000 8000 -5000 5000
|
|
bsection result ss f1 -a
|
|
|
|
set good_len 9265
|
|
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full tol
|
|
regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
|
|
if { [expr 1.*abs(${good_len} - $len)] > $tol } {
|
|
puts "Error : Length is bad"
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|
|
|
|
|
|
|