0026833: Create command checkview containing all viewer types
[occt.git] / tests / bugs / vis / bug727
1 puts "============"
2 puts "OCC727"
3 puts "============"
4 puts ""
5 #############################
6 ## The second object can not be deselected.
7 #############################
8
9 box a 10 10 10
10 box b 50 50 50 10 10 10
11
12 vinit
13 vdisplay a
14 vdisplay b
15 vfit
16
17 set x1 60
18 set y1 300
19 set x2 350
20 set y2 120
21
22 vselect 0 0
23 vselect ${x1} ${y1}
24 vselect ${x2} ${y2} 1
25
26 set NbSelected1 [vnbselected]
27 if { ${NbSelected1} != 2 } {
28   puts "Error : (case 1)"
29 }
30
31 vselect ${x2} ${y2} 1
32
33 set NbSelected1 [vnbselected]
34 if { ${NbSelected1} != 1 } {
35   puts "Error : (case 2)"
36 }
37
38 checkview -screenshot -3d -path ${imagedir}/${test_image}.png