mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
1951a27c98
Warning was fixed. Remarks were applied. - class VMap in Draw was removed - NCollection_DataMap is used to store objects - name of object is used to associate Tcl variable with the object - creation and changing of objects are correclty handled Redundant casts were removed. Initial value is restored if variable is protected. Tests for bug #24863 were added. Some test cases and tcl command "save" were improved. Useless using of upvar was removed.
60 lines
1.4 KiB
Plaintext
Executable File
60 lines
1.4 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 (work-around: ellipse is split into 2)"
|
|
|
|
|
|
ellipse e 10 60 0 1 0 0 5 3
|
|
trim e1 e 0 pi
|
|
trim e2 e pi 2*pi
|
|
mkedge ee1 e1
|
|
mkedge ee2 e2
|
|
wire w1 ee1 ee2
|
|
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_3 rthru2_4 } catch_result] } {
|
|
puts "Faulty ${BugNumber} : offsetshape is wrong"
|
|
}
|
|
|
|
if { [catch { set tolmaxres [tolmax result] } catch_result] } {
|
|
puts "Faulty ${BugNumber} : tolmax is wrong"
|
|
}
|
|
|
|
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
|
|
if { [catch { expr $maxtolerance } res] } {
|
|
puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
|
|
}
|
|
if { $maxtolerance > 1. } {
|
|
puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
|
|
}
|
|
|
|
set square 981.941
|
|
|
|
set nb_v_good 6
|
|
set nb_e_good 10
|
|
set nb_w_good 8
|
|
set nb_f_good 6
|
|
set nb_sh_good 1
|
|
set nb_sol_good 1
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 0
|
|
set nb_shape_good 32
|
|
|
|
set 2dviewer 0
|