]> git.saurik.com Git - wxWidgets.git/blob - src/tiff/contrib/dbs/tiff-palette.c
The rounded corners look really dumb at this size.
[wxWidgets.git] / src / tiff / contrib / dbs / tiff-palette.c
1
2 /*
3 * tiff-palette.c -- create a Class P (palette) TIFF file
4 *
5 * Copyright 1990 by Digital Equipment Corporation, Maynard, Massachusetts.
6 *
7 * All Rights Reserved
8 *
9 * Permission to use, copy, modify, and distribute this software and its
10 * documentation for any purpose and without fee is hereby granted,
11 * provided that the above copyright notice appear in all copies and that
12 * both that copyright notice and this permission notice appear in
13 * supporting documentation, and that the name of Digital not be
14 * used in advertising or publicity pertaining to distribution of the
15 * software without specific, written prior permission.
16 *
17 * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
18 * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
19 * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
20 * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
21 * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
22 * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
23 * SOFTWARE.
24 */
25
26 #include <stdio.h>
27 #include <stdlib.h>
28 #include <string.h>
29
30 #include "tiffio.h"
31
32 #define WIDTH 512
33 #define HEIGHT WIDTH
34 #define SCALE(x) ((x) * 257L)
35
36 char * programName;
37 void Usage();
38
39 int main(int argc, char **argv)
40 {
41 int bits_per_pixel = 8, cmsize, i, j, k,
42 cmap_index, chunk_size = 32, nchunks = 16;
43 unsigned char * scan_line;
44 uint16 *red, *green, *blue;
45 TIFF * tif;
46
47 programName = argv[0];
48
49 if (argc != 4)
50 Usage();
51
52 if (!strcmp(argv[1], "-depth"))
53 bits_per_pixel = atoi(argv[2]);
54 else
55 Usage();
56
57 switch (bits_per_pixel) {
58 case 8:
59 nchunks = 16;
60 chunk_size = 32;
61 break;
62 case 4:
63 nchunks = 4;
64 chunk_size = 128;
65 break;
66 case 2:
67 nchunks = 2;
68 chunk_size = 256;
69 break;
70 case 1:
71 nchunks = 2;
72 chunk_size = 256;
73 break;
74 default:
75 Usage();
76 }
77
78 if (bits_per_pixel != 1) {
79 cmsize = nchunks * nchunks;
80 } else {
81 cmsize = 2;
82 }
83 red = (uint16 *) malloc(cmsize * sizeof(uint16));
84 green = (uint16 *) malloc(cmsize * sizeof(uint16));
85 blue = (uint16 *) malloc(cmsize * sizeof(uint16));
86
87 switch (bits_per_pixel) {
88 case 8:
89 for (i = 0; i < cmsize; i++) {
90 if (i < 32)
91 red[i] = 0;
92 else if (i < 64)
93 red[i] = SCALE(36);
94 else if (i < 96)
95 red[i] = SCALE(73);
96 else if (i < 128)
97 red[i] = SCALE(109);
98 else if (i < 160)
99 red[i] = SCALE(146);
100 else if (i < 192)
101 red[i] = SCALE(182);
102 else if (i < 224)
103 red[i] = SCALE(219);
104 else if (i < 256)
105 red[i] = SCALE(255);
106
107 if ((i % 32) < 4)
108 green[i] = 0;
109 else if (i < 8)
110 green[i] = SCALE(36);
111 else if ((i % 32) < 12)
112 green[i] = SCALE(73);
113 else if ((i % 32) < 16)
114 green[i] = SCALE(109);
115 else if ((i % 32) < 20)
116 green[i] = SCALE(146);
117 else if ((i % 32) < 24)
118 green[i] = SCALE(182);
119 else if ((i % 32) < 28)
120 green[i] = SCALE(219);
121 else if ((i % 32) < 32)
122 green[i] = SCALE(255);
123
124 if ((i % 4) == 0)
125 blue[i] = SCALE(0);
126 else if ((i % 4) == 1)
127 blue[i] = SCALE(85);
128 else if ((i % 4) == 2)
129 blue[i] = SCALE(170);
130 else if ((i % 4) == 3)
131 blue[i] = SCALE(255);
132 }
133 break;
134 case 4:
135 red[0] = SCALE(255);
136 green[0] = 0;
137 blue[0] = 0;
138
139 red[1] = 0;
140 green[1] = SCALE(255);
141 blue[1] = 0;
142
143 red[2] = 0;
144 green[2] = 0;
145 blue[2] = SCALE(255);
146
147 red[3] = SCALE(255);
148 green[3] = SCALE(255);
149 blue[3] = SCALE(255);
150
151 red[4] = 0;
152 green[4] = SCALE(255);
153 blue[4] = SCALE(255);
154
155 red[5] = SCALE(255);
156 green[5] = 0;
157 blue[5] = SCALE(255);
158
159 red[6] = SCALE(255);
160 green[6] = SCALE(255);
161 blue[6] = 0;
162
163 red[7] = 0;
164 green[7] = 0;
165 blue[7] = 0;
166
167 red[8] = SCALE(176);
168 green[8] = SCALE(224);
169 blue[8] = SCALE(230);
170 red[9] = SCALE(100);
171 green[9] = SCALE(149);
172 blue[9] = SCALE(237);
173 red[10] = SCALE(46);
174 green[10] = SCALE(139);
175 blue[10] = SCALE(87);
176 red[11] = SCALE(160);
177 green[11] = SCALE(82);
178 blue[11] = SCALE(45);
179 red[12] = SCALE(238);
180 green[12] = SCALE(130);
181 blue[12] = SCALE(238);
182 red[13] = SCALE(176);
183 green[13] = SCALE(48);
184 blue[13] = SCALE(96);
185 red[14] = SCALE(50);
186 green[14] = SCALE(205);
187 blue[14] = SCALE(50);
188 red[15] = SCALE(240);
189 green[15] = SCALE(152);
190 blue[15] = SCALE(35);
191 break;
192 case 2:
193 red[0] = SCALE(255);
194 green[0] = 0;
195 blue[0] = 0;
196
197 red[1] = 0;
198 green[1] = SCALE(255);
199 blue[1] = 0;
200
201 red[2] = 0;
202 green[2] = 0;
203 blue[2] = SCALE(255);
204 red[3] = SCALE(255);
205 green[3] = SCALE(255);
206 blue[3] = SCALE(255);
207 break;
208 case 1:
209 red[0] = 0;
210 green[0] = 0;
211 blue[0] = 0;
212
213 red[1] = SCALE(255);
214 green[1] = SCALE(255);
215 blue[1] = SCALE(255);
216 break;
217 }
218
219 if ((tif = TIFFOpen(argv[3], "w")) == NULL) {
220 fprintf(stderr, "can't open %s as a TIFF file\n", argv[3]);
221 free(red);free(green);free(blue);
222 return 0;
223 }
224
225 TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, WIDTH);
226 TIFFSetField(tif, TIFFTAG_IMAGELENGTH, HEIGHT);
227 TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, bits_per_pixel);
228 TIFFSetField(tif, TIFFTAG_COMPRESSION, COMPRESSION_NONE);
229 TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_PALETTE);
230 TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 1);
231 TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, 1);
232 TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
233 TIFFSetField(tif, TIFFTAG_RESOLUTIONUNIT, RESUNIT_NONE);
234 TIFFSetField(tif, TIFFTAG_COLORMAP, red, green, blue);
235
236 scan_line = (unsigned char *) malloc(WIDTH / (8 / bits_per_pixel));
237
238 for (i = 0; i < HEIGHT; i++) {
239 for (j = 0, k = 0; j < WIDTH;) {
240 cmap_index = (j / chunk_size) + ((i / chunk_size) * nchunks);
241
242 switch (bits_per_pixel) {
243 case 8:
244 scan_line[k++] = cmap_index;
245 j++;
246 break;
247 case 4:
248 scan_line[k++] = (cmap_index << 4) + cmap_index;
249 j += 2;
250 break;
251 case 2:
252 scan_line[k++] = (cmap_index << 6) + (cmap_index << 4)
253 + (cmap_index << 2) + cmap_index;
254 j += 4;
255 break;
256 case 1:
257 scan_line[k++] =
258 ((j / chunk_size) == (i / chunk_size)) ? 0x00 : 0xff;
259 j += 8;
260 break;
261 }
262 }
263 TIFFWriteScanline(tif, scan_line, i, 0);
264 }
265
266 free(scan_line);
267 TIFFClose(tif);
268 return 0;
269 }
270
271 void
272 Usage()
273 {
274 fprintf(stderr, "Usage: %s -depth (8 | 4 | 2 | 1) tiff-image\n", programName);
275 exit(0);
276 }
277 /*
278 * Local Variables:
279 * mode: c
280 * c-basic-offset: 8
281 * fill-column: 78
282 * End:
283 */