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