ILIAS  release_5-1 Revision 5.0.0-5477-g43f3e3fab5f
module.graphic.pcd.php
Go to the documentation of this file.
1<?php
4// available at http://getid3.sourceforge.net //
5// or http://www.getid3.org //
7// See readme.txt for more details //
9// //
10// module.graphic.pcd.php //
11// module for analyzing PhotoCD (PCD) Image files //
12// dependencies: NONE //
13// ///
15
16
18{
19 function getid3_pcd(&$fd, &$ThisFileInfo, $ExtractData=0) {
20 $ThisFileInfo['fileformat'] = 'pcd';
21 $ThisFileInfo['video']['dataformat'] = 'pcd';
22 $ThisFileInfo['video']['lossless'] = false;
23
24
25 fseek($fd, $ThisFileInfo['avdataoffset'] + 72, SEEK_SET);
26
27 $PCDflags = fread($fd, 1);
28 $PCDisVertical = ((ord($PCDflags) & 0x01) ? true : false);
29
30
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 }
38
39
40 if ($ExtractData > 3) {
41
42 $ThisFileInfo['error'][] = 'Cannot extract PSD image data for detail levels above BASE (3)';
43
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
128}
129
130?>
fseek($bytes, $whence=SEEK_SET)
Definition: getid3.php:1697
fread($bytes)
Definition: getid3.php:1685
getID3() by James Heinrich info@getid3.org //
YCbCr2RGB($Y, $Cb, $Cr)
getid3_pcd(&$fd, &$ThisFileInfo, $ExtractData=0)
$y
Definition: example_007.php:83
$x
Definition: example_009.php:98