mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-18 07:57:31 +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.
50 lines
1.1 KiB
Plaintext
Executable File
50 lines
1.1 KiB
Plaintext
Executable File
puts "TODO OCC25925 ALL: ERROR. offsetperform operation not done."
|
|
puts "TODO OCC25925 ALL: Faulty OCC5805 : offsetshape is wrong"
|
|
puts "TODO OCC25925 ALL: Tcl Exception:"
|
|
puts "TODO OCC25925 ALL: TEST INCOMPLETE"
|
|
|
|
puts "============"
|
|
puts "OCC5805"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
|
|
######################################################
|
|
|
|
set BugNumber OCC5805
|
|
|
|
restore [locate_data_file OCC5805.brep] a
|
|
|
|
decho off
|
|
set che_a [checkshape a]
|
|
decho on
|
|
|
|
if { [regexp {Faulty} $che_a] } {
|
|
puts "Faulty ${BugNumber} : checkshape is wrong for a"
|
|
}
|
|
|
|
explode a f
|
|
|
|
offsetparameter 1e-7 c a
|
|
offsetload a -1 a_6
|
|
|
|
if { [catch { offsetperform result } catch_result] } {
|
|
puts "Faulty ${BugNumber} : offsetshape is wrong"
|
|
}
|
|
|
|
checkmaxtol result -min_tol 1.
|
|
|
|
set square 1185.03
|
|
|
|
set nb_v_good 10
|
|
set nb_e_good 15
|
|
set nb_w_good 7
|
|
set nb_f_good 7
|
|
set nb_sh_good 1
|
|
set nb_sol_good 1
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 0
|
|
set nb_shape_good 41
|
|
|
|
set 2dviewer 0
|