In case Flash no longer exists; a copy of this site is included in the Flashpoint archive's "ultimate" collection.

Dead Code Preservation :: Archived AS3 works from wonderfl.net

forked from: 3k Disco Tunnel

@autohor esimov //Simo Endre//
@title 1k Tunnel
Get Adobe Flash player
by prakoczy 12 Jun 2011
/**
 * Copyright prakoczy ( http://wonderfl.net/user/prakoczy )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/mh6y
 */

// 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;
    
    [SWF (backgroundColor = 0x00, width = '520', height = '520')]
    
    /**
     * @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 = -1;
        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>;
        
        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
        {
            Wonderfl.capture_delay(10);
            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);
            
            addChild(_stage);
            drawQuad(0, 2*Math.PI/30, -5, 0.25);
            addEventListener(Event.ENTER_FRAME, draw);
            stage.addEventListener(MouseEvent.CLICK, click);
        }
        
        private function createSurface(a:Number, z:Number):Point3D
        {
            var r:Number = W/9;
            var R:Number = W/7;
            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(0x000000,0.1);
            
            _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(0x003399, 0.95);
        }
        
        /**
         * CLick to change to wireframe
         */
        
        private function click(event:MouseEvent):void
        {
            _mouseClick = !_mouseClick;
            _stroke2 = _stroke;
            _stroke2.thickness = 1;
            _stroke2.fill = new GraphicsSolidFill(0xC41A97,0.4);
        }
        
        private function draw(event:Event):void
        {
            T += 1/20;
            graphics.clear();
            
            var n:Number = 90;
            var a:Number = 9;
            var da:Number = 2*Math.PI/n;
            var dz:Number = .1; //0.25
            
            var posX:Number = 0.09 * (mouseX - W>>1);
            var posY:Number = 0.02 * (mouseY - H>>1);
            
            for (var z:Number = Z + 2; z>Z; z-=dz)
            {
                for (var i:Number = 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*3.14/2+T)))) >> 0;
                    var m:Number = (117*(fog*0.01*(Math.cos(n/z*3.14/2) + posY))) >> 1;
                    k *= (0.55+.3*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%2 == 0)
                    {
                        _background.color = 0x00;
                       // drawQuad(a,da/8, z, dz);
                    }
                    a += da;
                }
            }
            Z -= 0.01;
            if(Z <= dz) Z += dz;
        }
    }
}

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 = y;
        this.y = x;
        this.z = z;
    }
}