]> source.dussan.org Git - nextcloud-server.git/commitdiff
add bmp support
authorJörn Friedrich Dreyer <jfd@butonic.de>
Tue, 6 Nov 2012 09:54:32 +0000 (10:54 +0100)
committerJörn Friedrich Dreyer <jfd@butonic.de>
Mon, 12 Nov 2012 12:04:00 +0000 (13:04 +0100)
lib/image.php

index 41cd908169023e8f47b82469b98f2b88cd8bd509..877a457f67a13716fc3da96e1ad087da232d411a 100644 (file)
 * License along with this library.  If not, see <http://www.gnu.org/licenses/>.
 *
 */
+//From http://www.programmierer-forum.de/imagebmp-gute-funktion-gefunden-t143716.htm
+if ( ! function_exists( 'imagebmp') ) {
+       function imagebmp($im, $filename='', $bit=24, $compression=0) {
+               // version 1.00
+               if (!in_array($bit, array(1, 4, 8, 16, 24, 32))) {
+                       $bit = 24;
+               }
+               else if ($bit == 32) {
+                       $bit = 24;
+               }
+               $bits = pow(2, $bit);
+               imagetruecolortopalette($im, true, $bits);
+               $width = imagesx($im);
+               $height = imagesy($im);
+               $colors_num = imagecolorstotal($im);
+               $rgb_quad = ''; 
+               if ($bit <= 8) {
+                       for ($i = 0; $i < $colors_num; $i++) {
+                               $colors = imagecolorsforindex($im, $i);
+                               $rgb_quad .= chr($colors['blue']) . chr($colors['green']) . chr($colors['red']) . "\0";
+                       }
+                       $bmp_data = '';
+                       if ($compression == 0 || $bit < 8) {
+                               $compression = 0;
+                               $extra = ''; 
+                               $padding = 4 - ceil($width / (8 / $bit)) % 4;
+                               if ($padding % 4 != 0) {
+                                       $extra = str_repeat("\0", $padding); 
+                               }
+                               for ($j = $height - 1; $j >= 0; $j --) {
+                                       $i = 0;
+                                       while ($i < $width) {
+                                               $bin = 0;
+                                               $limit = $width - $i < 8 / $bit ? (8 / $bit - $width + $i) * $bit : 0;
+                                               for ($k = 8 - $bit; $k >= $limit; $k -= $bit) {
+                                                       $index = imagecolorat($im, $i, $j);
+                                                       $bin |= $index << $k;
+                                                       $i++;
+                                               }
+                                               $bmp_data .= chr($bin);
+                                       }
+                                       $bmp_data .= $extra;
+                               }
+                       }
+                       // RLE8
+                       else if ($compression == 1 && $bit == 8) {
+                               for ($j = $height - 1; $j >= 0; $j--) {
+                                       $last_index = "\0";
+                                       $same_num = 0;
+                                       for ($i = 0; $i <= $width; $i++) {
+                                               $index = imagecolorat($im, $i, $j);
+                                               if ($index !== $last_index || $same_num > 255) {
+                                                       if ($same_num != 0) {
+                                                               $bmp_data .= chr($same_num) . chr($last_index);
+                                                       }
+                                                       $last_index = $index;
+                                                       $same_num = 1;
+                                               }
+                                               else {
+                                                       $same_num++;
+                                               }
+                                       }
+                                       $bmp_data .= "\0\0";
+                               }
+                               $bmp_data .= "\0\1";
+                       }
+                       $size_quad = strlen($rgb_quad);
+                       $size_data = strlen($bmp_data);
+               }
+               else {
+                       $extra = '';
+                       $padding = 4 - ($width * ($bit / 8)) % 4;
+                       if ($padding % 4 != 0) {
+                               $extra = str_repeat("\0", $padding);
+                       }
+                       $bmp_data = '';
+                       for ($j = $height - 1; $j >= 0; $j--) {
+                               for ($i = 0; $i < $width; $i++) {
+                                       $index  = imagecolorat($im, $i, $j);
+                                       $colors = imagecolorsforindex($im, $index);
+                                       if ($bit == 16) {
+                                               $bin = 0 << $bit;
+                                               $bin |= ($colors['red'] >> 3) << 10;
+                                               $bin |= ($colors['green'] >> 3) << 5;
+                                               $bin |= $colors['blue'] >> 3;
+                                               $bmp_data .= pack("v", $bin);
+                                       }
+                                       else {
+                                               $bmp_data .= pack("c*", $colors['blue'], $colors['green'], $colors['red']);
+                                       }
+                               }
+                               $bmp_data .= $extra;
+                       }
+                       $size_quad = 0;
+                       $size_data = strlen($bmp_data);
+                       $colors_num = 0;
+               }
+               $file_header = 'BM' . pack('V3', 54 + $size_quad + $size_data, 0, 54 + $size_quad);
+               $info_header = pack('V3v2V*', 0x28, $width, $height, 1, $bit, $compression, $size_data, 0, 0, $colors_num, 0);
+               if ($filename != '') {
+                       $fp = fopen($filename, 'wb');
+                       fwrite($fp, $file_header . $info_header . $rgb_quad . $bmp_data);
+                       fclose($fp);
+                       return true;
+               }
+               echo $file_header . $info_header. $rgb_quad . $bmp_data;
+               return true;
+       }
+}
+
 
 //From user comments at http://dk2.php.net/manual/en/function.exif-imagetype.php
 if ( ! function_exists( 'exif_imagetype' ) ) {
@@ -46,6 +156,7 @@ function ellipsis($str, $maxlen) {
 class OC_Image {
        protected $resource = false; // tmp resource.
        protected $imagetype = IMAGETYPE_PNG; // Default to png if file type isn't evident.
+       protected $bit_depth = 24;
        protected $filepath = null;
 
        /**
@@ -214,9 +325,11 @@ class OC_Image {
                                $retval = imagexbm($this->resource, $filepath);
                                break;
                        case IMAGETYPE_WBMP:
-                       case IMAGETYPE_BMP:
                                $retval = imagewbmp($this->resource, $filepath);
                                break;
+                       case IMAGETYPE_BMP:
+                               $retval = imagebmp($this->resource, $filepath, $this->bit_depth);
+                               break;
                        default:
                                $retval = imagepng($this->resource, $filepath);
                }
@@ -436,13 +549,15 @@ class OC_Image {
                                }
                                break;
                        case IMAGETYPE_WBMP:
-                       case IMAGETYPE_BMP:
                                if (imagetypes() & IMG_WBMP) {
                                        $this->resource = imagecreatefromwbmp($imagepath);
                                } else {
-                                       OC_Log::write('core', 'OC_Image->loadFromFile, (W)BMP images not supported: '.$imagepath, OC_Log::DEBUG);
+                                       OC_Log::write('core', 'OC_Image->loadFromFile, WBMP images not supported: '.$imagepath, OC_Log::DEBUG);
                                }
                                break;
+                       case IMAGETYPE_BMP:
+                                       $this->resource = $this->imagecreatefrombmp($imagepath);
+                               break;
                        /*
                        case IMAGETYPE_TIFF_II: // (intel byte order)
                                break;
@@ -521,6 +636,140 @@ class OC_Image {
                }
        }
 
+       //From http://www.programmierer-forum.de/function-imagecreatefrombmp-laeuft-mit-allen-bitraten-t143137.htm
+       private function imagecreatefrombmp($filename) {
+               // version 1.00
+               if (!($fh = fopen($filename, 'rb'))) {
+                       trigger_error('imagecreatefrombmp: Can not open ' . $filename, E_USER_WARNING);
+                       return false;
+               }
+               // read file header
+               $meta = unpack('vtype/Vfilesize/Vreserved/Voffset', fread($fh, 14));
+               // check for bitmap
+               if ($meta['type'] != 19778) {
+                       trigger_error('imagecreatefrombmp: ' . $filename . ' is not a bitmap!', E_USER_WARNING);
+                       return false;
+               }
+               // read image header
+               $meta += unpack('Vheadersize/Vwidth/Vheight/vplanes/vbits/Vcompression/Vimagesize/Vxres/Vyres/Vcolors/Vimportant', fread($fh, 40));
+               // read additional 16bit header
+               if ($meta['bits'] == 16) {
+                       $meta += unpack('VrMask/VgMask/VbMask', fread($fh, 12));
+               }
+               // set bytes and padding
+               $meta['bytes'] = $meta['bits'] / 8;
+               $this->bit_depth = $meta['bits'];
+               $meta['decal'] = 4 - (4 * (($meta['width'] * $meta['bytes'] / 4)- floor($meta['width'] * $meta['bytes'] / 4)));
+               if ($meta['decal'] == 4) {
+                       $meta['decal'] = 0;
+               }
+               // obtain imagesize
+               if ($meta['imagesize'] < 1) {
+                       $meta['imagesize'] = $meta['filesize'] - $meta['offset'];
+                       // in rare cases filesize is equal to offset so we need to read physical size
+                       if ($meta['imagesize'] < 1) {
+                               $meta['imagesize'] = @filesize($filename) - $meta['offset'];
+                               if ($meta['imagesize'] < 1) {
+                                       trigger_error('imagecreatefrombmp: Can not obtain filesize of ' . $filename . '!', E_USER_WARNING);
+                                       return false;
+                               }
+                       }
+               }
+               // calculate colors
+               $meta['colors'] = !$meta['colors'] ? pow(2, $meta['bits']) : $meta['colors'];
+               // read color palette
+               $palette = array();
+               if ($meta['bits'] < 16) {
+                       $palette = unpack('l' . $meta['colors'], fread($fh, $meta['colors'] * 4));
+                       // in rare cases the color value is signed
+                       if ($palette[1] < 0) {
+                               foreach ($palette as $i => $color) {
+                                       $palette[$i] = $color + 16777216;
+                               }
+                       }
+               }
+               // create gd image
+               $im = imagecreatetruecolor($meta['width'], $meta['height']);
+               $data = fread($fh, $meta['imagesize']);
+               $p = 0;
+               $vide = chr(0);
+               $y = $meta['height'] - 1;
+               $error = 'imagecreatefrombmp: ' . $filename . ' has not enough data!';
+               // loop through the image data beginning with the lower left corner
+               while ($y >= 0) {
+                       $x = 0;
+                       while ($x < $meta['width']) {
+                               switch ($meta['bits']) {
+                                       case 32:
+                                       case 24:
+                                               if (!($part = substr($data, $p, 3))) {
+                                                       trigger_error($error, E_USER_WARNING);
+                                                       return $im;
+                                               }
+                                               $color = unpack('V', $part . $vide);
+                                               break;
+                                       case 16:
+                                               if (!($part = substr($data, $p, 2))) {
+                                                       trigger_error($error, E_USER_WARNING);
+                                                       return $im;
+                                               }
+                                               $color = unpack('v', $part);
+                                               $color[1] = (($color[1] & 0xf800) >> 8) * 65536 + (($color[1] & 0x07e0) >> 3) * 256 + (($color[1] & 0x001f) << 3);
+                                               break;
+                                       case 8:
+                                               $color = unpack('n', $vide . substr($data, $p, 1));
+                                               $color[1] = $palette[ $color[1] + 1 ];
+                                               break;
+                                       case 4:
+                                               $color = unpack('n', $vide . substr($data, floor($p), 1));
+                                               $color[1] = ($p * 2) % 2 == 0 ? $color[1] >> 4 : $color[1] & 0x0F;
+                                               $color[1] = $palette[ $color[1] + 1 ];
+                                               break;
+                                       case 1:
+                                               $color = unpack('n', $vide . substr($data, floor($p), 1));
+                                               switch (($p * 8) % 8) {
+                                                       case 0:
+                                                               $color[1] = $color[1] >> 7;
+                                                               break;
+                                                       case 1:
+                                                               $color[1] = ($color[1] & 0x40) >> 6;
+                                                               break;
+                                                       case 2:
+                                                               $color[1] = ($color[1] & 0x20) >> 5;
+                                                               break;
+                                                       case 3:
+                                                               $color[1] = ($color[1] & 0x10) >> 4;
+                                                               break;
+                                                       case 4:
+                                                               $color[1] = ($color[1] & 0x8) >> 3;
+                                                               break;
+                                                       case 5:
+                                                               $color[1] = ($color[1] & 0x4) >> 2;
+                                                               break;
+                                                       case 6:
+                                                               $color[1] = ($color[1] & 0x2) >> 1;
+                                                               break;
+                                                       case 7:
+                                                               $color[1] = ($color[1] & 0x1);
+                                                               break;
+                                               }
+                                               $color[1] = $palette[ $color[1] + 1 ];
+                                               break;
+                                       default:
+                                               trigger_error('imagecreatefrombmp: ' . $filename . ' has ' . $meta['bits'] . ' bits and this is not supported!', E_USER_WARNING);
+                                               return false;
+                               }
+                               imagesetpixel($im, $x, $y, $color[1]);
+                               $x++;
+                               $p += $meta['bytes'];
+                       }
+                       $y--;
+                       $p += $meta['decal'];
+               }
+               fclose($fh);
+               return $im;
+       }
+       
        /**
        * @brief Resizes the image preserving ratio.
        * @param $maxsize The maximum size of either the width or height.