JFIF$        dd7 

Viewing File: /usr/share/graphviz/lefty/fractal2.lefty

#
# data structures
#
length = 300;
center = ['x' = 200; 'y' = 250;];
radius = 2 * length / sqrt (12);
fractalangle = 0;
maxlevel = 2;
sizes = [
    'button' = [ 'x' = 100; 'y' = 40;  ];
    'canvas' = [ 'x' = 400; 'y' = 500; ];
    'view'   = [ 'x' = 400; 'y' = 600; ];
];
sq = function (x) {
    return x * x;
};
#
# create view and other widgets
#
init = function () {
    view = createwidget (-1, [
        'type' = 'view'; 'name' = 'fractal'; 'size' = sizes.view;
    ]);

    array1 = createwidget (view, [
        'type' = 'array'; 'borderwidth' = 1; 'mode' = 'vertical';
    ]);
    widgets[array1].resize = resize;

    array2 = createwidget (array1, [
        'type' = 'array'; 'borderwidth' = 1; 'mode' = 'horizontal';
    ]);
    widgets[array2].resize = resize;

    array3 = createwidget (array2, [
        'type' = 'array'; 'borderwidth' = 1; 'mode' = 'vertical';
    ]);
    widgets[array3].resize = resize;

    morebutton = createwidget (array3, [
        'type' = 'button'; 'text' = 'more';
    ]);
    widgets[morebutton].pressed = pressed;
    lessbutton = createwidget (array3, [
        'type' = 'button'; 'text' = 'less';
    ]);
    widgets[lessbutton].pressed = pressed;
    setwidgetattr (morebutton, ['size' = sizes.button;]);
    setwidgetattr (lessbutton, ['size' = sizes.button;]);

    atext = createwidget (array2, [
        'type' = 'text'; 'mode' = 'oneline';
    ]);
    widgets[atext].oneline = oneline;
    setwidgetattr (atext, [
        'size' = ['x' = sizes.button.x; 'y' = sizes.button.y * 2;];
    ]);

    scroll = createwidget (array1, ['type' = 'scroll';]);
    canvas = createwidget (scroll, ['type' = 'canvas';]);
    wrect = [0 = ['x' = 0; 'y' = 0;]; 1 = sizes.canvas;];
    setwidgetattr (canvas, ['window' = wrect; 'viewport' = wrect[1];]);
};
#
# drawing functions
#
# draw a Koch curve (a ``snowflake'' fractal)
#
# start with a triangle and keep replacing edges
# with the construct: _/\_
# until the recursion level reaches 'maxlevel'
#
fractal = function (level, length, angle) {
    local nlength, newpenpos;

    if (level >= maxlevel) {
        newpenpos.x = penpos.x + length * cos (angle);
        newpenpos.y = penpos.y + length * sin (angle);
        line (canvas, null, penpos, newpenpos, ['color' = 1;]);
        penpos = newpenpos;
        return;
    }
    nlength = length / 3;
    fractal (level + 1, nlength, angle);
    fractal (level + 1, nlength, angle + 60);
    fractal (level + 1, nlength, angle - 60);
    fractal (level + 1, nlength, angle);
};
redrawfractal = function () {
    clear (canvas);
    setpick (canvas, center, wrect);
    penpos = [
        'x' = center.x + cos (fractalangle + 210) * radius;
        'y' = center.y + sin (fractalangle + 210) * radius;
    ];
    fractal (0, length, fractalangle +  60);
    fractal (0, length, fractalangle -  60);
    fractal (0, length, fractalangle - 180);
    remove ('penpos');
};
#
# editing functions
#
# transform the fractal.
#
# map point 'prevpoint' to point 'currpoint'
# with respect to the center of the fractal.
#
transformfractal = function (prevpoint, currpoint) {
    local prevtan, currtan, prevradius, currradius;

    prevtan = atan (prevpoint.y - center.y, prevpoint.x - center.x);
    currtan = atan (currpoint.y - center.y, currpoint.x - center.x);
    fractalangle = fractalangle + (currtan - prevtan);
    prevradius = sqrt (
        sq (prevpoint.y - center.y) + sq (prevpoint.x - center.x)
    );
    currradius = sqrt (
        sq (currpoint.y - center.y) + sq (currpoint.x - center.x)
    );
    radius = radius / prevradius * currradius;
    length = radius / 2 * sqrt (12);
};
#
# main actions
#
redraw = function (data) {
    redrawfractal ();
};
changemaxlevel = function (dn) {
    maxlevel = maxlevel + dn;
    if (maxlevel < 0)
        maxlevel = 0;
    redrawfractal ();
};
resize = function (data) {
    local ret;
    if (data.widget == array1) {
        ret = [
            array2 = [
                'x' = data.size.x;
                'y' = sizes.button.y * 2;
            ];
            scroll = [
                'x' = data.size.x;
                'y' = data.size.y - sizes.button.y * 2;
            ];
        ];
    } else if (data.widget == array2) {
        ret = [
            array3 = [
                'x' = sizes.button.x;
                'y' = 2 * sizes.button.y;
            ];
            atext = [
                'x' = data.size.x - sizes.button.x;
                'y' = 2 * sizes.button.y;
            ];
        ];
    } else if (data.widget == array3) {
        ret = [
            morebutton = sizes.button;
            lessbutton = sizes.button;
        ];
    }
    return ret;
};
#
# user interface functions
#
# bind changes to the fractal to user actions
#
leftup = function (data) {
    transformfractal (data.ppos, data.pos);
    redrawfractal ();
};
menu = [
    0 = 'more';
    1 = 'less';
];
domenu = function (i) {
    local s;
    s = menu[i];
    if (s == 'more')
        changemaxlevel (1);
    else if (s == 'less')
        changemaxlevel (-1);
};
rightdown = function (data) {
    domenu (displaymenu (canvas, menu));
};
pressed = function (data) {
    if (data.widget == morebutton)
        changemaxlevel (1);
    else if (data.widget == lessbutton)
        changemaxlevel (-1);
};
oneline = function (data) {
    local dn;
    dn = ston (data.text);
    if (dn > 0 | dn < 0)
        changemaxlevel (dn - maxlevel);
};
#
# postscript generation
#
dops = function () {
    local r;

    r = [0 = ['x' = 0; 'y' = 0;]; 1 = ['x' = 8 * 300; 'y' = 10.5 * 300;];];
    canvas = opencanvas ('pscanvas', '', r);
    setwidgetattr (canvas, ['window' = wrect;]);
    redraw ();
    closecanvas (canvas);
    canvas=defcanvas;
};
init ();
#txtview ('off');
Back to Directory  nL+D550H?Mx ,D"v]qv;6*Zqn)ZP0!1 A "#a$2Qr D8 a Ri[f\mIykIw0cuFcRı?lO7к_f˓[C$殷WF<_W ԣsKcëIzyQy/_LKℂ;C",pFA:/]=H  ~,ls/9ć:[=/#f;)x{ٛEQ )~ =𘙲r*2~ a _V=' kumFD}KYYC)({ *g&f`툪ry`=^cJ.I](*`wq1dđ#̩͑0;H]u搂@:~וKL Nsh}OIR*8:2 !lDJVo(3=M(zȰ+i*NAr6KnSl)!JJӁ* %݉?|D}d5:eP0R;{$X'xF@.ÊB {,WJuQɲRI;9QE琯62fT.DUJ;*cP A\ILNj!J۱+O\͔]ޒS߼Jȧc%ANolՎprULZԛerE2=XDXgVQeӓk yP7U*omQIs,K`)6\G3t?pgjrmۛجwluGtfh9uyP0D;Uڽ"OXlif$)&|ML0Zrm1[HXPlPR0'G=i2N+0e2]]9VTPO׮7h(F*癈'=QVZDF,d߬~TX G[`le69CR(!S2!P <0x<!1AQ "Raq02Br#SCTb ?Ζ"]mH5WR7k.ۛ!}Q~+yԏz|@T20S~Kek *zFf^2X*(@8r?CIuI|֓>^ExLgNUY+{.RѪ τV׸YTD I62'8Y27'\TP.6d&˦@Vqi|8-OΕ]ʔ U=TL8=;6c| !qfF3aů&~$l}'NWUs$Uk^SV:U# 6w++s&r+nڐ{@29 gL u"TÙM=6(^"7r}=6YݾlCuhquympǦ GjhsǜNlɻ}o7#S6aw4!OSrD57%|?x>L |/nD6?/8w#[)L7+6〼T ATg!%5MmZ/c-{1_Je"|^$'O&ޱմTrb$w)R$& N1EtdU3Uȉ1pM"N*(DNyd96.(jQ)X 5cQɎMyW?Q*!R>6=7)Xj5`J]e8%t!+'!1Q5 !1 AQaqё#2"0BRb?Gt^## .llQT $v,,m㵜5ubV =sY+@d{N! dnO<.-B;_wJt6;QJd.Qc%p{ 1,sNDdFHI0ГoXшe黅XۢF:)[FGXƹ/w_cMeD,ʡcc.WDtA$j@:) -# u c1<@ۗ9F)KJ-hpP]_x[qBlbpʖw q"LFGdƶ*s+ډ_Zc"?%t[IP 6J]#=ɺVvvCGsGh1 >)6|ey?Lӣm,4GWUi`]uJVoVDG< SB6ϏQ@ TiUlyOU0kfV~~}SZ@*WUUi##; s/[=!7}"WN]'(L! ~y5g9T̅JkbM' +s:S +B)v@Mj e Cf jE 0Y\QnzG1д~Wo{T9?`Rmyhsy3!HAD]mc1~2LSu7xT;j$`}4->L#vzŏILS ֭T{rjGKC;bpU=-`BsK.SFw4Mq]ZdHS0)tLg