}* FANTASIA.TXT WRITTEN IN THE LISA GJ2 FIC3 PROGRAMMING }* }* LANGUAGE BY ARISTO TACOMA wLAH }* }* 2011:3:8. REDIST BY YOGA4D.ORG/cfdl.txt }* }* FRACTALS WITHOUT EQUATIONS }* ((DATA THE-DRAWING 1000 => %MAKE THE-DRAWING < SETBASIS )) ((DATA SIZE-X-FACTOR SIZE-X-FACTOR => SETBASIS )) ((DATA SIZE-Y-FACTOR SIZE-Y-FACTOR => SETBASIS )) (LET FANTASIA-AHEAD BE (( )) (( (( 50 ; SIZE-X-FACTOR >>> => SUB => PEN-DRAW FT )) (( NUM-LINES => INCVAR )) (( 1 ; NUM-LINES >>> ; THE-DRAWING >>> => %PUT )) )) OK) (LET FANTASIA-NEW-TRY BE (( )) (( (( CLS FT )) (( THE-DRAWING >>> => %EMPTY )) (( NUM-LINES => SETBASIS )) )) OK) (LET FANTASIA-TURN-LEFT BE (( )) (( (( 450 ; SIZE-Y-FACTOR >>> => ADD => PEN-LEFT )) (( NUM-LINES => INCVAR )) (( 2 ; NUM-LINES >>> ; THE-DRAWING >>> => %PUT )) )) OK) (LET FANTASIA-TURN-RIGHT BE (( )) (( (( 450 ; SIZE-X-FACTOR >>> => ADD => PEN-RIGHT )) (( NUM-LINES => INCVAR )) (( 3 ; NUM-LINES >>> ; THE-DRAWING >>> => %PUT )) )) OK) (LET FANTASIA-MAKE-IT BE (( )) (( (( THE-DRAWING >>> => & )) (( CLS )) (( GOLABEL4: )) (( NUM-LINES >>> (COUNT (( ^50 FR GETV ; 25 => SUB SIZE-X-FACTOR < FUNNYRFFG ; 25 => SUB SIZE-Y-FACTOR <>> ; 10 ; 1014 => WITH => NOT = ^800 FR GETV ; 150 => ADD PEN-X <>> ; 10 ; 758 => WITH => NOT = ^550 FR GETV ; 75 => ADD PEN-Y < %GET ; 1 => T = FANTASIA-AHEAD == 2 => EQN = FANTASIA-TURN-LEFT == FANTASIA-TURN-RIGHT === === )) COUNTUP) )) (( ^20 FR GETV ; 20 => EQN => NOT = GOUP4 === )) (( SIZE-X-FACTOR => SETBASIS )) (( SIZE-Y-FACTOR => SETBASIS )) (( && )) )) OK) (( LOOKSTK )) (LET FRACTAL-PURITY BE (( )) (( (( GOLABEL4: )) (( KEYNUM ; RM ; FKEYNUM => >N6 )) (( N6 ; 64 => EQN = FANTASIA-AHEAD == )) (( N6 ; 14 => EQN = FANTASIA-NEW-TRY == )) (( N6 ; 11 => EQN = FANTASIA-MAKE-IT == )) (( N6 ; 82 => EQN = FANTASIA-TURN-LEFT == )) (( N6 ; 83 => EQN = FANTASIA-TURN-RIGHT == )) (( N6 ; 63 => EQN = EXIT )) (( === === === === === === )) (( GOUP4 )) )) OK) (( LOOKSTK )) (LET FANTASIA BE (( )) (( (( B9-POP )) (( }to make a generous, pure shape, perhaps vaguely} ; 100 ; 130 => B9-POP )) (( }crystal-like. It is easy to learn when you play} ; 100 ; 160 => B9-POP )) (( }with it. Press N for new try, K to make fractal,} ; 100 ; 190 => B9-POP )) (( }and BACKSPACE when done.} ; 100 ; 220 => B9-POP )) (( 500 ; 500 => B9-ENTERPLS ; CLS )) (( FRACTAL-PURITY )) (( GJ-DONE )) )) OK) (( LOOKSTK )) (LET AUTOSTART BE FANTASIA OK)