libseed-list algoscript mandelbrot

[Jonatan Liljedahl <lijon kymatica com>]

calc = {w,h,it,x1,y1,x2,y2 ->
    dx = (x2-x1)/w; dy = (y2-y1)/h;
    for (y = y1; y < y2; y += dy) {
        for (line = "", x = x1; x < x2; x += dx) {
            for (a = b = i = 0; i < it; i++) {
                z = a*a-b*b;
                b = 2*a*b+y;
                a = z+x;
                if z > 4 break;
            };
            line += String.fromCharCode (i+39);
        };
		print (line);
    };
};
calc (110,40,70,-2,-1.5,1,1.5);

$ ../seed run_as.js tests/frac.ags
****************,,,,../--+++++++++++++++-))))))))))))))))))))))))))))),,./-++++++++++++-/.,,,,****************
******************,,,,.1--+++++++++++++++--/)))))))))))))))))))))))*,,,,0-+++++++++++--0,,,,,*****************
*******************,,,,,./--+++++++++++++++-/.,,,,)))))))))))******,,,,.--++++++++++-/.,,,,*******************
*********************,,,,.m--+++++++++++++++--.,,,,,**************1,,,,/-+++++++++--.,,,,*********************
**********************,,,,,./--++++++++++++++--0.,,,,,,*********+-/,,,0-++++++++--0,,,,,**********************
************************,,,,.0--++++++++++++++--/.,,,,,,./--++++,.///3--++++++--0,,,,,,***********************
*************************,,,,,./--++++++++++++++--0,,,,,,,.1----///B7/2.//.---.,,,,,,.************************
**************************,,,,,.0--++++++++++++++--/.,,,,,,,..2/1000mS5=8/..,,,,,,.0--**********************,,
***************************,,,,,,./--+++++++++++++---1.,,,,,,/0.1108:L<J352--,,../---++****************,,,,,,,
****************************,,,,,,.0---+++++++++++m----0..//-.325BAmmmmm9;9/.0/----m.+++++++--/.,,,,,,,,,,.m/-
,,,*************************.,,,,,,,./---++++++++,../--/0..01//28mmmmmmmm 4130---/../,,./--0,,,,,,,,,.1---++++
.,,,,,**********************/.,,,,,,,.1----/0..2/20;34<2032C<35968mmmmmm<67621<912.0//0:.1,,,,,../---+++++++++
--m.,,,,,******************---.,,,,,,,.0/-----/0../27SmmF;mmmmmmmmmmmmmmmmmmmmm9B44;<;7:8//-----++++++++++++++
+++--0.,,,,,,*************+/--/.,,,,,,.../-----0//3259Pmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm<>.....+++++++++++++++++
+++++--/.,,,,,,,.2----+++,/0--/../,,,/2...1//002<TMmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmW5210-,,,+++++++++++++---
++++++++--0,,,,,,,,./-----/7210..0/1510...03//03c>mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmF:U53.---------/10....,,
++++++++++--0.,,,,,,,..0///336DE7434;d4I6202316DFmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmM946//,,,,,,,,,,,,,,,,,
-++++++++++--/..,,,,,,1...1275<mmmmmmmmmmm?9457mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 1  ,,,,,,,,,,,,,****
,.--+++++++/---1..0/12;10624 mmmmmmmmmmmmmmmm?EmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmE0-----------*********
,,,.--.0,/.0/--/1  1032R?m ?mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm110     ++++***********
D`fhmlmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 510  -,,,++++++***********
,,,.--.0,/.0/--/1  1032R?m ?mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm110     ++++***********
,.--+++++++/---1..0/12;10624 mmmmmmmmmmmmmmmm?EmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmE0-----------*********
-++++++++++--/..,,,,,,1...1275<mmmmmmmmmmm?9457mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 1  ,,,,,,,,,,,,,****
++++++++++--0.,,,,,,,..0///336DE7434;d4I6202316DFmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmM946//,,,,,,,,,,,,,,,,,
++++++++--0,,,,,,,,./-----/7210..0/1510...03//03c>mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmF:U53.---------/10....,,
+++++--/.,,,,,,,.2----+++,/0--/../,,,/2...1//002<TMmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmW5210-,,,+++++++++++++---
+++--0.,,,,,,*************+/--/.,,,,,,.../-----0//3259Pmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm<>.....+++++++++++++++++
--m.,,,,,******************---.,,,,,,,.0/-----/0../27SmmF;mmmmmmmmmmmmmmmmmmmmm9B44;<;7:8//-----++++++++++++++
.,,,,,**********************/.,,,,,,,.1----/0..2/20;34<2032C<35968mmmmmm<67621<912.0//0:.1,,,,,../---+++++++++
,,,*************************.,,,,,,,./---++++++++,../--/0..01//28mmmmmmmm 4130---/../,,./--0,,,,,,,,,.1---++++
****************************,,,,,,.0---+++++++++++m----0..//-.325BAmmmmm9;9/.0/----m.+++++++--/.,,,,,,,,,,.m/-
***************************,,,,,,./--+++++++++++++---1.,,,,,,/0.1108:L<J352--,,../---++****************,,,,,,,
**************************,,,,,.0--++++++++++++++--/.,,,,,,,..2/1000mS5=8/..,,,,,,.0--**********************,,
*************************,,,,,./--++++++++++++++--0,,,,,,,.1----///B7/2.//.---.,,,,,,.************************
************************,,,,.0--++++++++++++++--/.,,,,,,./--++++,.///3--++++++--0,,,,,,***********************
**********************,,,,,./--++++++++++++++--0.,,,,,,*********+-/,,,0-++++++++--0,,,,,**********************
*********************,,,,.m--+++++++++++++++--.,,,,,**************1,,,,/-+++++++++--.,,,,*********************
*******************,,,,,./--+++++++++++++++-/.,,,,)))))))))))******,,,,.--++++++++++-/.,,,,*******************
******************,,,,.1--+++++++++++++++--/)))))))))))))))))))))))*,,,,0-+++++++++++--0,,,,,*****************
****************,,,,../--+++++++++++++++-))))))))))))))))))))))))))))),,./-++++++++++++-/.,,,,****************

:)
Jonatan