0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / ger61351_6
1 puts "==============="
2 puts "    GER61351   "
3 puts "============================"
4 puts "CASE 6 takes visual check   "
5 puts "============================"
6
7 vinit
8 box b 20 10 30
9 GER61351 b CYAN3
10 vfit
11
12 set x_coord 88
13 set y_coord 316
14
15 checkcolor $x_coord $y_coord 0 0.8 0.8
16
17 if {$stat != 1} {
18    puts "Error : Box color is NOT CYAN3"
19 }
20
21 checkview -screenshot -3d -path ${imagedir}/${test_image}.png