mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-25 09:07:26 +08:00
23 lines
495 B
Plaintext
Executable File
23 lines
495 B
Plaintext
Executable File
puts "==============="
|
|
puts " GER61351 "
|
|
puts " CASE 2 "
|
|
puts "==============="
|
|
puts ""
|
|
puts "=================================="
|
|
puts "It takes visual check for this BUG"
|
|
puts "=================================="
|
|
|
|
vinit
|
|
|
|
GER61351 0 255 0
|
|
|
|
set x_coord 200
|
|
set y_coord 200
|
|
|
|
#checkcolor $x_coord $y_coord 0 1 0
|
|
if {"[vreadpixel $x_coord $y_coord rgb name]" != "GREEN"} {
|
|
puts "Error : Background color is NOT 0 1 0."
|
|
}
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|