0032237: Visualization, TKOpenGl - fix Gouraud shading within perspective camera...
[occt.git] / tests / bugs / vis / bug22018
CommitLineData
3bea4c16 1puts "============"
2puts "OCC22018"
3puts "============"
4puts ""
5#######################################################################
6# Select3D_SensitiveCircle::Matches(): DMin parameter left uninitialized
7#######################################################################
8
9set BugNumber OCC22018
10
11vinit
12
13vpoint p1 -5 0 0
14vpoint p2 0 5 0
15vpoint p3 5 0 0
16
17vcircle c p1 p2 p3 1
18
19vpoint p4 0 0 0
20vpoint p5 5 5 0
21vpoint p6 10 0 0
22
23vcircle c1 p4 p5 p6 1
24
25verase p1 p2 p3 p4 p5 p6
26
27vfit
28vtop
29
30set White_R 1
31set White_G 1
32set White_B 0.94901901483535767
33
34set Select_R 0
35set Select_G 1
36set Select_B 1
37
38set x1 150
39set x2 300
40set y 200
41
42vmoveto 0 0
43vmoveto 0 0
44
f9ba5c4d 45if { [vreadpixel $x1 $y rgb name] != "IVORY" || [vreadpixel $x2 $y rgb name] != "IVORY" } {
68beaa3c 46 puts "Error: unexpected color of not selected object"
f9ba5c4d 47}
3bea4c16 48
49vmoveto ${x1} ${y}
50vmoveto ${x1} ${y}
51
f9ba5c4d 52if { [vreadpixel $x1 $y rgb name] != "WHITE" } {
68beaa3c 53 puts "Error: unexpected color of selected object"
f9ba5c4d 54}
55if { [vreadpixel $x2 $y rgb name] != "IVORY" } {
68beaa3c 56 puts "Error: unexpected color of not selected object"
f9ba5c4d 57}
3bea4c16 58
59vmoveto ${x2} ${y}
60vmoveto ${x2} ${y}
61
f9ba5c4d 62if { [vreadpixel $x1 $y rgb name] != "IVORY" } {
68beaa3c 63 puts "Error: unexpected color of not selected object"
f9ba5c4d 64}
65if { [vreadpixel $x2 $y rgb name] != "WHITE" } {
68beaa3c 66 puts "Error: unexpected color of selected object"
f9ba5c4d 67}
3bea4c16 68
5747059b 69checkview -screenshot -3d -path ${imagedir}/${test_image}.png