mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
8415a280ed
Standard_Boolean parameter theCopy with default value Standard_False was added to methods LocOpe_WiresOnShape::Bind to determine whether bind passing shape or its copy. Tolerance post Build (Perform) fix was created for - BiTgte_Blend, - LocOpe_Spliter. Commands checkshape were added to tests: - bugs modalg_2 bug22864, - bug22946, - modalg_4 bug8842_1. Minor change in BRepFeat_SplitShape.cxx.
105 lines
2.6 KiB
Plaintext
Executable File
105 lines
2.6 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC22864"
|
|
puts "============"
|
|
puts ""
|
|
##############################################################################################
|
|
# The algorithm BiTgte_Blend obtains instable results
|
|
##############################################################################################
|
|
|
|
set BugNumber OCC22864
|
|
|
|
restore [locate_data_file bug22864_face1.brep] f1
|
|
checkshape f1
|
|
restore [locate_data_file bug22864_face2.brep] f2
|
|
checkshape f2
|
|
|
|
shape aShape C
|
|
add f1 aShape
|
|
add f2 aShape
|
|
|
|
#
|
|
set status 0
|
|
#
|
|
set nb_v_good 2
|
|
set nb_e_good 3
|
|
set nb_w_good 1
|
|
set nb_f_good 1
|
|
set nb_sh_good 0
|
|
set nb_sol_good 0
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 1
|
|
set nb_shape_good 8
|
|
#
|
|
set Numbers 11
|
|
#
|
|
for {set i 0} {$i < ${Numbers}} {incr i} {
|
|
puts "i=$i"
|
|
rollingball result aShape 15 @ f1 f2
|
|
checkshape result
|
|
|
|
set nb_info [nbshapes result]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v
|
|
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_e
|
|
regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full nb_w
|
|
regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_f
|
|
regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_sh
|
|
regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_sol
|
|
regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nb_compsol
|
|
regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
|
|
regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_shape
|
|
|
|
if {$nb_v != $nb_v_good || $nb_e != $nb_e_good ||
|
|
$nb_w != $nb_w_good || $nb_f != $nb_f_good ||
|
|
$nb_sh != $nb_sh_good || $nb_sol != $nb_sol_good ||
|
|
$nb_compsol != $nb_compsol_good || $nb_compound != $nb_compound_good ||
|
|
$nb_shape != $nb_shape_good } {
|
|
set status 1
|
|
}
|
|
|
|
set aFile $imagedir/${test_image}.brep
|
|
puts "aFile=${aFile}"
|
|
file delete ${aFile}
|
|
if { [file exists ${aFile}] } {
|
|
puts "There is old ${aFile} file; Error"
|
|
set status 1
|
|
}
|
|
#
|
|
save result ${aFile}
|
|
catch {exec chmod 777 ${aFile}}
|
|
if { ![file exists ${aFile}] } {
|
|
puts "There is not ${aFile} file; save command: Error"
|
|
set status 1
|
|
}
|
|
|
|
set fp [open ${aFile} "r"]
|
|
set Log [read -nonewline ${fp}]
|
|
close ${fp}
|
|
#
|
|
if {$i == 0} {
|
|
set StandardLog ${Log}
|
|
} else {
|
|
set info_result [string compare ${Log} ${StandardLog}]
|
|
if {${info_result} == 0} {
|
|
# Log == StandardLog
|
|
puts "Log == StandardLog"
|
|
} else {
|
|
# Log != StandardLog
|
|
set status 1
|
|
puts "Log != StandardLog"
|
|
}
|
|
}
|
|
}
|
|
|
|
# Resume
|
|
puts ""
|
|
if {${status} == 0} {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
set square 6935.38
|
|
set 2dviewer 0
|
|
|
|
|