88b12b7c |
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" } |