0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug28527
1 puts "============"
2 puts "0028527: Visualization, AIS_InteractiveContext - custom selection presentation is never removed from View"
3 puts "============"
4 puts ""
5
6 pload MODELING XDE VISUALIZATION
7 vclear
8 vclose ALL
9 vinit View1
10 box b -100 0 0 10 20 30
11 meshfromstl m [locate_data_file OMF6391_box.stl]
12
13 vfit
14 vsetdispmode m 2
15 vselmode m 8 1
16 vselect 0 0 409 409 0 409
17 verase m
18
19 vdisplay -dispMode 1 -highMode 1 b
20 vfit
21 if { [vreadpixel 165 400 rgb name] != "DARKGOLDENROD" } { puts "Error: fit all produces incorrect result after Erase" }
22 vdump $::imagedir/${::casename}_1.png
23
24 verase b
25 vdisplay m
26 vfit
27 vselmode m 8 1
28 vselect 0 0 409 409 0 409
29 vremove m
30
31 vdisplay -dispMode 1 -highMode 1 b
32 vfit
33 if { [vreadpixel 165 400 rgb name] != "DARKGOLDENROD" } { puts "Error: fit all produces incorrect result after Remove" }
34 vdump $::imagedir/${::casename}_2.png