1<?php
2/////////////////////////////////////////////////////////////////
3/// getID3() by James Heinrich <info@getid3.org>               //
4//  available at http://getid3.sourceforge.net                 //
5//            or http://www.getid3.org                         //
6/////////////////////////////////////////////////////////////////
7// See readme.txt for more details                             //
8/////////////////////////////////////////////////////////////////
9//                                                             //
10// module.graphic.bmp.php                                      //
11// module for analyzing BMP Image files                        //
12// dependencies: NONE                                          //
13//                                                            ///
14/////////////////////////////////////////////////////////////////
15//                                                             //
16// Modified for use in phpThumb() - James Heinrich 2004.07.27  //
17//                                                             //
18/////////////////////////////////////////////////////////////////
19
20
21class phpthumb_bmp {
22
23	public function phpthumb_bmp2gd(&$BMPdata, $truecolor=true) {
24		$ThisFileInfo = array();
25		if ($this->getid3_bmp($BMPdata, $ThisFileInfo, true, true)) {
26			$gd = $this->PlotPixelsGD($ThisFileInfo['bmp'], $truecolor);
27			return $gd;
28		}
29		return false;
30	}
31
32	public function phpthumb_bmpfile2gd($filename, $truecolor=true) {
33		if ($fp = @fopen($filename, 'rb')) {
34			$BMPdata = fread($fp, filesize($filename));
35			fclose($fp);
36			return $this->phpthumb_bmp2gd($BMPdata, $truecolor);
37		}
38		return false;
39	}
40
41	public function GD2BMPstring(&$gd_image) {
42		$imageX = imagesx($gd_image);
43		$imageY = imagesy($gd_image);
44
45		$BMP = '';
46		for ($y = ($imageY - 1); $y >= 0; $y--) {
47			$thisline = '';
48			for ($x = 0; $x < $imageX; $x++) {
49				$argb = phpthumb_functions::GetPixelColor($gd_image, $x, $y);
50				$thisline .= chr($argb['blue']).chr($argb['green']).chr($argb['red']);
51			}
52			while (strlen($thisline) % 4) {
53				$thisline .= "\x00";
54			}
55			$BMP .= $thisline;
56		}
57
58		$bmpSize = strlen($BMP) + 14 + 40;
59		// BITMAPFILEHEADER [14 bytes] - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_62uq.asp
60		$BITMAPFILEHEADER  = 'BM';                                                           // WORD    bfType;
61		$BITMAPFILEHEADER .= phpthumb_functions::LittleEndian2String($bmpSize, 4); // DWORD   bfSize;
62		$BITMAPFILEHEADER .= phpthumb_functions::LittleEndian2String(       0, 2); // WORD    bfReserved1;
63		$BITMAPFILEHEADER .= phpthumb_functions::LittleEndian2String(       0, 2); // WORD    bfReserved2;
64		$BITMAPFILEHEADER .= phpthumb_functions::LittleEndian2String(      54, 4); // DWORD   bfOffBits;
65
66		// BITMAPINFOHEADER - [40 bytes] http://msdn.microsoft.com/library/en-us/gdi/bitmaps_1rw2.asp
67		$BITMAPINFOHEADER  = phpthumb_functions::LittleEndian2String(      40, 4); // DWORD  biSize;
68		$BITMAPINFOHEADER .= phpthumb_functions::LittleEndian2String( $imageX, 4); // LONG   biWidth;
69		$BITMAPINFOHEADER .= phpthumb_functions::LittleEndian2String( $imageY, 4); // LONG   biHeight;
70		$BITMAPINFOHEADER .= phpthumb_functions::LittleEndian2String(       1, 2); // WORD   biPlanes;
71		$BITMAPINFOHEADER .= phpthumb_functions::LittleEndian2String(      24, 2); // WORD   biBitCount;
72		$BITMAPINFOHEADER .= phpthumb_functions::LittleEndian2String(       0, 4); // DWORD  biCompression;
73		$BITMAPINFOHEADER .= phpthumb_functions::LittleEndian2String(       0, 4); // DWORD  biSizeImage;
74		$BITMAPINFOHEADER .= phpthumb_functions::LittleEndian2String(    2835, 4); // LONG   biXPelsPerMeter;
75		$BITMAPINFOHEADER .= phpthumb_functions::LittleEndian2String(    2835, 4); // LONG   biYPelsPerMeter;
76		$BITMAPINFOHEADER .= phpthumb_functions::LittleEndian2String(       0, 4); // DWORD  biClrUsed;
77		$BITMAPINFOHEADER .= phpthumb_functions::LittleEndian2String(       0, 4); // DWORD  biClrImportant;
78
79		return $BITMAPFILEHEADER.$BITMAPINFOHEADER.$BMP;
80	}
81
82	public function getid3_bmp(&$BMPdata, &$ThisFileInfo, $ExtractPalette=false, $ExtractData=false) {
83
84		// shortcuts
85		$ThisFileInfo['bmp']['header']['raw'] = array();
86		$thisfile_bmp                         = &$ThisFileInfo['bmp'];
87		$thisfile_bmp_header                  = &$thisfile_bmp['header'];
88		$thisfile_bmp_header_raw              = &$thisfile_bmp_header['raw'];
89
90		// BITMAPFILEHEADER [14 bytes] - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_62uq.asp
91		// all versions
92		// WORD    bfType;
93		// DWORD   bfSize;
94		// WORD    bfReserved1;
95		// WORD    bfReserved2;
96		// DWORD   bfOffBits;
97
98		$offset = 0;
99		$overalloffset = 0;
100		$BMPheader = substr($BMPdata, $overalloffset, 14 + 40);
101		$overalloffset += (14 + 40);
102
103		$thisfile_bmp_header_raw['identifier']  = substr($BMPheader, $offset, 2);
104		$offset += 2;
105
106		if ($thisfile_bmp_header_raw['identifier'] != 'BM') {
107			$ThisFileInfo['error'][] = 'Expecting "BM" at offset '. (int) (@$ThisFileInfo[ 'avdataoffset']) .', found "'. $thisfile_bmp_header_raw[ 'identifier'].'"';
108			unset($ThisFileInfo['fileformat']);
109			unset($ThisFileInfo['bmp']);
110			return false;
111		}
112
113		$thisfile_bmp_header_raw['filesize']    = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
114		$offset += 4;
115		$thisfile_bmp_header_raw['reserved1']   = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
116		$offset += 2;
117		$thisfile_bmp_header_raw['reserved2']   = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
118		$offset += 2;
119		$thisfile_bmp_header_raw['data_offset'] = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
120		$offset += 4;
121		$thisfile_bmp_header_raw['header_size'] = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
122		$offset += 4;
123
124
125		// check if the hardcoded-to-1 "planes" is at offset 22 or 26
126		$planes22 = $this->LittleEndian2Int(substr($BMPheader, 22, 2));
127		$planes26 = $this->LittleEndian2Int(substr($BMPheader, 26, 2));
128		if (($planes22 == 1) && ($planes26 != 1)) {
129			$thisfile_bmp['type_os']      = 'OS/2';
130			$thisfile_bmp['type_version'] = 1;
131		} elseif (($planes26 == 1) && ($planes22 != 1)) {
132			$thisfile_bmp['type_os']      = 'Windows';
133			$thisfile_bmp['type_version'] = 1;
134		} elseif ($thisfile_bmp_header_raw['header_size'] == 12) {
135			$thisfile_bmp['type_os']      = 'OS/2';
136			$thisfile_bmp['type_version'] = 1;
137		} elseif ($thisfile_bmp_header_raw['header_size'] == 40) {
138			$thisfile_bmp['type_os']      = 'Windows';
139			$thisfile_bmp['type_version'] = 1;
140		} elseif ($thisfile_bmp_header_raw['header_size'] == 84) {
141			$thisfile_bmp['type_os']      = 'Windows';
142			$thisfile_bmp['type_version'] = 4;
143		} elseif ($thisfile_bmp_header_raw['header_size'] == 100) {
144			$thisfile_bmp['type_os']      = 'Windows';
145			$thisfile_bmp['type_version'] = 5;
146		} else {
147			$ThisFileInfo['error'][] = 'Unknown BMP subtype (or not a BMP file)';
148			unset($ThisFileInfo['fileformat']);
149			unset($ThisFileInfo['bmp']);
150			return false;
151		}
152
153		$ThisFileInfo['fileformat']                  = 'bmp';
154		$ThisFileInfo['video']['dataformat']         = 'bmp';
155		$ThisFileInfo['video']['lossless']           = true;
156		$ThisFileInfo['video']['pixel_aspect_ratio'] = (float) 1;
157
158		if ($thisfile_bmp['type_os'] == 'OS/2') {
159
160			// OS/2-format BMP
161			// http://netghost.narod.ru/gff/graphics/summary/os2bmp.htm
162
163			// DWORD  Size;             /* Size of this structure in bytes */
164			// DWORD  Width;            /* Bitmap width in pixels */
165			// DWORD  Height;           /* Bitmap height in pixel */
166			// WORD   NumPlanes;        /* Number of bit planes (color depth) */
167			// WORD   BitsPerPixel;     /* Number of bits per pixel per plane */
168
169			$thisfile_bmp_header_raw['width']          = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
170			$offset += 2;
171			$thisfile_bmp_header_raw['height']         = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
172			$offset += 2;
173			$thisfile_bmp_header_raw['planes']         = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
174			$offset += 2;
175			$thisfile_bmp_header_raw['bits_per_pixel'] = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
176			$offset += 2;
177
178			$ThisFileInfo['video']['resolution_x']    = $thisfile_bmp_header_raw['width'];
179			$ThisFileInfo['video']['resolution_y']    = $thisfile_bmp_header_raw['height'];
180			$ThisFileInfo['video']['codec']           = 'BI_RGB '.$thisfile_bmp_header_raw['bits_per_pixel'].'-bit';
181			$ThisFileInfo['video']['bits_per_sample'] = $thisfile_bmp_header_raw['bits_per_pixel'];
182
183			if ($thisfile_bmp['type_version'] >= 2) {
184				// DWORD  Compression;      /* Bitmap compression scheme */
185				// DWORD  ImageDataSize;    /* Size of bitmap data in bytes */
186				// DWORD  XResolution;      /* X resolution of display device */
187				// DWORD  YResolution;      /* Y resolution of display device */
188				// DWORD  ColorsUsed;       /* Number of color table indices used */
189				// DWORD  ColorsImportant;  /* Number of important color indices */
190				// WORD   Units;            /* Type of units used to measure resolution */
191				// WORD   Reserved;         /* Pad structure to 4-byte boundary */
192				// WORD   Recording;        /* Recording algorithm */
193				// WORD   Rendering;        /* Halftoning algorithm used */
194				// DWORD  Size1;            /* Reserved for halftoning algorithm use */
195				// DWORD  Size2;            /* Reserved for halftoning algorithm use */
196				// DWORD  ColorEncoding;    /* Color model used in bitmap */
197				// DWORD  Identifier;       /* Reserved for application use */
198
199				$thisfile_bmp_header_raw['compression']      = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
200				$offset += 4;
201				$thisfile_bmp_header_raw['bmp_data_size']    = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
202				$offset += 4;
203				$thisfile_bmp_header_raw['resolution_h']     = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
204				$offset += 4;
205				$thisfile_bmp_header_raw['resolution_v']     = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
206				$offset += 4;
207				$thisfile_bmp_header_raw['colors_used']      = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
208				$offset += 4;
209				$thisfile_bmp_header_raw['colors_important'] = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
210				$offset += 4;
211				$thisfile_bmp_header_raw['resolution_units'] = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
212				$offset += 2;
213				$thisfile_bmp_header_raw['reserved1']        = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
214				$offset += 2;
215				$thisfile_bmp_header_raw['recording']        = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
216				$offset += 2;
217				$thisfile_bmp_header_raw['rendering']        = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
218				$offset += 2;
219				$thisfile_bmp_header_raw['size1']            = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
220				$offset += 4;
221				$thisfile_bmp_header_raw['size2']            = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
222				$offset += 4;
223				$thisfile_bmp_header_raw['color_encoding']   = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
224				$offset += 4;
225				$thisfile_bmp_header_raw['identifier']       = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
226				$offset += 4;
227
228				$thisfile_bmp_header['compression']          = $this->BMPcompressionOS2Lookup($thisfile_bmp_header_raw['compression']);
229
230				$ThisFileInfo['video']['codec'] = $thisfile_bmp_header['compression'].' '.$thisfile_bmp_header_raw['bits_per_pixel'].'-bit';
231			}
232
233		} elseif ($thisfile_bmp['type_os'] == 'Windows') {
234
235			// Windows-format BMP
236
237			// BITMAPINFOHEADER - [40 bytes] http://msdn.microsoft.com/library/en-us/gdi/bitmaps_1rw2.asp
238			// all versions
239			// DWORD  biSize;
240			// LONG   biWidth;
241			// LONG   biHeight;
242			// WORD   biPlanes;
243			// WORD   biBitCount;
244			// DWORD  biCompression;
245			// DWORD  biSizeImage;
246			// LONG   biXPelsPerMeter;
247			// LONG   biYPelsPerMeter;
248			// DWORD  biClrUsed;
249			// DWORD  biClrImportant;
250
251			$thisfile_bmp_header_raw['width']            = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
252			$offset += 4;
253			$thisfile_bmp_header_raw['height']           = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
254			$offset += 4;
255			$thisfile_bmp_header_raw['planes']           = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
256			$offset += 2;
257			$thisfile_bmp_header_raw['bits_per_pixel']   = $this->LittleEndian2Int(substr($BMPheader, $offset, 2));
258			$offset += 2;
259			$thisfile_bmp_header_raw['compression']      = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
260			$offset += 4;
261			$thisfile_bmp_header_raw['bmp_data_size']    = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
262			$offset += 4;
263			$thisfile_bmp_header_raw['resolution_h']     = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
264			$offset += 4;
265			$thisfile_bmp_header_raw['resolution_v']     = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
266			$offset += 4;
267			$thisfile_bmp_header_raw['colors_used']      = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
268			$offset += 4;
269			$thisfile_bmp_header_raw['colors_important'] = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
270			$offset += 4;
271
272			$thisfile_bmp_header['compression'] = $this->BMPcompressionWindowsLookup($thisfile_bmp_header_raw['compression']);
273			$ThisFileInfo['video']['resolution_x']    = $thisfile_bmp_header_raw['width'];
274			$ThisFileInfo['video']['resolution_y']    = $thisfile_bmp_header_raw['height'];
275			$ThisFileInfo['video']['codec']           = $thisfile_bmp_header['compression'].' '.$thisfile_bmp_header_raw['bits_per_pixel'].'-bit';
276			$ThisFileInfo['video']['bits_per_sample'] = $thisfile_bmp_header_raw['bits_per_pixel'];
277
278			if (($thisfile_bmp['type_version'] >= 4) || ($thisfile_bmp_header_raw['compression'] == 3)) {
279				// should only be v4+, but BMPs with type_version==1 and BI_BITFIELDS compression have been seen
280				$BMPheader .= substr($BMPdata, $overalloffset, 44);
281				$overalloffset += 44;
282
283				// BITMAPV4HEADER - [44 bytes] - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_2k1e.asp
284				// Win95+, WinNT4.0+
285				// DWORD        bV4RedMask;
286				// DWORD        bV4GreenMask;
287				// DWORD        bV4BlueMask;
288				// DWORD        bV4AlphaMask;
289				// DWORD        bV4CSType;
290				// CIEXYZTRIPLE bV4Endpoints;
291				// DWORD        bV4GammaRed;
292				// DWORD        bV4GammaGreen;
293				// DWORD        bV4GammaBlue;
294				$thisfile_bmp_header_raw['red_mask']     = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
295				$offset += 4;
296				$thisfile_bmp_header_raw['green_mask']   = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
297				$offset += 4;
298				$thisfile_bmp_header_raw['blue_mask']    = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
299				$offset += 4;
300				$thisfile_bmp_header_raw['alpha_mask']   = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
301				$offset += 4;
302				$thisfile_bmp_header_raw['cs_type']      = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
303				$offset += 4;
304				$thisfile_bmp_header_raw['ciexyz_red']   =                         substr($BMPheader, $offset, 4);
305				$offset += 4;
306				$thisfile_bmp_header_raw['ciexyz_green'] =                         substr($BMPheader, $offset, 4);
307				$offset += 4;
308				$thisfile_bmp_header_raw['ciexyz_blue']  =                         substr($BMPheader, $offset, 4);
309				$offset += 4;
310				$thisfile_bmp_header_raw['gamma_red']    = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
311				$offset += 4;
312				$thisfile_bmp_header_raw['gamma_green']  = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
313				$offset += 4;
314				$thisfile_bmp_header_raw['gamma_blue']   = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
315				$offset += 4;
316
317				$thisfile_bmp_header['ciexyz_red']   = $this->FixedPoint2_30(strrev($thisfile_bmp_header_raw['ciexyz_red']));
318				$thisfile_bmp_header['ciexyz_green'] = $this->FixedPoint2_30(strrev($thisfile_bmp_header_raw['ciexyz_green']));
319				$thisfile_bmp_header['ciexyz_blue']  = $this->FixedPoint2_30(strrev($thisfile_bmp_header_raw['ciexyz_blue']));
320			}
321
322			if ($thisfile_bmp['type_version'] >= 5) {
323				$BMPheader .= substr($BMPdata, $overalloffset, 16);
324				$overalloffset += 16;
325
326				// BITMAPV5HEADER - [16 bytes] - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_7c36.asp
327				// Win98+, Win2000+
328				// DWORD        bV5Intent;
329				// DWORD        bV5ProfileData;
330				// DWORD        bV5ProfileSize;
331				// DWORD        bV5Reserved;
332				$thisfile_bmp_header_raw['intent']              = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
333				$offset += 4;
334				$thisfile_bmp_header_raw['profile_data_offset'] = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
335				$offset += 4;
336				$thisfile_bmp_header_raw['profile_data_size']   = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
337				$offset += 4;
338				$thisfile_bmp_header_raw['reserved3']           = $this->LittleEndian2Int(substr($BMPheader, $offset, 4));
339				$offset += 4;
340			}
341
342		} else {
343
344			$ThisFileInfo['error'][] = 'Unknown BMP format in header.';
345			return false;
346
347		}
348
349		if ($ExtractPalette || $ExtractData) {
350			$PaletteEntries = 0;
351			if ($thisfile_bmp_header_raw['bits_per_pixel'] < 16) {
352				$PaletteEntries = pow(2, $thisfile_bmp_header_raw['bits_per_pixel']);
353			} elseif (isset($thisfile_bmp_header_raw['colors_used']) && ($thisfile_bmp_header_raw['colors_used'] > 0) && ($thisfile_bmp_header_raw['colors_used'] <= 256)) {
354				$PaletteEntries = $thisfile_bmp_header_raw['colors_used'];
355			}
356			if ($PaletteEntries > 0) {
357				$BMPpalette = substr($BMPdata, $overalloffset, 4 * $PaletteEntries);
358				$overalloffset += 4 * $PaletteEntries;
359
360				$paletteoffset = 0;
361				for ($i = 0; $i < $PaletteEntries; $i++) {
362					// RGBQUAD          - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_5f8y.asp
363					// BYTE    rgbBlue;
364					// BYTE    rgbGreen;
365					// BYTE    rgbRed;
366					// BYTE    rgbReserved;
367					$blue  = $this->LittleEndian2Int($BMPpalette[ $paletteoffset++ ]);
368					$green = $this->LittleEndian2Int($BMPpalette[ $paletteoffset++ ]);
369					$red   = $this->LittleEndian2Int($BMPpalette[ $paletteoffset++ ]);
370					if (($thisfile_bmp['type_os'] == 'OS/2') && ($thisfile_bmp['type_version'] == 1)) {
371						// no padding byte
372					} else {
373						$paletteoffset++; // padding byte
374					}
375					$thisfile_bmp['palette'][$i] = (($red << 16) | ($green << 8) | $blue);
376				}
377			}
378		}
379
380		if ($ExtractData) {
381			$RowByteLength = ceil(($thisfile_bmp_header_raw['width'] * ($thisfile_bmp_header_raw['bits_per_pixel'] / 8)) / 4) * 4; // round up to nearest DWORD boundary
382
383			$BMPpixelData = substr($BMPdata, $thisfile_bmp_header_raw['data_offset'], $thisfile_bmp_header_raw['height'] * $RowByteLength);
384			$overalloffset = $thisfile_bmp_header_raw['data_offset'] + ($thisfile_bmp_header_raw['height'] * $RowByteLength);
385
386			$pixeldataoffset = 0;
387			switch (@$thisfile_bmp_header_raw['compression']) {
388
389				case 0: // BI_RGB
390					switch ($thisfile_bmp_header_raw['bits_per_pixel']) {
391						case 1:
392							for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) {
393								for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col = $col) {
394									$paletteindexbyte = ord($BMPpixelData[$pixeldataoffset++]);
395									for ($i = 7; $i >= 0; $i--) {
396										$paletteindex = ($paletteindexbyte & (0x01 << $i)) >> $i;
397										$thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindex];
398										$col++;
399									}
400								}
401								while (($pixeldataoffset % 4) != 0) {
402									// lines are padded to nearest DWORD
403									$pixeldataoffset++;
404								}
405							}
406							break;
407
408						case 4:
409							for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) {
410								for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col = $col) {
411									$paletteindexbyte = ord($BMPpixelData[$pixeldataoffset++]);
412									for ($i = 1; $i >= 0; $i--) {
413										$paletteindex = ($paletteindexbyte & (0x0F << (4 * $i))) >> (4 * $i);
414										$thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindex];
415										$col++;
416									}
417								}
418								while (($pixeldataoffset % 4) != 0) {
419									// lines are padded to nearest DWORD
420									$pixeldataoffset++;
421								}
422							}
423							break;
424
425						case 8:
426							for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) {
427								for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col++) {
428									$paletteindex = ord($BMPpixelData[$pixeldataoffset++]);
429									$thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindex];
430								}
431								while (($pixeldataoffset % 4) != 0) {
432									// lines are padded to nearest DWORD
433									$pixeldataoffset++;
434								}
435							}
436							break;
437
438						case 24:
439							for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) {
440								for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col++) {
441									$thisfile_bmp['data'][$row][$col] = (ord($BMPpixelData[$pixeldataoffset+2]) << 16) | (ord($BMPpixelData[$pixeldataoffset+1]) << 8) | ord($BMPpixelData[$pixeldataoffset]);
442									$pixeldataoffset += 3;
443								}
444								while (($pixeldataoffset % 4) != 0) {
445									// lines are padded to nearest DWORD
446									$pixeldataoffset++;
447								}
448							}
449							break;
450
451						case 32:
452							for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) {
453								for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col++) {
454									$thisfile_bmp['data'][$row][$col] = (ord($BMPpixelData[$pixeldataoffset+3]) << 24) | (ord($BMPpixelData[$pixeldataoffset+2]) << 16) | (ord($BMPpixelData[$pixeldataoffset+1]) << 8) | ord($BMPpixelData[$pixeldataoffset]);
455									$pixeldataoffset += 4;
456								}
457								while (($pixeldataoffset % 4) != 0) {
458									// lines are padded to nearest DWORD
459									$pixeldataoffset++;
460								}
461							}
462							break;
463
464						case 16:
465							// ?
466							break;
467
468						default:
469							$ThisFileInfo['error'][] = 'Unknown bits-per-pixel value ('.$thisfile_bmp_header_raw['bits_per_pixel'].') - cannot read pixel data';
470							break;
471					}
472					break;
473
474
475				case 1: // BI_RLE8 - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_6x0u.asp
476					switch ($thisfile_bmp_header_raw['bits_per_pixel']) {
477						case 8:
478							$pixelcounter = 0;
479							while ($pixeldataoffset < strlen($BMPpixelData)) {
480								$firstbyte  = $this->LittleEndian2Int($BMPpixelData[ $pixeldataoffset++ ]);
481								$secondbyte = $this->LittleEndian2Int($BMPpixelData[ $pixeldataoffset++ ]);
482								if ($firstbyte == 0) {
483
484									// escaped/absolute mode - the first byte of the pair can be set to zero to
485									// indicate an escape character that denotes the end of a line, the end of
486									// a bitmap, or a delta, depending on the value of the second byte.
487									switch ($secondbyte) {
488										case 0:
489											// end of line
490											// no need for special processing, just ignore
491											break;
492
493										case 1:
494											// end of bitmap
495											$pixeldataoffset = strlen($BMPpixelData); // force to exit loop just in case
496											break;
497
498										case 2:
499											// delta - The 2 bytes following the escape contain unsigned values
500											// indicating the horizontal and vertical offsets of the next pixel
501											// from the current position.
502											$colincrement = $this->LittleEndian2Int($BMPpixelData[ $pixeldataoffset++ ]);
503											$rowincrement = $this->LittleEndian2Int($BMPpixelData[ $pixeldataoffset++ ]);
504											$col = ($pixelcounter % $thisfile_bmp_header_raw['width']) + $colincrement;
505											$row = ($thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width'])) - $rowincrement;
506											$pixelcounter = ($row * $thisfile_bmp_header_raw['width']) + $col;
507											break;
508
509										default:
510											// In absolute mode, the first byte is zero and the second byte is a
511											// value in the range 03H through FFH. The second byte represents the
512											// number of bytes that follow, each of which contains the color index
513											// of a single pixel. Each run must be aligned on a word boundary.
514											for ($i = 0; $i < $secondbyte; $i++) {
515												$paletteindex = $this->LittleEndian2Int($BMPpixelData[ $pixeldataoffset++ ]);
516												$col = $pixelcounter % $thisfile_bmp_header_raw['width'];
517												$row = $thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width']);
518												$thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindex];
519												$pixelcounter++;
520											}
521											while (($pixeldataoffset % 2) != 0) {
522												// Each run must be aligned on a word boundary.
523												$pixeldataoffset++;
524											}
525											break;
526									}
527
528								} else {
529
530									// encoded mode - the first byte specifies the number of consecutive pixels
531									// to be drawn using the color index contained in the second byte.
532									for ($i = 0; $i < $firstbyte; $i++) {
533										$col = $pixelcounter % $thisfile_bmp_header_raw['width'];
534										$row = $thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width']);
535										$thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$secondbyte];
536										$pixelcounter++;
537									}
538
539								}
540							}
541							break;
542
543						default:
544							$ThisFileInfo['error'][] = 'Unknown bits-per-pixel value ('.$thisfile_bmp_header_raw['bits_per_pixel'].') - cannot read pixel data';
545							break;
546					}
547					break;
548
549
550
551				case 2: // BI_RLE4 - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_6x0u.asp
552					switch ($thisfile_bmp_header_raw['bits_per_pixel']) {
553						case 4:
554							$pixelcounter = 0;
555							while ($pixeldataoffset < strlen($BMPpixelData)) {
556								$firstbyte  = $this->LittleEndian2Int($BMPpixelData[ $pixeldataoffset++ ]);
557								$secondbyte = $this->LittleEndian2Int($BMPpixelData[ $pixeldataoffset++ ]);
558								if ($firstbyte == 0) {
559
560									// escaped/absolute mode - the first byte of the pair can be set to zero to
561									// indicate an escape character that denotes the end of a line, the end of
562									// a bitmap, or a delta, depending on the value of the second byte.
563									switch ($secondbyte) {
564										case 0:
565											// end of line
566											// no need for special processing, just ignore
567											break;
568
569										case 1:
570											// end of bitmap
571											$pixeldataoffset = strlen($BMPpixelData); // force to exit loop just in case
572											break;
573
574										case 2:
575											// delta - The 2 bytes following the escape contain unsigned values
576											// indicating the horizontal and vertical offsets of the next pixel
577											// from the current position.
578											$colincrement = $this->LittleEndian2Int($BMPpixelData[ $pixeldataoffset++ ]);
579											$rowincrement = $this->LittleEndian2Int($BMPpixelData[ $pixeldataoffset++ ]);
580											$col = ($pixelcounter % $thisfile_bmp_header_raw['width']) + $colincrement;
581											$row = ($thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width'])) - $rowincrement;
582											$pixelcounter = ($row * $thisfile_bmp_header_raw['width']) + $col;
583											break;
584
585										default:
586											// In absolute mode, the first byte is zero. The second byte contains the number
587											// of color indexes that follow. Subsequent bytes contain color indexes in their
588											// high- and low-order 4 bits, one color index for each pixel. In absolute mode,
589											// each run must be aligned on a word boundary.
590											$paletteindexes = array();
591											for ($i = 0, $iMax = ceil($secondbyte / 2); $i < $iMax; $i++) {
592												$paletteindexbyte = $this->LittleEndian2Int($BMPpixelData[ $pixeldataoffset++ ]);
593												$paletteindexes[] = ($paletteindexbyte & 0xF0) >> 4;
594												$paletteindexes[] = ($paletteindexbyte & 0x0F);
595											}
596											while (($pixeldataoffset % 2) != 0) {
597												// Each run must be aligned on a word boundary.
598												$pixeldataoffset++;
599											}
600
601											foreach ($paletteindexes as $dummy => $paletteindex) {
602												$col = $pixelcounter % $thisfile_bmp_header_raw['width'];
603												$row = $thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width']);
604												$thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindex];
605												$pixelcounter++;
606											}
607											break;
608									}
609
610								} else {
611
612									// encoded mode - the first byte of the pair contains the number of pixels to be
613									// drawn using the color indexes in the second byte. The second byte contains two
614									// color indexes, one in its high-order 4 bits and one in its low-order 4 bits.
615									// The first of the pixels is drawn using the color specified by the high-order
616									// 4 bits, the second is drawn using the color in the low-order 4 bits, the third
617									// is drawn using the color in the high-order 4 bits, and so on, until all the
618									// pixels specified by the first byte have been drawn.
619									$paletteindexes[0] = ($secondbyte & 0xF0) >> 4;
620									$paletteindexes[1] = ($secondbyte & 0x0F);
621									for ($i = 0; $i < $firstbyte; $i++) {
622										$col = $pixelcounter % $thisfile_bmp_header_raw['width'];
623										$row = $thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width']);
624										$thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][ $paletteindexes[ $i % 2 ]];
625										$pixelcounter++;
626									}
627
628								}
629							}
630							break;
631
632						default:
633							$ThisFileInfo['error'][] = 'Unknown bits-per-pixel value ('.$thisfile_bmp_header_raw['bits_per_pixel'].') - cannot read pixel data';
634							break;
635					}
636					break;
637
638
639				case 3: // BI_BITFIELDS
640					switch ($thisfile_bmp_header_raw['bits_per_pixel']) {
641						case 16:
642						case 32:
643							$redshift   = 0;
644							$greenshift = 0;
645							$blueshift  = 0;
646							if (!$thisfile_bmp_header_raw['red_mask'] || !$thisfile_bmp_header_raw['green_mask'] || !$thisfile_bmp_header_raw['blue_mask']) {
647								$ThisFileInfo['error'][] = 'missing $thisfile_bmp_header_raw[(red|green|blue)_mask]';
648								return false;
649							}
650							while ((($thisfile_bmp_header_raw['red_mask'] >> $redshift) & 0x01) == 0) {
651								$redshift++;
652							}
653							while ((($thisfile_bmp_header_raw['green_mask'] >> $greenshift) & 0x01) == 0) {
654								$greenshift++;
655							}
656							while ((($thisfile_bmp_header_raw['blue_mask'] >> $blueshift) & 0x01) == 0) {
657								$blueshift++;
658							}
659							for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) {
660								for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col++) {
661									$pixelvalue = $this->LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset, $thisfile_bmp_header_raw['bits_per_pixel'] / 8));
662									$pixeldataoffset += $thisfile_bmp_header_raw['bits_per_pixel'] / 8;
663
664									$red   = (int) round(((($pixelvalue & $thisfile_bmp_header_raw[ 'red_mask'])   >> $redshift)   / ($thisfile_bmp_header_raw[ 'red_mask']   >> $redshift))   * 255);
665									$green = (int) round(((($pixelvalue & $thisfile_bmp_header_raw[ 'green_mask']) >> $greenshift) / ($thisfile_bmp_header_raw[ 'green_mask'] >> $greenshift)) * 255);
666									$blue  = (int) round(((($pixelvalue & $thisfile_bmp_header_raw[ 'blue_mask'])  >> $blueshift)  / ($thisfile_bmp_header_raw[ 'blue_mask']  >> $blueshift))  * 255);
667									$thisfile_bmp['data'][$row][$col] = (($red << 16) | ($green << 8) | $blue);
668								}
669								while (($pixeldataoffset % 4) != 0) {
670									// lines are padded to nearest DWORD
671									$pixeldataoffset++;
672								}
673							}
674							break;
675
676						default:
677							$ThisFileInfo['error'][] = 'Unknown bits-per-pixel value ('.$thisfile_bmp_header_raw['bits_per_pixel'].') - cannot read pixel data';
678							break;
679					}
680					break;
681
682
683				default: // unhandled compression type
684					$ThisFileInfo['error'][] = 'Unknown/unhandled compression type value ('.$thisfile_bmp_header_raw['compression'].') - cannot decompress pixel data';
685					break;
686			}
687		}
688
689		return true;
690	}
691
692	public function IntColor2RGB($color) {
693		$red   = ($color & 0x00FF0000) >> 16;
694		$green = ($color & 0x0000FF00) >> 8;
695		$blue  = ($color & 0x000000FF);
696		return array($red, $green, $blue);
697	}
698
699	public function PlotPixelsGD(&$BMPdata, $truecolor=true) {
700		$imagewidth  = $BMPdata['header']['raw']['width'];
701		$imageheight = $BMPdata['header']['raw']['height'];
702
703		if ($truecolor) {
704
705			$gd = @imagecreatetruecolor($imagewidth, $imageheight);
706
707		} else {
708
709			$gd = @imagecreate($imagewidth, $imageheight);
710			if (!empty($BMPdata['palette'])) {
711				// create GD palette from BMP palette
712				foreach ($BMPdata['palette'] as $dummy => $color) {
713					list($r, $g, $b) = $this->IntColor2RGB($color);
714					imagecolorallocate($gd, $r, $g, $b);
715				}
716			} else {
717				// create 216-color websafe palette
718				for ($r = 0x00; $r <= 0xFF; $r += 0x33) {
719					for ($g = 0x00; $g <= 0xFF; $g += 0x33) {
720						for ($b = 0x00; $b <= 0xFF; $b += 0x33) {
721							imagecolorallocate($gd, $r, $g, $b);
722						}
723					}
724				}
725			}
726
727		}
728		if (!is_resource($gd) && !(is_object($gd) && $gd instanceOf \GdImage)) {
729			return false;
730		}
731
732		foreach ($BMPdata['data'] as $row => $colarray) {
733			if (!phpthumb_functions::FunctionIsDisabled('set_time_limit')) {
734				set_time_limit(30);
735			}
736			foreach ($colarray as $col => $color) {
737				list($red, $green, $blue) = $this->IntColor2RGB($color);
738				if ($truecolor) {
739					$pixelcolor = imagecolorallocate($gd, $red, $green, $blue);
740				} else {
741					$pixelcolor = imagecolorclosest($gd, $red, $green, $blue);
742				}
743				imagesetpixel($gd, $col, $row, $pixelcolor);
744			}
745		}
746		return $gd;
747	}
748
749	public function PlotBMP(&$BMPinfo) {
750		$starttime = time();
751		if (!isset($BMPinfo['bmp']['data']) || !is_array($BMPinfo['bmp']['data'])) {
752			echo 'ERROR: no pixel data<BR>';
753			return false;
754		}
755		if (!phpthumb_functions::FunctionIsDisabled('set_time_limit')) {
756			set_time_limit((int) round($BMPinfo[ 'resolution_x'] * $BMPinfo[ 'resolution_y'] / 10000));
757		}
758		$im = $this->PlotPixelsGD($BMPinfo['bmp']);
759		if (headers_sent()) {
760			echo 'plotted '.($BMPinfo['resolution_x'] * $BMPinfo['resolution_y']).' pixels in '.(time() - $starttime).' seconds<BR>';
761			imagedestroy($im);
762			exit;
763		}
764		header('Content-Type: image/png');
765		imagepng($im);
766		imagedestroy($im);
767		return true;
768	}
769
770	public function BMPcompressionWindowsLookup($compressionid) {
771		static $BMPcompressionWindowsLookup = array(
772			0 => 'BI_RGB',
773			1 => 'BI_RLE8',
774			2 => 'BI_RLE4',
775			3 => 'BI_BITFIELDS',
776			4 => 'BI_JPEG',
777			5 => 'BI_PNG'
778		);
779		return (isset($BMPcompressionWindowsLookup[$compressionid]) ? $BMPcompressionWindowsLookup[$compressionid] : 'invalid');
780	}
781
782	public function BMPcompressionOS2Lookup($compressionid) {
783		static $BMPcompressionOS2Lookup = array(
784			0 => 'BI_RGB',
785			1 => 'BI_RLE8',
786			2 => 'BI_RLE4',
787			3 => 'Huffman 1D',
788			4 => 'BI_RLE24',
789		);
790		return (isset($BMPcompressionOS2Lookup[$compressionid]) ? $BMPcompressionOS2Lookup[$compressionid] : 'invalid');
791	}
792
793
794	// from getid3.lib.php
795
796	public function trunc($floatnumber) {
797		// truncates a floating-point number at the decimal point
798		// returns int (if possible, otherwise float)
799		if ($floatnumber >= 1) {
800			$truncatednumber = floor($floatnumber);
801		} elseif ($floatnumber <= -1) {
802			$truncatednumber = ceil($floatnumber);
803		} else {
804			$truncatednumber = 0;
805		}
806		if ($truncatednumber <= 1073741824) { // 2^30
807			$truncatednumber = (int) $truncatednumber;
808		}
809		return $truncatednumber;
810	}
811
812	public function LittleEndian2Int($byteword) {
813		$intvalue = 0;
814		$byteword = strrev($byteword);
815		$bytewordlen = strlen($byteword);
816		for ($i = 0; $i < $bytewordlen; $i++) {
817			$intvalue += ord($byteword[$i]) * pow(256, $bytewordlen - 1 - $i);
818		}
819		return $intvalue;
820	}
821
822	public function BigEndian2Int($byteword) {
823		return $this->LittleEndian2Int(strrev($byteword));
824	}
825
826	public function BigEndian2Bin($byteword) {
827		$binvalue = '';
828		$bytewordlen = strlen($byteword);
829		for ($i = 0; $i < $bytewordlen; $i++) {
830			$binvalue .= str_pad(decbin(ord($byteword[$i])), 8, '0', STR_PAD_LEFT);
831		}
832		return $binvalue;
833	}
834
835	public function FixedPoint2_30($rawdata) {
836		$binarystring = $this->BigEndian2Bin($rawdata);
837		return $this->Bin2Dec(substr($binarystring, 0, 2)) + (float) ($this->Bin2Dec(substr($binarystring, 2, 30)) / 1073741824);
838	}
839
840	public function Bin2Dec($binstring, $signed=false) {
841		$signmult = 1;
842		if ($signed) {
843			if ($binstring[0] == '1') {
844				$signmult = -1;
845			}
846			$binstring = substr($binstring, 1);
847		}
848		$decvalue = 0;
849		for ($i = 0, $iMax = strlen($binstring); $i < $iMax; $i++) {
850			$decvalue += ((int) $binstring[ strlen($binstring) - $i - 1 ]) * pow(2, $i);
851		}
852		return $this->CastAsInt($decvalue * $signmult);
853	}
854
855	public function CastAsInt($floatnum) {
856		// convert to float if not already
857		$floatnum = (float) $floatnum;
858
859		// convert a float to type int, only if possible
860		if ($this->trunc($floatnum) == $floatnum) {
861			// it's not floating point
862			if ($floatnum <= 1073741824) { // 2^30
863				// it's within int range
864				$floatnum = (int) $floatnum;
865			}
866		}
867		return $floatnum;
868	}
869
870}
871