2 puts "0030182: Visualization, Image_AlienPixMap - support reading encoded image from memory buffer"
6 set anImg1 [locate_data_file hatch_1.png]
7 set anImg2 [locate_data_file OCC1188.gif]
8 set anImgTmp "$imagedir/${casename}_img.bin"
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
21 pload VISUALIZATION QAcommands
26 OCC30182 t $anImg1 -fileName; vfit
27 vdump $imagedir/${casename}_1.png
29 OCC30182 t $anImg1 -stream; vfit
30 vdump $imagedir/${casename}_1s1.png
32 OCC30182 t $anImg1 -memory; vfit
33 vdump $imagedir/${casename}_1m1.png
35 OCC30182 t $anImg2 -fileName; vfit
36 vdump $imagedir/${casename}_2.png
38 OCC30182 t $anImg2 -stream; vfit
39 vdump $imagedir/${casename}_2s1.png
41 OCC30182 t $anImg2 -memory; vfit
42 vdump $imagedir/${casename}_2m1.png
44 OCC30182 t $anImgTmp -stream -offset 0; vfit
45 vdump $imagedir/${casename}_1s2.png
47 OCC30182 t $anImgTmp -memory -offset 0; vfit
48 vdump $imagedir/${casename}_1m2.png
50 OCC30182 t $anImgTmp -stream -offset [file size $anImg1]; vfit
51 vdump $imagedir/${casename}_2s2.png
53 OCC30182 t $anImgTmp -memory -offset [file size $anImg1]; vfit
54 vdump $imagedir/${casename}_2m2.png
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" }
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" }