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

flash_line_003

Get Adobe Flash player
by akirasada1972 18 May 2015
    Embed
package{
import flash.display.*;
import flash.events.*;
import flash.geom.*;
import flash.text.*;

//[swf(backgroundColor="0x000000")]

public class spirograph extends Sprite{ 
 
public function spirograph() :void{

var text_field:TextField = new TextField();

stage.addChild(text_field);

text_field.x = 80;
text_field.y = 200;
text_field.width  = stage.stageWidth  - 20;
text_field.height = stage.stageHeight - 20;
text_field.defaultTextFormat = new TextFormat("",40,0x000000,true);
text_field.text = "DJ AKIRA SADA";
 
var con0:Sprite = new Sprite();
con0.x = 100;
 
var con1:Sprite = new Sprite();
con1.x = 50;
 
var con2:Sprite = new Sprite();
con2.x = stage.stageWidth / 2;
con2.y = stage.stageHeight / 2;
 
con1.addChild (con0);
con2.addChild (con1);
addChild (con2);
 

var quellPunkt:Point = new Point(0,0);
var stagePoint:Point;
stagePoint = con0.localToGlobal(quellPunkt);

var myShape0:Shape= new Shape();
this.addChild (myShape0);

var myShape1:Shape= new Shape();
this.addChild (myShape1); 

myShape0.graphics.moveTo (stagePoint.x,stagePoint.y);
myShape1.graphics.moveTo (stagePoint.x,stagePoint.y);
 
this.addEventListener (Event.ENTER_FRAME, onEnterFrameEvent0);
function onEnterFrameEvent0 (evt:Event):void
{
    myShape1.graphics.clear();
    con1.rotation +=  9;
    con2.rotation -=  5;
    stagePoint = con0.localToGlobal(quellPunkt);
    myShape0.graphics.lineStyle(1,0xffffff);
    myShape0.graphics.lineTo(stagePoint.x,stagePoint.y);
}

 
this.addEventListener (Event.ENTER_FRAME, onEnterFrameEvent1);
function onEnterFrameEvent1 (evt:Event):void
{
    myShape1.graphics.clear();
    con1.rotation +=  9;
    con2.rotation -=  5;
    stagePoint = con0.localToGlobal(quellPunkt);
    myShape1.graphics.beginFill(Math.random()*0xffffff,1);
    myShape1.graphics.drawCircle (stagePoint.x,stagePoint.y,10);
}
}
}
}