mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-04 13:13:25 +03: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.
46 lines
1.0 KiB
Plaintext
Executable File
46 lines
1.0 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC5805"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
|
|
######################################################
|
|
|
|
set BugNumber OCC5805
|
|
|
|
puts "demonstration of pipes and hollowing for GTISoft"
|
|
puts ""
|
|
puts "Scenario 2A: Hollowed elliptical cylinder - ThroughSection and MakeThickSolid"
|
|
|
|
ellipse e 10 60 0 1 0 0 5 3
|
|
mkedge ee e
|
|
wire w1 ee
|
|
copy w1 w2
|
|
ttranslate w2 -20 0 0
|
|
|
|
if { [catch { thrusections rthru2 1 1 w1 w2 } catch_result] } {
|
|
puts "Faulty ${BugNumber} : thrusections is wrong"
|
|
}
|
|
|
|
explode rthru2 f
|
|
|
|
if { [catch { offsetshape result rthru2 -0.5 rthru2_2 rthru2_3 } catch_result] } {
|
|
puts "Faulty ${BugNumber} : offsetshape is wrong"
|
|
}
|
|
|
|
checkmaxtol result -min_tol 1.
|
|
|
|
set square 982.254
|
|
|
|
set nb_v_good 3
|
|
set nb_e_good 5
|
|
set nb_w_good 6
|
|
set nb_f_good 4
|
|
set nb_sh_good 1
|
|
set nb_sol_good 1
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 0
|
|
set nb_shape_good 20
|
|
|
|
set 2dviewer 0
|