0023400: Triangulation of thin ring contains gap
[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 checkcolor ${x1} ${y} ${White_R} ${White_G} ${White_B}
46 checkcolor ${x2} ${y} ${White_R} ${White_G} ${White_B}
47
48 vmoveto ${x1} ${y}
49 vmoveto ${x1} ${y}
50
51 checkcolor ${x1} ${y} ${Select_R} ${Select_G} ${Select_B}
52 checkcolor ${x2} ${y} ${White_R} ${White_G} ${White_B}
53
54 vmoveto ${x2} ${y}
55 vmoveto ${x2} ${y}
56
57 checkcolor ${x1} ${y} ${White_R} ${White_G} ${White_B}
58 checkcolor ${x2} ${y} ${Select_R} ${Select_G} ${Select_B}
59
60 set only_screen 1
61