3k Disco Tunnel+BeatPort API
Now with some visualization thanks to makc3d Beatport API
Change the current track with mouse wheel
Click to change to wireframe
/**
* Copyright esimov ( http://wonderfl.net/user/esimov )
* MIT License ( http://www.opensource.org/licenses/mit-license.php )
* Downloaded from: http://wonderfl.net/c/nfh0
*/
// forked from esimov's 3k Disco Tunnel
package
{
import flash.display.*;
import flash.display.Sprite;
import flash.display.StageAlign;
import flash.display.StageScaleMode;
import flash.events.Event;
import flash.events.MouseEvent;
import flash.geom.Point;
import flash.geom.Rectangle;
import flash.media.SoundMixer;
import flash.utils.ByteArray;
[SWF (backgroundColor = 0x00, width = '465', height = '465')]
/**
* @autohor esimov //Simo Endre//
* @title 1k Tunnel
*/
public class Main extends Sprite
{
private const W:Number = stage.stageWidth;
private const H:Number = stage.stageHeight;
private var Z:Number = -0.40;
private var T:Number = 0;
private var _mouseClick:Boolean = false;
private var _stage:Sprite = new Sprite();
private var _point:Point3D;
private var _stroke:GraphicsStroke;
private var _stroke2:GraphicsStroke;
private var _background:GraphicsSolidFill;
private var _path:GraphicsPath;
private var _points:Vector.<IGraphicsData>;
private var _player:BeatPortPlayer;
public function Main()
{
if (stage) init(null);
else
{
addEventListener(Event.ADDED_TO_STAGE, init);
throw new Error("Stage not active");
}
}
private function init(event:Event):void
{
removeEventListener(Event.ADDED_TO_STAGE, init);
stage.align = StageAlign.TOP_LEFT;
stage.scaleMode = StageScaleMode.NO_SCALE;
stage.quality = StageQuality.MEDIUM;
stage.fullScreenSourceRect = new Rectangle(0,0,W,H);
_player = new BeatPortPlayer();
_player.play(18);
addChild(_stage);
drawQuad(0, 2*Math.PI/30, -5, 0.25);
addEventListener(Event.ENTER_FRAME, draw);
stage.addEventListener(MouseEvent.CLICK, click);
stage.addEventListener(MouseEvent.MOUSE_WHEEL, mouseWheel);
}
private function createSurface(a:Number, z:Number):Point3D
{
var r:Number = W/10;
var R:Number = W/3;
var b:Number = -10*Math.cos(a*5 + T);
return new Point3D(W/2 + (R*Math.cos(a) + r*Math.sin(z+2*T))/z + Math.cos(a)*b,
H/2 + (R*Math.sin(a))/z + Math.sin(a)*b, Z);
}
/**
* @param a angle
* @param da delta angle
* @param z depth
* @param dz depth delta
*/
private function drawQuad(a:Number, da:Number, z:Number, dz:Number):void
{
var v:Array = [createSurface(a,z),
createSurface(a+da,z),
createSurface(a+da, z+dz),
createSurface(a, z+dz)];
_points = new Vector.<IGraphicsData>();
_stroke = new GraphicsStroke();
_stroke.thickness = 1;
_stroke.fill = new GraphicsSolidFill(0x102020,0.95);
_path = new GraphicsPath(new Vector.<int>(), new Vector.<Number>());
_path.moveTo(Point3D(v[0]).x, Point3D(v[0]).y);
for (var i:Number = 0; i < v.length; i++)
{
_path.lineTo(Point3D(v[i]).x, Point3D(v[i]).y);
}
_background = new GraphicsSolidFill(0x663399, 0.95);
}
/**
* CLick to change to wireframe
*/
private function click(event:MouseEvent):void
{
stage.removeEventListener(MouseEvent.MOUSE_WHEEL, mouseWheel);
_mouseClick = !_mouseClick;
_stroke2 = _stroke;
_stroke2.thickness = 1;
_stroke2.fill = new GraphicsSolidFill(0xC41A97,0.4);
stage.addEventListener(MouseEvent.MOUSE_WHEEL, mouseWheel);
}
private function mouseWheel(event:MouseEvent):void
{
stage.removeEventListener(MouseEvent.CLICK, click);
_player.next();
stage.addEventListener(MouseEvent.CLICK, click);
}
private function draw(event:Event):void
{
T += 1/10;
graphics.clear();
var n:Number = 40;
var a:Number = 0;
var da:Number = 2*Math.PI/n;
var dz:Number = 0.25;
var spect:Number = 0;
var bytes:ByteArray = new ByteArray();
var posX:Number = 0.009 * (mouseX - W>>1);
var posY:Number = 0.0012 * (mouseY - H>>1);
if (!SoundMixer.areSoundsInaccessible())
{
var i:int;
SoundMixer.computeSpectrum(bytes, true);
bytes.position = 0;
for (i = 0; i< 128; i++)
{
spect += bytes.readFloat();
}
spect /= 100;
}
for (var z:Number = Z + 12; z>Z; z-=dz)
{
for (i = 0; i<n;i++)
{
var fog:Number = 1/(Math.max(z+0.7)-3, 1);
if (z <= 2)
{
fog = Math.min(1,Math.pow(z/2,2));
}
var k:Number = (255*(fog*Math.abs(Math.sin(i/n*2*3.14+T)))) >> 0;
var m:Number = (255*(fog*0.05*(Math.cos(n/z*3.14) + spect*10))) >> 0;
k *= (0.55+0.45*Math.cos((i/n+0.55)*Math.PI*posX));
k = k >> 0;
m = m >> 0;
var r:uint = (k>>16 & 0xff);
var g:uint = (m>>08 & 0xff)>>2;
var b:uint = (k>>00 & 0xff)<<16;
_background = new GraphicsSolidFill(r | g | b, 0.95);
_mouseClick == false ? _points.push(_path, _stroke, _background) : _points.push(_path, _stroke2, null)
graphics.drawGraphicsData(_points);
drawQuad(a,da,z,dz);
if (i%3 == 0)
{
_background.color = 0x00;
drawQuad(a,da/8, z, dz);
}
a += da;
}
}
Z -= 0.05;
if(Z <= dz) Z += dz;
}
}
}
/**
* Beatport API by makc3d
* http://wonderfl.net/c/ffFX
*/
import flash.events.Event;
import flash.events.IOErrorEvent;
import flash.media.Sound;
import flash.media.SoundChannel;
import flash.media.SoundLoaderContext;
import flash.net.URLLoader;
import flash.net.URLLoaderDataFormat;
import flash.net.URLRequest;
class BeatPortPlayer {
private var gid:int;
public function next ():void {
if (channel) {
channel.stop ();
playRandomSample (new Event ("whatever"))
}
}
/**
* Plays random samples by genre non-stop.
* @see http://api.beatport.com/catalog/genres?format=xml&v=1.0
*/
public function play (genreId:int):void {
// 1st we need to get total number of tracks
var loader:URLLoader = new URLLoader;
loader.dataFormat = URLLoaderDataFormat.BINARY;
subscribeLoader (loader, getCount, onIOFailure1);
loader.load (new URLRequest (makeUrl (gid = genreId, 1)));
}
private function makeUrl (genreId:int, page:int):String {
return "http://api.beatport.com/catalog/tracks?genreId=" + genreId + "&perPage=1&page=" + page + "&format=xml&v=1.0";
}
private var count:int, sound:Sound, channel:SoundChannel;
private var context:SoundLoaderContext = new SoundLoaderContext (10, true);
private function getCount (e:Event):void {
var loader:URLLoader = URLLoader (e.target);
unsubscribeLoader (loader, getCount, onIOFailure1);
var result:XML = XML (loader.data);
count = parseInt (result.result.@count);
playRandomSample ();
}
private function playRandomSample (e:Event = null):void {
if (e != null) {
unsubscribeSoundStuff (); channel = null;
}
var loader:URLLoader = new URLLoader;
loader.dataFormat = URLLoaderDataFormat.BINARY;
subscribeLoader (loader, getRandomSampleUrl, onIOFailure2);
loader.load (new URLRequest (makeUrl (gid, 1 + (count - 1) * Math.random ())));
}
private function getRandomSampleUrl (e:Event):void {
var loader:URLLoader = URLLoader (e.target);
unsubscribeLoader (loader, getRandomSampleUrl, onIOFailure2);
var result:XML = XML (loader.data);
channel = Sound (sound = new Sound (
new URLRequest (result.result.document.track.@url), context
)).play ();
subscribeSoundStuff ();
}
private function subscribeLoader (loader:URLLoader, onComplete:Function, onIOFailure:Function):void {
loader.addEventListener (Event.COMPLETE, onComplete);
loader.addEventListener (IOErrorEvent.IO_ERROR, onIOFailure);
}
private function unsubscribeLoader (loader:URLLoader, onComplete:Function, onIOFailure:Function):void {
loader.removeEventListener (Event.COMPLETE, onComplete);
loader.removeEventListener (IOErrorEvent.IO_ERROR, onIOFailure);
}
private function subscribeSoundStuff ():void {
sound.addEventListener (IOErrorEvent.IO_ERROR, onIOFailure3);
channel.addEventListener (Event.SOUND_COMPLETE, playRandomSample);
}
private function unsubscribeSoundStuff ():void {
sound.removeEventListener (IOErrorEvent.IO_ERROR, onIOFailure3);
channel.removeEventListener (Event.SOUND_COMPLETE, playRandomSample);
}
private function onIOFailure1 (e:IOErrorEvent):void {
unsubscribeLoader (URLLoader (e.target), getCount, onIOFailure1);
play (gid);
}
private function onIOFailure2 (e:IOErrorEvent):void {
unsubscribeLoader (URLLoader (e.target), getRandomSampleUrl, onIOFailure2);
playRandomSample ();
}
private function onIOFailure3 (e:IOErrorEvent):void {
// assumes sound's ioError comes before channel's soundComplete
unsubscribeSoundStuff ();
playRandomSample ();
}
}
/**
* Simple Point class
*/
internal class Point3D
{
public var x:Number;
public var y:Number;
public var z:Number;
public function Point3D(x:Number, y:Number, z:Number):void
{
this.x = x;
this.y = y;
this.z = z;
}
}