Source for file MonoBMP.php

<?php
 
/* vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4: */
// +----------------------------------------------------------------------+
// | PHP version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2002 The PHP Group                                |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.0 of the PHP license,       |
// | that is bundled with this package in the file LICENSE, and is        |
// | available at through the world-wide-web at                           |
// | http://www.php.net/license/2_02.txt.                                 |
// | If you did not receive a copy of the PHP license and are unable to   |
// | obtain it through the world-wide-web, please send a note to          |
// | license@php.net so we can mail you a copy immediately.               |
// +----------------------------------------------------------------------+
// | Authors: Evgeny Stepanischev <bolk@lixil.ru>                         |
// +----------------------------------------------------------------------+
// Project home page (Russian): http://bolk.exler.ru/files/monobmp/
//
// $Id$
 
 
require_once 'Image/XBM.php';
 
class Image_MonoBMP extends Image_XBM
{
    function Image_MonoBMP()
    {
        parent::Image_XBM();
    }
 
    /**
     * Output image to browser or file
     *
     * @param string $filename (optional) filename for output
     * @return bool PEAR_Error or true
     * @access public
     */
    function output($filename = false)
    {
        $s = '';
        $wx = ceil($this->_sx / 8);
 
        // Prepare image data
        for ($y = $this->_sy - 1; $y >= 0; --$y) {
            for ($x = 0; $x < $wx; ++$x) {
                $s .= chr($this->_bitrev($this->_image[$x][$y]));
            }
 
            for (; $x % 4; $x++) {
                $s .= "\0";
            }
        }
 
        $size = strlen($s);
 
        // Prepare subheader
        $header = pack
        (
            'VVvvV6',
            $this->_sx, // width
            $this->_sy, // height
            1,          // planes
            1,          // bit count
            0,          // compress
            $size,      // picture size (bytes)
            0xB12,      // X pixels per meter
            0xB12,      // Y pixels per meter
            0,          // color used (0 mean "all")
            0           // important colors (all)
        );
 
        $header = pack('V', strlen($header) + 4) . $header;
 
        // Adding color table (white and black colors)
        $color = "\xFF\xFF\xFF\0\0\0\0\0";
 
        // Pack main header
        $main = pack('vvV', 0, 0, 0x3E);
 
        // Build header and bitmap data
        $s = $main.$header.$color.$s."\0";
        $s = 'BM'.pack('V', strlen($s) + 4) . $s;
 
        if ($filename === false) {
            echo $s;
        } else {
            if ($fp = fopen($filename, 'w')) {
                flock($fp, LOCK_EX);
 
                fwrite($fp, $s);
                fclose($fp);
            } else {
                return PEAR::raiseError('Cannot open file for writing.', 5);
            }
        }
        return true;
    }
 
    /**
     * Create a new image from XBM file or URL
     *
     * @param string $filename XBM file name or URL
     * @return mixed PEAR_error or true for success
     * @access public
     */
    function createFromFile($filename)
    {
        $fp = fopen($filename, 'r');
        if (!is_resource($fp)) {
            return PEAR::raiseError('Cannot open file.', 4);
        }
 
        // Bitmap magick signature
        $sign = fread($fp, 2);
        if ($sign <> 'BM') {
            return PEAR::raiseError('Invalid BMP file.', 5);
        }
 
        // Skip header
        fread($fp, 16);
 
        // Width, height
        extract(unpack('Vwidth/Vheight/vplanes', fread($fp, 10)));
 
        // Check if bitmap is b/w
        if ($planes != 1) {
            return PEAR::raiseError('Invalid BMP file.', 5);
        }
 
        // Create blank picture
        $this->create($width, $height);
 
        // Skip rest of the header
        fread($fp, 34);
 
        // Read the picture
        $sx = ceil($width / 8);
 
        // Fill image by bitmap data
        for ($y = $height - 1; $y >= 0; --$y) {
            for ($x = 0; $x < $sx; ++$x) {
                $this->_image[$x][$y] = $this->_bitrev(ord(fread($fp, 1)));
            }
 
            if ($x % 4) {
                fread($fp, 4 - $x % 4);
            }
        }
 
        fclose($fp);
    }
 
    /**
     * Bit reverse function
     *
     * @param int $num number for reverse
     * @return int bit reversed number
     * @access private
     */
    function _bitrev($num)
    {
        for ($i = $r = 0; $i<8; $i++) {
            $r <<= 1;
            $r |= $num & 1;
            $num >>= 1;
        }
 
        return $r;
    }
}
?>