tests/bugs/vis/bug30182

   1 puts "============"
   2 puts "0030182: Visualization, Image_AlienPixMap - support reading encoded image from memory buffer"
   3 puts "============"
   4 puts ""
   5
   6 set anImg1 [locate_data_file hatch_1.png]
   7 set anImg2 [locate_data_file OCC1188.gif]
   8 set anImgTmp "$imagedir/${casename}_img.bin"
   9
  10 set aTmpOut [open "$anImgTmp" w]
  11 fconfigure $aTmpOut -translation binary
  12 foreach aFileIter {anImg1 anImg2} {
  13   set aFileName [set $aFileIter]
  14   set aFileIn [open $aFileName]
  15   fconfigure $aFileIn -translation binary
  16   fcopy $aFileIn $aTmpOut
  17   close $aFileIn
  18 }
  19 close $aTmpOut
  20
  21 pload VISUALIZATION QAcommands
  22 vclear
  23 vinit View1
  24 vtop
  25
  26 OCC30182 t $anImg1 -fileName; vfit
  27 vdump $imagedir/${casename}_1.png
  28
  29 OCC30182 t $anImg1 -stream; vfit
  30 vdump $imagedir/${casename}_1s1.png
  31
  32 OCC30182 t $anImg1 -memory; vfit
  33 vdump $imagedir/${casename}_1m1.png
  34
  35 OCC30182 t $anImg2 -fileName; vfit
  36 vdump $imagedir/${casename}_2.png
  37
  38 OCC30182 t $anImg2 -stream; vfit
  39 vdump $imagedir/${casename}_2s1.png
  40
  41 OCC30182 t $anImg2 -memory; vfit
  42 vdump $imagedir/${casename}_2m1.png
  43
  44 OCC30182 t $anImgTmp -stream -offset 0; vfit
  45 vdump $imagedir/${casename}_1s2.png
  46
  47 OCC30182 t $anImgTmp -memory -offset 0; vfit
  48 vdump $imagedir/${casename}_1m2.png
  49
  50 OCC30182 t $anImgTmp -stream -offset [file size $anImg1]; vfit
  51 vdump $imagedir/${casename}_2s2.png
  52
  53 OCC30182 t $anImgTmp -memory -offset [file size $anImg1]; vfit
  54 vdump $imagedir/${casename}_2m2.png
  55
  56 if { [diffimage $imagedir/${casename}_1s1.png $imagedir/${casename}_1.png] != 0 } { puts "Error 1s1" }
  57 if { [diffimage $imagedir/${casename}_1m1.png $imagedir/${casename}_1.png] != 0 } { puts "Error 1m1" }
  58 if { [diffimage $imagedir/${casename}_1s2.png $imagedir/${casename}_1.png] != 0 } { puts "Error 1s2" }
  59 if { [diffimage $imagedir/${casename}_1m2.png $imagedir/${casename}_1.png] != 0 } { puts "Error 1m2" }
  60
  61 if { [diffimage $imagedir/${casename}_2s1.png $imagedir/${casename}_2.png] != 0 } { puts "Error 2s1" }
  62 if { [diffimage $imagedir/${casename}_2m1.png $imagedir/${casename}_2.png] != 0 } { puts "Error 2m1" }
  63 if { [diffimage $imagedir/${casename}_2s2.png $imagedir/${casename}_2.png] != 0 } { puts "Error 2s2" }
  64 if { [diffimage $imagedir/${casename}_2m2.png $imagedir/${casename}_2.png] != 0 } { puts "Error 2m2" }