<?
/********************************************************************************
* @ File: colorcube.php
* @ Original date: January 2004  @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: click in the colorcube to set line color and use mouse to draw, spacebar to clear,
* @  u to undo, +/- or 0-9 to change line size
* @ 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->setRate(31);
$movie->setDimension(550,400);
$movie->setBackground(rand(0,0xFF),rand(0,0xFF),rand(0,0xFF));

// this creates a color cube sprite which sets _global.colorPickerRGB
// when clicked. all the code is in the makeColorCubeSprite.php include
include "makeColorCubeSprite.php";
$colorcubesprite=makeColorCubeSprite();
$f1=$movie->add($colorcubesprite); 
$f1->moveTo(18,18);
$f1->setName("colorcube");

// some actionscript to enable drawing
$strAction = join("", file("drawing.as"));;
$movie->add(new SWFAction($strAction));

// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save("$swfname.swf",9);
?>

/********************************************************************************
* @ File: drawing.as
* @ Original date: January 2004  @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: drawing code for colorpicker
* @ 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
********************************************************************************/
createEmptyMovieClip('movieBG', -10);
with(movieBG){
beginFill(0x000030, 100); moveTo(0, 0); lineTo(800, 0); lineTo(800, 800);
lineTo(0, 800); lineTo(0, 0); endFill(); _x=-100; _y=-100;
};
colorcube.swapDepths(60000);
lineW=8;
// make an object and attach actions
drawingcontrols = {

onMouseDown: function () {
rx=_root._xmouse;
ry=_root._ymouse;
onMouseMove=this.doDrawing;
oldx=_xmouse;
oldy=_ymouse;
},
onMouseUp: function () {
onMouseMove=null;
},
doDrawing: function () {
rx=_root._xmouse;
ry=_root._ymouse;
line=base.createEmptyMovieClip('line'+ ++d, d);
line.lineStyle(lineW, colorPickerRGB, 100);
line.moveTo(oldx, oldy);
line.lineTo(_xmouse, _ymouse);
oldx=_xmouse;
oldy=_ymouse;
updateAfterEvent();
},
onKeyDown:function () {
	switch(Key.getCode()) {
		case 85: //Key.u:
			base['line'+ d].removeMovieClip();if(d>0){d--;};
			break;
		case 32: //Key.SPACE:
			base.removeMovieClip();this.initclip();
			break;
		case 187: //Key.+:
			lineW++;
			break;
		case 189: //Key.-:
			if(lineW>1){lineW--;};
			break;
		case 49: //Key.1:
			lineW=1;
			break;
		case 50: //Key.2:
			lineW=2;
			break;
		case 51: //Key.3:
			lineW=3;
			break;
		case 52: //Key.4:
			lineW=4;
			break;
		case 53: //Key.5:
			lineW=5;
			break;
		case 54: //Key.6:
			lineW=6;
			break;
		case 55: //Key.7:
			lineW=7;
			break;
		case 56: //Key.8:
			lineW=8;
			break;
		case 57: //Key.9:
			lineW=9;
			break;
		case 48: //Key.0:
			lineW=0;
			break;
	}
},
initclip:function () {
d = 0;
createEmptyMovieClip('base', 0);
}
};
drawingcontrols.initclip();
// add listeners to object
Mouse.addListener(drawingcontrols);
Key.addListener(drawingcontrols);

