[3318] | 1 | <?php |
---|
[3544] | 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.pcd.php // |
---|
| 11 | // module for analyzing PhotoCD (PCD) Image files // |
---|
| 12 | // dependencies: NONE // |
---|
| 13 | // /// |
---|
| 14 | ///////////////////////////////////////////////////////////////// |
---|
[3318] | 15 | |
---|
[3544] | 16 | |
---|
| 17 | class getid3_pcd |
---|
[3318] | 18 | { |
---|
[3544] | 19 | function getid3_pcd(&$fd, &$ThisFileInfo, $ExtractData=0) { |
---|
| 20 | $ThisFileInfo['fileformat'] = 'pcd'; |
---|
| 21 | $ThisFileInfo['video']['dataformat'] = 'pcd'; |
---|
| 22 | $ThisFileInfo['video']['lossless'] = false; |
---|
[3318] | 23 | |
---|
| 24 | |
---|
[3544] | 25 | fseek($fd, $ThisFileInfo['avdataoffset'] + 72, SEEK_SET); |
---|
[3318] | 26 | |
---|
[3544] | 27 | $PCDflags = fread($fd, 1); |
---|
| 28 | $PCDisVertical = ((ord($PCDflags) & 0x01) ? true : false); |
---|
[3318] | 29 | |
---|
| 30 | |
---|
[3544] | 31 | if ($PCDisVertical) { |
---|
| 32 | $ThisFileInfo['video']['resolution_x'] = 3072; |
---|
| 33 | $ThisFileInfo['video']['resolution_y'] = 2048; |
---|
| 34 | } else { |
---|
| 35 | $ThisFileInfo['video']['resolution_x'] = 2048; |
---|
| 36 | $ThisFileInfo['video']['resolution_y'] = 3072; |
---|
| 37 | } |
---|
[3318] | 38 | |
---|
| 39 | |
---|
[3544] | 40 | if ($ExtractData > 3) { |
---|
[3318] | 41 | |
---|
[3544] | 42 | $ThisFileInfo['error'][] = 'Cannot extract PSD image data for detail levels above BASE (3)'; |
---|
[3318] | 43 | |
---|
[3544] | 44 | } elseif ($ExtractData > 0) { |
---|
| 45 | |
---|
| 46 | $PCD_levels[1] = array( 192, 128, 0x02000); // BASE/16 |
---|
| 47 | $PCD_levels[2] = array( 384, 256, 0x0B800); // BASE/4 |
---|
| 48 | $PCD_levels[3] = array( 768, 512, 0x30000); // BASE |
---|
| 49 | //$PCD_levels[4] = array(1536, 1024, ??); // BASE*4 - encrypted with Kodak-proprietary compression/encryption |
---|
| 50 | //$PCD_levels[5] = array(3072, 2048, ??); // BASE*16 - encrypted with Kodak-proprietary compression/encryption |
---|
| 51 | //$PCD_levels[6] = array(6144, 4096, ??); // BASE*64 - encrypted with Kodak-proprietary compression/encryption; PhotoCD-Pro only |
---|
| 52 | |
---|
| 53 | list($PCD_width, $PCD_height, $PCD_dataOffset) = $PCD_levels[3]; |
---|
| 54 | |
---|
| 55 | fseek($fd, $ThisFileInfo['avdataoffset'] + $PCD_dataOffset, SEEK_SET); |
---|
| 56 | |
---|
| 57 | for ($y = 0; $y < $PCD_height; $y += 2) { |
---|
| 58 | // The image-data of these subtypes start at the respective offsets of 02000h, 0b800h and 30000h. |
---|
| 59 | // To decode the YcbYr to the more usual RGB-code, three lines of data have to be read, each |
---|
| 60 | // consisting of w bytes, where w is the width of the image-subtype. The first w bytes and |
---|
| 61 | // the first half of the third w bytes contain data for the first RGB-line, the second w bytes |
---|
| 62 | // and the second half of the third w bytes contain data for a second RGB-line. |
---|
| 63 | |
---|
| 64 | $PCD_data_Y1 = fread($fd, $PCD_width); |
---|
| 65 | $PCD_data_Y2 = fread($fd, $PCD_width); |
---|
| 66 | $PCD_data_Cb = fread($fd, intval(round($PCD_width / 2))); |
---|
| 67 | $PCD_data_Cr = fread($fd, intval(round($PCD_width / 2))); |
---|
| 68 | |
---|
| 69 | for ($x = 0; $x < $PCD_width; $x++) { |
---|
| 70 | if ($PCDisVertical) { |
---|
| 71 | $ThisFileInfo['pcd']['data'][$PCD_width - $x][$y] = $this->YCbCr2RGB(ord($PCD_data_Y1{$x}), ord($PCD_data_Cb{floor($x / 2)}), ord($PCD_data_Cr{floor($x / 2)})); |
---|
| 72 | $ThisFileInfo['pcd']['data'][$PCD_width - $x][$y + 1] = $this->YCbCr2RGB(ord($PCD_data_Y2{$x}), ord($PCD_data_Cb{floor($x / 2)}), ord($PCD_data_Cr{floor($x / 2)})); |
---|
| 73 | } else { |
---|
| 74 | $ThisFileInfo['pcd']['data'][$y][$x] = $this->YCbCr2RGB(ord($PCD_data_Y1{$x}), ord($PCD_data_Cb{floor($x / 2)}), ord($PCD_data_Cr{floor($x / 2)})); |
---|
| 75 | $ThisFileInfo['pcd']['data'][$y + 1][$x] = $this->YCbCr2RGB(ord($PCD_data_Y2{$x}), ord($PCD_data_Cb{floor($x / 2)}), ord($PCD_data_Cr{floor($x / 2)})); |
---|
| 76 | } |
---|
| 77 | } |
---|
| 78 | } |
---|
| 79 | |
---|
| 80 | // Example for plotting extracted data |
---|
| 81 | //getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.ac3.php', __FILE__, true); |
---|
| 82 | //if ($PCDisVertical) { |
---|
| 83 | // $BMPinfo['resolution_x'] = $PCD_height; |
---|
| 84 | // $BMPinfo['resolution_y'] = $PCD_width; |
---|
| 85 | //} else { |
---|
| 86 | // $BMPinfo['resolution_x'] = $PCD_width; |
---|
| 87 | // $BMPinfo['resolution_y'] = $PCD_height; |
---|
| 88 | //} |
---|
| 89 | //$BMPinfo['bmp']['data'] = $ThisFileInfo['pcd']['data']; |
---|
| 90 | //getid3_bmp::PlotBMP($BMPinfo); |
---|
| 91 | //exit; |
---|
| 92 | |
---|
| 93 | } |
---|
| 94 | |
---|
| 95 | } |
---|
| 96 | |
---|
| 97 | function YCbCr2RGB($Y, $Cb, $Cr) { |
---|
| 98 | static $YCbCr_constants = array(); |
---|
| 99 | if (empty($YCbCr_constants)) { |
---|
| 100 | $YCbCr_constants['red']['Y'] = 0.0054980 * 256; |
---|
| 101 | $YCbCr_constants['red']['Cb'] = 0.0000000 * 256; |
---|
| 102 | $YCbCr_constants['red']['Cr'] = 0.0051681 * 256; |
---|
| 103 | $YCbCr_constants['green']['Y'] = 0.0054980 * 256; |
---|
| 104 | $YCbCr_constants['green']['Cb'] = -0.0015446 * 256; |
---|
| 105 | $YCbCr_constants['green']['Cr'] = -0.0026325 * 256; |
---|
| 106 | $YCbCr_constants['blue']['Y'] = 0.0054980 * 256; |
---|
| 107 | $YCbCr_constants['blue']['Cb'] = 0.0079533 * 256; |
---|
| 108 | $YCbCr_constants['blue']['Cr'] = 0.0000000 * 256; |
---|
| 109 | } |
---|
| 110 | |
---|
| 111 | $RGBcolor = array('red'=>0, 'green'=>0, 'blue'=>0); |
---|
| 112 | foreach ($RGBcolor as $rgbname => $dummy) { |
---|
| 113 | $RGBcolor[$rgbname] = max(0, |
---|
| 114 | min(255, |
---|
| 115 | intval( |
---|
| 116 | round( |
---|
| 117 | ($YCbCr_constants[$rgbname]['Y'] * $Y) + |
---|
| 118 | ($YCbCr_constants[$rgbname]['Cb'] * ($Cb - 156)) + |
---|
| 119 | ($YCbCr_constants[$rgbname]['Cr'] * ($Cr - 137)) |
---|
| 120 | ) |
---|
| 121 | ) |
---|
| 122 | ) |
---|
| 123 | ); |
---|
| 124 | } |
---|
| 125 | return (($RGBcolor['red'] * 65536) + ($RGBcolor['green'] * 256) + $RGBcolor['blue']); |
---|
| 126 | } |
---|
| 127 | |
---|
[3318] | 128 | } |
---|
| 129 | |
---|
| 130 | ?> |
---|