forked from: 10 PRINT CHR$(205.5+RND(1)); : GOTO 10.
forked from 10 PRINT CHR$(205.5+RND(1)); : GOTO 10. (diff: 31)
A Flash version of the classic 10 PRINT CHR$(205.5+RND(1)); : GOTO 10. inspired by http://www.bogost.com/blog/talk_of_10_print.shtml and https://forum.processing.org/topic/challenge-processing-variations-of-10-print-chr-205-5-rnd-1-goto-10 The challenge is to get the labyrinth look by using as little code as possible Of course the biggest problem here is all the boilerplate stuff. Feel free to create a shorter one. Author: Mario Klingemann
ActionScript3 source code
/**
* Copyright nicoptere ( http://wonderfl.net/user/nicoptere )
* MIT License ( http://www.opensource.org/licenses/mit-license.php )
* Downloaded from: http://wonderfl.net/c/ebMH
*/
// forked from Quasimondo's 10 PRINT CHR$(205.5+RND(1)); : GOTO 10.
// A Flash version of the classic 10 PRINT CHR$(205.5+RND(1)); : GOTO 10.
// inspired by http://www.bogost.com/blog/talk_of_10_print.shtml
// and https://forum.processing.org/topic/challenge-processing-variations-of-10-print-chr-205-5-rnd-1-goto-10
//
// The challenge is to get the labyrinth look by using as little code as possible
// Of course the biggest problem here is all the boilerplate stuff.
// Feel free to create a shorter one.
//
// Author: Mario Klingemann
package
{
import flash.display.Sprite;
public class Main extends Sprite { public function Main():void { addChild( new tf() ); } }
}
import flash.text.TextField;
import flash.utils.setTimeout;
internal class tf extends TextField
{
public function tf()
{
defaultTextFormat = new flash.text.TextFormat( "Courier New", 20, 0, null, null, null, null, null, null, null, null, null, -4 );
wordWrap = true;
width = 465;
autoSize = "left";
(function d(s:int):void { text += s&1?"\\":"/"; setTimeout(d,0,s+=s>>1); })(2);
}
}
