0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / tests / v3d / edge / A10
1 puts "============"
2 puts "CR25436"
3 puts "Test case check work of the new commands vselnext and vselprev"
4 puts "============"
5 puts ""
6
7 proc check_highlighting { theEdgeIdx theCoords } {
8   set aNext [expr ($theEdgeIdx + 1) % 3]
9   set aNextNext [expr ($theEdgeIdx + 2) % 3]
10   set hiColor [vreadpixel [lindex $theCoords [expr $theEdgeIdx * 2] ] [lindex $theCoords [expr $theEdgeIdx * 2 + 1] ] name]
11   set nextColor [vreadpixel [lindex $theCoords [expr $aNext * 2] ] [lindex $theCoords [expr $aNext * 2 + 1] ] name]
12   set nextNextColor [vreadpixel [lindex $theCoords [expr $aNextNext * 2] ] [lindex $theCoords [expr $aNextNext * 2 + 1] ] name]
13
14   if {$hiColor == "CYAN 1" && $nextColor == "YELLOW 1" && $nextNextColor == "YELLOW 1"} {
15     return true
16   } else {
17     return false
18   }
19 }
20
21 set coords { }
22 # e10_x, e10_y
23 lappend coords 94
24 lappend coords 140
25 # e2_x, e2_y
26 lappend coords 103
27 lappend coords 60
28 # e1_x, e1_y
29 lappend coords 29
30 lappend coords 208
31
32 box b 10 10 10
33 vdisplay b
34 vfit
35 vselmode 2 1
36 vmoveto 30 101
37
38 if { ![check_highlighting 0 $coords] } {
39   puts "ERROR: incorrect highlighting of edge 10"
40 }
41
42 vselnext
43 if { ![check_highlighting 1 $coords] } {
44   puts "ERROR: incorrect highlighting of edge 2 after vselnext call"
45 }
46 vselnext
47 if { ![check_highlighting 2 $coords] } {
48   puts "ERROR: incorrect highlighting of edge 1 after vselnext call"
49 }
50 vselnext
51 if { ![check_highlighting 0 $coords] } {
52   puts "ERROR: incorrect highlighting of edge 10 after vselnext call"
53 }
54
55 vselprev
56 if { ![check_highlighting 2 $coords] } {
57   puts "ERROR: incorrect highlighting of edge 1 after vselprev call"
58 }
59 vselprev
60 if { ![check_highlighting 1 $coords] } {
61   puts "ERROR: incorrect highlighting of edge 2 after vselprev call"
62 }
63 vselprev
64 if { ![check_highlighting 0 $coords] } {
65   puts "ERROR: incorrect highlighting of edge 10 after vselprev call"
66 }