projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Correction of testing case for issue 24374
[occt.git]
/
tests
/
bugs
/
vis
/
ger61351_2
1
puts "==============="
2
puts " GER61351 "
3
puts " CASE 2 "
4
puts "==============="
5
puts ""
6
puts "=================================="
7
puts "It takes visual check for this BUG"
8
puts "=================================="
9
10
vinit
11
12
GER61351 0 255 0
13
14
set x_coord 200
15
set y_coord 200
16
17
checkcolor $x_coord $y_coord 0 1 0
18
19
if {$stat != 1} {
20
puts "Error : Background color is NOT 0 1 0."
21
}
22
23
set only_screen 1