![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to code_word.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / others / quipu / photo|
Return to code_word.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / others / quipu / photo |
1.1 root 1: /* code_word.c - define code words for one dimensional encoding */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/others/quipu/photo/RCS/code_word.c,v 7.0 89/11/23 22:01:34 mrose Rel $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/others/quipu/photo/RCS/code_word.c,v 7.0 89/11/23 22:01:34 mrose Rel $
9: *
10: *
11: * $Log: code_word.c,v $
12: * Revision 7.0 89/11/23 22:01:34 mrose
13: * Release 6.0
14: *
15: */
16:
17: /*
18: * NOTICE
19: *
20: * Acquisition, use, and distribution of this module and related
21: * materials are subject to the restrictions of a license agreement.
22: * Consult the Preface in the User's Manual for the full terms of
23: * this agreement.
24: *
25: */
26:
27:
28:
29: #include <stdio.h>
30: #include "quipu/photo.h"
31:
32: extern int PIC_LINESIZE;
33:
34: /* The following are declarations of the code words that are used with one
35: /* dimensional encoding. The first number in each pair give the length
36: /* of the string, the second gives the string in hex, starting at the 13th bit
37: /* position.
38: /* The declarations are made this way so that the arays are made at compile
39: /* time as opposed to run time.
40: */
41:
42:
43: /* White terminal run lengths */
44:
45: static code_word wt_term [] = {
46: { 8 , 0x6a0 }, /* 0 : 00110101 */
47: { 6 , 0x380 }, /* 1 : 000111 */
48: { 4 , 0xe00 }, /* 2 : 0111 */
49: { 4 , 0x1000 }, /* 3 : 1000 */
50: { 4 , 0x1600 }, /* 4 : 1011 */
51: { 4 , 0x1800 }, /* 5 : 1100 */
52: { 4 , 0x1c00 }, /* 6 : 1110 */
53: { 4 , 0x1e00 }, /* 7 : 1111 */
54: { 5 , 0x1300 }, /* 8 : 10011 */
55: { 5 , 0x1400 }, /* 9 : 10100 */
56: { 5 , 0x700 }, /* 10: 00111 */
57: { 5 , 0x800 }, /* 11: 01000 */
58: { 6 , 0x400 }, /* 12: 001000 */
59: { 6 , 0x180 }, /* 13: 000011 */
60: { 6 , 0x1a00 }, /* 14: 110100 */
61: { 6 , 0x1a80 }, /* 15: 110101 */
62: { 6 , 0x1500 }, /* 16: 101010 */
63: { 6 , 0x1580 }, /* 17: 101011 */
64: { 7 , 0x9c0 }, /* 18: 0100111 */
65: { 7 , 0x300 }, /* 19: 0001100 */
66: { 7 , 0x200 }, /* 20: 0001000 */
67: { 7 , 0x5c0 }, /* 21: 0010111 */
68: { 7 , 0xc0 }, /* 22: 0000011 */
69: { 7 , 0x100 }, /* 23: 0000100 */
70: { 7 , 0xa00 }, /* 24: 0101000 */
71: { 7 , 0xac0 }, /* 25: 0101011 */
72: { 7 , 0x4c0 }, /* 26: 0010011 */
73: { 7 , 0x900 }, /* 27: 0100100 */
74: { 7 , 0x600 }, /* 28: 0011000 */
75: { 8 , 0x40 }, /* 29: 00000010 */
76: { 8 , 0x60 }, /* 30: 00000011 */
77: { 8 , 0x340 }, /* 31: 00011010 */
78: { 8 , 0x360 }, /* 32: 00011011 */
79: { 8 , 0x240 }, /* 33: 00010010 */
80: { 8 , 0x260 }, /* 34: 00010011 */
81: { 8 , 0x280 }, /* 35: 00010100 */
82: { 8 , 0x2a0 }, /* 36: 00010101 */
83: { 8 , 0x2c0 }, /* 37: 00010110 */
84: { 8 , 0x2e0 }, /* 38: 00010111 */
85: { 8 , 0x500 }, /* 39: 00101000 */
86: { 8 , 0x520 }, /* 40: 00101001 */
87: { 8 , 0x540 }, /* 41: 00101010 */
88: { 8 , 0x560 }, /* 42: 00101011 */
89: { 8 , 0x580 }, /* 43: 00101100 */
90: { 8 , 0x5a0 }, /* 44: 00101101 */
91: { 8 , 0x80 }, /* 45: 00000100 */
92: { 8 , 0xa0 }, /* 46: 00000101 */
93: { 8 , 0x140 }, /* 47: 00001010 */
94: { 8 , 0x160 }, /* 48: 00001011 */
95: { 8 , 0xa40 }, /* 49: 01010010 */
96: { 8 , 0xa60 }, /* 50: 01010011 */
97: { 8 , 0xa80 }, /* 51: 01010100 */
98: { 8 , 0xaa0 }, /* 52: 01010101 */
99: { 8 , 0x480 }, /* 53: 00100100 */
100: { 8 , 0x4a0 }, /* 54: 00100101 */
101: { 8 , 0xb00 }, /* 55: 01011000 */
102: { 8 , 0xb20 }, /* 56: 01011001 */
103: { 8 , 0xb40 }, /* 57: 01011010 */
104: { 8 , 0xb60 }, /* 58: 01011011 */
105: { 8 , 0x940 }, /* 59: 01001010 */
106: { 8 , 0x960 }, /* 60: 01001011 */
107: { 8 , 0x640 }, /* 61: 00110010 */
108: { 8 , 0x660 }, /* 62: 00110011 */
109: { 8 , 0x680 }, /* 63: 00110100 */
110: };
111:
112: /* Black terminal run lengths */
113:
114: static code_word bl_term [] = {
115: { 10, 0x1b8 }, /* 0 : 0000110111 */
116: { 3 , 0x800 }, /* 1 : 010 */
117: { 2 , 0x1800 }, /* 2 : 11 */
118: { 2 , 0x1000 }, /* 3 : 10 */
119: { 3 , 0xc00 }, /* 4 : 011 */
120: { 4 , 0x600 }, /* 5 : 0011 */
121: { 4 , 0x400 }, /* 6 : 0010 */
122: { 5 , 0x300 }, /* 7 : 00011 */
123: { 6 , 0x280 }, /* 8 : 000101 */
124: { 6 , 0x200 }, /* 9 : 000100 */
125: { 7 , 0x100 }, /* 10: 0000100 */
126: { 7 , 0x140 }, /* 11: 0000101 */
127: { 7 , 0x1c0 }, /* 12: 0000111 */
128: { 8 , 0x80 }, /* 13: 00000100 */
129: { 8 , 0xe0 }, /* 14: 00000111 */
130: { 9 , 0x180 }, /* 15: 000011000 */
131: { 10, 0xb8 }, /* 16: 0000010111 */
132: { 10, 0xc0 }, /* 17: 0000011000 */
133: { 10, 0x40 }, /* 18: 0000001000 */
134: { 11, 0x19c }, /* 19: 00001100111 */
135: { 11, 0x1a0 }, /* 20: 00001101000 */
136: { 11, 0x1b0 }, /* 21: 00001101100 */
137: { 11, 0xdc }, /* 22: 00000110111 */
138: { 11, 0xa0 }, /* 23: 00000101000 */
139: { 11, 0x5c }, /* 24: 00000010111 */
140: { 11, 0x60 }, /* 25: 00000011000 */
141: { 12, 0x194 }, /* 26: 000011001010 */
142: { 12, 0x196 }, /* 27: 000011001011 */
143: { 12, 0x198 }, /* 28: 000011001100 */
144: { 12, 0x19a }, /* 29: 000011001101 */
145: { 12, 0xd0 }, /* 30: 000001101000 */
146: { 12, 0xd2 }, /* 31: 000001101001 */
147: { 12, 0xd4 }, /* 32: 000001101010 */
148: { 12, 0xd6 }, /* 33: 000001101011 */
149: { 12, 0x1a4 }, /* 34: 000011010010 */
150: { 12, 0x1a6 }, /* 35: 000011010011 */
151: { 12, 0x1a8 }, /* 36: 000011010100 */
152: { 12, 0x1aa }, /* 37: 000011010101 */
153: { 12, 0x1ac }, /* 38: 000011010110 */
154: { 12, 0x1ae }, /* 39: 000011010111 */
155: { 12, 0xd8 }, /* 40: 000001101100 */
156: { 12, 0xda }, /* 41: 000001101101 */
157: { 12, 0x1b4 }, /* 42: 000011011010 */
158: { 12, 0x1b6 }, /* 43: 000011011011 */
159: { 12, 0xa8 }, /* 44: 000001010100 */
160: { 12, 0xaa }, /* 45: 000001010101 */
161: { 12, 0xac }, /* 46: 000001010110 */
162: { 12, 0xae }, /* 47: 000001010111 */
163: { 12, 0xc8 }, /* 48: 000001100100 */
164: { 12, 0xca }, /* 49: 000001100101 */
165: { 12, 0xa4 }, /* 50: 000001010010 */
166: { 12, 0xa6 }, /* 51: 000001010011 */
167: { 12, 0x48 }, /* 52: 000000100100 */
168: { 12, 0x6e }, /* 53: 000000110111 */
169: { 12, 0x70 }, /* 54: 000000111000 */
170: { 12, 0x4e }, /* 55: 000000100111 */
171: { 12, 0x50 }, /* 56: 000000101000 */
172: { 12, 0xb0 }, /* 57: 000001011000 */
173: { 12, 0xb2 }, /* 58: 000001011001 */
174: { 12, 0x56 }, /* 59: 000000101011 */
175: { 12, 0x58 }, /* 60: 000000101100 */
176: { 12, 0xb4 }, /* 61: 000001011010 */
177: { 12, 0xcc }, /* 62: 000001100110 */
178: { 12, 0xce }, /* 63: 000001100111 */
179: };
180:
181: /* White make up codes */
182:
183: static code_word wt_make [] = {
184: { 5 , 0x1b00 }, /* 64 : 11011 */
185: { 5 , 0x1200 }, /* 128 : 10010 */
186: { 6 , 0xb80 }, /* 192 : 010111 */
187: { 7 , 0xdc0 }, /* 256 : 0110111 */
188: { 8 , 0x6c0 }, /* 320 : 00110110 */
189: { 8 , 0x6e0 }, /* 384 : 00110111 */
190: { 8 , 0xc80 }, /* 448 : 01100100 */
191: { 8 , 0xca0 }, /* 512 : 01100101 */
192: { 8 , 0xd00 }, /* 576 : 01101000 */
193: { 8 , 0xce0 }, /* 640 : 01100111 */
194: { 9 , 0xcc0 }, /* 704 : 011001100 */
195: { 9 , 0xcd0 }, /* 768 : 011001101 */
196: { 9 , 0xd20 }, /* 832 : 011010010 */
197: { 9 , 0xd30 }, /* 896 : 011010011 */
198: { 9 , 0xd40 }, /* 960 : 011010100 */
199: { 9 , 0xd50 }, /* 1024: 011010101 */
200: { 9 , 0xd60 }, /* 1088: 011010110 */
201: { 9 , 0xd70 }, /* 1152: 011010111 */
202: { 9 , 0xd80 }, /* 1216: 011011000 */
203: { 9 , 0xd90 }, /* 1280: 011011001 */
204: { 9 , 0xda0 }, /* 1344: 011011010 */
205: { 9 , 0xdb0 }, /* 1408: 011011011 */
206: { 9 , 0x980 }, /* 1472: 010011000 */
207: { 9 , 0x990 }, /* 1536: 010011001 */
208: { 9 , 0x9a0 }, /* 1600: 010011010 */
209: { 6 , 0xc00 }, /* 1664: 011000 */
210: { 9 , 0x9b0 }, /* 1728: 010011011 */
211: { 11, 0x20 }, /* 1792: 00000001000 */
212: { 11, 0x30 }, /* 1856: 00000001100 */
213: { 11, 0x34 }, /* 1920: 00000001101 */
214: { 12, 0x24 }, /* 1984: 000000010010 */
215: { 12, 0x26 }, /* 2048: 000000010011 */
216: };
217:
218: /* Black make up codes */
219:
220: static code_word bl_make [] = {
221: { 10, 0x78 }, /* 64 : 0000001111 */
222: { 12, 0x190 }, /* 128 : 000011001000 */
223: { 12, 0x192 }, /* 192 : 000011001001 */
224: { 12, 0xb6 }, /* 256 : 000001011011 */
225: { 12, 0x66 }, /* 320 : 000000110011 */
226: { 12, 0x68 }, /* 384 : 000000110100 */
227: { 12, 0x6a }, /* 448 : 000000110101 */
228: { 13, 0x6c }, /* 512 : 0000001101100 */
229: { 13, 0x6d }, /* 576 : 0000001101101 */
230: { 13, 0x4a }, /* 640 : 0000001001010 */
231: { 13, 0x4b }, /* 704 : 0000001001011 */
232: { 13, 0x4c }, /* 768 : 0000001001100 */
233: { 13, 0x4d }, /* 832 : 0000001001101 */
234: { 13, 0x72 }, /* 896 : 0000001110010 */
235: { 13, 0x73 }, /* 960 : 0000001110011 */
236: { 13, 0x74 }, /* 1024: 0000001110100 */
237: { 13, 0x75 }, /* 1088: 0000001110101 */
238: { 13, 0x76 }, /* 1152: 0000001110110 */
239: { 13, 0x77 }, /* 1216: 0000001110111 */
240: { 13, 0x52 }, /* 1280: 0000001010010 */
241: { 13, 0x53 }, /* 1344: 0000001010011 */
242: { 13, 0x54 }, /* 1408: 0000001010100 */
243: { 13, 0x55 }, /* 1472: 0000001010101 */
244: { 13, 0x5a }, /* 1536: 0000001011010 */
245: { 13, 0x5b }, /* 1600: 0000001011011 */
246: { 13, 0x64 }, /* 1664: 0000001100100 */
247: { 13, 0x65 }, /* 1728: 0000001100101 */
248: { 11, 0x20 }, /* 1792: 00000001000 */
249: { 11, 0x30 }, /* 1856: 00000001100 */
250: { 11, 0x34 }, /* 1920: 00000001101 */
251: { 12, 0x24 }, /* 1984: 000000010010 */
252: { 12, 0x26 }, /* 2048: 000000010011 */
253: };
254:
255:
256:
257:
258: /* ROUTINE: Get_code () */
259: /* */
260: /* SYNOPSIS: Gets a code word from an array given the run_length */
261: /* and the colour (0 = white, 1 = black) */
262:
263: full_code
264: get_code (run, colour)
265:
266: char colour;
267: int run;
268: {
269:
270: full_code result;
271: result.make.length = 0;
272: if (run > PIC_LINESIZE)
273: (void) fprintf (stderr,"Run too long\n");
274:
275: if (colour == WHITE) {
276: if (run > 63)
277: result.make = wt_make [(run/64)-1];
278: result.term = wt_term [run%64];
279:
280: } else {
281: if (run > 63)
282: result.make = bl_make [(run/64)-1];
283: result.term = bl_term [run%64];
284: }
285:
286: return (result);
287:
288: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.