projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
e4f4dc8b7e6fe8d07c310b5aed61286bf796b403
[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