blob: 20566fc2a39551a0f97f88f4820b9946ef4a9604 (
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
|
implement Remap;
include "sys.m";
include "mpegio.m";
Mpegi, YCbCr: import Mpegio;
CLOFF: con 255;
width, height, w2: int;
out: array of byte;
elum: array of int;
clamp16 := array[CLOFF + 256 + CLOFF] of int;
init(m: ref Mpegi)
{
width = m.width;
height = m.height;
w2 = width >> 1;
out = array[w2 * height] of byte;
elum = array[width + 1] of int;
for (i := 0; i < CLOFF; i++)
clamp16[i] = 0;
for (i = 0; i < 256; i++)
clamp16[i + CLOFF] = i >> 4;
for (i = CLOFF + 256; i < CLOFF + 256 + CLOFF; i++)
clamp16[i] = 255 >> 4;
}
remap(p: ref Mpegio->YCbCr): array of byte
{
Y := p.Y;
for (e := 0; e <= width; e++)
elum[e] = 0;
m := 0;
n := 0;
for (i := 0; i < height; i++) {
el := 0;
ex := 0;
for (k := 0; k < w2; k++) {
y := (256 - int Y[n++]) + elum[ex];
l := clamp16[y + CLOFF] << 4;
b := l;
y -= l;
t := (3 * y) >> 4;
elum[ex] = t + el;
elum[ex + 1] += t;
el = y - 3 * t;
ex++;
y = (256 - int Y[n++]) + elum[ex];
l = clamp16[y + CLOFF];
out[m++] = byte (b | l);
y -= l << 4;
t = (3 * y) >> 4;
elum[ex] = t + el;
elum[ex + 1] += t;
el = y - 3 * t;
ex++;
}
}
return out;
}
|
