<?php

/*****************************************************************************
 *
 *  dbl2swf.php v1.0b
 *
 *  Copyright (c) 2002 Ralf Bokelberg at www.QLOD.com 
 *
 *  This software comes with ABSOLUTELY NO WARRANTY. It is free, and
 *  you are welcome to redistribute it.
 *
 *  The name "Ralf Bokelberg" or "QLOD" may not be used to endorse or 
 *  promote products derived from this software without specific prior
 *  written permission.
 *
 *  For written permission, please contact ralf.bokelberg@qlod.com
 *
 *  Redistributions of source code must retain the above notices.
 *
 *
 *  File Name:
 *
 *     dbl2swf.php
 *
 *  Abstract:
 *
 *  PHP script to convert png/dbl images to Shockwave Flash files.
 *  First you need to convert your png to the dbl format
 *
 *  You can find the tool png2dbl at http://www.opaque.net/ming/ming-winutils.zip
 *  (precompiled windows executable)
 *  You can find flashwriter at http://www.stefanschuessler.de
 *  You can find updated version of this document at 
 *  www.qlod.com/experimentos/2002/dbl2swf.zip
 * 
 *  Credits to
 *  Dave Hayden (www.opaque.net) for ming 
 *  Stefan Schuessler (www.stefanschuessler.de) for FlashWriter
 *  Macromedia (www.macromedia.com) for SWF Format 
 * 
 *  ToDo:
 *  Combine png2dbl and dbl2swf to png2swf
 *
 *  History:
 *  2002/05/20 1.0  first version published
 *  2002/05/21 1.0a instructions updated
 *  2002/05/21 1.0b adapted to flashwriter 1.02 
 * 
 *****************************************************************************/

/*****************************************************************************
 *
 *  Instructions:
 *  
 *  1. Download, install and test Flashwriter as described there
 *  2. Download ming-winutils.zip to get a copy of png2dbl 
 *  3. Convert your pngs to the dbl format using png2dbl
 *  4. Copy this script into the same directory as flashwriter.php (samples)
 *     Attention: Don't use flashwriter.php v1.0 from the flashwriter directory.
 *  5. Call the script like that:
 *
 *     http://.../dbl2swf.php?image=test
 *
 *     where test is a dbl-file in the same directory as the script
 *
 *****************************************************************************/

/*****************************************************************************
 *
 *  Required functions:
 *
 *        echo( string arg1, string [argn]... );
 *    int unset( mixed var );
 *    int strlen( string str );
 *        flashwriter-functions
 *
 *****************************************************************************/

require( "flashwriter.php" ); // include flashwriter-functions v1.02


/*****************************************************************************
 *
 *  @func   BYTE | WriteShortHeader |
 *
 *          writes a header for tags with length <= 63 to the stream.
 *
 *  @rvalue returns headerstring
 *
 *****************************************************************************/
function WriteShortHeader($iTagId, $iLen) {
	return WriteWord(($iTagId << 6) + $iLen);
}


/*****************************************************************************
 *
 *  @func   BYTE | WriteLongHeader |
 *
 *          writes a header for tags with length >= 64 to the stream.
 *
 *  @rvalue returns headerstring
 *
 *****************************************************************************/
function WriteLongHeader($iTagId, $iLen){
	return WriteWord(($iTagId << 6) + 0x3f) . WriteDWord($iLen);
}

/*****************************************************************************
 *
 *  @class   DBL 
 *
 *           reads a DBL file and returns its content as object
 *
 *  @rvalue returns new DBL object
 *
 *****************************************************************************/


class DBL {
	var $data;
	var $datalen;
	var $width;
	var $height;
	var $type;
	var $filename;
	var $filesize;
	
	function DBL($filename){
		$this->filename = $filename;
		$this->filesize = filesize($filename);
		$this->datalen = $this->filesize - 8;
		$filehandle = fopen($filename, "r");
		$skip = fread($filehandle, 8); //check the format (next time :))
		$this->data = fread($filehandle, $this->datalen);
		fclose($filehandle);

		$this->type = Ord($this->data[0]);
		$this->width = (Ord($this->data[2]) << 8) + Ord($this->data[1]);
		$this->height = (Ord($this->data[4]) << 8) + Ord($this->data[3]);
	}
}



/*****************************************************************************
 *
 *  Prepare output
 *
 *****************************************************************************/

$img = new DBL($image . ".dbl");

$width = $img->width;
$height = $img->height;

initMinBits($width, $height);

