mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-26 10:19:45 +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
167 lines
3.5 KiB
Plaintext
Executable File
167 lines
3.5 KiB
Plaintext
Executable File
|
|
puts "================"
|
|
puts "OCC74"
|
|
puts "BUC61051"
|
|
puts "================"
|
|
puts ""
|
|
|
|
# Data
|
|
set Shape_X 100
|
|
set Shape_Y 346
|
|
|
|
set Vertex_X 29
|
|
set Vertex_Y 305
|
|
|
|
set Edge_X ${Shape_X}
|
|
set Edge_Y ${Shape_Y}
|
|
|
|
set Wire_X ${Shape_X}
|
|
set Wire_Y ${Shape_Y}
|
|
|
|
set Face_X ${Shape_X}
|
|
set Face_Y ${Shape_Y}
|
|
|
|
set Shell_X ${Shape_X}
|
|
set Shell_Y ${Shape_Y}
|
|
|
|
set Solid_X ${Shape_X}
|
|
set Solid_Y ${Shape_Y}
|
|
|
|
# Display box
|
|
vinit
|
|
box b 10 10 10
|
|
vdisplay b
|
|
vfit
|
|
vaspects -setwidth 5
|
|
|
|
### FIRST PART
|
|
|
|
# Check Shape color
|
|
if { [vreadpixel ${Shape_X} ${Shape_Y} rgb name] != "YELLOW" } {
|
|
puts "Error : shape color is not yellow"
|
|
}
|
|
|
|
# Check Vertex color
|
|
if { [vreadpixel ${Vertex_X} ${Vertex_Y} rgb name] != "YELLOW" } {
|
|
puts "Error : vertex color is not yellow"
|
|
}
|
|
|
|
### SECOND PART
|
|
|
|
# Check Shape color
|
|
vmoveto 1 1
|
|
set SetSelectMode 0
|
|
OCC74_set b ${SetSelectMode}
|
|
set GetSelectMode [OCC74_get b]
|
|
if { ${GetSelectMode} != ${SetSelectMode} } {
|
|
puts "Select Mode = ${GetSelectMode}"
|
|
puts "OCC74: Get Select Mode Error "
|
|
}
|
|
vmoveto ${Shape_X} ${Shape_Y}
|
|
|
|
if { [vreadpixel ${Shape_X} ${Shape_Y} rgb name] != "CYAN1" } {
|
|
puts "Error : shape color is not cyan"
|
|
}
|
|
|
|
# Check Vertex color
|
|
vmoveto 1 1
|
|
set SetSelectMode 1
|
|
OCC74_set b ${SetSelectMode}
|
|
set GetSelectMode [OCC74_get b]
|
|
if { ${GetSelectMode} != ${SetSelectMode} } then {
|
|
puts "Select Mode = ${GetSelectMode}"
|
|
puts "OCC74: Get Select Mode Error "
|
|
}
|
|
vmoveto ${Vertex_X} ${Vertex_Y}
|
|
|
|
checkcolor ${Vertex_X} ${Vertex_Y} 0 1 1
|
|
|
|
# Check Edge color
|
|
vmoveto 1 1
|
|
set SetSelectMode 2
|
|
OCC74_set b ${SetSelectMode}
|
|
set GetSelectMode [OCC74_get b]
|
|
if { ${GetSelectMode} != ${SetSelectMode} } then {
|
|
puts "Select Mode = ${GetSelectMode}"
|
|
puts "OCC74: Get Select Mode Error "
|
|
}
|
|
vmoveto ${Edge_X} ${Edge_Y}
|
|
|
|
checkcolor ${Edge_X} ${Edge_Y} 0 1 1
|
|
|
|
# Check Wire color
|
|
vmoveto 1 1
|
|
set SetSelectMode 3
|
|
OCC74_set b ${SetSelectMode}
|
|
set GetSelectMode [OCC74_get b]
|
|
if { ${GetSelectMode} != ${SetSelectMode} } then {
|
|
puts "Select Mode = ${GetSelectMode}"
|
|
puts "OCC74: Get Select Mode Error "
|
|
}
|
|
vmoveto ${Wire_X} ${Wire_Y}
|
|
|
|
checkcolor ${Wire_X} ${Wire_Y} 0 1 1
|
|
|
|
# Check Face color
|
|
vmoveto 1 1
|
|
set SetSelectMode 4
|
|
OCC74_set b ${SetSelectMode}
|
|
set GetSelectMode [OCC74_get b]
|
|
if { ${GetSelectMode} != ${SetSelectMode} } then {
|
|
puts "Select Mode = ${GetSelectMode}"
|
|
puts "OCC74: Get Select Mode Error "
|
|
}
|
|
vmoveto ${Face_X} ${Face_Y}
|
|
|
|
checkcolor ${Face_X} ${Face_Y} 0 1 1
|
|
|
|
# Check Shell color
|
|
vmoveto 1 1
|
|
set SetSelectMode 5
|
|
OCC74_set b ${SetSelectMode}
|
|
set GetSelectMode [OCC74_get b]
|
|
if { ${GetSelectMode} != ${SetSelectMode} } then {
|
|
puts "Select Mode = ${GetSelectMode}"
|
|
puts "OCC74: Get Select Mode Error "
|
|
}
|
|
vmoveto ${Shell_X} ${Shell_Y}
|
|
|
|
checkcolor ${Shell_X} ${Shell_Y} 0 1 1
|
|
|
|
# Check Solid color
|
|
vmoveto 1 1
|
|
set SetSelectMode 6
|
|
OCC74_set b ${SetSelectMode}
|
|
set GetSelectMode [OCC74_get b]
|
|
if { ${GetSelectMode} != ${SetSelectMode} } then {
|
|
puts "Select Mode = ${GetSelectMode}"
|
|
puts "OCC74: Get Select Mode Error "
|
|
}
|
|
vmoveto ${Solid_X} ${Solid_Y}
|
|
|
|
checkcolor ${Solid_X} ${Solid_Y} 0 1 1
|
|
|
|
### THIRD PART
|
|
|
|
set SetSelectMode -1
|
|
OCC74_set b ${SetSelectMode}
|
|
set GetSelectMode [OCC74_get b]
|
|
if { ${GetSelectMode} != ${SetSelectMode} } then {
|
|
puts "Select Mode = ${GetSelectMode}"
|
|
puts "OCC74: Get Select Mode Error "
|
|
}
|
|
|
|
# Check Shape color
|
|
vmoveto 1 1
|
|
if { [vreadpixel ${Shape_X} ${Shape_Y} rgb name] != "YELLOW" } {
|
|
puts "Error : shape color is not yellow"
|
|
}
|
|
|
|
# Check Vertex color
|
|
vmoveto 1 1
|
|
if { [vreadpixel ${Vertex_X} ${Vertex_Y} rgb name] != "YELLOW" } {
|
|
puts "Error : vertex color is not yellow"
|
|
}
|
|
|
|
set only_screen 1
|