blob: 4576381c2569e852e1365cfd124c1e751d11f64b (
plain)
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
|
Readjpg: module
{
PATH: con "/dis/grid/readjpg.dis";
ImageSource: adt
{
width: int;
height: int;
origw: int;
origh: int;
i: int;
jstate: ref Jpegstate;
data: array of byte;
};
Jpegstate: adt
{
# variables in i/o routines
sr: int; # shift register, right aligned
cnt: int; # # bits in right part of sr
Nf: int;
comp: array of Framecomp;
mode: byte;
X,Y: int;
qt: array of array of int; # quantization tables
dcht: array of ref Huffman;
acht: array of ref Huffman;
Ns: int;
scomp: array of Scancomp;
Ss: int;
Se: int;
Ah: int;
Al: int;
ri: int;
nseg: int;
nblock: array of int;
# progressive scan
dccoeff: array of array of int;
accoeff: array of array of array of int; # only need 8 bits plus quantization
nacross: int;
ndown: int;
Hmax: int;
Vmax: int;
};
Huffman: adt
{
bits: array of int;
size: array of int;
code: array of int;
val: array of int;
mincode: array of int;
maxcode: array of int;
valptr: array of int;
# fast lookup
value: array of int;
shift: array of int;
};
Framecomp: adt # Frame component specifier from SOF marker
{
C: int;
H: int;
V: int;
Tq: int;
};
Scancomp: adt # Frame component specifier from SOF marker
{
C: int;
tdc: int;
tac: int;
};
# Constants, all preceded by byte 16rFF
SOF: con 16rC0; # Start of Frame
SOF2: con 16rC2; # Start of Frame; progressive Huffman
DHT: con 16rC4; # Define Huffman Tables
RST: con 16rD0; # Restart interval termination
SOI: con 16rD8; # Start of Image
EOI: con 16rD9; # End of Image
SOS: con 16rDA; # Start of Scan
DQT: con 16rDB; # Define quantization tables
DNL: con 16rDC; # Define number of lines
DRI: con 16rDD; # Define restart interval
APPn: con 16rE0; # Reserved for application segments
COM: con 16rFE; # Comment
init : fn (disp: ref Draw->Display);
fjpg2img : fn (fd: ref sys->FD, cachepath: string, chanin, chanout: chan of string): ref Image;
jpg2img : fn (filename, cachepath: string, chanin, chanout: chan of string): ref Image;
};
|
