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