0030182: Visualization, Image_AlienPixMap - support reading encoded image from memory...
[occt.git] / 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" }