0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug26430
1 puts "============"
2 puts "CR26430"
3 puts "============"
4 puts ""
5
6 ##########################################################################################
7 puts "Visualization - segmentation fault in opened local context"
8 ##########################################################################################
9
10 pload MODELING VISUALIZATION
11
12 restore [locate_data_file bug26430.brep] aShape
13
14 vinit View1
15 vdisplay aShape
16 vfit
17 vsetdispmode aShape 1
18
19 vselmode aShape 1 1
20 vselmode aShape 2 1
21 vselmode aShape 3 1
22 vselmode aShape 4 1
23 vselmode aShape 5 1
24
25 # check selection for all problematic cases
26 vselect 125 155
27 set aNbSelected [vnbselected]
28 if {$aNbSelected != 1} {
29   puts "ERROR: Vertex was not selected!"
30 }
31
32 vselect 0 0
33 vselect 121 155 130 160
34 set aNbSelected [vnbselected]
35 if {$aNbSelected != 1} {
36   puts "ERROR: Vertex was not selected!"
37 }
38
39 vselect 0 0
40 vselect 100 100 200 200
41 set aNbSelected [vnbselected]
42 if {$aNbSelected != 14} {
43   puts "ERROR: Vertex was not selected!"
44 }
45
46 vdump ${imagedir}/${casename}.png