1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
#! /bin/bash
# This script tests: giftopnm pamtogif
# Also requires: ppmtorgb3 rgb3toppm pbmmake pnminvert pamcut pamdepth
tmpdir=${tmpdir:-/tmp}
# Test 1. Break up input image into three monochrome planes,
# maxval 255. Transform each plane to gif and back to pgm.
# Reassemble the planes. Result should be identical to input.
echo "Test 1. Should print 1926073387 101484"
test_ppm=${tmpdir}/testimg.ppm
cp testimg.ppm ${tmpdir} &&
ppmtorgb3 ${test_ppm}
test_red=${tmpdir}/testimg.red
test_grn=${tmpdir}/testimg.grn
test_blu=${tmpdir}/testimg.blu
out_red=${tmpdir}/out.red
out_grn=${tmpdir}/out.grn
#out_blu=${tmpdir}/out.blu
pamtogif ${test_red} | giftopnm > ${out_red} &&
pamtogif ${test_grn} | giftopnm > ${out_grn} &&
pamtogif ${test_blu} | giftopnm | \
rgb3toppm ${out_red} ${out_grn} - | \
cksum
rm ${test_ppm} ${test_grn} ${test_blu} ${out_red} ${out_grn}
echo "Test 2. Should produce 1571496937 33838 six times"
test_gif=${tmpdir}/testimg.gif
cat ${test_red} | cksum
pamtogif ${test_red} | giftopnm | cksum
pamtogif -interlace ${test_red} | giftopnm | cksum
pamtogif -noclear ${test_red} | giftopnm | cksum
pamtogif -sort ${test_red} | tee ${test_gif} | \
giftopnm | cksum
echo "junk" >> ${test_gif} && \
giftopnm -image=1 -quitearly ${test_gif} | cksum
rm ${test_gif} ${test_red}
echo "Test 3. Should produce 281226646 481 six times"
# maze.pbm is too small for -noclear to take effect
cat maze.pbm | cksum
pamtogif maze.pbm | giftopnm | cksum
pamtogif -nolzw maze.pbm | giftopnm | cksum
pamtogif -transparent=black maze.pbm | giftopnm | cksum
pamtogif -alpha=maze.pbm maze.pbm | giftopnm | cksum
pamtogif -transparent=white maze.pbm | giftopnm -alpha=- | \
pnminvert | cksum
# Test 4.
# In this gif file the code length changes after the last image data.
# Image data: 3 bits, end code 4 bits.
echo "Test 4. Should produce P1 4 1 0101"
pbmmake -g 4 1 | \
pamtogif -verbose | giftopnm -plain | \
tr '\n' ' '
echo ""
# Test 5.
# Test whether saturated code tables are handled correctly.
# Test input images which use up the string code table or
# come close to doing so.
echo "Test 5. Should produce: N : 0 0 0 0 : 0 , N : 0 0 0 0 : 0"
echo "(N=238, 239, 240, 241, 255, 256, 257, 4030, 4031, 4097)"
test_pgm=${tmpdir}/testimg.pgm
# The following awk scripts produce a PGM file with no repeated
# sequences. Obviously this cannot be compressed at all; the codes
# are consumed without ever being used.
# Here is a smaller example with the same property:
# P2
# 8 8
# 7
# 0 0 1 1 0 2 2 0
# 3 3 0 4 4 0 5 5
# 0 6 6 0 7 7 1 2
# 1 3 1 4 1 5 1 6
# 1 7 2 3 2 4 2 5
# 2 6 2 7 3 4 3 5
# 3 6 3 7 4 5 4 6
# 4 7 5 6 5 7 6 7
test257_pgm=${tmpdir}/testimg257.pgm
maxval=15
awk -v maxval=${maxval} 'BEGIN \
{ print "P2"
print "1 "(maxval+1) * (maxval+1) +1
print maxval
print 0
for (j=i+1; j<=maxval; ++j)
{print 0; print j; print j }
for (i=1; i<=maxval; ++i)
for (j=i+1; j<=maxval; ++j)
{print i; print j }
print 0
}' > ${test257_pgm}
for size in 238 239 240 241 255 256 257
do
pamcut -height=${size} ${test257_pgm} > ${test_pgm} &&
pamtogif -verbose ${test_pgm} | giftopnm | pamdepth ${maxval} | \
cmp - ${test_pgm}
printf "${size} : ${PIPESTATUS[*]} : $? , "
pamtogif -nolzw -verbose ${test_pgm} | giftopnm | pamdepth ${maxval} | \
cmp - ${test_pgm}
printf "${size} : ${PIPESTATUS[*]} : $?\n"
rm ${test_pgm}
done
rm ${test257_pgm}
test4097_pgm=${tmpdir}/testimg4097.pgm
maxval=63
awk -v maxval=${maxval} 'BEGIN \
{ print "P2"
print "1 "(maxval+1) * (maxval+1) +1
print maxval
print 0
for (j=i+1; j<=maxval; ++j)
{print 0; print j; print j }
for (i=1; i<=maxval; ++i)
for (j=i+1; j<=maxval; ++j)
{print i; print j }
print 0
}' > ${test4097_pgm}
for size in 4030 4031 4097
do
pamcut -height ${size} ${test4097_pgm} > ${test_pgm} &&
pamtogif -verbose ${test_pgm} | giftopnm | pamdepth ${maxval} | \
cmp - ${test_pgm}
# pamdepth ${maxval} is necessary because
# giftopnm output is maxval 255
printf "${size} : ${PIPESTATUS[*]} : $? , "
pamtogif -nolzw ${test_pgm} | giftopnm | pamdepth ${maxval} | \
cmp - ${test_pgm}
printf "${size} : ${PIPESTATUS[*]} : $?\n"
rm ${test_pgm}
done
rm ${test4097_pgm}
|
