ILIAS  eassessment Revision 61809
 All Data Structures Namespaces Files Functions Variables Groups Pages
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 ?>