path = [
    'data' = [
    ];
    'defvattr' = [
        'vieworig' = ['x' = 1; 'y' = 1;];
        'viewsize' = ['x' = 820; 'y' = 520;];
        'wrect' = [
            0 = ['x' = -400; 'y' = 0;];
            1 = ['x' = 400; 'y' = 500;];
        ];
        'vsize' = ['x' = 800; 'y' = 500;];
        'w2v' = 1;
    ];
];
path.init = function () {
    local i, j, n, s, t, start, end;

    path.createview (null);
    i = 0;
    fd = openio ('file', '/tmp/ek', 'r');
#    while ((path.descs[i] = path.readdesc ()))
#        i = i + 1;
    echo ('ready');
};
path.createview = function (attr) {
    local name, vieworig, viewsize;
    name = attr.name;
    if (~attr.name)
        name = 'PATH';
    vieworig = attr.vieworig;
    if (~attr.vieworig)
        vieworig = path.defvattr.vieworig;
    viewsize = attr.viewsize;
    if (~attr.viewsize)
        viewsize = path.defvattr.viewsize;
    path.view = createwidget (-1, [
        'type'   = 'view';
        'name'   = name;
        'origin' = vieworig;
        'size'   = viewsize;
    ]);
    path.scroll = createwidget (path.view, ['type' = 'scroll';]);
    widgets[path.view].closeview  = path.closeview;
    path.canvas = createwidget (path.scroll, ['type' = 'canvas';]);
    setwidgetattr (path.canvas, [
        'window' = path.data.defvattr.wrect;
        'viewport' = viewsize;
    ]);
    clear (path.canvas);
    if (attr.funcs) {
        for (fid in attr.funcs)
            widgets[path.canvas][fid] = attr.funcs[fid];
    } else {
        widgets[path.canvas].leftup     = path.leftup;
        widgets[path.canvas].leftmove   = path.leftmove;
        widgets[path.canvas].leftdown   = path.leftdown;
        widgets[path.canvas].middledown = path.middledown;
        widgets[path.canvas].middlemove = path.middlemove;
        widgets[path.canvas].middleup   = path.middleup;
        widgets[path.canvas].rightdown  = path.rightdown;
        widgets[path.canvas].rightmove  = path.rightmove;
        widgets[path.canvas].rightup    = path.rightup;
        widgets[path.canvas].keyup      = path.keyup;
        widgets[path.canvas].keydown    = path.keydown;
        widgets[path.canvas].redraw     = path.redraw;
    }
    setwidgetattr (path.canvas, ['color' = [2 = 'red';];]);
    setwidgetattr (path.canvas, ['color' = [3 = 'green';];]);
    return path.canvas;
};
path.readdesc = function () {
    local desc, s, t, n, i;

    wrect = [
        0 = ['x' = 9999; 'y' = 9999;];
        1 = ['x' = -9999; 'y' = -9999;];
    ];
    if (~(s = readline (fd))) {
        echo ('EOF/0', 'choice', 'ok');
        return;
    }
echo ('> ', s);
    if (s ~= 'edge') {
        ask ('error in file/0', 'choice', 'ok');
        return;
    }
    if (~(s = readline (fd))) {
        ask ('EOF/01', 'choice', 'ok');
        return;
    }
    desc.tail = s;
    if (~(s = readline (fd))) {
        ask ('EOF/02', 'choice', 'ok');
        return;
    }
    desc.head = s;
    if (~(s = readline (fd))) {
        ask ('EOF', 'choice', 'ok');
        return;
    }
    if (s ~= 'points') {
        ask ('error in file', 'choice', 'ok');
        return;
    }
    s = readline (fd);
    n = ston (s);
    for (i = 0; i < n; i = i + 1) {
        s = readline (fd);
        t = split (s, ' ');
        desc.points[i] = ['x' = ston (t[0]); 'y' = ston (t[1]);];
        if (wrect[0].x > desc.points[i].x - 10)
            wrect[0].x = desc.points[i].x - 10;
        if (wrect[0].y > desc.points[i].y - 10)
            wrect[0].y = desc.points[i].y - 10;
        if (wrect[1].x < desc.points[i].x + 10)
            wrect[1].x = desc.points[i].x + 10;
        if (wrect[1].y < desc.points[i].y + 10)
            wrect[1].y = desc.points[i].y + 10;
    }
    desc.points[i] = copy (desc.points[0]);
    if (~(s = readline (fd))) {
        ask ('EOF/2', 'choice', 'ok');
        return;
    }
    if (s ~= 'splpoints') {
        ask ('error in file/2', 'choice', 'ok');
        return;
    }
    s = readline (fd);
    n = ston (s);
    for (i = 0; i < n; i = i + 1) {
        s = readline (fd);
        t = split (s, ' ');
        desc.splpoints[i] = ['x' = ston (t[0]); 'y' = ston (t[1]);];
        if (wrect[0].x > desc.splpoints[i].x - 10)
            wrect[0].x = desc.splpoints[i].x - 10;
        if (wrect[0].y > desc.splpoints[i].y - 10)
            wrect[0].y = desc.splpoints[i].y - 10;
        if (wrect[1].x < desc.splpoints[i].x + 10)
            wrect[1].x = desc.splpoints[i].x + 10;
        if (wrect[1].y < desc.splpoints[i].y + 10)
            wrect[1].y = desc.splpoints[i].y + 10;
    }
    desc.wrect = wrect;
    return desc;
};
path.drawdesc = function (desc) {
    local i;

    tt = getwidgetattr (path.canvas, [0 = 'size';]);
    wrect = copy (desc.wrect);
    r1 = (wrect[1].x - wrect[0].x) / (wrect[1].y - wrect[0].y);
    r2 = tt.size.x / tt.size.y;
    if (r1 > r2)
        wrect[1].y = wrect[0].y + (wrect[1].x - wrect[0].x) / r2;
    else
        wrect[1].x = wrect[0].x + (wrect[1].y - wrect[0].y) * r2;
    setwidgetattr (path.canvas, ['window' = wrect;]);
    clear (path.canvas);
#    for (i = 0; desc.points[i]; i = i + 1) {
#        text (path.canvas, null,
#                ['x' = desc.points[i].x + 10; 'y' = desc.points[i].y;],
#                concat ('p ', i), 'fixed', 14, 'lc');
#    }
    polygon (path.canvas, null, desc.points);
    for (i = 0; desc.splpoints[i]; i = i + 1) {
        text (path.canvas, null,
                ['x' = desc.splpoints[i].x + 10; 'y' = desc.splpoints[i].y;],
                concat ('sp ', i), 'fixed', 14, 'lc');
    }
#    polygon (path.canvas, null, desc.splpoints);
    splinegon (path.canvas, null, desc.splpoints);
    text (path.canvas, null,
            ['x' = desc.wrect[0].x + 1; 'y' = desc.wrect[0].y + 10;],
            concat (tail, ' -> ', head), 'fixed', 14, 'lc');
};
path.redraw = function (data) {
    path.drawdesc (path.desc);
};
path.keyup = function (data) {
    if (data.key == 'n') {
        clear (path.canvas);
        if ((path.desc = path.readdesc ()))
            path.drawdesc (path.desc);
    } else if (data.key == ' ')
        path.redraw (data);
};
path.init ();
monitorfile = function (data) {
echo (111);
    if (~(tail = readline (0))) {
        echo ('eof1');
        exit ();
    }
echo (222);
    if (~(head = readline (0))) {
        echo ('eof2');
        exit ();
    }
echo (head);
echo (333);
    for (i in path.descs) {
        desc = path.descs[i];
        if (desc.tail == tail & desc.head == head) {
echo (111122222);
            path.drawdesc (desc);
            break;
        }
    }
echo (444);
};
monitor ('on', 0);