RED: the steps
/**
* Copyright signedvoid ( http://wonderfl.net/user/signedvoid )
* MIT License ( http://www.opensource.org/licenses/mit-license.php )
* Downloaded from: http://wonderfl.net/c/wwlX
*/
// forked from christian's RED
package
{
import flash.geom.Rectangle;
import flash.geom.Matrix;
import flash.display.*;
import flash.geom.Point;
import flash.events.Event;
import flash.filters.ConvolutionFilter;
[ SWF (width = '465', height = '465', backgroundColor = '0x000000', frameRate = '30')]
public class RED extends Sprite
{
private var pn_v01 : Point = new Point (), pn_v02 : Point = new Point ();
private var f : ConvolutionFilter;
private var b : BitmapData;
private var i : Bitmap;
public function RED ()
{
Wonderfl.disable_capture ();
stage.scaleMode = 'noScale';
graphics.beginFill (0, 1);
graphics.drawRect (0, 0, 465, 465);
f = new ConvolutionFilter (3, 3, [-30, 30, 0, -30, 30, 0, -30, 30, 0], 9, 0); // OUTLINE
addChild (i = new Bitmap (b = new BitmapData (465, 233, true, 0x00)));
i.y = stage.stageHeight / 4;
addEventListener (Event.ENTER_FRAME, setRender);
}
private function setRender (e : Event) : void
{
pn_v02.y = (pn_v01.x = (pn_v01.y += 2.5)) * 2;
b.perlinNoise (100, 100, 2, 0xFF, false, false, 9, false, [pn_v01, pn_v02]); // A&R
var p1:Point = new Point(b.rect.width * 0.25, 0);
b.applyFilter (b, b.rect, p1, f);
var clip:Rectangle = new Rectangle(p1.x * 2, 0, b.rect.width - p1.x * 2, b.rect.height);
b.draw (b, null, null, BlendMode.HARDLIGHT, clip);
var clip2:Rectangle = new Rectangle(p1.x * 3, 0, b.rect.width - p1.x * 3, b.rect.height);
b.draw (b, null, null, BlendMode.LIGHTEN, clip2);
}
}
}