mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
0025266: Debug statements in the source are getting flushed on to the console
Output to cout activated previously in Debug mode by #ifdef DEB is suppressed by using macro <PACKAGE>_DEB instead of DEB
This commit is contained in:
@@ -1,11 +1,11 @@
|
||||
puts "========"
|
||||
puts "OCC24533"
|
||||
puts "========"
|
||||
puts ""
|
||||
####################################################
|
||||
## Use 0 to check null handle instead of UndefinedHandleAccess
|
||||
####################################################
|
||||
|
||||
pload QAcommands
|
||||
|
||||
OCC24533
|
||||
puts "========"
|
||||
puts "OCC24533"
|
||||
puts "========"
|
||||
puts ""
|
||||
####################################################
|
||||
## Use 0 to check null handle instead of UndefinedHandleAccess
|
||||
####################################################
|
||||
|
||||
pload QAcommands
|
||||
|
||||
OCC24533
|
||||
|
@@ -1,21 +1,21 @@
|
||||
puts "============"
|
||||
puts "OCC23884"
|
||||
puts "============"
|
||||
puts ""
|
||||
######################################################
|
||||
# Boolean Fuse between two faces fails
|
||||
######################################################
|
||||
|
||||
restore [locate_data_file bug23884_fz72] b1
|
||||
restore [locate_data_file bug23884_fz124] b2
|
||||
|
||||
bop b1 b2
|
||||
bopfuse result
|
||||
|
||||
set square 2415.65
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
puts "============"
|
||||
puts "OCC23884"
|
||||
puts "============"
|
||||
puts ""
|
||||
######################################################
|
||||
# Boolean Fuse between two faces fails
|
||||
######################################################
|
||||
|
||||
restore [locate_data_file bug23884_fz72] b1
|
||||
restore [locate_data_file bug23884_fz124] b2
|
||||
|
||||
bop b1 b2
|
||||
bopfuse result
|
||||
|
||||
set square 2415.65
|
||||
set 2dviewer 0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
@@ -1,82 +1,82 @@
|
||||
puts "========="
|
||||
puts "OCC24612"
|
||||
puts "========="
|
||||
puts ""
|
||||
###########################################################
|
||||
# Wrong pcurve of the section curve
|
||||
###########################################################
|
||||
|
||||
set MaxTol 5.0e-7
|
||||
set NbCurv_OK 1
|
||||
restore [locate_data_file bug24612_b1.brep] b1
|
||||
restore [locate_data_file bug24612_b2.brep] b2
|
||||
|
||||
mksurface s1 b1
|
||||
bounds s1 U1f_exp U1l_exp V1f_exp V1l_exp
|
||||
|
||||
dval U1f_exp
|
||||
dval U1l_exp
|
||||
dval V1f_exp
|
||||
dval V1l_exp
|
||||
|
||||
set log [bopcurves b1 b2 -2d]
|
||||
|
||||
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
|
||||
|
||||
if {${NbCurv} != ${NbCurv_OK}} {
|
||||
puts "Error: ${NbCurv_OK} curve(s) expected, but ${NbCurv} found."
|
||||
}
|
||||
|
||||
if {${Toler} > ${MaxTol}} {
|
||||
puts "Error: Tolerance is too big!"
|
||||
}
|
||||
|
||||
#Theoretically, c2d1_1 must cover V-diapason of surface s1 fully.
|
||||
|
||||
set log [dump c2d1_1]
|
||||
|
||||
regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles
|
||||
puts "Degree=${Degree}"
|
||||
puts "Poles=${Poles}"
|
||||
puts "KnotsPoles=${KnotsPoles}"
|
||||
puts ""
|
||||
|
||||
set Pole 1
|
||||
set exp_string " +${Pole} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
|
||||
regexp ${exp_string} ${log} full U_begin V_begin
|
||||
|
||||
puts "Pole=${Pole}"
|
||||
puts "U_begin=${U_begin}"
|
||||
puts "V_begin=${V_begin}"
|
||||
dset V_begin ${V_begin}
|
||||
puts ""
|
||||
|
||||
set Pole ${Poles}
|
||||
set exp_string " +${Pole} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
|
||||
regexp ${exp_string} ${log} full U_end V_end
|
||||
|
||||
puts "Pole=${Pole}"
|
||||
puts "U_end=${U_end}"
|
||||
puts "V_end=${V_end}"
|
||||
dset V_end ${V_end}
|
||||
puts ""
|
||||
|
||||
set delta_f [dval V1l_exp-V_begin]
|
||||
|
||||
#ATTENTION!!! V_begin must be strictly equal V1l_exp (without any tolerance)
|
||||
if {${delta_f} != 0} {
|
||||
puts "Error: Bad value. V_begin = [dval V_begin], Vlast = [dval V1l_exp]."
|
||||
} else {
|
||||
puts "OK: Good value. V_begin matches with Vlast of surface."
|
||||
}
|
||||
|
||||
puts ""
|
||||
|
||||
set delta_l [dval V1f_exp-V_end]
|
||||
|
||||
#ATTENTION!!! V_end must be strictly equal V1f_exp (without any tolerance)
|
||||
if {${delta_l} != 0} {
|
||||
puts "Error: Bad value. V_end = [dval V_end], Vfirst = [dval V1f_exp]."
|
||||
} else {
|
||||
puts "OK: Good value. V_end matches with Vfirst of surface."
|
||||
}
|
||||
puts "========="
|
||||
puts "OCC24612"
|
||||
puts "========="
|
||||
puts ""
|
||||
###########################################################
|
||||
# Wrong pcurve of the section curve
|
||||
###########################################################
|
||||
|
||||
set MaxTol 5.0e-7
|
||||
set NbCurv_OK 1
|
||||
restore [locate_data_file bug24612_b1.brep] b1
|
||||
restore [locate_data_file bug24612_b2.brep] b2
|
||||
|
||||
mksurface s1 b1
|
||||
bounds s1 U1f_exp U1l_exp V1f_exp V1l_exp
|
||||
|
||||
dval U1f_exp
|
||||
dval U1l_exp
|
||||
dval V1f_exp
|
||||
dval V1l_exp
|
||||
|
||||
set log [bopcurves b1 b2 -2d]
|
||||
|
||||
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
|
||||
|
||||
if {${NbCurv} != ${NbCurv_OK}} {
|
||||
puts "Error: ${NbCurv_OK} curve(s) expected, but ${NbCurv} found."
|
||||
}
|
||||
|
||||
if {${Toler} > ${MaxTol}} {
|
||||
puts "Error: Tolerance is too big!"
|
||||
}
|
||||
|
||||
#Theoretically, c2d1_1 must cover V-diapason of surface s1 fully.
|
||||
|
||||
set log [dump c2d1_1]
|
||||
|
||||
regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles
|
||||
puts "Degree=${Degree}"
|
||||
puts "Poles=${Poles}"
|
||||
puts "KnotsPoles=${KnotsPoles}"
|
||||
puts ""
|
||||
|
||||
set Pole 1
|
||||
set exp_string " +${Pole} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
|
||||
regexp ${exp_string} ${log} full U_begin V_begin
|
||||
|
||||
puts "Pole=${Pole}"
|
||||
puts "U_begin=${U_begin}"
|
||||
puts "V_begin=${V_begin}"
|
||||
dset V_begin ${V_begin}
|
||||
puts ""
|
||||
|
||||
set Pole ${Poles}
|
||||
set exp_string " +${Pole} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
|
||||
regexp ${exp_string} ${log} full U_end V_end
|
||||
|
||||
puts "Pole=${Pole}"
|
||||
puts "U_end=${U_end}"
|
||||
puts "V_end=${V_end}"
|
||||
dset V_end ${V_end}
|
||||
puts ""
|
||||
|
||||
set delta_f [dval V1l_exp-V_begin]
|
||||
|
||||
#ATTENTION!!! V_begin must be strictly equal V1l_exp (without any tolerance)
|
||||
if {${delta_f} != 0} {
|
||||
puts "Error: Bad value. V_begin = [dval V_begin], Vlast = [dval V1l_exp]."
|
||||
} else {
|
||||
puts "OK: Good value. V_begin matches with Vlast of surface."
|
||||
}
|
||||
|
||||
puts ""
|
||||
|
||||
set delta_l [dval V1f_exp-V_end]
|
||||
|
||||
#ATTENTION!!! V_end must be strictly equal V1f_exp (without any tolerance)
|
||||
if {${delta_l} != 0} {
|
||||
puts "Error: Bad value. V_end = [dval V_end], Vfirst = [dval V1f_exp]."
|
||||
} else {
|
||||
puts "OK: Good value. V_end matches with Vfirst of surface."
|
||||
}
|
||||
|
@@ -1,53 +1,53 @@
|
||||
|
||||
puts "========================"
|
||||
puts "OCC137"
|
||||
puts "========================"
|
||||
###############################################################
|
||||
#Patch description:
|
||||
#
|
||||
#MIT010717 : 3D selection management
|
||||
#>>> MIT010717 : Selection management
|
||||
#
|
||||
# * Package OpenGl (OpenGl_execstruct.c)
|
||||
#
|
||||
# @ Avoid drawing quality problem on selected face,
|
||||
# enable/disable Z offset on highlighted faces.
|
||||
#
|
||||
#>>> MIT010717 : drawing management
|
||||
#
|
||||
# * Package OpenGl (OpenGl_indexpolygon.c, ...)
|
||||
#
|
||||
# @ Avoid to undraw faces with confused points
|
||||
###############################################################
|
||||
puts "========================"
|
||||
|
||||
vinit
|
||||
box b 10 10 10
|
||||
vdisplay b
|
||||
vfit
|
||||
vsetdispmode 1
|
||||
|
||||
puts "Only bottom face should be highlighted."
|
||||
|
||||
vselmode 4 1
|
||||
|
||||
OCC137 1
|
||||
OCC137_z
|
||||
|
||||
set x_coord 105
|
||||
set y_coord 348
|
||||
|
||||
vmoveto $x_coord $y_coord
|
||||
|
||||
set x_coord 105
|
||||
set y_coord 340
|
||||
|
||||
checkcolor $x_coord $y_coord 0 1 1
|
||||
|
||||
set x_coord 105
|
||||
set y_coord 340
|
||||
vviewparams -scale 60.6309 -proj 0.592163 -0.60038 -0.537482 -up 0.369921 -0.390032 0.843228 -at 3.29057034725635 6.73314999296002 6.55157729015654
|
||||
|
||||
checkcolor $x_coord $y_coord 0.78 0.54 0.09
|
||||
|
||||
set only_screen 1
|
||||
|
||||
puts "========================"
|
||||
puts "OCC137"
|
||||
puts "========================"
|
||||
###############################################################
|
||||
#Patch description:
|
||||
#
|
||||
#MIT010717 : 3D selection management
|
||||
#>>> MIT010717 : Selection management
|
||||
#
|
||||
# * Package OpenGl (OpenGl_execstruct.c)
|
||||
#
|
||||
# @ Avoid drawing quality problem on selected face,
|
||||
# enable/disable Z offset on highlighted faces.
|
||||
#
|
||||
#>>> MIT010717 : drawing management
|
||||
#
|
||||
# * Package OpenGl (OpenGl_indexpolygon.c, ...)
|
||||
#
|
||||
# @ Avoid to undraw faces with confused points
|
||||
###############################################################
|
||||
puts "========================"
|
||||
|
||||
vinit
|
||||
box b 10 10 10
|
||||
vdisplay b
|
||||
vfit
|
||||
vsetdispmode 1
|
||||
|
||||
puts "Only bottom face should be highlighted."
|
||||
|
||||
vselmode 4 1
|
||||
|
||||
OCC137 1
|
||||
OCC137_z
|
||||
|
||||
set x_coord 105
|
||||
set y_coord 348
|
||||
|
||||
vmoveto $x_coord $y_coord
|
||||
|
||||
set x_coord 105
|
||||
set y_coord 340
|
||||
|
||||
checkcolor $x_coord $y_coord 0 1 1
|
||||
|
||||
set x_coord 105
|
||||
set y_coord 340
|
||||
vviewparams -scale 60.6309 -proj 0.592163 -0.60038 -0.537482 -up 0.369921 -0.390032 0.843228 -at 3.29057034725635 6.73314999296002 6.55157729015654
|
||||
|
||||
checkcolor $x_coord $y_coord 0.78 0.54 0.09
|
||||
|
||||
set only_screen 1
|
||||
|
@@ -1,53 +1,53 @@
|
||||
|
||||
puts "========================"
|
||||
puts "OCC137"
|
||||
puts "========================"
|
||||
###############################################################
|
||||
#Patch description:
|
||||
#
|
||||
#MIT010717 : 3D selection management
|
||||
#>>> MIT010717 : Selection management
|
||||
#
|
||||
# * Package OpenGl (OpenGl_execstruct.c)
|
||||
#
|
||||
# @ Avoid drawing quality problem on selected face,
|
||||
# enable/disable Z offset on highlighted faces.
|
||||
#
|
||||
#>>> MIT010717 : drawing management
|
||||
#
|
||||
# * Package OpenGl (OpenGl_indexpolygon.c, ...)
|
||||
#
|
||||
# @ Avoid to undraw faces with confused points
|
||||
###############################################################
|
||||
puts "========================"
|
||||
|
||||
vinit
|
||||
box b 10 10 10
|
||||
vdisplay b
|
||||
vfit
|
||||
vsetdispmode 1
|
||||
|
||||
puts "Only bottom face should be highlighted."
|
||||
|
||||
OCC137 1
|
||||
OCC137_z
|
||||
|
||||
vselmode 4 1
|
||||
|
||||
set x_coord 105
|
||||
set y_coord 348
|
||||
|
||||
vmoveto $x_coord $y_coord
|
||||
|
||||
set x_coord 105
|
||||
set y_coord 340
|
||||
|
||||
checkcolor $x_coord $y_coord 0 1 1
|
||||
|
||||
vviewparams -scale 60.6309 -proj 0.592163 -0.60038 -0.537482 -up 0.369921 -0.390032 0.843228 -at 3.29057034725635 6.73314999296002 6.55157729015654
|
||||
set x_coord 105
|
||||
set y_coord 340
|
||||
|
||||
checkcolor $x_coord $y_coord 0.78 0.54 0.09
|
||||
|
||||
set only_screen 1
|
||||
|
||||
puts "========================"
|
||||
puts "OCC137"
|
||||
puts "========================"
|
||||
###############################################################
|
||||
#Patch description:
|
||||
#
|
||||
#MIT010717 : 3D selection management
|
||||
#>>> MIT010717 : Selection management
|
||||
#
|
||||
# * Package OpenGl (OpenGl_execstruct.c)
|
||||
#
|
||||
# @ Avoid drawing quality problem on selected face,
|
||||
# enable/disable Z offset on highlighted faces.
|
||||
#
|
||||
#>>> MIT010717 : drawing management
|
||||
#
|
||||
# * Package OpenGl (OpenGl_indexpolygon.c, ...)
|
||||
#
|
||||
# @ Avoid to undraw faces with confused points
|
||||
###############################################################
|
||||
puts "========================"
|
||||
|
||||
vinit
|
||||
box b 10 10 10
|
||||
vdisplay b
|
||||
vfit
|
||||
vsetdispmode 1
|
||||
|
||||
puts "Only bottom face should be highlighted."
|
||||
|
||||
OCC137 1
|
||||
OCC137_z
|
||||
|
||||
vselmode 4 1
|
||||
|
||||
set x_coord 105
|
||||
set y_coord 348
|
||||
|
||||
vmoveto $x_coord $y_coord
|
||||
|
||||
set x_coord 105
|
||||
set y_coord 340
|
||||
|
||||
checkcolor $x_coord $y_coord 0 1 1
|
||||
|
||||
vviewparams -scale 60.6309 -proj 0.592163 -0.60038 -0.537482 -up 0.369921 -0.390032 0.843228 -at 3.29057034725635 6.73314999296002 6.55157729015654
|
||||
set x_coord 105
|
||||
set y_coord 340
|
||||
|
||||
checkcolor $x_coord $y_coord 0.78 0.54 0.09
|
||||
|
||||
set only_screen 1
|
||||
|
@@ -1,28 +1,28 @@
|
||||
puts "============"
|
||||
puts "CR24901"
|
||||
puts "============"
|
||||
puts ""
|
||||
#######################################################################
|
||||
# Visualization - Incorrect area filled with capping color
|
||||
#######################################################################
|
||||
|
||||
vinit View1
|
||||
box b 10 10 10
|
||||
vdisplay b
|
||||
vsetdispmode 1
|
||||
|
||||
vclipplane create pln1
|
||||
vclipplane set pln1 object b
|
||||
vclipplane change pln1 equation 0 1 0 -5
|
||||
vclipplane change pln1 capping on
|
||||
vfit
|
||||
vmoveto 304 146
|
||||
|
||||
set x_coord 304
|
||||
set y_coord 146
|
||||
checkcolor $x_coord $y_coord 0 1 1
|
||||
if { $stat != 1 } {
|
||||
puts "Error : Highlighting is broken."
|
||||
}
|
||||
|
||||
set only_screen 1
|
||||
puts "============"
|
||||
puts "CR24901"
|
||||
puts "============"
|
||||
puts ""
|
||||
#######################################################################
|
||||
# Visualization - Incorrect area filled with capping color
|
||||
#######################################################################
|
||||
|
||||
vinit View1
|
||||
box b 10 10 10
|
||||
vdisplay b
|
||||
vsetdispmode 1
|
||||
|
||||
vclipplane create pln1
|
||||
vclipplane set pln1 object b
|
||||
vclipplane change pln1 equation 0 1 0 -5
|
||||
vclipplane change pln1 capping on
|
||||
vfit
|
||||
vmoveto 304 146
|
||||
|
||||
set x_coord 304
|
||||
set y_coord 146
|
||||
checkcolor $x_coord $y_coord 0 1 1
|
||||
if { $stat != 1 } {
|
||||
puts "Error : Highlighting is broken."
|
||||
}
|
||||
|
||||
set only_screen 1
|
||||
|
@@ -4,16 +4,16 @@ puts "============"
|
||||
puts ""
|
||||
#######################################################################
|
||||
# Cappings have gray tint if setting color with vclipplane command.
|
||||
#######################################################################
|
||||
box b 100 100 100
|
||||
vinit
|
||||
vsetdispmode 1
|
||||
vdisplay b
|
||||
vclipplane create pln1
|
||||
vclipplane change pln1 equation 0 0 -1 20
|
||||
vclipplane set pln1 object b
|
||||
vclipplane change pln1 capping on
|
||||
vclipplane change pln1 capping color 1.0 1.0 1.0
|
||||
#######################################################################
|
||||
box b 100 100 100
|
||||
vinit
|
||||
vsetdispmode 1
|
||||
vdisplay b
|
||||
vclipplane create pln1
|
||||
vclipplane change pln1 equation 0 0 -1 20
|
||||
vclipplane set pln1 object b
|
||||
vclipplane change pln1 capping on
|
||||
vclipplane change pln1 capping color 1.0 1.0 1.0
|
||||
vtop
|
||||
vfit
|
||||
|
||||
|
Reference in New Issue
Block a user