// 2nd footer
$footer2 = WriteWord( 0x02 );  //characterId
$footer2 .= WriteRect( getMinBits() + 1, 0, $width * SCoord1, 0, $height * SCoord1 );	// rect

//ShapeWithStyle
$footer2 .= WriteByte( 0x01 ); // FillStyleCount (1 style)
$footer2 .= WriteByte( 0x41 ); // clipped bitmap fill
$footer2 .= WriteWord( 1 );    // bitmap-id

$footer2 .= WriteMatrix( true, 20*Fixed1, 20*Fixed1, false, 0, 0, 0, 0 );

$footer2 .= WriteByte( 0x00 ); // LineStyleCount (no line)

$footer2 .= WriteByte( 0x10 ); // number of fill/line index bits

$footer2 .= WriteBits( 0, 1 ); // Non-edge record flag
$footer2 .= WriteBits( 0, 1 ); // New styles flag
$footer2 .= WriteBits( 0, 1 ); // Line style change flag
$footer2 .= WriteBits( 1, 1 ); // Fill style 1 change flag
$footer2 .= WriteBits( 0, 1 ); // Fill style 0 change flag
$footer2 .= WriteBits( 1, 1 ); // Move to flag

$footer2 .= WriteBits( getMinBits() + 1, 5 );
$footer2 .= WriteBits( $width * SCoord1, getMinBits() + 1 );
$footer2 .= WriteBits( $height * SCoord1, getMinBits() + 1 );

$footer2 .= WriteBits( 1, 1 ); // Fill 1 Style = 1 (this is our bitmap-style)

$footer2 .= WriteLine( 0, -$width  * SCoord1 );
$footer2 .= WriteLine( 1, -$height * SCoord1 );
$footer2 .= WriteLine( 0,  $width  * SCoord1 );
$footer2 .= WriteLine( 1,  $height * SCoord1 );

$footer2 .= WriteBits( 0, 1 ); // Non-edge record flag
$footer2 .= WriteBits( 0, 5 ); // End of shape flag

$footer2 .= FlushBits(); // flush bits to keep byte aligned

$footer1 = WriteLongHeader(2, strlen( $footer2 )); //DefineShape

// 3rd footer

$footer3 = WriteShortHeader(26,6); //placeObject2

$footer3 .= WriteBits(0, 2); //reserved bits
$footer3 .= WriteBits(0, 1); //has name
$footer3 .= WriteBits(0, 1); //has ratio
$footer3 .= WriteBits(0, 1); //has color transform
$footer3 .= WriteBits(1, 1); //has matrix
$footer3 .= WriteBits(1, 1); //has character
$footer3 .= WriteBits(0, 1); //move

$footer3 .= WriteWord( 0x01 ); // depth = 1

$footer3 .= WriteWord( 0x02 ); // character-id

$footer3 .= WriteByte( 0x00 ); // transformation matrix

$footer3 .= WriteWord( 0x40 ); // eof marker ? 
$footer3 .= WriteWord( 0x00 ); 

// calculate entire file-size
$filesize  = 23
		     + $img->datalen + 2
			 + strlen( $footer1 )
			 + strlen( $footer2 )
			 + strlen( $footer3 )
			 + strlen( WriteRect( getMinBits() + 1, 0, SCoord1*$width, 0, SCoord1*$height ));



/*****************************************************************************
 *
 *  Actual output
 *
 *****************************************************************************/

header( "Content-type: application/x-shockwave-flash" ); // here comes swf
//echo($img->width . " : " . $img->height . " : " . $filesize);
//exit;

echo "FWS";                   // reversed SWF signature (little endian/big endian issue)
echo WriteByte( 3 );          // file version, flash 3 is all we need
echo WriteDWord( $filesize ); // length of entire file in bytes

echo WriteRect( getMinBits() + 1,
                0, SCoord1*$width,
                0, SCoord1*$height ); // frame size in TWIPS
echo WriteByte( 0 );          // this one is ignored!
echo WriteByte( 12 );         // frame delay in 8.8 fixed number of frames per second
echo WriteWord( 1 );          // total number of frames in movie
echo WriteShortHeader( 9, 3 ); // setBackgroundColor
echo WriteByte( 0xff );       // red
echo WriteByte( 0xff );       // green
echo WriteByte( 0xff );       // blue

echo WriteLongHeader(36, $img->datalen + 2); //DefineBitsLosless2
echo WriteWord( 1 );          // character-id

echo $img->data; 	      // raw image data including bitmapFormat, width and heigth 
			      // as produced by png2dbl starting at byte 8
echo $footer1;
echo $footer2;
echo $footer3;

/************************************ EOF ************************************/
?>