<?php
include("../functions/drawingfuncs.php");
Ming_setScale(20.00000000);
ming_useswfversion(6);
$movie=new SWFMovie(6);
$movie->setDimension(550,600);
$movie->setBackground(0, 0, 0);
$movie->setRate(12);

$s = new SWFSprite();
$c = drawfilledCircle(10, -10, -10, .1, 255,0,0, 255, 255, 0);
//$c = drawCircle(10, -10, -10, .1, 0,0,0);
$c1 = $s->add($c);
$c1->setName("dircle");
$s->nextFrame();
$s1 = $movie->add($s);
$s1->setname("s");
$movie->addExport($s, 'circle');
$movie->add(new SWFAction("_root.onload=function(){

s.dircle._visible=false;
depth=10;

//begin jared tarbells code
var x0 = random(10)/10;
var y0 = random(28);
var z0 = random(8);

var h = 0.01;
var a = 10.0;
var b = 28.0;
var c = 8.0/3.0;

var mg = 3.5;

for(n=0; n<200; n++){
		x1 = x0 + h*a*( y0-x0 );
		y1 = y0 + h*( x0 * (b-z0) - y0 );
		z1 = z0 + h*(x0*y0-c*z0);
		depth++;
		newmc='circle'+depth;
		_root.attachMovie('circle',newmc, depth);
		_root[newmc]._x=x0*mg+210;
		_root[newmc]._y=y0*mg+210;
		_root[newmc]._xscale=(z0+5)*mg;
		_root[newmc]._yscale=(z0+5)*mg;
		_root[newmc]._alpha=(z0+5)*mg/2;
		_root[newmc]._visible=false;

		depth++;
		newmc='circle'+depth;
		_root.attachMovie('circle',newmc, depth);
		_root[newmc]._x=y0*mg+210;
		_root[newmc]._y=z0*mg;
		_root[newmc]._xscale=(z0+5)*mg;
		_root[newmc]._yscale=(z0+5)*mg;
		_root[newmc]._alpha=(z0+5)*mg/2;
		_root[newmc]._visible=false;

		depth++;
		newmc='circle'+depth;
		_root.attachMovie('circle',newmc, depth);
		_root[newmc]._x=z0*mg;
		_root[newmc]._y=x0*mg+210;
		_root[newmc]._xscale=(z0+5)*mg;
		_root[newmc]._yscale=(z0+5)*mg;
		_root[newmc]._alpha=(z0+5)*mg/2;
		_root[newmc]._visible=false;
		x0=x1;
		y0=y1;
		z0=z1;
}
//end jared tarbell's code

total = depth;
it = 0;
round = 0;
multi = 2;
	hideclips=function(num){
		for(i=num; i<num+9; i++){
			_root['circle'+i]._visible = false;
		}
	};
};
_root.onEnterFrame=function(){
	clip1 = 'circle'+it;
	clip2 = 'circle'+(it+1);
	clip3 = 'circle'+(it+2);
	hideclips(it);
	if(it <= total){
	/*
	_root[clip1]._x*=multi;
	_root[clip1]._y*=multi;
	_root[clip2]._x*=multi;
	_root[clip2]._y*=multi;
	_root[clip3]._x*=multi;
	_root[clip3]._y*=multi;
	*/

	_root[clip1]._visible = true;
	_root[clip2]._visible = true;
	_root[clip3]._visible = true;
	it+=3;
	} else {
		it=0;
		multi = 1/multi;
	}
};
"));

$movie->save("tarbell_lorenz8.swf");
?>