<?
/********************************************************************************
* @ File: makeColorCubeSprite.php
* @ Original date: January 2004  @ www16.brinkster.com/gazb/ming/
* @ Version: 1.2
* @ Summary: function that returns a color picker sprite
* @ 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
********************************************************************************/
function makeColorCubeSprite(){ 
// define color array for ming
$colcube = 
array (array (0,0,0,13056,26112,39168,52224,65280,3342336,3355392,3368448,3381504,3394560,3407616,6684672,6697728,6710784,6723840,6736896,6749952),
array (3355443,0,51,13107,26163,39219,52275,65331,3342387,3355443,3368499,3381555,3394611,3407667,6684723,6697779,6710835,6723891,6736947,6750003),
array (6710886,0,102,13158,26214,39270,52326,65382,3342438,3355494,3368550,3381606,3394662,3407718,6684774,6697830,6710886,6723942,6736998,6750054),
array (10066329,0,153,13209,26265,39321,52377,65433,3342489,3355545,3368601,3381657,3394713,3407769,6684825,6697881,6710937,6723993,6737049,6750105),
array (13421772,0,204,13260,26316,39372,52428,65484,3342540,3355596,3368652,3381708,3394764,3407820,6684876,6697932,6710988,6724044,6737100,6750156),
array (16777215,0,255,13311,26367,39423,52479,65535,3342591,3355647,3368703,3381759,3394815,3407871,6684927,6697983,6711039,6724095,6737151,6750207),
array (16711680,0,10027008,10040064,10053120,10066176,10079232,10092288,13369344,13382400,13395456,13408512,13421568,13434624,16711680,16724736,16737792,16750848,16763904,16776960),
array (65280,0,10027059,10040115,10053171,10066227,10079283,10092339,13369395,13382451,13395507,13408563,13421619,13434675,16711731,16724787,16737843,16750899,16763955,16777011),
array (255,0,10027110,10040166,10053222,10066278,10079334,10092390,13369446,13382502,13395558,13408614,13421670,13434726,16711782,16724838,16737894,16750950,16764006,16777062),
array (16776960,0,10027161,10040217,10053273,10066329,10079385,10092441,13369497,13382553,13395609,13408665,13421721,13434777,16711833,16724889,16737945,16751001,16764057,16777113),
array (65535,0,10027212,10040268,10053324,10066380,10079436,10092492,13369548,13382604,13395660,13408716,13421772,13434828,16711884,16724940,16737996,16751052,16764108,16777164),
array (16711935,0,10027263,10040319,10053375,10066431,10079487,10092543,13369599,13382655,13395711,13408767,13421823,13434879,16711935,16724991,16738047,16751103,16764159,16777215));

// define actionscript
$colorcubeAction="
colcube=
 [ ['0x000000', '0x000000', '0x000000', '0x003300', '0x006600', '0x009900', '0x00cc00', '0x00ff00', '0x330000', '0x333300', '0x336600', '0x339900', '0x33cc00', '0x33ff00', '0x660000', '0x663300', '0x666600', '0x669900', '0x66cc00', '0x66ff00'],
['0x333333', '0x000000', '0x000033', '0x003333', '0x006633', '0x009933', '0x00cc33', '0x00ff33', '0x330033', '0x333333', '0x336633', '0x339933', '0x33cc33', '0x33ff33', '0x660033', '0x663333', '0x666633', '0x669933', '0x66cc33', '0x66ff33'],
['0x666666', '0x000000', '0x000066', '0x003366', '0x006666', '0x009966', '0x00cc66', '0x00ff66', '0x330066', '0x333366', '0x336666', '0x339966', '0x33cc66', '0x33ff66', '0x660066', '0x663366', '0x666666', '0x669966', '0x66cc66', '0x66ff66'],
['0x999999', '0x000000', '0x000099', '0x003399', '0x006699', '0x009999', '0x00cc99', '0x00ff99', '0x330099', '0x333399', '0x336699', '0x339999', '0x33cc99', '0x33ff99', '0x660099', '0x663399', '0x666699', '0x669999', '0x66cc99', '0x66ff99'],
['0xcccccc', '0x000000', '0x0000cc', '0x0033cc', '0x0066cc', '0x0099cc', '0x00cccc', '0x00ffcc', '0x3300cc', '0x3333cc', '0x3366cc', '0x3399cc', '0x33cccc', '0x33ffcc', '0x6600cc', '0x6633cc', '0x6666cc', '0x6699cc', '0x66cccc', '0x66ffcc'],
['0xffffff', '0x000000', '0x0000ff', '0x0033ff', '0x0066ff', '0x0099ff', '0x00ccff', '0x00ffff', '0x3300ff', '0x3333ff', '0x3366ff', '0x3399ff', '0x33ccff', '0x33ffff', '0x6600ff', '0x6633ff', '0x6666ff', '0x6699ff', '0x66ccff', '0x66ffff'],
['0xff0000', '0x000000', '0x990000', '0x993300', '0x996600', '0x999900', '0x99cc00', '0x99ff00', '0xcc0000', '0xcc3300', '0xcc6600', '0xcc9900', '0xcccc00', '0xccff00', '0xff0000', '0xff3300', '0xff6600', '0xff9900', '0xffcc00', '0xffff00'],
['0x00ff00', '0x000000', '0x990033', '0x993333', '0x996633', '0x999933', '0x99cc33', '0x99ff33', '0xcc0033', '0xcc3333', '0xcc6633', '0xcc9933', '0xcccc33', '0xccff33', '0xff0033', '0xff3333', '0xff6633', '0xff9933', '0xffcc33', '0xffff33'],
['0x0000ff', '0x000000', '0x990066', '0x993366', '0x996666', '0x999966', '0x99cc66', '0x99ff66', '0xcc0066', '0xcc3366', '0xcc6666', '0xcc9966', '0xcccc66', '0xccff66', '0xff0066', '0xff3366', '0xff6666', '0xff9966', '0xffcc66', '0xffff66'],
['0xffff00', '0x000000', '0x990099', '0x993399', '0x996699', '0x999999', '0x99cc99', '0x99ff99', '0xcc0099', '0xcc3399', '0xcc6699', '0xcc9999', '0xcccc99', '0xccff99', '0xff0099', '0xff3399', '0xff6699', '0xff9999', '0xffcc99', '0xffff99'],
['0x00ffff', '0x000000', '0x9900cc', '0x9933cc', '0x9966cc', '0x9999cc', '0x99cccc', '0x99ffcc', '0xcc00cc', '0xcc33cc', '0xcc66cc', '0xcc99cc', '0xcccccc', '0xccffcc', '0xff00cc', '0xff33cc', '0xff66cc', '0xff99cc', '0xffcccc', '0xffffcc'],
['0xff00ff', '0x000000', '0x9900ff', '0x9933ff', '0x9966ff', '0x9999ff', '0x99ccff', '0x99ffff', '0xcc00ff', '0xcc33ff', '0xcc66ff', '0xcc99ff', '0xccccff', '0xccffff', '0xff00ff', '0xff33ff', '0xff66ff', '0xff99ff', '0xffccff', '0xffffff']];


this.useHandCursor=0;
_global.colorPickerRGB='0x000000';
this.onPress=function(){
x=int(this._xmouse/10);
y=int(this._ymouse/10);
_global.colorPickerRGB=colcube[y][x];
_parent._parent.selectedcolhex=colcube[y][x];//.toUpperCase();
col= new Color(_parent._parent.selectedcol);
col.setRGB(colcube[y][x]);
};
// add listeners to object
Mouse.addListener(this);
";

// make color cube sprite
$colorcubesprite= new SWFSprite();
for($n=0;$n<count($colcube);$n++){
	for($m=0;$m<count($colcube[$n]);$m++){ 
		$rgb=$colcube [$n][$m];
		$r = ($rgb >> 16) & 0xFF;
		$g = ($rgb >> 8) & 0xFF;
		$b = $rgb & 0xFF;
		$cube=new SWFShape(); 
		$cube->setRightFill($r,$g,$b);
		$cube->setLine(1,0,0,0); 
		$cube->drawLine(10,0);  
		$cube->drawLine(0,10); 
		$cube->drawLine(-10,0); 
		$cube->drawLine(0,-10); 
		$f1 = $colorcubesprite->add($cube);
		$f1->moveTo(($m*10),($n*10));
	}
}
$colorcubesprite->nextFrame();
$colorcubespritewrapper= new SWFSprite();
$f2 = $colorcubespritewrapper->add($colorcubesprite);
$f2->addAction(new SWFAction($colorcubeAction),SWFACTION_ONLOAD);
$colorcubespritewrapper->nextFrame();

// make some more sprites, background, title bar, etc
// define sprites
$bgdef =  array (	
	"w"=>210,"h"=>180,	"bev"=>2, "r"=>224,"g"=>208,	"b"=>152, 
	"rl"=>0xf0,"gl"=>0xed,	"bl"=>0xb0,	"rd"=>0xc0,"gd"=>0xa0,	"bd"=>0x38, "fill"=>1);
$selectedcoledgedef =  array (
	"w"=>40,"h"=>20,"bev"=>2, "r"=>224,"g"=>208,	"b"=>152,	
	"rl"=>0xc0,"gl"=>0xa0,	"bl"=>0x38,	"rd"=>0xf0,"gd"=>0xed,"bd"=>0xb0, "fill"=>1);
$selectedcolhexedgedef =  array (
	"w"=>80,"h"=>18,"bev"=>2, "r"=>255,"g"=>255,	"b"=>255,	
	"rl"=>0xc0,"gl"=>0xa0,	"bl"=>0x38,	"rd"=>0xf0,"gd"=>0xed,"bd"=>0xb0, "fill"=>1);
$selectedcoldef =  array ("w"=>40,"h"=>20,"r"=>0,"g"=>0,"b"=>0, "fill"=>1);
// make sprites
$selectedcol= makeCube($selectedcoldef);
$bgsp= makeCube($bgdef);
$selectedcoledge= makeCube($selectedcoledgedef);
$selectedcolhexedge= makeCube($selectedcolhexedgedef);
$titlebar=makeTitleBar(201,20,128,0,0);
$selectedcolhex = maketextfield('selectedcolhex', '_sans','0x000000', 74, 18,0x33,0x33,0x33);

// finally add all of the above to the holder sprite which will be added to the movie
$holder= new SWFSprite();
$f1 = $holder->add($bgsp);
$f1->moveTo(0,0);
$f2 = $holder->add($colorcubespritewrapper);
$f2->moveTo(4,55);
$f3 = $holder->add($selectedcoledge);
$f3->moveTo(6,30);
$f3 = $holder->add($selectedcol);
$f3->addAction(new SWFAction('this.useHandCursor=0;this.onPress=function(){bgcol=new Color(_root.movieBG);bgcol.setRGB(colorPickerRGB);};'),SWFACTION_ONLOAD);
$f3->moveTo(6,30);
$f3->setName('selectedcol');
$f4 = $holder->add($selectedcolhexedge);
$f4->moveTo(122,30);
$f5 = $holder->add($selectedcolhex);
$f5->moveTo(126,31);
$f6 = $holder->add($titlebar);
$f6->moveTo(4, 5);
$holder->nextFrame();
return $holder;
}; 
// some helper functions
//  a function to draw cubes and bevels
function makeCube($o){
$s=new SWFShape(); 
if($o["ln"]!=NULL){$s->setLine($o["ln"],0,0,0);};
if($o["fill"]!=NULL){$s->setRightFill($o["r"],$o["g"],$o["b"]);};
$s->drawLine($o["w"],0);  
$s->drawLine(0,$o["h"]); 
$s->drawLine(-$o["w"],0); 
$s->drawLine(0,-$o["h"]); 
if($o["bev"]==NULL){
$sp= new SWFSprite();
$f1 = $sp->add($s);
$sp->nextFrame();
return $sp;
}
// top
$s->setRightFill($o["rl"],$o["gl"],$o["bl"]); 
$s->drawLine(-$o["bev"],-$o["bev"]); 
$s->drawLine($o["w"]+(2*$o["bev"]),0); 
$s->drawLine(-$o["bev"],$o["bev"]); 
$s->drawLine(-$o["w"],0); 
// left
$s->setRightFill($o["rl"],$o["gl"],$o["bl"]); 
$s->drawLine(0,$o["h"]); 
$s->drawLine(-$o["bev"],$o["bev"]); 
$s->drawLine(0,-$o["h"]-(2*$o["bev"])); 
$s->drawLine($o["bev"],$o["bev"]); 

$s->movePenTo(0, $o["h"]); 

//bottom
$s->setRightFill($o["rd"],$o["gd"],$o["bd"]); 
$s->drawLine($o["w"],0);  
$s->drawLine($o["bev"],$o["bev"]); 
$s->drawLine(-$o["w"]-(2*$o["bev"]),0); 
$s->drawLine($o["bev"],-$o["bev"]); 

$s->movePenTo($o["w"],$o["h"]);  
// right
$s->setRightFill($o["rd"],$o["gd"],$o["bd"]); 
$s->drawLine(0,-$o["h"]); 
$s->drawLine($o["bev"],-$o["bev"]); 
$s->drawLine(0,$o["h"]+(2*$o["bev"])); 
$s->drawLine(-$o["bev"],-$o["bev"]); 

$sp= new SWFSprite();
$f1 = $sp->add($s);
$sp->nextFrame();
return $sp;
};

