mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-07 09:47:21 +08: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
36 lines
688 B
Plaintext
Executable File
36 lines
688 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC23193"
|
|
puts "============"
|
|
puts ""
|
|
###########################################################################
|
|
# Some triangles are inverted when writing an STL file
|
|
###########################################################################
|
|
pload QAcommands
|
|
|
|
|
|
set aFile $imagedir/bug23193_sample.stl
|
|
|
|
vinit
|
|
stepread [locate_data_file bug23193_sample.stp] a *
|
|
writestl a_1 ${aFile} 0
|
|
|
|
meshfromstl m1 ${aFile}
|
|
meshcolors m1 elem2 1
|
|
vrotate 4 0 0
|
|
vfit
|
|
|
|
set x_coord 189
|
|
set y_coord 236
|
|
|
|
#checkcolor $x_coord $y_coord 0 0 0.7
|
|
|
|
if { "[vreadpixel $x_coord $y_coord rgb name]" != "MATRABLUE" } {
|
|
puts "Error : There is missing triangle"
|
|
}
|
|
|
|
set only_screen 1
|
|
|
|
|
|
|
|
|