mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +03:00
191478a581
Incorrect curve is got after Decompose method applying. This method's using should be restrict. Decomposition is required if intersection curve contains some parts, where U-parameter on quadric surface changes too sharply. Decompose method is called for Cone and Sphere only (it does not require for Cylinder). Comments are changed by jgv. Test case for issue CR24427 Added test case bugs/moddata_3/bug24427_2 Compiler warning is liquidated. Test is corrected.
79 lines
2.3 KiB
Plaintext
Executable File
79 lines
2.3 KiB
Plaintext
Executable File
puts "TODO OCC12345 ALL: Faulty OCC825"
|
|
puts "TODO OCC12345 ALL: Error : The command is not valid. The square is"
|
|
|
|
pload QAcommands
|
|
|
|
puts "============"
|
|
puts "OCC825"
|
|
puts "============"
|
|
puts ""
|
|
######################################
|
|
## BRepAlgoAPI_Cut fails on sphere and b-spline face
|
|
######################################
|
|
## (old topology)
|
|
#####################################
|
|
|
|
if { [ catch { set info_result [OCC825 a1 a2 a3 res1 res2 0] } ] } {
|
|
puts "Faulty OCC825"
|
|
} else {
|
|
if { [regexp {FAILED} $info_result] } {
|
|
puts "Faulty OCC825"
|
|
}
|
|
|
|
set ExplodeList [explode res1]
|
|
if {[llength ${ExplodeList}] < 1} {
|
|
puts "Faulty OCC825"
|
|
}
|
|
|
|
set ExplodeList [explode res2]
|
|
if {[llength ${ExplodeList}] < 1} {
|
|
puts "Faulty OCC825"
|
|
}
|
|
checkshape res1
|
|
|
|
set nbFace_exp 0
|
|
set nbShell_exp 0
|
|
set nbSolid_exp 0
|
|
set nbCompSolid_exp 0
|
|
set nbCompound_exp 1
|
|
set nbShape_exp 1
|
|
|
|
set nb_info [nbshapes res1]
|
|
regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_face
|
|
regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_shell
|
|
regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_solid
|
|
regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nbCompSolid
|
|
regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
|
|
regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_Shape
|
|
|
|
if { $nb_face != $nbFace_exp } {
|
|
puts [format "Faulty : result must contain %s FACE(S), but it contains %s only." $nbFace_exp $nb_face]
|
|
}
|
|
|
|
if { $nb_shell != $nbShell_exp } {
|
|
puts [format "Faulty : result must contain %s SHELL(S), but it contains %s only." $nbShell_exp $nb_shell]
|
|
}
|
|
|
|
if { $nb_solid != $nbSolid_exp } {
|
|
puts [format "Faulty : result must contain %s SOLID(S), but it contains %s only." $nbSolid_exp $nb_solid]
|
|
}
|
|
|
|
if { $nbCompSolid != $nbCompSolid_exp } {
|
|
puts [format "Faulty : result must contain %s COMPSOLID(S), but it contains %s only." $nbCompSolid_exp $nbCompSolid]
|
|
}
|
|
|
|
if { $nb_compound != $nbCompound_exp } {
|
|
puts [format "Faulty : result must contain %s COMPOUND(S), but it contains %s only." $nbCompound_exp $nb_compound]
|
|
}
|
|
|
|
if { $nb_Shape != $nbShape_exp } {
|
|
puts [format "Faulty : result must contain %s SHAPE(S), but it contains %s only." $nbShape_exp $nb_Shape]
|
|
}
|
|
|
|
|
|
renamevar res2 result
|
|
}
|
|
|
|
set square 0
|
|
set 2dviewer 1
|