<?php

/* 
GDBook 0.1, copyright 2005 Branko Collin 

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
*/

/* 
This program takes a text file as input and converts it
to true color PNG images. These images can then be converted 
to a format that is suitable for the Sony Play Station Portable
or Mattel's Juice Box (for instance). 
*/

/* 
	Configuration
*/

$border_left = 5;
$border_top = 5;
$border_bottom = 5;
$border_right = 5;
$width = 240; // Mattel Juice Box = 240x160
$height = 160; 
$backgroundcolor = "ffcc66"; // six digit hexadecimal number
$foregroundcolor = "000000"; // ex.: white = ffffff, black = 000000
$font = "verdana.ttf"; // ex. verdana.ttf
$fontsize = 8; // size in points
$linespace = 4; // line spacing in pixels
$img_base = "book"; 
/* For example, if you use "tmp\book" under MS Windows, the first page
will be saved as "book1.png" in the tmp directory (if that exists), 
page two as "book2.png", et cetera. */
$source = "leacock.txt"; // the location of the input text

/* 
	Load the text file and measure its size
*/

if (!($input = file_get_contents($source))) {
	$input = "The file you requested could not be loaded. ";
}
$inputl = strlen($input);

/* 
	Create the first image using the GDLib instructions.
	GDLib is disable by default in the MS Windows build
	of PHP. Check the GDLib's website's FAQ for 
	instructions. Don't worry, it's easy.
*/
$im = @imagecreatetruecolor(240, 160) or die("Cannot Initialize new GD image stream");
$bgc = ImageColorAllocate( $im, getred($backgroundcolor), getgreen($backgroundcolor), getblue($backgroundcolor) ); 
$fgc = ImageColorAllocate( $im, getred($foregroundcolor), getgreen($foregroundcolor), getblue($foregroundcolor) ); 
imagefill($im, 0, 0, $bgc);

/*
	Load a few global variables and
	perform a few checks
*/
if ($width < 0) {
	$width = 160;
	// making invisible images makes no sense
}
$maxwidth = $width - $border_right - $border_left;
if ($maxwidth < 0 || $maxwidth > $width) {
	$maxwidth = $width;
	// having the margins take up more space than the entire
	// image makes no sense either
}
if ($height < 0) {
	$height = 100;
}
$maxheight = $height - $border_top - $border_bottom;
if ($maxheight < 0 || $maxheight > $height) {
	$maxheight = $height;
}
$sl = strlen($test);
$line = '';
$oldline = '';
$word = '';
$token = '';
$cy = $border_top + $fontsize + $linespace; // Y cursor
$imi = 1; // image index
$height = 0;
$lexcc = 0;

do {
	$token = mylex();
	if ($token == 'eol') {
		$oldline .= $word;
		$cy = flushline();
		$oldline = '';
	}
	elseif ($token == 'word') {
		$line .= $word;
		// measure if the current line fits horizontally
		$box = imageftbbox($fontsize, 0, $font, $line);
		if (($box[2] - $box[0]) > $maxwidth) {
			// print the last line that fit, move the cursor, 
			// and reset the line variable
			$cy = flushline();
			myless($word);
			if ($cy > ($maxheight - $border_bottom)) {
				imagepng($im, "{$img_base}{$imi}.png");
				imagedestroy($im);
				$estimate = ceil(($inputl / $lexcc) * $imi);
				print "page $imi, of $estimate estimated pages.\n";
				$imi++;
				$im = @imagecreatetruecolor(240, 160) or die("Cannot Initialize new GD image stream");
				imagefill($im, 0, 0, $bgc);
				$cy = 20;
			}
		}
		else {
			$oldline = $line;
		}
	}
	elseif($token == 'eof') {
		print "%%";		
		$cy = flushline();
	}
} while ($token != 'eof');

imagepng($im, "{$img_base}{$imi}.png");
imagedestroy($im);

function mylex() {
	global $lexcc, $word, $input, $inputl;
	$i = $lexcc;
	$out = false;
	$token = '';
	$word = '';
	if ($i < $inputl) {
		do {
			$a = substr($input, $i, 1);
			if ($a == "\n" || $a == "\r") {
				if ($i < $inputl) {
					$b = substr($input, $i+1, 1); 
					if ($b == "\n" && $a == "\r") {
						// DOS style newline
						$i++;
					}
				}
				$token = 'eol';
				$word .= ' ';
			}
			elseif ($a == ' ') {
				$token = 'word';
				$word .= ' ';
			}
			else {
				$word .= $a;
			}
			$i++;
			if ($i >= $inputl) {
				$token = 'eof';
			}
		} while ($token == '');
		$lexcc = $i;
		return $token;
	}
	else {
		return 'eof';
	}
}

function flushline () {
	global $im, $line, $oldline, $fontsize, $font, $cy, $fgc;
	global $bordertop, $borderleft, $linespace;
	$line = '';
	$box = imageftbbox($fontsize, 0, $font, $oldline);
	imagettftext($im, $fontsize, 0, 10, $cy, $fgc, $font, $oldline);
	// $height = $box[1] - $box[5];
	$newcy = $cy + $fontsize + $linespace; 
	return $newcy;
}

function myless($a) {
	global $lexcc;
	// push the last word back onto the stack
	$b = strlen($a);
	$lexcc -= $b;
	if ($lexcc < 0) {
		// This should not be, but we'll let it slide for now
		print "Lexcc < 0 ?!";
		$lexcc = 0;
	}
}

function getred($a) {
	$b = hexdec($a);
	$c = $b >> 16;
	return $c;
}

function getgreen($a) {
	$b = hexdec($a);
	$c = $b & 65280; // 65280 = #00ff00
	$d = $c >> 8;
	return $d;
}

function getblue($a) {
	$b = hexdec($a);
	$c = $b & 255; // 255 = #0000ff
	return $c;
}

?>