// make a text field function
function maketextfield($name,$font,$str,$w,$h,$r,$g,$b) {
//$txtfield = new SWFTextField(SWFTEXTFIELD_DRAWBOX  | SWFTEXTFIELD_MULTILINE | SWFTEXTFIELD_WORDWRAP | SWFTEXTFIELD_USEFONT );
$txtfield = new SWFTextField(  SWFTEXTFIELD_USEFONT | SWFTEXTFIELD_NOSELECT  );
$txtfield->setHeight(14);	
$txtfield->setBounds($w,$h);
$txtfield->setName($name);
$txtfield->setColor($r,$g,$b);
$txtfield->setFont(new SWFFont($font));
$txtfield->addChars("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789");
$txtfield->addString($str);
return $txtfield;
};

// just a function to draw  the TitleBar
function makeTitleBar($w,$h,$r,$g,$b){
$myshape=new SWFShape(); 
//$myshape->setLine(0,0,0,0); 
$myshape->setRightFill($r,$g,$b); 
$myshape->drawLine($w,0);  
$myshape->drawLine(0,$h); 
$myshape->drawLine(-$w,0); 
$myshape->drawLine(0,-$h); 

$titlebar = maketextfield('titlebartext', '_sans',' Color Picker', 88, 18,0xcc,0xcc,0xcc);
$sp= new SWFSprite();
$f1 = $sp->add($myshape);
$f2 = $sp->add($titlebar);
$sp->nextFrame();
return $sp;
};
?>