<?
/********************************************************************************
* @ File: fonts.php
* @ Original date: February 2003 @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: fonts embedded in ming and actionscript textfields
* @ Updated:  small improvements and summary text
* @ Copyright (c) 2003-2007, www.gazbming.com - all rights reserved.
* @ Author: gazb.ming [[@]] gmail.com - www.gazbming.com 
* @ Released under GNU Lesser General Public License - http://www.gnu.org/licenses/lgpl.html
********************************************************************************/

// some typical movie variables
Ming_setScale(20.0000000);
ming_useswfversion(6);
$movie = new SWFMovie();
$movie->setDimension(550, 400);
$movie->setBackground(rand(0,0xFF),rand(0,0xFF),rand(0,0xFF));
$movie->setRate(31); 

// make a text field function
function maketextfield($name,$font,$str) {
$txtfield = new SWFTextField(SWFTEXTFIELD_DRAWBOX  | SWFTEXTFIELD_MULTILINE | SWFTEXTFIELD_WORDWRAP | SWFTEXTFIELD_USEFONT );
$txtfield->setHeight(14);	
$txtfield->setBounds(200,30);
$txtfield->setName($name);
$txtfield->setColor(0xff, 0x33, 0x33);
$txtfield->setFont(new SWFFont($font));
$txtfield->addChars("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789");
$txtfield->addString($str);
return $txtfield;
}

// make some instances and add them to the movie
// fdb fonts from http://www.neuralust.com/~mingdocs/
$txtimpact = maketextfield("txtimpact","fonts/Impact.fdb","Impact Impact Impact ");
$txt=$movie->add($txtimpact);
$txt->MoveTo(50,50);

$txtarial = maketextfield("txtarial","fonts/Arial.fdb","Arial Arial Arial ");
$txt=$movie->add($txtarial);
$txt->MoveTo(50,100);

$txtwebdings = maketextfield("txtwebdings","fonts/Webdings.fdb","Webdings Webdings Webdings ");
$txt=$movie->add($txtwebdings);
$txt->MoveTo(50,150);

$txtverdana = maketextfield("txtverdana","fonts/Verdana.fdb","Verdana Verdana Verdana ");
$txt=$movie->add($txtverdana);
$txt->MoveTo(50,200);

$txtcouriernew = maketextfield("txtcouriernew","fonts/CourierNew.fdb","CourierNew CourierNew CourierNew ");
$txt=$movie->add($txtcouriernew);
$txt->MoveTo(50,250);

$txtbimini = maketextfield("txtbimini","fonts/Bimini.fdb","Bimini Bimini Bimini ");
$txt=$movie->add($txtbimini);
$txt->MoveTo(50,250);


// make textboxes using AS
$strAction = "
// function to make a textfield using actionscript
function maketextfieldAS(x,y,vfont) {
++depth;
_root.createTextField('AStxt'+depth,depth,x,y,200,30);
myformat = new TextFormat();
myformat.color = 0xff0000;
myformat.font = vfont;
myformat.size = 24;
with (_root['AStxt'+depth]){
multiline = true;
wordWrap = true;
border = true;
//type = 'dynamic';
embedFonts = true;
text = vfont;
setTextFormat(myformat);
}
return _root['AStxt'+depth];
};
// it seems that once a font is embedded using ming 
// the font is then available to textfields created with AS
dyntxtboxAS=maketextfieldAS(300,50,'Impact');
dyntxtboxAS=maketextfieldAS(300,100,'Arial');
dyntxtboxAS=maketextfieldAS(300,150,'Webdings');
dyntxtboxAS=maketextfieldAS(300,200,'Verdana');
dyntxtboxAS=maketextfieldAS(300,250,'Bimini');
";

$movie->add(new SWFAction($strAction));

// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save("$swfname.swf",9);
?>