1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-06-05 11:24:17 +03:00
occt/tests/bugs/modalg/bug21909
apn 809eca9db6 Added test cases to folders /bugs/modalg and /bugs/moddata from chl grid.
Modified TODO in some offset cases.
Deleted the same test cases bug697_* in /bugs/modalg
Deleted test cases which is based on v2d commands
Added test cases to folder bugs
2013-01-25 16:22:41 +04:00

75 lines
1.5 KiB
Plaintext
Executable File

pload QAcommands
puts "============"
puts "OCC21909"
puts "============"
puts ""
#######################################################################
# The surface is visualized with rendering errors
#######################################################################
set BugNumber OCC21909
# Data
set scale 57.547428234801195
set center_X -29.161882474505589
set center_Y -27.085456554411167
set proj_X -0.25567048788070679
set proj_Y -0.92769843339920044
set proj_Z 0.27204453945159912
set up_X 0.43156850337982178
set up_Y 0.14228194952011108
set up_Z 0.89078855514526367
set at_X 53.189125061035156
set at_Y -25.674787521362305
set at_Z -2.9377093315124512
set x1 190
set y1 216
set y2 228
#
restore [locate_data_file OCC21909-render_error.brep] result
vinit
vdisplay result
vfit
vsetdispmode 1
vfit
vviewparams ${scale} ${center_X} ${center_Y} \
${proj_X} ${proj_Y} ${proj_Z} \
${up_X} ${up_Y} ${up_Z} \
${at_X} ${at_Y} ${at_Z}
vmoveto ${x1} ${y1}
vmoveto ${x1} ${y1}
set status 0
for {set i ${y1} } {$i <= ${y2} } {incr i} {
set Color1 [QAGetPixelColor ${x1} ${i}]
set R1 [lindex ${Color1} 2]
set G1 [lindex ${Color1} 5]
set B1 [lindex ${Color1} 8]
puts "x = ${x1} y = ${i} R = ${R1} G = ${G1} B = ${B1}"
if { ${R1} == 0 && ${G1} == 0 && ${B1} == 0 } {
incr status
puts "Error : rendering x = ${x1} y = ${i}"
}
}
if { ${status} != 0 } {
puts "Faulty ${BugNumber}"
} else {
puts "OK ${BugNumber}"
}
set 3dviewer 0