mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +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
72 lines
2.1 KiB
Plaintext
Executable File
72 lines
2.1 KiB
Plaintext
Executable File
puts "========"
|
|
puts "OCC349"
|
|
puts "========"
|
|
puts ""
|
|
puts "2. Fitall with hidden line removal algorithm works incorrect in the perspective view"
|
|
|
|
vinit
|
|
box b 100 900 300
|
|
vdisplay b
|
|
|
|
OCC280 1 1
|
|
|
|
vfit
|
|
|
|
set yellow_coords {{135 119} {387 33} {172 144} {28 190} {212 272} {60 343} {26 255} {389 113} {60 276}}
|
|
|
|
set black_coords {{160 257} {365 150} {353 99}}
|
|
|
|
#
|
|
# ___________2________________
|
|
# /| /|
|
|
# / | / |
|
|
# / | / |
|
|
# / | / |
|
|
# / | / |
|
|
# 1 | 3 |
|
|
# / | / |
|
|
# / | / |
|
|
# / | / |
|
|
# / | / |
|
|
# ----------------4------------ |
|
|
# | | | |
|
|
# | | | |
|
|
# | | | |
|
|
# | 10 | 11
|
|
# | | | |
|
|
# | | | |
|
|
# | | | |
|
|
# | | | |
|
|
# | | | |
|
|
# 9 | 12 |
|
|
# | |___________6____|__________|
|
|
# | / | /
|
|
# | / | /
|
|
# | / | /
|
|
# | / | /
|
|
# | 5 | /
|
|
# | / | 7
|
|
# | / | /
|
|
# | / | /
|
|
# | / | /
|
|
# |/ |/
|
|
# |--------------8------------|
|
|
#
|
|
#
|
|
|
|
vaspects -setwidth 5
|
|
|
|
foreach i $yellow_coords {
|
|
if {"[vreadpixel [lindex $i 0] [lindex $i 1] rgb name]" != "YELLOW" } {
|
|
puts "Error : ${i} is not yellow"
|
|
}
|
|
}
|
|
|
|
foreach i $black_coords {
|
|
if {"[vreadpixel [lindex $i 0] [lindex $i 1] rgb name]" != "BLACK" } {
|
|
puts "Error : ${i} is not black"
|
|
}
|
|
}
|
|
|
|
set only_screen 0
|