blob: 09ad46468e795e2e32875113d26573216ad30bb9 (
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
implement Remap;
include "sys.m";
include "mpegio.m";
Mpegi, YCbCr: import Mpegio;
CLOFF: con 511;
width, height, w8: int;
out: array of byte;
elum: array of int;
clamp2 := array[CLOFF + 256 + CLOFF] of int;
init(m: ref Mpegi)
{
width = m.width;
height = m.height;
w8 = width >> 3;
out = array[w8 * height] of byte;
elum = array[width + 1] of int;
for (i := 0; i < CLOFF; i++)
clamp2[i] = 0;
for (i = 0; i < 256; i++)
clamp2[i + CLOFF] = i >> 7;
for (i = CLOFF + 256; i < CLOFF + 256 + CLOFF; i++)
clamp2[i] = 255 >> 7;
}
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 < w8; k++) {
y := (256 - int Y[n++]) + elum[ex];
l := clamp2[y + CLOFF] << 7;
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 = clamp2[y + CLOFF];
b |= l << 6;
y -= l << 7;
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 = clamp2[y + CLOFF];
b |= l << 5;
y -= l << 7;
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 = clamp2[y + CLOFF];
b |= l << 4;
y -= l << 7;
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 = clamp2[y + CLOFF];
b |= l << 3;
y -= l << 7;
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 = clamp2[y + CLOFF];
b |= l << 2;
y -= l << 7;
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 = clamp2[y + CLOFF];
b |= l << 1;
y -= l << 7;
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 = clamp2[y + CLOFF];
out[m++] = byte (b | l);
y -= l << 7;
t = (3 * y) >> 4;
elum[ex] = t + el;
elum[ex + 1] += t;
el = y - 3 * t;
ex++;
}
}
return out;
}
|
