mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-30 12:14:08 +03:00
ccadc126ba
Usage of QAGetPixelColor were checked and corrected. Using simple comparison instead of regexp. Improved usage of command vreadpixel for standard colors. Command QAGetPixelColor was dropped from TKQADraw. Procedures "checkcolor" and auxiliary "checkpoint" were moved to DrawResources/TestCommands.tcl Some test cases using "checkcolor" for picking line color were simplified. Procedures checkcolor and checkpoint were changed to handle situation when pixel is out of view. Removed unnecessary use of command "vaspects -setwidth" in tests. Revert -setwidth change in test bugs/vis/bug23525
349 lines
11 KiB
Plaintext
Executable File
349 lines
11 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC23226"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Extend OpenGl_Context to store map of shared GPU resources
|
|
#######################################################################
|
|
|
|
set BugNumber OCC23226
|
|
|
|
#
|
|
# This test is modified test cdl/934/C2
|
|
#
|
|
|
|
# this test performs automatical test of primitives array objects by pixel checking
|
|
# this test ALSO DUMPS two result images (the primitives on the images should have
|
|
# same contours, WIREFRAME OBJECTS ARE IN YELLOW-RED COLORS, SHADED OBJECTS ARE
|
|
# BLUE-GREEN COLORS)
|
|
|
|
set BUGNUMBER OCC22583
|
|
set status 0
|
|
set ImageName1 "occ22583-image1.png"
|
|
set ImageName2 "occ22583-image2.png"
|
|
|
|
# set window width and height, this values should correspond to a
|
|
# view window sizes to pass the test
|
|
set view_width 405
|
|
set view_height 405
|
|
|
|
# colors used for tests
|
|
# yellow
|
|
set colorY_R 1
|
|
set colorY_G 1
|
|
set colorY_B 0
|
|
|
|
# red
|
|
set colorR_R 1
|
|
set colorR_G 0
|
|
set colorR_B 0
|
|
|
|
# blue
|
|
set colorB_R 0
|
|
set colorB_G 1
|
|
set colorB_B 1
|
|
|
|
# green
|
|
set colorG_R 0
|
|
set colorG_G 1
|
|
set colorG_B 0
|
|
|
|
# limit of range where the pixels are tested (sets number of iterations)
|
|
# 30 pixels in width and in height will be enough to test all primitives
|
|
set limit_x 3
|
|
set limit_y 3
|
|
|
|
# this procedure is internal and will be removed at the end of the script
|
|
# generate points for primitive
|
|
proc generate_points {x y z r g b} {
|
|
# define top plane points
|
|
global pts01 pts02 pts03 pts04 pts05 pts06
|
|
set pts01 "v [expr "$x-5"] [expr "$y+5"] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
set pts02 "v [expr "$x "] [expr "$y+5"] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
set pts03 "v [expr "$x "] [expr "$y "] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
set pts04 "v [expr "$x+5"] [expr "$y "] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
set pts05 "v [expr "$x-5"] [expr "$y-5"] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
set pts06 "v [expr "$x "] [expr "$y-5"] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
}
|
|
|
|
# this procedure is internal and will be removed at the end of the script
|
|
# check pixels of primitive
|
|
proc check_primitive {name1 r g b args} {
|
|
global limit_x limit_y view_width view_height
|
|
# show only primitive that we interested in to test
|
|
vdonly $name1 $args
|
|
vtop
|
|
vfit
|
|
|
|
# move cursor not to select shape
|
|
vmoveto 0 0
|
|
vmoveto 0 0
|
|
|
|
# test pixels in a top left corner
|
|
set TestPassed 0
|
|
set HasPixel 0
|
|
for {set i 0} {$i < $limit_x} {incr i} {
|
|
for {set j 0} {$j < $limit_y} {incr j} {
|
|
if { "[vreadpixel $i $j rgb]" == "$r $g $b" } {
|
|
set HasPixel 1
|
|
}
|
|
}
|
|
}
|
|
if { $HasPixel == 1 } {
|
|
set TestPassed [expr $TestPassed + 1]
|
|
} else {
|
|
set TestPassed 0
|
|
}
|
|
|
|
# test pixels in bottom left corner
|
|
set HasPixel 1
|
|
for {set i 0} {$i < $limit_x} {incr i} {
|
|
for {set j 0} {$j < $limit_y} {incr j} {
|
|
set coord_y [expr $view_height-$j]
|
|
if { "[vreadpixel $i $coord_y rgb]" == "$r $g $b" } {
|
|
set HasPixel 1
|
|
}
|
|
}
|
|
}
|
|
if { $HasPixel == 1 } {
|
|
set TestPassed [expr $TestPassed + 1]
|
|
} else {
|
|
set TestPassed 0
|
|
}
|
|
|
|
# test pixels in center right corner
|
|
set HasPixel 1
|
|
for {set i 0} {$i < $limit_x} {incr i} {
|
|
for {set j 0} {$j < $limit_y} {incr j} {
|
|
set coord_x [expr ($view_width-$limit_y) + $i]
|
|
set coord_y [expr ($view_height-$limit_y)/2 + $j]
|
|
if { "[vreadpixel $coord_x $coord_y rgb]" == "$r $g $b" } {
|
|
set HasPixel 1
|
|
}
|
|
}
|
|
}
|
|
if { $HasPixel == 1 } {
|
|
set TestPassed [expr $TestPassed + 1]
|
|
} else {
|
|
set TestPassed 0
|
|
}
|
|
|
|
# test pixels in center left corner (shouldn't be anything)
|
|
set HasPixel 0
|
|
for {set i 0} {$i < $limit_x} {incr i} {
|
|
for {set j 0} {$j < $limit_y} {incr j} {
|
|
set coord_x [expr $view_width/4 + $i]
|
|
set coord_y [expr ($view_height-$limit_y)/2 + $j]
|
|
if { "[vreadpixel $coord_x $coord_y rgb]" == "$r $g $b" } {
|
|
set HasPixel 1
|
|
}
|
|
}
|
|
}
|
|
if { $HasPixel == 1 } {
|
|
set TestPassed 0
|
|
} else {
|
|
set TestPassed [expr $TestPassed + 1]
|
|
}
|
|
|
|
# show all primitives
|
|
vdisplayall
|
|
vtop
|
|
vfit
|
|
|
|
# return a result
|
|
if { ${TestPassed} == 4 } {
|
|
return 1
|
|
} else {
|
|
return 0
|
|
}
|
|
}
|
|
|
|
# ### THIS IS THE HEAD LOOP OF THE TEST ####################
|
|
# During this test primitives are created and displayed
|
|
# with commands vdrawparray, and verified for consistency
|
|
# with check_primitive procedure. In spite of the fact that there
|
|
# a lot of code below, it's similar and divided on the similar
|
|
# blocks of code.
|
|
# The iteration loop is intended to check primitives with
|
|
# "vertex buffer objects" turned off (vbo_enable = 0) and
|
|
# turned on (vbo_enable = 1)
|
|
|
|
for {set vbo_enable 0} {$vbo_enable < 2} {incr vbo_enable} {
|
|
vinit
|
|
if { $vbo_enable == 0 } {
|
|
vvbo 0
|
|
puts "TEST WITH VBO is OFF"
|
|
}
|
|
if { $vbo_enable == 1 } {
|
|
vvbo 1
|
|
puts "TEST WITH VBO is ON"
|
|
}
|
|
|
|
## vinit
|
|
veraseall
|
|
vclear
|
|
|
|
# this points are only to simplify visiual check of dumped image
|
|
vpoint point1 65 0 0
|
|
vpoint point2 -145 0 0
|
|
|
|
# ****************************** Graphic3d_ArrayOfPoints ****************************** #
|
|
puts "Graphic3d_ArrayOfPoints: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points 60 0 0 $colorY_R $colorY_G $colorY_B
|
|
eval vdrawparray pt01 points $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06
|
|
|
|
# ****************************** Graphic3d_ArrayOfSegments ****************************** #
|
|
puts "Graphic3d_ArrayOfSegments: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points 50 0 0 $colorY_R $colorY_G $colorY_B
|
|
eval vdrawparray seg01 segments $vbo_enable $pts02 $pts01 $pts01 $pts03 $pts03 $pts05 $pts05 $pts06 $pts06 $pts04 $pts04 $pts02
|
|
#
|
|
# 2: edges
|
|
#
|
|
generate_points 40 0 0 $colorR_R $colorR_G $colorR_B
|
|
eval vdrawparray seg02 segments $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 1 e 2 e 2 e 4 e 4 e 6 e 6 e 5 e 5 e 3 e 3 e 1
|
|
|
|
# ****************************** Graphic3d_ArrayOfPolylines ****************************** #
|
|
puts "Graphic3d_ArrayOfPolylines: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points 30 0 0 $colorY_R $colorY_G $colorY_B
|
|
eval vdrawparray pline01 polylines $vbo_enable $pts02 $pts01 $pts03 $pts05 $pts06 $pts04 $pts02
|
|
#
|
|
# 2: edges
|
|
#
|
|
generate_points 20 0 0 $colorR_R $colorR_G $colorR_B
|
|
eval vdrawparray pline02 polylines $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 2 e 4 e 6 e 5 e 3 e 1 e 2
|
|
#
|
|
# 3: bounds
|
|
#
|
|
generate_points 10 0 0 $colorY_R $colorY_G $colorY_B
|
|
eval vdrawparray pline03 polylines $vbo_enable ( b 3 ( $pts02 $pts01 $pts03 )), ( b 4 ( $pts03 $pts05 $pts06 $pts04 )), ( b 2 ( $pts04 $pts02 ))
|
|
#
|
|
# 4: verticies, bounds and edges
|
|
#
|
|
generate_points 0 0 0 $colorR_R $colorR_G $colorR_B
|
|
eval vdrawparray pline04 polylines $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 ( b 4 ( e 2 e 1 e 3 e 5 )), ( b 4 ( e 5 e 6 e 4 e 2 ))
|
|
|
|
# ****************************** Graphic3d_ArrayOfTriangles ****************************** #
|
|
puts "Graphic3d_ArrayOfTriangles: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -10 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray t01 triangles $vbo_enable ( $pts03 $pts02 $pts01 ) , ( $pts03 $pts04 $pts02 ) , ( $pts04 $pts03 $pts06 ) , ( $pts06 $pts03 $pts05 )
|
|
#
|
|
# 2: by edges
|
|
#
|
|
generate_points -20 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray t02 triangles $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 6 e 3 e 5 e 6 e 4 e 3 e 1 e 3 e 2 e 2 e 3 e 4
|
|
|
|
# ****************************** Graphic3d_ArrayOfTriangleFans ****************************** #
|
|
puts "Graphic3d_ArrayOfTriangleFans: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -30 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray tfan01 trianglefans $vbo_enable ( $pts02 $pts01 $pts03 $pts04 )
|
|
eval vdrawparray tfan02 trianglefans $vbo_enable ( $pts03 $pts05 $pts06 $pts04 )
|
|
#
|
|
# 2: bounds and verticies
|
|
#
|
|
generate_points -40 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray tfan03 trianglefans $vbo_enable ( b 4 ( $pts02 $pts01 $pts03 $pts04 )), ( b 4 ( $pts03 $pts05 $pts06 $pts04 ))
|
|
|
|
# ****************************** Graphic3d_ArrayOfTriangleStrips ****************************** #
|
|
puts "Graphic3d_ArrayOfTriangleStrips: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -50 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray tstrip01 trianglestrips $vbo_enable ( $pts06 $pts04 $pts03 $pts02 $pts01 )
|
|
eval vdrawparray tstrip02 trianglestrips $vbo_enable ( $pts03 $pts05 $pts06 )
|
|
#
|
|
# 2: bounds and verticies
|
|
#
|
|
generate_points -60 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray tstrip03 trianglestrips $vbo_enable ( b 5 ( $pts06 $pts04 $pts03 $pts02 $pts01 )) , ( b 3 ( $pts03 $pts05 $pts06 ))
|
|
|
|
# ****************************** Graphic3d_ArrayOfQuadrangles ****************************** #
|
|
puts "Graphic3d_ArrayOfQuadrangles: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -70 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray q01 quads $vbo_enable ( $pts01 $pts03 $pts04 $pts02 )
|
|
eval vdrawparray q02 quads $vbo_enable ( $pts03 $pts05 $pts06 $pts04 )
|
|
#
|
|
# 2: verticies and edges
|
|
#
|
|
generate_points -80 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray q03 quads $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 1 e 3 e 4 e 2 e 3 e 5 e 6 e 4
|
|
|
|
# ****************************** Graphic3d_ArrayOfQuadrangleStrips ****************************** #
|
|
puts "Graphic3d_ArrayOfQuadrangleStrips: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -90 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray qstrips01 quadstrips $vbo_enable ( $pts02 $pts01 $pts04 $pts03 $pts06 $pts05 )
|
|
#
|
|
# 2: verticies and edges
|
|
#
|
|
generate_points -100 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray qstrips02 quadstrips $vbo_enable ( b 4 ( $pts02 $pts01 $pts04 $pts03 )) , ( b 4 ( $pts04 $pts03 $pts06 $pts05 ))
|
|
|
|
# ****************************** Graphic3d_ArrayOfPolygons ****************************** #
|
|
puts "Graphic3d_ArrayOfPolygons: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -110 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray poly01 polygons $vbo_enable ( $pts04 $pts02 $pts01 $pts03 $pts05 $pts06 )
|
|
#
|
|
# 2: verticies and bounds
|
|
#
|
|
generate_points -120 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray poly02 polygons $vbo_enable ( b 5 ( $pts04 $pts02 $pts01 $pts03 $pts06 )) , ( b 3 ( $pts06 $pts03 $pts05 ))
|
|
#
|
|
# 3: verticies and edges
|
|
#
|
|
generate_points -130 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray poly03 polygons $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 4 e 2 e 1 e 3 e 5 e 6
|
|
#
|
|
# 4: vertices, bounds and edges
|
|
#
|
|
generate_points -140 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray poly04 polygons $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 ( b 5 ( e 4 e 2 e 1 e 3 e 6 )), ( b 3 ( e 6 e 3 e 5 ))
|
|
|
|
vtop
|
|
vfit
|
|
|
|
# dump resulted image
|
|
if { $vbo_enable == 0 } { vfeedback; vdump ${imagedir}/$ImageName1 }
|
|
if { $vbo_enable == 1 } { vfeedback; vdump ${imagedir}/$ImageName2 }
|
|
|
|
}
|
|
|
|
# delete internal procedures
|
|
rename generate_points ""
|
|
rename check_primitive ""
|
|
|
|
checkcolor 200 200 $colorG_R $colorG_G $colorG_B
|
|
checkcolor 220 200 $colorB_R $colorB_G $colorB_B
|
|
if { $stat == 1 } {
|
|
puts "BUG OK ${BUGNUMBER}"
|
|
} else {
|
|
puts "BUG FAULTY ${BUGNUMBER}"
|
|
}
|
|
|
|
set only_screen 1
|
|
|
|
|