Perlin Circles

[Iamthejuggler]

Ok, here is my entry. I love perlins. :)

Preview here (I couldn't think of a better place to host it, so DeviantArt it is!)
http://iamthejuggler.deviantart.com/art/Perlin-Circles-109798585

Click on it to activate the mouse as deviantArt haven't heard about focusing to swfs. Then move the mouse to change the camera angle.


var bmd:BitmapData = new BitmapData(500,300,true, 0x00ffffff);
var bm:Bitmap = new Bitmap(bmd);
var pbmd1:BitmapData = new BitmapData(11,11,true,0x00ffffff);
var pbmd2:BitmapData = new BitmapData(11,11,true,0x00ffffff);
var perlins:BitmapData = new BitmapData(11,11,false,0x000000);
var p:Point = new Point(0,0);
var pr:Rectangle = new Rectangle(0,0,11,11);
var p1:Point = new Point(0,0);
var p2:Point = new Point(0,0);
var o1:Array = [p1];
var o2:Array = [p2];
var sourceCircle:Shape=new Shape();
addChild(bm);
sourceCircle.x = 50;
sourceCircle.y = 50;
//sourceCircle.graphics.lineStyle(1,0x000000);
sourceCircle.graphics.beginFill(0xffffff,1);
sourceCircle.graphics.drawCircle(0,0,10);
sourceCircle.graphics.endFill();
// initial camera angle
var hor:Number=20;
var ver:Number=70;
// camera depth
var fLen:Number=350;
// ooh heck, what an array!
var circles:Array = [
[-100, -100, 0],[-80, -100, 0],[-60, -100, 0],[-40, -100, 0],[-20, -100, 0],[0, -100, 0], [20, -100, 0],[40, -100, 0],[60, -100, 0],[80, -100, 0],[100, -100, 0],
[-100, -80, 0],[-80, -80, 0],[-60, -80, 0],[-40, -80, 0],[-20, -80, 0],[0, -80, 0], [20, -80, 0],[40, -80, 0],[60, -80, 0],[80, -80, 0],[100, -80, 0],
[-100, -60, 0],[-80, -60, 0],[-60, -60, 0],[-40, -60, 0],[-20, -60, 0],[0, -60, 0], [20, -60, 0],[40, -60, 0],[60, -60, 0],[80, -60, 0],[100, -60, 0],
[-100, -40, 0],[-80, -40, 0],[-60, -40, 0],[-40, -40, 0],[-20, -40, 0],[0, -40, 0], [20, -40, 0],[40, -40, 0],[60, -40, 0],[80, -40, 0],[100, -40, 0],
[-100, -20, 0],[-80, -20, 0],[-60, -20, 0],[-40, -20, 0],[-20, -20, 0],[0, -20, 0], [20, -20, 0],[40, -20, 0],[60, -20, 0],[80, -20, 0],[100, -20, 0],
[-100, 0, 0],[-80, 0, 0],[-60, 0, 0],[-40, 0, 0],[-20, 0, 0],[0, 0, 0], [20, 0, 0],[40, 0, 0],[60, 0, 0],[80, 0, 0],[100, 0, 0],
[-100, 20, 0],[-80, 20, 0],[-60, 20, 0],[-40, 20, 0],[-20, 20, 0],[0, 20, 0], [20, 20, 0],[40, 20, 0],[60, 20, 0],[80, 20, 0],[100, 20, 0],
[-100, 40, 0],[-80, 40, 0],[-60, 40, 0],[-40, 40, 0],[-20, 40, 0],[0, 40, 0], [20, 40, 0],[40, 40, 0],[60, 40, 0],[80, 40, 0],[100, 40, 0],
[-100, 60, 0],[-80, 60, 0],[-60, 60, 0],[-40, 60, 0],[-20, 60, 0],[0, 60, 0], [20, 60, 0],[40, 60, 0],[60, 60, 0],[80, 60, 0],[100, 60, 0],
[-100, 80, 0],[-80, 80, 0],[-60, 80, 0],[-40, 80, 0],[-20, 80, 0],[0, 80, 0], [20, 80, 0],[40, 80, 0],[60, 80, 0],[80, 80, 0],[100, 80, 0],
[-100, 100, 0],[-80, 100, 0],[-60, 100, 0],[-40, 100, 0],[-20, 100, 0],[0, 100, 0], [20, 100, 0],[40, 100, 0],[60, 100, 0],[80, 100, 0],[100, 100, 0]
];
var numCircles:int = circles.length;
addEventListener(Event.ENTER_FRAME, ef);
function ef(e:Event):void{
hor = 360 * mouseX /550;
ver = 180 * mouseY / 300;
p1.x += 0.2;
p2.y += 0.2;
pbmd1.perlinNoise(50,50,3,1,true,false,7,true,o1);
pbmd2.perlinNoise(50,50,3,7,true,false,7,true,o2);
perlins.fillRect(r, 0x00ffffff);
perlins.draw(pbmd1);
perlins.draw(pbmd2, null, null, BlendMode.SCREEN);
perlins.applyFilter(perlins, pr, p, pbf);
for (var q:int = 0; q < 11; q++)
{
for (var w:int = 0; w < 11; w++)
{
var color:int = perlins.getPixel(q,w);
var which:int = q * 11 + w;
circles[which][2] = -150 + 300 * color/16777215;
}
}
drawCircles(hor, ver);
}

var r:Rectangle = new Rectangle(0,0,500,300);
var cmf:ColorMatrixFilter = new ColorMatrixFilter([1,0,0,0,0,
0,1,0,0,0,
0,0,1,0,0,
0,0,0,0.9,0]);
var bf:BlurFilter = new BlurFilter(7,7,1);
var pbf:BlurFilter = new BlurFilter(7,7,1);
function drawCircles(hor:Number,ver:Number):void
{
bmd.applyFilter(bmd, r, new Point(0,0), cmf);
bmd.applyFilter(bmd, r, new Point(0,0), bf);
var vertsNewArray=[];
var distArray=[];
var dispArray=[];
var dist:Number;
hor=hor*Math.PI/180;
ver=ver*Math.PI/180;
for(var i:int=0;i<numCircles;i++){
vertsNewArray[i]=pointToCamera(circles[i],hor,ver);
dist=Math.sqrt(Math.pow(fLen-vertsNewArray[i][0],2)+Math.pow(vertsNewArray[i][1],2)+Math.pow(vertsNewArray[i][2],2));
distArray[i]=[dist,i];
}
distArray.sort(byDist);
for(var j:int=0;j < numCircles;j++){
var k:int = distArray[j][1];
dispArray[k]=[fLen/(fLen-vertsNewArray[k][0])*vertsNewArray[k][1],
-fLen/(fLen-vertsNewArray[k][0])*vertsNewArray[k][2]];
var cx:int = int (k/11);
var cy:int = k % 11;
var color:int = perlins.getPixel(cx, cy);
m.tx = dispArray[k][0] + 250;
m.ty = dispArray[k][1] + 150;
m.a = fLen/distArray[j][0];
m.d = fLen/distArray[j][0];
cf.redMultiplier = color/0xffffff;
cf.greenMultiplier = color/0xffffff;
cf.blueMultiplier = color/0xffffff;
bmd.draw(sourceCircle,m,cf);
}
}
var m:Matrix = new Matrix(1,0,0,1,0,0);
var cf:ColorTransform = new ColorTransform(1,1,1,1);
function byDist(v:Array,w:Array):Number {
if (v[0] > w[0]){
return -1;
} else if (v[0] < w[0]){
return 1;
} else {
return 0;
}
}
function pointToCamera(v:Array,t:Number,p:Number):Array {

var newCoords:Array=[];
newCoords[0]=v[0]*Math.cos(t)*Math.sin(p)+v[1]*Math.sin(t)*Math.sin(p)+v[2]*Math.cos(p);
newCoords[1]=-v[0]*Math.sin(t)+v[1]*Math.cos(t);
newCoords[2]=-v[0]*Math.cos(t)*Math.cos(p)-v[1]*Math.sin(t)*Math.cos(p)+v[2]*Math.sin(p);
return newCoords;
}

[kirupa]

Added!

[.soulty]

I really like this, nice work man.