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
33 lines
602 B
Plaintext
Executable File
33 lines
602 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC22900"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Problem with shape displaying in shading mode
|
|
######################################################################################
|
|
|
|
set BugNumber OCC22900
|
|
|
|
set x1 204
|
|
set y1 202
|
|
|
|
vertex v1 0 0 0
|
|
vertex v2 0 0 30
|
|
edge e1 v1 v2
|
|
pcone con1 5 0 10
|
|
ttranslate con1 0 0 30
|
|
compound con1 e1 c1
|
|
don c1
|
|
fit
|
|
vinit
|
|
vdisplay c1
|
|
vfit
|
|
vsetcolor c1 RED
|
|
vsetcolor c1 GREEN
|
|
vsetdispmode 1
|
|
vsetcolor c1 RED
|
|
|
|
checkcolor ${x1} ${y1} 1 0 0
|
|
|
|
set only_screen 1
|