0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug60
CommitLineData
61c421bf 1puts "========"
2puts "OCC60"
3puts "SAM723"
4puts "BUC60916"
5puts "========"
6
7vinit
8box b 10 10 10
9vdisplay b
10vfit
ccadc126 11vaspects -setwidth 5
61c421bf 12
13set x_coord 83
14set y_coord 337
15
ccadc126 16if { [vreadpixel ${x_coord} ${y_coord} rgb name] != "YELLOW" } {
17 puts "Error : color is not yellow"
18}
61c421bf 19
20set xmin 1
21set ymin 1
22set xmax 409
23set ymax 300
24
25# Select part of box
26OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
27OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
28
29set Selection_R 0.8
30set Selection_G 0.8
31set Selection_B 0.8
32
ccadc126 33if { [vreadpixel ${x_coord} ${y_coord} rgb name] != "GRAY80" } {
34 puts "Error : color is not gray"
35}
61c421bf 36
5747059b 37checkview -screenshot -3d -path ${imagedir}/${test_image}.png