0029768: Visualization, TKOpenGl - structure is entirely clipped by suppressed clipping
[occt.git] / tests / bugs / vis / bug1786
1 puts "================"
2 puts "OCC1786"
3 puts "OCC2707"
4 puts "================"
5 #######################################################################################
6 # AIS_LC::AddOrRemoveSelected(Handle(SelectMgr_EntityOwner), ..) works too slow
7 #######################################################################################
8
9 box b1 10 10 10
10 box b2 20 20 20 10 10 10
11 vinit
12 vdisplay b1 b2
13 vfit
14
15 # box b1
16 set x11  57 ; set y11 322
17 set x12 118 ; set y12 322
18
19 # box b2
20 set x21 290 ; set y21 186
21 set x22 352 ; set y22 186
22
23 set Selection_R 0.8
24 set Selection_G 0.8
25 set Selection_B 0.8
26
27 set Idle_R 1
28 set Idle_G 1
29 set Idle_B 0
30
31 #QASetChoiceMode EDGE ON
32 vselmode 2 1
33 set AutoHilight 0
34 OCC1786 ${AutoHilight}
35 set BeforeNbSelected [vnbselected]
36
37 checkcolor ${x12} ${y12} ${Idle_R} ${Idle_G} ${Idle_B}
38 checkcolor ${x21} ${y21} ${Idle_R} ${Idle_G} ${Idle_B}
39 checkcolor ${x22} ${y22} ${Idle_R} ${Idle_G} ${Idle_B}
40
41 if {${BeforeNbSelected} == 0} {
42     puts "OCC1786: OK (case 4: before selection)"
43 } else {
44     puts "OCC1786: Error (case 4: before selection)"
45 }
46
47 # Select edges
48
49 vselect 0 0 1
50
51 vselect ${x11} ${y11} 1
52 vselect ${x12} ${y12} 1
53
54 vselect ${x21} ${y21} 1
55 vselect ${x22} ${y22} 1
56
57 vselect 0 0 1
58 set AfterNbSelected [vnbselected]
59
60 checkcolor ${x11} ${y11} ${Selection_R} ${Selection_G} ${Selection_B}
61 checkcolor ${x12} ${y12} ${Selection_R} ${Selection_G} ${Selection_B}
62 checkcolor ${x21} ${y21} ${Selection_R} ${Selection_G} ${Selection_B}
63 checkcolor ${x22} ${y22} ${Selection_R} ${Selection_G} ${Selection_B}
64
65 if {${AfterNbSelected} == 4} {
66   puts "OCC1786: OK (case 9: after selection)"
67 } else {
68   puts "OCC1786: Error (case 9: after selection)"
69 }
70
71 checkview -screenshot -3d -path ${imagedir}/${test_image}.png