-
Notifications
You must be signed in to change notification settings - Fork 74
/
UDither.a.inc
120 lines (101 loc) · 3.08 KB
/
UDither.a.inc
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
{Photoshop version 1.0.1, file: UDither.a.inc
Computer History Museum, www.computerhistory.org
This material is (C)Copyright 1990 Adobe Systems Inc.
It may not be distributed to third parties.
It is licensed for non-commercial use according to
www.computerhistory.org/softwarelicense/photoshop/ }
PROCEDURE DoDither (inDataPtr: Ptr;
inRowBytes: INTEGER;
outDataPtr: Ptr;
outRowBytes: INTEGER;
outPixelBits: INTEGER;
viewRect: Rect;
magnification: INTEGER;
ditherSize: INTEGER;
lookUpTable: TlookUpTable;
noiseTable: TNoiseTable;
thresTable: TThresTable;
zeroFirst: BOOLEAN); EXTERNAL;
PROCEDURE DoHalftone (inDataPtr: Ptr;
inRowBytes: INTEGER;
outDataPtr: Ptr;
outRowBytes: INTEGER;
outPixelBits: INTEGER;
viewRect: Rect;
magnification: INTEGER); EXTERNAL;
PROCEDURE DoMonochrome (rDataPtr: Ptr;
gDataPtr: Ptr;
bDataPtr: Ptr;
inRowBytes: INTEGER;
outDataPtr: Ptr;
viewRect: Rect;
magnification: INTEGER;
rLUT: TLookUpTable;
gLUT: TLookUpTable;
bLUT: TLookUpTable); EXTERNAL;
PROCEDURE DoDither24 (inDataPtr: Ptr;
inRowBytes: INTEGER;
outDataPtr: Ptr;
outRowBytes: LONGINT;
outStep: INTEGER;
viewRect: Rect;
magnification: INTEGER;
lookUpTable: TlookUpTable); EXTERNAL;
PROCEDURE DoDither16Red (srcPtr: Ptr;
srcRowBytes: INTEGER;
dstPtr: Ptr;
dstRowBytes: LONGINT;
numRows: INTEGER;
numCols: INTEGER); EXTERNAL;
PROCEDURE DoDither16Green (srcPtr: Ptr;
srcRowBytes: INTEGER;
dstPtr: Ptr;
dstRowBytes: LONGINT;
numRows: INTEGER;
numCols: INTEGER); EXTERNAL;
PROCEDURE DoDither16Blue (srcPtr: Ptr;
srcRowBytes: INTEGER;
dstPtr: Ptr;
dstRowBytes: LONGINT;
numRows: INTEGER;
numCols: INTEGER); EXTERNAL;
PROCEDURE DoPatternMap (map: BitMap;
pat: Pattern); EXTERNAL;
PROCEDURE MoveMagnifData (srcPtr: Ptr;
dstPtr: Ptr;
count: INTEGER;
mag: INTEGER;
phase: INTEGER); EXTERNAL;
PROCEDURE MoveReductData (srcPtr: Ptr;
dstPtr: Ptr;
count: INTEGER;
red: INTEGER); EXTERNAL;
PROCEDURE DrawOutlineRow (prevPtr: Ptr;
thisPtr: Ptr;
nextPtr: Ptr;
outPtr: Ptr;
count: INTEGER); EXTERNAL;
FUNCTION IsRectZero (dataPtr: Ptr;
rowBytes: INTEGER;
rows: INTEGER;
cols: INTEGER): BOOLEAN; EXTERNAL;
PROCEDURE CompareColors; EXTERNAL;
PROCEDURE DoAddOver (srcPtr: Ptr;
dstPtr: Ptr;
map: TLookUpTable;
count: INTEGER); EXTERNAL;
PROCEDURE Extract16Red (srcPtr: Ptr;
dstPtr: Ptr;
count: INTEGER); EXTERNAL;
PROCEDURE Extract16Green (srcPtr: Ptr;
dstPtr: Ptr;
count: INTEGER); EXTERNAL;
PROCEDURE Extract16Blue (srcPtr: Ptr;
dstPtr: Ptr;
count: INTEGER); EXTERNAL;
PROCEDURE PackWords (VAR srcPtr: Ptr;
VAR dstPtr: Ptr;
count: INTEGER); EXTERNAL;
PROCEDURE UnpackWords (VAR srcPtr: Ptr;
VAR dstPtr: Ptr;
count: INTEGER); EXTERNAL;