xref: /PHP-8.0/ext/gd/libgd/gd_wbmp.c (revision 28e7addb)
1 /*
2    WBMP: Wireless Bitmap Type 0: B/W, Uncompressed Bitmap
3    Specification of the WBMP format can be found in the file:
4    SPEC-WAESpec-19990524.pdf
5    You can download the WAP specification on: http://www.wapforum.com/
6 
7    gd_wbmp.c
8 
9    Copyright (C) Johan Van den Brande (johan@vandenbrande.com)
10 
11    Fixed: gdImageWBMPPtr, gdImageWBMP
12 
13    Recoded: gdImageWBMPCtx for use with my wbmp library
14    (wbmp library included, but you can find the latest distribution
15    at http://www.vandenbrande.com/wbmp)
16 
17    Implemented: gdImageCreateFromWBMPCtx, gdImageCreateFromWBMP
18 
19    ---------------------------------------------------------------------------
20 
21    Parts of this code are from Maurice Smurlo.
22 
23 
24    ** Copyright (C) Maurice Szmurlo --- T-SIT --- January 2000
25    ** (Maurice.Szmurlo@info.unicaen.fr)
26 
27    ** Permission to use, copy, modify, and distribute this software and its
28    ** documentation for any purpose and without fee is hereby granted, provided
29    ** that the above copyright notice appear in all copies and that both that
30    ** copyright notice and this permission notice appear in supporting
31    ** documentation.  This software is provided "as is" without express or
32    ** implied warranty.
33 
34    ---------------------------------------------------------------------------
35    Parts od this code are inspired by  'pbmtowbmp.c' and 'wbmptopbm.c' by
36    Terje Sannum <terje@looplab.com>.
37    **
38    ** Permission to use, copy, modify, and distribute this software and its
39    ** documentation for any purpose and without fee is hereby granted, provided
40    ** that the above copyright notice appear in all copies and that both that
41    ** copyright notice and this permission notice appear in supporting
42    ** documentation.  This software is provided "as is" without express or
43    ** implied warranty.
44    **
45    ---------------------------------------------------------------------------
46 
47    Todo:
48 
49    gdCreateFromWBMP function for reading WBMP files
50 
51    ----------------------------------------------------------------------------
52  */
53 
54 #include <stdio.h>
55 #include <stdlib.h>
56 #include <limits.h>
57 
58 #include "gd.h"
59 #include "gdfonts.h"
60 #include "gd_errors.h"
61 #include "wbmp.h"
62 
63 
64 /* gd_putout
65    ** ---------
66    ** Wrapper around gdPutC for use with writewbmp
67    **
68  */
gd_putout(int i,void * out)69 void gd_putout (int i, void *out)
70 {
71 	gdPutC(i, (gdIOCtx *) out);
72 }
73 
74 
75 /* gd_getin
76    ** --------
77    ** Wrapper around gdGetC for use with readwbmp
78    **
79  */
gd_getin(void * in)80 int gd_getin (void *in)
81 {
82 	return (gdGetC((gdIOCtx *) in));
83 }
84 
85 static int _gdImageWBMPCtx(gdImagePtr image, int fg, gdIOCtx *out);
86 
87 /*      gdImageWBMPCtx
88    **  --------------
89    **  Write the image as a wbmp file
90    **  Parameters are:
91    **  image:  gd image structure;
92    **  fg:     the index of the foreground color. any other value will be
93    **          considered as background and will not be written
94    **  out:    the stream where to write
95  */
gdImageWBMPCtx(gdImagePtr image,int fg,gdIOCtx * out)96 void gdImageWBMPCtx (gdImagePtr image, int fg, gdIOCtx * out)
97 {
98 	_gdImageWBMPCtx(image, fg, out);
99 }
100 
101 /* returns 0 on success, 1 on failure */
_gdImageWBMPCtx(gdImagePtr image,int fg,gdIOCtx * out)102 static int _gdImageWBMPCtx(gdImagePtr image, int fg, gdIOCtx *out)
103 {
104 	int x, y, pos;
105 	Wbmp *wbmp;
106 
107 	/* create the WBMP */
108 	if ((wbmp = createwbmp (gdImageSX (image), gdImageSY (image), WBMP_WHITE)) == NULL) {
109 		gd_error("Could not create WBMP");
110 		return 1;
111 	}
112 
113 	/* fill up the WBMP structure */
114 	pos = 0;
115 	for (y = 0; y < gdImageSY(image); y++) {
116 		for (x = 0; x < gdImageSX(image); x++) {
117 			if (gdImageGetPixel (image, x, y) == fg) {
118 				wbmp->bitmap[pos] = WBMP_BLACK;
119 			}
120 			pos++;
121 		}
122 	}
123 
124 	/* write the WBMP to a gd file descriptor */
125 	if (writewbmp (wbmp, &gd_putout, out)) {
126 		freewbmp(wbmp);
127 		gd_error("Could not save WBMP");
128 		return 1;
129 	}
130 
131 	/* des submitted this bugfix: gdFree the memory. */
132 	freewbmp(wbmp);
133 
134 	return 0;
135 }
136 
137 /* gdImageCreateFromWBMPCtx
138    ** ------------------------
139    ** Create a gdImage from a WBMP file input from an gdIOCtx
140  */
gdImageCreateFromWBMPCtx(gdIOCtx * infile)141 gdImagePtr gdImageCreateFromWBMPCtx (gdIOCtx * infile)
142 {
143 	/* FILE *wbmp_file; */
144 	Wbmp *wbmp;
145 	gdImagePtr im = NULL;
146 	int black, white;
147 	int col, row, pos;
148 
149 	if (readwbmp (&gd_getin, infile, &wbmp)) {
150 		return NULL;
151 	}
152 
153 	if (!(im = gdImageCreate (wbmp->width, wbmp->height))) {
154 		freewbmp (wbmp);
155 		return NULL;
156 	}
157 
158 	/* create the background color */
159 	white = gdImageColorAllocate(im, 255, 255, 255);
160 	/* create foreground color */
161 	black = gdImageColorAllocate(im, 0, 0, 0);
162 
163 	/* fill in image (in a wbmp 1 = white/ 0 = black) */
164 	pos = 0;
165 	for (row = 0; row < wbmp->height; row++) {
166 		for (col = 0; col < wbmp->width; col++) {
167 			if (wbmp->bitmap[pos++] == WBMP_WHITE) {
168 				gdImageSetPixel(im, col, row, white);
169 			} else {
170 				gdImageSetPixel(im, col, row, black);
171 			}
172 		}
173 	}
174 
175 	freewbmp(wbmp);
176 
177 	return im;
178 }
179 
180 /* gdImageCreateFromWBMP
181    ** ---------------------
182  */
gdImageCreateFromWBMP(FILE * inFile)183 gdImagePtr gdImageCreateFromWBMP (FILE * inFile)
184 {
185 	gdImagePtr im;
186 	gdIOCtx *in = gdNewFileCtx(inFile);
187 	im = gdImageCreateFromWBMPCtx(in);
188 	in->gd_free(in);
189 
190 	return im;
191 }
192 
gdImageCreateFromWBMPPtr(int size,void * data)193 gdImagePtr gdImageCreateFromWBMPPtr (int size, void *data)
194 {
195 	gdImagePtr im;
196 	gdIOCtx *in = gdNewDynamicCtxEx(size, data, 0);
197 	im = gdImageCreateFromWBMPCtx(in);
198 	in->gd_free(in);
199 	return im;
200 }
201 
202 /* gdImageWBMP
203    ** -----------
204  */
gdImageWBMP(gdImagePtr im,int fg,FILE * outFile)205 void gdImageWBMP (gdImagePtr im, int fg, FILE * outFile)
206 {
207 	gdIOCtx *out = gdNewFileCtx(outFile);
208 	gdImageWBMPCtx(im, fg, out);
209 	out->gd_free(out);
210 }
211 
212 /* gdImageWBMPPtr
213    ** --------------
214  */
gdImageWBMPPtr(gdImagePtr im,int * size,int fg)215 void * gdImageWBMPPtr (gdImagePtr im, int *size, int fg)
216 {
217 	void *rv;
218 	gdIOCtx *out = gdNewDynamicCtx(2048, NULL);
219 	if (!_gdImageWBMPCtx(im, fg, out)) {
220 		rv = gdDPExtractData(out, size);
221 	} else {
222 		rv = NULL;
223 	}
224 	out->gd_free(out);
225 
226 	return rv;
227 }
228