0023813: TKOpenGl, OpenGl_Texture ignores stride image property
[occt.git] / tests / bugs / vis / bug23813
1 puts "============"
2 puts "OCC23813"
3 puts "============"
4 puts ""
5 #######################################################################
6 # TKOpenGl, OpenGl_Texture ignores stride image property
7 #######################################################################
8
9 file delete -force ${imagedir}/texture_412.png
10 file delete -force ${imagedir}/texture_409.png
11
12 box b 1 2 3 
13 vinit
14 vsetdispmode 1
15 vdisplay b
16 vfit
17 vdump ${imagedir}/texture_409.png rgb 409 409
18 vdump ${imagedir}/texture_412.png rgb 412 412
19
20 # texture loaded correctly
21 vtexture b ${imagedir}/texture_412.png
22
23 # texture is corrupted during uploading to OpenGL
24 vtexture b ${imagedir}/texture_409.png
25
26 set only_screen 1