tests/bugs/vis/bug23813

   1 ## It's impossible to make vdump with non-default parameters (width and height) on remote PC
   2 puts "TODO ?OCC23813 Windows: Tcl Exception: Dumping failed!"
   3 puts "TODO ?OCC23813 Windows: TEST INCOMPLETE"
   4
   5 puts "============"
   6 puts "OCC23813"
   7 puts "============"
   8 puts ""
   9 #######################################################################
  10 # TKOpenGl, OpenGl_Texture ignores stride image property
  11 #######################################################################
  12
  13 file delete -force ${imagedir}/texture_412.png
  14 file delete -force ${imagedir}/texture_409.png
  15
  16 box b 1 2 3
  17 vinit
  18 vsetdispmode 1
  19 vdisplay b
  20 vfit
  21 vdump ${imagedir}/texture_409.png rgb 409 409
  22 vdump ${imagedir}/texture_412.png rgb 412 412
  23
  24 # texture loaded correctly
  25 vtexture b ${imagedir}/texture_412.png
  26
  27 # texture is corrupted during uploading to OpenGL
  28 vtexture b ${imagedir}/texture_409.png
  29
  30 set only_screen 1