#include <cctype>
#include <cstdlib>
#include <climits>
#include <cmath>
#include <cstring>
#include <cerrno>
#ifdef DEBUG
#ifdef __linux__
#define MEMCHECK
#include <malloc.h>
#endif
#endif
#include <qclipboard.h>
#include <QApplication>
#include <stdio.h>
#include <qwidget.h>

#include "config.h"
#include "filter.h"
#include "ui_helper.h"
#include "plane.h"
#include "timers.h"
#include "zoom.h"
#include "xmenu.h"
#include "xerror.h"
#include "autopilot.h"
#include "grlib.h"
#include "play.h"

#ifdef HAVE_LIBGEN_H
#include <libgen.h>
#endif

#include "i18n.h"

#ifndef M_PI
#define M_PI 3.14159265358979323846
#endif

#define WAITTIME 50000
#define WAITTIME1 200000
#define WAITTIME2 2000000
#define uih_palettechg(uih)                                                    \
    if (!uih->recalculatemode && uih->queue->palettechg != NULL)               \
    uih->recalculatemode = UIH_PALETTEDRAW, uih->display = 1
#include "misc-f.h"

static struct filter *uih_getinstance(const struct filteraction *a);
static void uih_destroyinstance(struct filter *f);
static int uih_require(struct filter *f, struct requirements *r);
static int uih_initialize(struct filter *f, struct initdata *i);
static const rgb_t uicolors[] = {
    {0, 0, 0},    {255, 255, 255}, {255, 65, 0},
    {64, 64, 64}, {128, 128, 128}, {128 + 64, 128 + 64, 128 + 64}};

static const rgb_t uibwcolors[] = {{0, 0, 0},       {255, 255, 255},
                                   {255, 255, 255}, {255, 255, 255},
                                   {255, 255, 255}, {255, 255, 255}};

static const struct filteraction uih_filter = {"XaoS's user interface layer",
                                               "ui",
                                               0,
                                               uih_getinstance,
                                               uih_destroyinstance,
                                               NULL,
                                               uih_require,
                                               uih_initialize,
                                               convertupgeneric,
                                               convertdowngeneric,
                                               NULL};

static uih_context *uih;
static int waitcount, waitcount1, waitcount2;

const struct filteraction *const uih_filters[MAXFILTERS] = {&edge_filter,
                                                            &edge2_filter,
                                                            &threed_filter,
                                                            &starfield_filter,
                                                            &stereogram_filter,
                                                            &interlace_filter,
                                                            &blur_filter,
                                                            &emboss_filter,
                                                            &palette_filter,
                                                            &antialias_filter,
                                                            NULL};

const int uih_nfilters = 10;

static void uih_invalidatepos(uih_context *uih)
{
    uih->xcenterm = INT_MAX;
    uih->xcenterm = INT_MAX;
}

static void uih_finishpalette(struct uih_context *uih)
{
    if (uih->image->palette->flags & UNFINISHED) {
        if (uih->image->palette->allocfinished != NULL)
            uih->image->palette->allocfinished(uih->image->palette);
        uih->image->palette->flags &= ~UNFINISHED;
    }
}

static void uih_getcoord(uih_context *uih, int x, int y, number_t *xr,
                         number_t *yr)
{
    uih->uifilter->action->convertdown(uih->uifilter, &x, &y);
    *xr = (((number_t)(uih->fcontext->rs.nc +
                       (x) * ((uih->fcontext->rs.mc - uih->fcontext->rs.nc) /
                              (number_t)uih->zengine->image->width))));
    *yr = (((number_t)(uih->fcontext->rs.ni +
                       (y) * ((uih->fcontext->rs.mi - uih->fcontext->rs.ni) /
                              (number_t)uih->zengine->image->height))));
    rotateback(*(uih->fcontext), *xr, *yr);
}

int uih_enablefilter(uih_context *c, int n)
{
    if (c->filter[n] == NULL) {
        struct filter *f, *f1;
        int i, wascycling = 0;
        if (c->cycling)
            uih_cycling_off(c), wascycling = 1;
        f = uih_filters[n]->getinstance(uih_filters[n]);
        f1 = c->uifilter;
        if (c->fixedcolor != NULL)
            f1 = c->fixedcolor;
        for (i = MAXFILTERS - 1; i > n; i--) {
            if (c->filter[i])
                f1 = c->filter[i];
        }
        uih_newimage(c);
        insertfilter(f, f1);
        if (!initqueue(c->queue)) {
            c->ddatalost = 1;
            removefilter(f);
            f->action->destroyinstance(f);
            if (!initqueue(c->queue)) {
                x_fatalerror(
                    "Fatal error. Can not continue - initialization of queue can not be performed eigher with or without filter");
            }
            if (wascycling)
                uih_cycling_on(c);
            if (!strcmp("palette", uih_filters[n]->shortname)) {
                uih_updatemenus(c, "palettef");
            } else {
                uih_updatemenus(c, uih_filters[n]->shortname);
            }
            return 0;
        } else
            c->filter[n] = f;
        if (wascycling)
            uih_cycling_on(c);
        if (!strcmp("palette", uih_filters[n]->shortname)) {
            uih_updatemenus(c, "palettef");
        } else {
            uih_updatemenus(c, uih_filters[n]->shortname);
        }
        return 1;
    }
    return 0;
}

void uih_disablefilter(uih_context *c, int n)
{
    if (n == c->aliasnum)
        return;
    if (c->filter[n] != NULL) {
        int wascycling = 0;
        struct filter *f = c->filter[n];
        if (c->cycling)
            uih_cycling_off(c), wascycling = 1;
        uih_newimage(c);
        removefilter(f);
        if (!initqueue(c->queue)) {
            struct filter *f1;
            int i;
            c->ddatalost = 1;
            f1 = c->uifilter;
            if (c->fixedcolor != NULL)
                f1 = c->fixedcolor;
            for (i = MAXFILTERS - 1; i > n; i--) {
                if (c->filter[i])
                    f1 = c->filter[i];
            }
            insertfilter(f, f1);
            if (!initqueue(c->queue)) {
                x_fatalerror("Fatal error. Can not continue");
            }
        } else
            f->action->destroyinstance(f), c->filter[n] = NULL;
        if (wascycling)
            uih_cycling_on(c);
        if (!strcmp("palette", uih_filters[n]->shortname)) {
            uih_updatemenus(c, "palettef");
        } else {
            uih_updatemenus(c, uih_filters[n]->shortname);
        }
    }
}

int uih_fastrotateenable(uih_context *c)
{
    int wascycling = 0;
    if (c->juliamode)
        uih_disablejulia(c);
    if (!c->fastrotate && !c->juliamode) {
        if (c->cycling)
            uih_cycling_off(c), wascycling = 1;
        c->rotatef = rotate_filter.getinstance(&rotate_filter);
        if (c->rotatef == NULL)
            goto end;
        uih_newimage(c);
        addfilter(c->rotatef, c->zengine);
        if (!initqueue(c->queue))
            goto end2;
        if (wascycling)
            uih_cycling_on(c);
        c->fastrotate = 1;
        return 1;
    }
    return 0;
end2:
    removefilter(c->rotatef);
    initqueue(c->queue);
    c->rotatef->action->destroyinstance(c->rotatef);
end:
    if (wascycling)
        uih_cycling_on(c);
    return 0;
}

void uih_fastrotatedisable(uih_context *c)
{
    if (c->fastrotate) {
        int wascycling = 0;
        uih_rotatemode(c, ROTATE_NONE);
        if (c->cycling)
            uih_cycling_off(c), wascycling = 1;
        c->fastrotate = 0;
        removefilter(c->rotatef);
        initqueue(c->queue);
        c->rotatef->action->destroyinstance(c->rotatef);
        uih_newimage(c);
        if (wascycling)
            uih_cycling_on(c);
    }
}

void uih_rotate(struct uih_context *c, int n)
{
    if (!n)
        uih_fastrotate(c, 0);
    else {
        uih_fastrotate(c, 1);
        uih_rotatemode(c, n);
    }
}

static void uih_fixedcolordisable(uih_context * /*c*/)
{
#ifdef SCONVERTORS
    if (c->fixedcolor != NULL) {
        int wascycling = 0;
        if (c->cycling)
            uih_cycling_off(c), wascycling = 1;
        initqueue(c->queue);
        removefilter(c->fixedcolor);
        initqueue(c->queue);
        c->fixedcolor->action->destroyinstance(c->fixedcolor);
        c->fixedcolor = NULL;
        uih_newimage(c);
        if (wascycling)
            uih_cycling_on(c);
    }
#endif
}

static int uih_fixedcolorenable(uih_context * /*c*/)
{
#ifdef SCONVERTORS
    const struct filteraction *fa = NULL;
    int wascycling = 0;
    preallocpalette(c->palette);
    switch (c->image->palette->type) {
#ifdef SFIXEDCOLOR
        case FIXEDCOLOR:
            fa = &fixedcolor_filter;
            break;
#endif
#ifdef SBITMAPS
        case LBITMAP:
        case MBITMAP:
        case LIBITMAP:
        case MIBITMAP:
            fa = &bitmap_filter;
            break;
#endif
        default:
            x_fatalerror("Unsupported image type. Recompile XaoS");
    }
    if (c->fixedcolor != NULL && c->fixedcolor->action != fa)
        uih_fixedcolordisable(c);
    if (c->fixedcolor == NULL) {
        if (c->cycling)
            uih_cycling_off(c), wascycling = 1;
        c->fixedcolor = fa->getinstance(fa);
        if (c->fixedcolor == NULL)
            goto end;
        uih_newimage(c);
        addfilter(c->fixedcolor, c->uifilter->previous);
        if (!initqueue(c->queue))
            goto end2;
        if (wascycling)
            uih_cycling_on(c);
        return 1;
    }
    return 0;
end2:
    removefilter(c->fixedcolor);
    c->fixedcolor->action->destroyinstance(c->fixedcolor);
    c->fixedcolor = NULL;
    initqueue(c->queue);
end:
    if (wascycling)
        uih_cycling_on(c);
    return 0;
#else
    x_fatalerror("Fixed color not supported, please recompile XaoS");
    return 0;
#endif
}

int uih_fastrotate(uih_context *c, int mode)
{
    if (mode)
        return (uih_fastrotateenable(c));
    uih_fastrotatedisable(c);
    return 1;
}

void uih_angle(uih_context *c, number_t angle)
{
    if (angle != c->fcontext->angle) {
        if (!c->fastrotate) {
            c->fcontext->version++;
            uih_newimage(c);
        }
        c->fcontext->angle = angle;
        uih_animate_image(c);
    }
}

void uih_rotatemode(uih_context *c, int mode)
{
    const char *names[] = {"norotate", "mouserotate", "controtate"};
    if (c->fastrotate) {
        if (c->rotatemode != mode) {
            c->rotatemode = mode;
            if (mode == ROTATE_CONTINUOUS)
                tl_reset_timer(c->doittimer);
            uih_updatemenus(c, names[mode]);
        }
    }
}

int uih_enablejulia(uih_context *c)
{
    int wascycling = 0;
    if (!c->juliamode && c->fcontext->mandelbrot
        /*&&c->fcontext->currentformula->calculate_julia != NULL */) {
        struct filter *addf = c->zengine;
        uih_newimage(c);
        if (c->fastrotate)
            uih_fastrotatedisable(c);
        if (c->cycling)
            uih_cycling_off(c), wascycling = 1;
        if (c->fcontext->currentformula->calculate_julia == NULL ||
            c->fcontext->slowmode)
            c->julia = zoom_filter.getinstance(&zoom_filter);
        else
            c->julia = julia_filter.getinstance(&julia_filter);
        if (c->julia == NULL)
            goto end;

        c->subwindow = subwindow_filter.getinstance(&subwindow_filter);
        if (c->subwindow == NULL)
            goto end2;
        if (c->fcontext->currentformula->calculate_julia != NULL &&
            !c->fcontext->slowmode) {
            c->smalliter = smalliter_filter.getinstance(&smalliter_filter);
            if (c->smalliter == NULL)
                goto end3;
        } else
            c->smalliter = NULL;
        addfilter(c->subwindow, addf);
        if (c->fcontext->currentformula->calculate_julia != NULL &&
            !c->fcontext->slowmode) {
            addfilter(c->smalliter, addf);
        }
        addfilter(c->julia, addf);
        subwindow_setsecond(c->subwindow, addf);
        if (!initqueue(c->queue))
            goto end4;
        if (c->fcontext->currentformula->calculate_julia == NULL ||
            c->fcontext->slowmode)
            c->juliamode = 2;
        else
            c->juliamode = 1;
        uih_updatemenus(c, "fastjulia");
        return 1;
    }
    uih_updatemenus(c, "fastjulia");
    return 0;
end4:;
    removefilter(c->subwindow);
    removefilter(c->julia);
    if (c->smalliter != NULL)
        removefilter(c->smalliter);
    initqueue(c->queue);
end3:;
    c->smalliter->action->destroyinstance(c->smalliter);
end2:;
    c->subwindow->action->destroyinstance(c->subwindow);
end:;
    c->julia->action->destroyinstance(c->julia);
    if (wascycling)
        uih_cycling_on(c);
    uih_updatemenus(c, "fastjulia");
    return 0;
}

void uih_disablejulia(uih_context *c)
{
    int wascycling = 0;
    if (c->juliamode) {
        uih_newimage(c);
        c->fcontext->version++;
        if (c->cycling)
            uih_cycling_off(c), wascycling = 1;
        removefilter(c->subwindow);
        removefilter(c->julia);
        if (c->smalliter != NULL)
            removefilter(c->smalliter);
        initqueue(c->queue);
        if (c->smalliter != NULL)
            c->smalliter->action->destroyinstance(c->smalliter);
        c->subwindow->action->destroyinstance(c->subwindow);
        c->julia->action->destroyinstance(c->julia);
        if (wascycling)
            uih_cycling_on(c);
        c->juliamode = 0;
        uih_updatemenus(c, "fastjulia");
    }
}

int uih_setjuliamode(uih_context *c, int mode)
{
    if (mode)
        return uih_enablejulia(c);
    uih_disablejulia(c);
    return 1;
}

void uih_rotationspeed(uih_context *c, number_t speed)
{
    c->rotationspeed = speed;
}

static void uih_cyclinghandler(void *userdata, int n)
{
    struct uih_context *uih = (struct uih_context *)userdata;
    int direct;
    if (uih->zengine->fractalc->palette != NULL &&
        uih->zengine->fractalc->palette->cyclecolors == NULL)
        return;
    direct = uih->direction * uih->cyclingdirection * n;
    if (direct > 0)
        direct %= uih->zengine->fractalc->palette->size - 1;
    else
        direct = -((-direct) % (uih->zengine->fractalc->palette->size - 1));
    if (direct) {
        uih->paletteshift += direct;
        while (uih->paletteshift < 0)
            uih->paletteshift += uih->zengine->fractalc->palette->size - 1;
        uih->paletteshift =
            uih->paletteshift % (uih->zengine->fractalc->palette->size - 1);
        uih->zengine->fractalc->palette->cyclecolors(
            uih->zengine->fractalc->palette, direct);
        if (uih->flags & UPDATE_AFTER_PALETTE &&
            (!uih->play || !uih->nonfractalscreen))
            uih->display = 1;
        uih_palettechg(uih);
    }
}

void uih_cycling_off(struct uih_context *c)
{
    if (c->cycling) {
        tl_free_timer(c->cyclingtimer);
        c->cycling = 0;
        uih_updatemenus(c, "cycling");
        uih_updatemenus(c, "rcycling");
    }
}

void uih_display(struct uih_context *c)
{
    c->display = 1;
    c->nonfractalscreen = 0;
    if (c->clearscreen)
        c->clearscreen = 0;
    c->displaytext = 0;
    c->nletters = 0;
    c->display = 1;
    if (c->text[0] != NULL)
        free(c->text[0]), c->text[0] = NULL;
    if (c->text[1] != NULL)
        free(c->text[1]), c->text[1] = NULL;
    if (c->text[2] != NULL)
        free(c->text[2]), c->text[2] = NULL;
    if (c->play)
        uih_clear_lines(c);
}

void uih_cycling_stop(struct uih_context *c)
{
    if (c->cycling && !c->stopped) {
        tl_remove_timer(c->cyclingtimer);
        c->stopped = 1;
    }
}

void uih_cycling_continue(struct uih_context *c)
{
    if (c->cycling && c->stopped) {
        c->stopped = 0;
        tl_add_timer(syncgroup, c->cyclingtimer);
    }
}

void uih_loadfile(struct uih_context *c, xio_constpath d)
{
    int los = strlen(d);
    char ext[4];
    if(los < 3)
        return;
    memcpy(ext, &d[los-3], 3);
    if(strcmp(ext, "png") == 0) {
        uih_loadpngfile(c, d);
        return;
    }

    xio_file f;
    f = xio_ropen(d);
    if (f == NULL) {
        uih_error(c, strerror(errno));
        return;
    }
    uih_load(c, f, d);
    return;
}

void uih_loadstr(struct uih_context *c, const char *data)
{
    xio_file f;
    f = xio_strropen(data);
    uih_load(c, f, "");
    return;
}

void uih_playstr(struct uih_context *c, const char *data)
{
    xio_file f;
    f = xio_strropen(mystrdup(data));
    uih_replayenable(c, f, "", 1);
    return;
}

void uih_recalculate(struct uih_context *c)
{
    c->fcontext->version++;
    uih_newimage(c);
}

void uih_playfile(struct uih_context *c, xio_constpath d)
{
    xio_file f;
    if (c->play)
        uih_replaydisable(c);
    f = xio_ropen(d);
    if (f == NULL) {
        uih_error(c, strerror(errno));
        return;
    }
    uih_replayenable(c, f, d, 1);
    return;
}

void uih_playtutorial(struct uih_context *c, const char *name)
{
    xio_pathdata tmp;
    xio_file f = XIO_FAILED;

    f = xio_gettutorial(name, tmp);
    if (f == NULL) {
        uih_error(c, TR("Error", "Tutorial files not found. Reinstall XaoS"));
        return;
    }
    uih_replayenable(c, f, tmp, 1);
    if (c->passfunc != NULL) {
        c->passfunc(c, 1, TR("Message", "Preparing first image"), 0);
    }
}

void uih_loadexample(struct uih_context *c)
{
    xio_pathdata name;
    xio_file f = xio_getrandomexample(name);
    c->errstring = NULL;
    if (f == NULL) {
        uih_error(c, TR("Error", "Could not open examples"));
        return;
    }
    uih_load(c, f, name);
    if (c->errstring == NULL) {
        char s[256];
#ifdef HAVE_LIBGEN_H
        sprintf(s, TR("Message", "File %s loaded."), basename(name));
#else
        sprintf(s, TR("Message", "File %s loaded."), name);
#endif
        uih_message(c, s);
    }
}

void uih_loadpngfile(struct uih_context *c, xio_constpath d)
{
    xio_file f;
    f = xio_ropen(d);
    if (f == NULL) {
        uih_error(c, strerror(errno));
        return;
    }
    const char* xpf_chunk = readpng(d);
    if(xpf_chunk == NULL) {
        uih_error(c, TR("Error", "Could not open image"));
        return;
    }
    xio_file xpf_data = xio_strropen(xpf_chunk);
    uih_load(c, xpf_data, d);
    if(c->errstring == NULL) {
        char s[256];
        sprintf(s, TR("Message", "File %s loaded."), d);
        uih_message(c, s);
    }
    return;
}

void uih_savepngfile(struct uih_context *c, xio_constpath d)
{
    const char *s;
    if (c->passfunc != NULL) {
        c->passfunc(c, 1, TR("Message", "Saving image..."), 0);
    }
    if (c->recalculatemode) {
        uih_newimage(c);
        uih_clearwindows(c);
        uih_do_fractal(c);
    }
    if (c->interrupt) {
        uih_message(c, TR("Message", "Save interrupted"));
        return;
    }
    c->errstring = NULL;
    xio_file xpf_data = xio_strwopen();
    uih_save_position(c, xpf_data, UIH_SAVEPOS);
    s = uih_save(c, d, xpf_data);
    if (s != NULL)
        uih_error(c, s);
    if (c->errstring == NULL) {
        char s[256];
        sprintf(s, TR("Message", "File %s saved."), d);
        uih_message(c, s);
    }
}

void uih_saveposfile(struct uih_context *c, xio_constpath d)
{
    xio_file f;
    c->errstring = NULL;
    f = xio_wopen(d);
    if (f == XIO_FAILED) {
        uih_error(c, TR("Message", "Can not open file"));
        return;
    }
    uih_save_position(c, f, UIH_SAVEPOS);
    if (c->errstring == NULL) {
        char s[256];
        sprintf(s, TR("Message", "File %s saved."), d);
        uih_message(c, s);
    }
}

/* Copy the position URL in the clipboard. */
/* For some reason, the messages are shown twice in the web version. FIXME. */
void uih_copyposurl(struct uih_context *c)
{
    c->errstring = NULL;
    char *pos = uih_savepostostr(c);
    QString qPos = QString(pos);
    QStringList qPosCommands = qPos.split("\n");
    QString url = "https://xaos.app?";
    for (QString c: qPosCommands) {
        if (!c.startsWith(";") && c != "(initstate)" && c != "(formula 'mandel)"
            && c != "(defaultpalette 0)" && c != "(maxiter 1000)") {
            // Comments and defaults are removed.
            url += c;
        }
    }
    QClipboard* clipboard = QApplication::clipboard();
    clipboard->setText(QString(url));
    if (c->errstring == NULL) {
        char s[256];
        if (url.length() > 200) {
            url = url.left(200) + "...";
        }
        sprintf(s, TR("Message", "Clipboard set to %s."), url.toStdString().c_str());
        uih_message(c, s);
    }
}

char *uih_savepostostr(struct uih_context *c)
{
    xio_file f;
    c->errstring = NULL;
    f = xio_strwopen();
    uih_save_position(c, f, UIH_SAVEPOS);
    return (xio_getstring(f));
}

void uih_saveundo(struct uih_context *c)
{
    xio_file f;
    if (c->play)
        return;
    c->errstring = NULL;
    if (c->undo.undos[c->undo.last])
        free(c->undo.undos[c->undo.last]);
    f = xio_strwopen();
    uih_save_position(c, f, UIH_SAVEPOS);
    c->undo.undos[c->undo.last] = xio_getstring(f);
    c->undo.last = (c->undo.last + 1) % UNDOLEVEL;
}

void uih_undo(struct uih_context *c)
{
    xio_file f;
    int pos = c->undo.last - 2;
    if (pos < 0)
        pos = UNDOLEVEL + pos;
    if (c->undo.undos[pos]) {
        f = xio_strropen(c->undo.undos[pos]);
        c->undo.undos[pos] = NULL;
        c->undo.last = pos;
        uih_load(c, f, "");
    }
}

void uih_redo(struct uih_context *c)
{
    xio_file f;
    int pos = c->undo.last;
    if (c->undo.undos[pos]) {
        f = xio_strropen(c->undo.undos[pos]);
        c->undo.undos[pos] = NULL;
        c->undo.last = pos;
        uih_load(c, f, "");
    }
}

extern xio_pathdata configfile;
void uih_savecfg(struct uih_context *c)
{
    xio_file f;
    c->errstring = NULL;
    f = xio_wopen(configfile);
    if (f == XIO_FAILED) {
        uih_message(c, (char *)xio_errorstring());
        return;
    }
    uih_save_position(c, f, UIH_SAVEALL);
    if (c->errstring == NULL) {
        char s[256];
        sprintf(s, TR("Message", "File %s saved."), configfile);
        uih_message(c, s);
    }
}

void uih_saveanimfile(struct uih_context *c, xio_constpath d)
{
    xio_file f;
    c->errstring = NULL;
    if (c->save) {
        uih_save_disable(c);
        uih_updatemenus(c, "record");
        return;
    }
    f = xio_wopen(d);
    if (f == XIO_FAILED) {
        uih_message(c, (char *)xio_errorstring());
        return;
    }
    uih_save_enable(c, f, UIH_SAVEANIMATION);
    if (c->errstring == NULL) {
        char s[256];
        sprintf(s, TR("Message", "Recording to file %s enabled."), d);
        uih_message(c, s);
    }
    uih_updatemenus(c, "record");
}

const char *uih_save(struct uih_context *c, xio_constpath filename, xio_file xpf_data)
{
    const char *r;
    uih_cycling_stop(c);
    uih_stoptimers(c);
    uih_clearwindows(c);
    r = writepng(filename, c->queue->saveimage, xpf_data);
    uih_cycling_continue(c);
    uih_resumetimers(c);
    return (r);
}

void uih_setcycling(struct uih_context *c, int speed)
{
    c->cyclingspeed = speed;
    if (c->cyclingspeed < 0)
        c->direction = -1;
    else
        c->direction = 1;
    if (c->cycling) {
        if (c->cyclingspeed)
            tl_set_interval(c->cyclingtimer,
                            1000000 / c->cyclingspeed * c->direction);
        else
            tl_set_interval(c->cyclingtimer, 1000000 * 100);
    }
}

int uih_cycling_on(struct uih_context *c)
{
    if (c->zengine->fractalc->palette != NULL &&
        c->zengine->fractalc->palette->cyclecolors != NULL) {
        c->cycling = 1;
        tl_update_time();
        c->cyclingtimer = tl_create_timer();
        uih_emulatetimers(c);
        uih_setcycling(c, c->cyclingspeed);
        tl_set_multihandler(c->cyclingtimer, uih_cyclinghandler, c);
        tl_add_timer(syncgroup, c->cyclingtimer);
    } else {
        uih_updatemenus(c, "cycling");
        uih_updatemenus(c, "rcycling");
        return 0;
    }
    uih_updatemenus(c, "cycling");
    uih_updatemenus(c, "rcycling");
    return 1;
}

int uih_cycling(struct uih_context *uih, int mode)
{
    if (mode)
        return (uih_cycling_on(uih));
    uih_cycling_off(uih);
    return 1;
}

static void uih_waitfunc(struct filter *f)
{
    int l;
    tl_process_group(syncgroup, NULL);
    l = tl_lookup_timer(uih->calculatetimer);
    if (uih->interrupt)
        f->interrupt = 1, uih->endtime = l;
    if (uih->interruptiblemode) {
        if (f->incalculation && !uih->starttime)
            uih->starttime = l;
        else if (uih->starttime && !f->incalculation && !uih->endtime)
            uih->endtime = l;
        if ((uih->maxtime && l > uih->maxtime && f->readyforinterrupt) ||
            uih->interrupt)
            f->interrupt = 1, uih->endtime = l;
    }
    if ((l) > (waitcount + 1) * WAITTIME) {
        int display = 0;
        if (!uih->interruptiblemode && l > (waitcount1 + 1) * WAITTIME1) {
            display = 1;
            waitcount1 = l / WAITTIME1;
        }
        if (f->image == uih->image && !uih->interruptiblemode &&
            l > (waitcount2 + 1) * WAITTIME2) {
            if (!uih->play)
                uih->display = 1, uih_finishpalette(uih), display = 1;
            waitcount2 = l / WAITTIME2;
        }
        if (uih->passfunc != NULL) {
            f->interrupt |= uih->passfunc(
                uih, display, f->pass,
                (float)(f->max ? f->pos * 100.0 / f->max : 100.0));
            uih->display = 0;
        }
        waitcount = l / WAITTIME;
    }
    uih_clearwindows(uih);
}

void uih_do_fractal(uih_context *c)
{
    int flags;
    int time;

    c->interrupt = 0;
    c->display = 0;
    uih = c;
    if (c->juliamode && !c->fcontext->mandelbrot) {
        uih_disablejulia(c);
    }
    if ((c->juliamode == 1 &&
         (c->fcontext->currentformula->calculate_julia == NULL ||
          c->fcontext->slowmode)) ||
        (c->juliamode == 2 &&
         c->fcontext->currentformula->calculate_julia != NULL &&
         !c->fcontext->slowmode)) {
        uih_disablejulia(c);
        uih_enablejulia(c);
        c->fcontext->version++;
    }

    tl_update_time();
    if (c->recalculatemode < c->fastmode && c->emulator == NULL &&
        !c->fixedstep)
        c->interruptiblemode = 1;
    else
        c->interruptiblemode = 0;
    if (!c->interruptiblemode && c->recalculatemode > UIH_ANIMATION) {
        if (c->longwait != NULL)
            c->longwait(c);
        uih_stoptimers(c);
    }

    tl_update_time();
    tl_reset_timer(c->calculatetimer);
    c->starttime = 0;
    c->endtime = 0;
    waitcount = tl_lookup_timer(c->calculatetimer) / WAITTIME + 2;
    waitcount1 = tl_lookup_timer(c->calculatetimer) / WAITTIME1 + 1;
    waitcount2 = tl_lookup_timer(c->calculatetimer) / WAITTIME2 + 1;
    c->incalculation = 1;

    if (!(c->flags & ROTATE_INSIDE_CALCULATION))
        uih_cycling_stop(c);

    time = tl_lookup_timer(c->doittimer);
    if (c->rotatemode == ROTATE_CONTINUOUS) {
        c->fcontext->angle += c->rotationspeed * time / 1000000.0;
    }

    tl_reset_timer(c->doittimer);
    c->indofractal = 1;
    if (c->recalculatemode < UIH_PALETTEDRAW) {
        if (c->queue->palettechg != NULL)
            flags = c->queue->palettechg->action->doit(c->queue->palettechg,
                                                       PALETTEONLY, 0);
        else
            flags = CHANGED;
    } else
        flags = c->uifilter->previous->action->doit(
            c->uifilter->previous, c->interruptiblemode ? INTERRUPTIBLE : 0,
            time);
    c->indofractal = 0;

    if (!(c->flags & ROTATE_INSIDE_CALCULATION))
        uih_cycling_continue(c);

    c->dirty = 0;
    if (c->inanimation)
        c->inanimation--;
    c->ddatalost = 0;
    c->recalculatemode = 0;

    if (flags & ANIMATION)
        c->fastanimation = 1;
    else
        c->fastanimation = 0;
    if (c->emulator)
        c->inanimation = 1;
    if (flags & (ANIMATION | INCOMPLETE) ||
        (c->rotatemode == ROTATE_CONTINUOUS)) {
        tl_resume_timer(c->doittimer);
        c->incomplete = 1;
        c->inanimation = 2;
        if (flags & INCOMPLETE)
            c->recalculatemode = UIH_ANIMATION;
        else
            c->recalculatemode = UIH_FILTERANIMATION;
        c->display = 1;
    } else {
        tl_stop_timer(c->doittimer);
        c->incomplete = 0;
    }
    if ((flags & CHANGED) && (!c->play || !c->nonfractalscreen)) {
        c->display = 1;
        if (flags & INEXACT)
            c->dirty = 1;
    } else
        c->incalculation = 0;
    uih_callcomplette(c);
    if (c->autopilot)
        c->inanimation = 1;
}

void uih_prepare_image(uih_context *c)
{
    if (c->play)
        uih_update_lines(c);
    if (c->display) {
        uih_clearwindows(c);
        xprepareimage(c->image);
        if (uih_needrecalculate(c))
            uih_do_fractal(c);
    }
}

void uih_callcomplette(uih_context *c)
{
    if (!c->incomplete && !c->display && !c->recalculatemode &&
        !c->inanimation && c->complettehandler != NULL) {
        c->complettehandler(c->handlerdata);
    }
}

void uih_setcomplettehandler(uih_context *c, void(h)(void *), void *d)
{
    c->complettehandler = h;
    c->handlerdata = d;
}

void uih_letterspersec(uih_context *c, int n)
{
    if (n < 1)
        n = 1;
    c->letterspersec = n;
}

double uih_displayed(uih_context *c)
{
    int drawingtime;
    uih_finishpalette(c);
    if (c->indofractal)
        return 0; /*image is currently calculating */
    if (c->recalculatemode)
        c->display = 1;
    else
        c->display = 0;
    tl_update_time();
    uih_resumetimers(c);
    c->nonfractalscreen = 0;
    c->nletters = 0;
    if (c->incalculation) {
        c->incalculation = 0;
        drawingtime = tl_lookup_timer(c->calculatetimer);
        if (c->emulator)
            drawingtime = 0;
        if (c->lasttime == -1 || (drawingtime && c->lasttime &&
                                  (drawingtime / c->lasttime < 0.2 ||
                                   drawingtime / c->lasttime > 4)))
            c->lasttime = drawingtime;
        c->lasttime = (c->lasttime * 30 + drawingtime) / 31;
        c->lastspeed = c->lasttime ? 1000000.0 / c->lasttime : 100.0;
        if (c->interruptiblemode) {
            int i;
            int time1, time;
            time1 = drawingtime;
            time1 -= c->endtime;
            time = (drawingtime - c->endtime) + c->starttime;
            if (c->times[0][0] == -1) {
                for (i = 0; i < AVRGSIZE; i++)
                    c->times[0][i] = time, c->times[1][i] = time1;
                c->count[0] = time * AVRGSIZE, c->count[1] = time1 * AVRGSIZE;
            }
            c->timespos = (c->timespos + 1) % AVRGSIZE;
            c->count[0] += time - c->times[0][c->timespos];
            c->count[1] += time1 - c->times[1][c->timespos];
            c->times[0][c->timespos] = time;
            c->times[1][c->timespos] = time1;
            c->maxtime = (c->count[0] * 5) / AVRGSIZE;
            if (c->step || c->pressed ||
                (c->play &&
                 (c->playc->morph || c->playc->morphangle ||
                  c->playc->morphjulia || c->playc->lines.morphing)) ||
                (c->rotatemode == ROTATE_CONTINUOUS) || c->fastanimation) {
                if (c->maxtime > 1000000 / 25)
                    c->maxtime = c->count[0] * 3 / AVRGSIZE;
                if (c->maxtime > 1000000 / 15)
                    c->maxtime = 1000000 / 15;
            } else {
                c->maxtime = 1000000 / 3;
            }
            if (c->maxtime < 1000000 / 30)
                c->maxtime = 1000000 / 30;
            c->maxtime -= c->count[1] / AVRGSIZE;
            if (c->maxtime < c->starttime + 10000)
                c->maxtime = c->starttime + 10000;
        }
    }
    uih_callcomplette(c);
    return (c->lastspeed);
}

void uih_text(uih_context *c, const char *text)
{
    int i, l;
    c->display = 1;
    if (c->text[c->ytextpos])
        free(c->text[c->ytextpos]);
    c->textpos[c->ytextpos] = c->xtextpos;
    c->textcolor[c->ytextpos] = c->color;
    c->displaytext |= 1 << c->ytextpos;
    c->text[c->ytextpos] = mystrdup(text);
    l = (int)strlen(text);
    c->todisplayletters = 0;
    for (i = 0; i < l; i++) {
        if (!isspace(text[i]) && !ispunct(text[i]))
            c->todisplayletters++;
        if (text[i] == '-')
            c->todisplayletters += 3;
        if (text[i] == '.')
            c->todisplayletters += 2;
    }
    c->step = 0;
}

void uih_clearscreen(uih_context *c)
{
    c->clearscreen = 1;
    if (c->save)
        c->savec->clearscreen = 1;
    if (c->displaytext)
        c->displaytext = 0;
    if (c->text[0] != NULL)
        free(c->text[0]), c->text[0] = NULL;
    if (c->text[1] != NULL)
        free(c->text[1]), c->text[1] = NULL;
    if (c->text[2] != NULL)
        free(c->text[2]), c->text[2] = NULL;
    c->nletters = 0;
    c->display = 1;
    if (c->play)
        uih_clear_lines(c);
}

void uih_settextpos(uih_context *c, int x, int y)
{
    const char *names1[] = {
        "ytextposup",
        "ytextposmiddle",
        "ytextposbottom",
    };
    const char *names2[] = {
        "xtextposleft",
        "xtextposcenter",
        "xtextposright",
    };
    c->xtextpos = x;
    c->ytextpos = y;
    uih_updatemenus(c, names1[y]);
    uih_updatemenus(c, names2[x]);
}

/*timing routines */

void uih_tbreak(uih_context *c) { c->tbreak = 1; }

void uih_emulatetimers(uih_context *c)
{
    if (c->emulator == NULL)
        return;
    tl_emulate_timer(c->maintimer, c->emulator);
    tl_emulate_timer(c->doittimer, c->emulator);
    if (c->autopilot)
        tl_emulate_timer(c->autopilottimer, c->emulator);
    if (c->cycling) {
        tl_emulate_timer(c->cyclingtimer, c->emulator);
    }
    if (c->play) {
        tl_emulate_timer(c->playc->timer, c->emulator);
    }
    if (c->save) {
        tl_emulate_timer(c->savec->timer, c->emulator);
        tl_emulate_timer(c->savec->synctimer, c->emulator);
    }
}

static void uih_unemulatetimers(uih_context *c)
{
    tl_unemulate_timer(c->maintimer);
    tl_unemulate_timer(c->doittimer);
    if (c->autopilot)
        tl_unemulate_timer(c->autopilottimer);
    if (c->cycling)
        tl_unemulate_timer(c->cyclingtimer);
    if (c->play) {
        tl_unemulate_timer(c->playc->timer);
    }
    if (c->save) {
        tl_unemulate_timer(c->savec->timer);
        tl_unemulate_timer(c->savec->synctimer);
    }
}

void uih_constantframetime(uih_context *c, int time)
{
    if (c->emulator == NULL)
        c->emulator = tl_create_emulator();
    c->emulatedframetime = time;
    uih_emulatetimers(c);
}

void uih_noconstantframetime(uih_context *c)
{
    if (c->emulator == NULL)
        return;
    uih_unemulatetimers(c);
    tl_free_emulator(c->emulator);
    c->emulator = NULL;
}

void uih_stoptimers(uih_context *c)
{
    if (!c->stoppedtimers) {
        c->stoppedtimers = 1;
        c->display = 1;
        tl_stop_timer(c->maintimer);
        tl_stop_timer(c->doittimer);
        if (c->autopilot)
            tl_stop_timer(c->autopilottimer);
        if (c->play) {
            tl_stop_timer(c->playc->timer);
            if (c->cycling)
                tl_stop_timer(c->cyclingtimer);
        }
        if (c->save) {
            tl_stop_timer(c->savec->timer);
            tl_stop_timer(c->savec->synctimer);
            if (c->cycling)
                tl_stop_timer(c->cyclingtimer);
        }
    }
}

void uih_slowdowntimers(uih_context *c, int time)
{
    tl_slowdown_timer(c->maintimer, time);
    if (c->autopilot)
        tl_slowdown_timer(c->autopilottimer, time);
    if (c->play) {
        tl_slowdown_timer(c->playc->timer, time);
        if (c->cycling)
            tl_slowdown_timer(c->cyclingtimer, time);
    }
    if (c->save) {
        tl_slowdown_timer(c->savec->timer, time);
        tl_slowdown_timer(c->savec->synctimer, time);
        if (c->cycling)
            tl_slowdown_timer(c->cyclingtimer, time);
    }
}

void uih_resumetimers(uih_context *c)
{
    if (c->stoppedtimers) {
        c->stoppedtimers = 0;
        tl_resume_timer(c->maintimer);
        if (c->cycling)
            tl_resume_timer(c->cyclingtimer);
        if (c->autopilot)
            tl_resume_timer(c->autopilottimer);
        if (c->play) {
            tl_resume_timer(c->playc->timer);
        }
        if (c->save) {
            tl_resume_timer(c->savec->timer);
            tl_resume_timer(c->savec->synctimer);
        }
    }
}

/*autopilot implementation */

static void uih_changed(void) { uih_newimage(uih); }

static void uih_autopilothandler(void *uih1, int n)
{
    uih = (uih_context *)uih1;
    do_autopilot(uih, &uih->autopilotx, &uih->autopiloty,
                 &uih->autopilotbuttons, uih_changed, n);
}

static inline void uih_zoom(uih_context *uih)
{
    uih->step += uih->speedup * 2 * uih->mul;
    if (uih->step > uih->maxstep)
        uih->step = uih->maxstep;
    else if (uih->step < -uih->maxstep)
        uih->step = -uih->maxstep;
}

static inline void uih_unzoom(uih_context *uih)
{
    uih->step -= uih->speedup * 2 * uih->mul;
    if (uih->step > uih->maxstep)
        uih->step = uih->maxstep;
    else if (uih->step < -uih->maxstep)
        uih->step = -uih->maxstep;
}

static inline void uih_slowdown(uih_context *uih)
{
    if (uih->step > 0) {
        if (uih->step < uih->speedup * uih->mul)
            uih->step = 0;
        else
            uih->step -= uih->speedup * uih->mul;
    } else if (uih->step < 0) {
        if (uih->step > -uih->speedup * uih->mul)
            uih->step = 0;
        else
            uih->step += uih->speedup * uih->mul;
    }
}

static inline void uih_zoomupdate(uih_context *uih)
{
    number_t x;
    number_t y;
    number_t mmul = pow((double)(1 - uih->step), (double)uih->mul);
    number_t mc = uih->fcontext->s.cr - uih->fcontext->s.rr / 2;
    number_t nc = uih->fcontext->s.cr + uih->fcontext->s.rr / 2;
    number_t mi = uih->fcontext->s.ci - uih->fcontext->s.ri / 2;
    number_t ni = uih->fcontext->s.ci + uih->fcontext->s.ri / 2;
    x = uih->xcenter, y = uih->ycenter;
    mc = x + (mc - x) * (mmul);
    nc = x + (nc - x) * (mmul);
    mi = y + (mi - y) * (mmul);
    ni = y + (ni - y) * (mmul);
    uih->fcontext->s.rr = nc - mc;
    uih->fcontext->s.ri = ni - mi;
    uih->fcontext->s.cr = (nc + mc) / 2;
    uih->fcontext->s.ci = (ni + mi) / 2;
    uih_animate_image(uih);
}

/*main uih loop */

int uih_update(uih_context *c, int mousex, int mousey, int mousebuttons)
{
    int inmovement = 0;
    int slowdown = 1;
    int time;
    uih = c;

    if (!mousebuttons && uih->lastbuttons)
        uih_saveundo(c);
    uih->lastbuttons = mousebuttons;
    if (c->incalculation)
        return 0;
    if (c->emulator != NULL)
        tl_elpased(c->emulator, c->emulatedframetime);

    if (mousebuttons == (BUTTON1 | BUTTON3))
        mousebuttons = BUTTON2;
    tl_process_group(syncgroup, NULL); /*First we need to update timing */
    tl_update_time();
    time = tl_lookup_timer(c->maintimer);
    if (c->autopilot) { /*now handle autopilot */
        tl_process_group(c->autopilotgroup, NULL);
    }
    if (!c->inanimation)
        time = 0;
    if (time > 2000000) {
        uih_slowdowntimers(uih, time - 2000000);
        time = 2000000;
    }
    if (c->inanimation)
        c->inanimation--;
    tl_reset_timer(c->maintimer);
    c->mul = (double)time / FRAMETIME;
    if (c->fixedstep)
        c->mul = 0.3;
    if (c->tbreak)
        c->mul = 1, c->tbreak--;
    if (c->mul == 0)
        c->mul = 0.00000001;
    if (c->play) {
        uih_playupdate(c);
        if (!c->play) {
            c->inanimation = 2;
            return 1;
        }
        if (c->playc->lines.morphing) /*inmovement=1, c->display=1; */
            uih_update_lines(c);
        if (c->step)
            uih_zoomupdate(c), inmovement = 1;
        switch (c->zoomactive) {
            case 1:
                uih_zoom(c), inmovement = 1;
                break;
            case -1:
                uih_unzoom(c), inmovement = 1;
                break;
            default:
                uih_slowdown(c);
        }
        if (c->playc->morph) {
            int timer = tl_lookup_timer(c->playc->timer) - c->playc->starttime;
            number_t mmul = /*(tl_lookup_timer (c->playc->timer) -
                               c->playc->starttime) / (number_t)
                               (c->playc->frametime - c->playc->starttime); */
                MORPHVALUE(timer, c->playc->frametime - c->playc->starttime,
                           c->playc->morphtimes[0], c->playc->morphtimes[1]);
            number_t srr, drr;
            number_t mmul1;
            if (c->playc->source.rr * c->fcontext->windowwidth >
                c->playc->source.ri * c->fcontext->windowheight)
                srr = c->playc->source.rr;
            else
                srr = c->playc->source.ri;
            if (c->playc->destination.rr * c->fcontext->windowwidth >
                c->playc->destination.ri * c->fcontext->windowheight)
                drr = c->playc->destination.rr;
            else
                drr = c->playc->destination.ri;
            if (srr == drr)
                mmul1 = mmul;
            else
                mmul1 = (exp(log(srr) + ((log(drr) - log(srr)) * mmul)) - srr) /
                        (drr - srr);
            if (mmul1 > 1)
                mmul1 = 1;
            if (mmul1 < 0)
                mmul1 = 0;
            inmovement = 1;
            c->fcontext->s.rr =
                c->playc->source.rr +
                (c->playc->destination.rr - c->playc->source.rr) * mmul1;
            c->fcontext->s.ri =
                c->playc->source.ri +
                (c->playc->destination.ri - c->playc->source.ri) * mmul1;
            c->fcontext->s.cr =
                c->playc->source.cr +
                (c->playc->destination.cr - c->playc->source.cr) * mmul1;
            c->fcontext->s.ci =
                c->playc->source.ci +
                (c->playc->destination.ci - c->playc->source.ci) * mmul1;
            uih_animate_image(c);
        }
        if (c->playc->morphjulia) {
            int timer = tl_lookup_timer(c->playc->timer) - c->playc->starttime;
            number_t mmul = /*(tl_lookup_timer (c->playc->timer) -
                               c->playc->starttime) / (number_t)
                               (c->playc->frametime - c->playc->starttime); */
                MORPHVALUE(timer, c->playc->frametime - c->playc->starttime,
                           c->playc->morphjuliatimes[0],
                           c->playc->morphjuliatimes[1]);
            uih_setjuliaseed(
                uih, c->playc->sr + (c->playc->dr - c->playc->sr) * mmul,
                c->fcontext->pim =
                    c->playc->si + (c->playc->di - c->playc->si) * mmul);
            inmovement = 1;
        }
        if (c->playc->morphangle) {
            int timer = tl_lookup_timer(c->playc->timer) - c->playc->starttime;
            number_t mmul = /*(tl_lookup_timer (c->playc->timer) -
                               c->playc->starttime) / (number_t)
                               (c->playc->frametime - c->playc->starttime); */
                MORPHVALUE(timer, c->playc->frametime - c->playc->starttime,
                           c->playc->morphangletimes[0],
                           c->playc->morphangletimes[1]);
            uih_angle(uih,
                      c->playc->srcangle +
                          (c->playc->destangle - c->playc->srcangle) * mmul);
            inmovement = 1;
        }
    } else {
        if (!c->juliamode) {
            if (c->autopilot) { /*now handle autopilot */
                mousex = c->autopilotx;
                mousey = c->autopiloty;
                mousebuttons = c->autopilotbuttons;
                inmovement = 1;
            }
            if (c->step) {
                number_t x;
                number_t y;
                if (mousex != c->xcenterm || mousey != c->ycenterm) {
                    c->xcenterm = mousex;
                    c->ycenterm = mousey;
                    uih_getcoord(uih, mousex, mousey, &x, &y);
                    c->xcenter = x;
                    c->ycenter = y;
                }
                uih_zoomupdate(c), inmovement = 1;
            }
            c->zoomactive = 0;
            if (c->rotatemode != ROTATE_MOUSE)
                switch (mousebuttons) { /*process buttons */
                    case BUTTON1:
                        c->zoomactive = 1;
                        inmovement = 1;
                        break;
                    case BUTTON3:
                        c->zoomactive = -1;
                        inmovement = 1;
                        break;
                }
            uih_saveframe(c);
            if (c->rotatemode != ROTATE_MOUSE) {
                c->rotatepressed = 0;
                switch (mousebuttons) { /*process buttons */
                    case BUTTON1:
                        uih_zoom(c), slowdown = 0;
                        break;
                    case BUTTON3:
                        uih_unzoom(c), slowdown = 0;
                        break;
                    case BUTTON2: { /* handles panning */
                        number_t x, y;
                        uih_getcoord(uih, mousex, mousey, &x, &y);
                        if (c->pressed && (c->oldx != x || c->oldy != y)) {
                            c->fcontext->s.cr -= x - c->oldx;
                            c->fcontext->s.ci -= y - c->oldy;
                            uih_animate_image(c);
                            c->moved = 1;
                        }
                        c->speed = 0;

                        /* issue 115 - disable rotation to update panning */
                        if(c->pressed == 0) {
                            int old_mode = c->rotatemode;
                            uih_rotate(c, 0);
                            uih_getcoord(uih, mousex, mousey, &c->oldx, &c->oldy);
                            uih_rotate(c, old_mode);
                        }
                        c->pressed = 1;
                    } break;
                }
            } else {
                if (mousebuttons & BUTTON1) {
                    number_t x, y;
                    number_t angle;

                    x = (mousex - c->image->width / 2) * c->image->pixelwidth;
                    y = (mousey - c->image->height / 2) * c->image->pixelheight;
                    angle = -atan2(x, y) * 180 / M_PI;
                    if (c->rotatepressed) {
                        uih_angle(uih,
                                  c->fcontext->angle + angle - c->oldangle);
                    }
                    c->rotatepressed = 1;
                    c->oldangle = angle;
                } else if (mousebuttons & BUTTON2) {
                    number_t x, y;
                    uih_getcoord(uih, mousex, mousey, &x, &y);
                    if (c->pressed && (c->oldx != x || c->oldy != y)) {
                        c->fcontext->s.cr -= x - c->oldx;
                        c->fcontext->s.ci -= y - c->oldy;
                        uih_animate_image(c);
                        c->moved = 1;
                    }
                    c->speed = 0;

                    /* issue 115 - disable rotation to update panning */
                    if(c->pressed == 0) {
                        int old_mode = c->rotatemode;
                        uih_rotate(c, 0);
                        uih_getcoord(uih, mousex, mousey, &c->oldx, &c->oldy);
                        uih_rotate(c, old_mode);
                    }
                    c->pressed = 1;
                } else
                    c->rotatepressed = 0;
            }
            if (!(mousebuttons & BUTTON2))
                c->pressed = 0;
            if (slowdown)
                uih_slowdown(c);
        } else {
            if (mousebuttons & BUTTON1) {
                number_t x, x1 = c->fcontext->pre;
                number_t y, y1 = c->fcontext->pim;
                c->zoomactive = 0;
                uih_getcoord(uih, mousex, mousey, &x, &y);
                c->fcontext->pre = x;
                c->fcontext->pim = y;
                uih_saveframe(c);
                c->pressed = 1;
                recalculate(c->fcontext->plane, &c->fcontext->pre,
                            &c->fcontext->pim);
                if (c->fcontext->pre != x1 || c->fcontext->pim != y1) {
                    uih_animate_image(c);
                }
            } else
                c->pressed = 0;
        }
    }
    if (!inmovement)
        uih_tbreak(c);
    if (c->incomplete)
        inmovement = 1;
    if (!c->recalculatemode && !c->display)
        uih_finishpalette(c);
    if (!inmovement)
        uih_callcomplette(c);
    if (c->inanimation < inmovement * 2)
        c->inanimation = inmovement * 2;
    return (inmovement * 2);
}

/*actions that can be used be user interface */

void uih_autopilot_on(uih_context *c)
{
    if (!c->autopilot) {
        clean_autopilot(c);
        uih_autopilothandler(c, 1);
        tl_update_time();
        uih_resumetimers(c);
        c->autopilottimer = tl_create_timer();
        c->autopilotgroup = tl_create_group();
        tl_set_multihandler(c->autopilottimer, uih_autopilothandler, c);
        tl_set_interval(c->autopilottimer, 1000000 / 25);
        tl_reset_timer(c->autopilottimer);
        tl_add_timer(c->autopilotgroup, c->autopilottimer);
        tl_update_time();
        c->autopilot = 1;
        uih_emulatetimers(c);
        uih_updatemenus(c, "autopilot");
    }
}

void uih_autopilot_off(uih_context *c)
{
    if (c->autopilot) {
        tl_remove_timer(c->autopilottimer);
        tl_free_timer(c->autopilottimer);
        tl_free_group(c->autopilotgroup);
        c->autopilot = 0;
        uih_updatemenus(c, "autopilot");
    }
}

void uih_mkdefaultpalette(uih_context *c)
{
    if (c->zengine->fractalc->palette == NULL)
        return;
    uih_cycling_stop(c);
    if (mkdefaultpalette(c->zengine->fractalc->palette) != 0) {
        uih_newimage(c);
    }
    uih_palettechg(c);
    c->paletteshift = 0;
    c->manualpaletteshift = 0;
    c->palettechanged = 1;
    c->palettetype = 0;
    uih_finishpalette(c);
    uih_cycling_continue(c);
}

void uih_mkpalette(uih_context *c)
{
    int seed;
    int alg = rand() % PALGORITHMS;
    if (c->zengine->fractalc->palette == NULL)
        return;
    uih_cycling_stop(c);
    if (mkpalette(c->zengine->fractalc->palette, seed = rand(), alg) != 0) {
        uih_newimage(c);
    }
    uih_palettechg(c);
    c->paletteshift = 0;
    c->manualpaletteshift = 0;
    c->paletteseed = seed;
    uih_finishpalette(c);
    c->palettechanged = 1;
    c->palettetype = alg + 1;
    uih_cycling_continue(c);
}

/*Basic inicialization routines */

static void uih_alloctables(uih_context *c)
{
    c->zengine = zoom_filter.getinstance(&zoom_filter);
    if (c->zengine == NULL)
        return;
    c->fcontext = make_fractalc(0, c->image->pixelwidth * c->image->width,
                                c->image->pixelheight * c->image->height);
    uih_updatemenus(c, "periodicity") uih_updatemenus(c, "in0")
        uih_updatemenus(c, "int0") uih_updatemenus(c, "out0")
            uih_updatemenus(c, "outt0") uih_updatemenus(c, "plane0")
                uih_updatemenus(c, "guess3") uih = c;
    c->uifilter = uih_filter.getinstance(&uih_filter);
    c->queue = create_queue(c->uifilter);
    insertfilter(c->zengine, c->uifilter);
}

static int uih_initqueue(uih_context *c) { return (initqueue(c->queue)); }

void uih_setmaxstep(uih_context *c, number_t p) { c->maxstep = p; }

void uih_setspeedup(uih_context *c, number_t p) { c->speedup = p; }

void uih_setmaxiter(uih_context *c, int maxiter)
{
    if (maxiter < 1)
        maxiter = 1;
    if (maxiter > 2000000)
        maxiter = 2000000;
    if (c->fcontext->maxiter != (unsigned int)maxiter) {
        c->fcontext->maxiter = maxiter;
        c->fcontext->version++;
        uih_newimage(c);
    }
}

void uih_setbailout(uih_context *c, number_t bailout)
{
    if (bailout < 0)
        bailout = 0;
    if (c->fcontext->bailout != (number_t)bailout) {
        c->fcontext->bailout = bailout;
        c->fcontext->version++;
        uih_newimage(c);
    }
}

void uih_setincoloringmode(uih_context *c, int mode)
{
    if (mode < 0)
        mode = rand() % INCOLORING;
    if (mode > INCOLORING)
        mode = INCOLORING;
    if (c->fcontext->incoloringmode != mode) {
        char str[10];
        c->fcontext->incoloringmode = mode;
        c->fcontext->version++;
        uih_newimage(c);
        sprintf(str, "in%i", mode);
        uih_updatemenus(c, str);
    }
}

void uih_setintcolor(uih_context *c, int mode)
{
    if (mode < 0)
        mode = rand() % TCOLOR;
    if (mode > TCOLOR)
        mode = TCOLOR;
    if (c->fcontext->intcolor != mode) {
        char str[10];
        c->fcontext->intcolor = mode;
        if (c->fcontext->incoloringmode == 10) {
            c->fcontext->version++;
            uih_newimage(c);
        }
        sprintf(str, "int%i", mode);
        uih_updatemenus(c, str);
    }
}

void uih_setouttcolor(uih_context *c, int mode)
{
    if (mode < 0)
        mode = rand() % TCOLOR;
    if (mode > TCOLOR)
        mode = TCOLOR;
    if (c->fcontext->outtcolor != mode) {
        char str[10];
        c->fcontext->outtcolor = mode;
        if (c->fcontext->coloringmode == OutColormodeType::ColOut_True_color) {
            c->fcontext->version++;
            uih_newimage(c);
        }
        sprintf(str, "outt%i", mode);
        uih_updatemenus(c, str);
    }
}

void uih_setperbutation(uih_context *c, number_t zre, number_t zim)
{
    if (c->fcontext->bre != zre || c->fcontext->bim != zim) {
        c->fcontext->bre = zre;
        c->fcontext->bim = zim;
        if (c->fcontext->mandelbrot) {
            c->fcontext->version++;
            uih_newimage(c);
        }
        uih_updatemenus(c, "uiperturbation");
    }
}

void uih_perbutation(uih_context *c, int mousex, int mousey)
{
    number_t r, i;
    uih_getcoord(c, mousex, mousey, &r, &i);
    uih_setperbutation(c, r, i);
}

void uih_setjuliaseed(uih_context *c, number_t zre, number_t zim)
{
    if (c->fcontext->pre != zre || c->fcontext->pim != zim) {
        c->fcontext->pre = zre;
        c->fcontext->pim = zim;
        if (c->juliamode) {
            uih_animate_image(c);
        } else {
            if (!c->fcontext->mandelbrot) {
                c->fcontext->version++;
                if (c->playc && c->playc->morphjulia)
                    uih_animate_image(c);
                else
                    uih_newimage(c);
            }
        }
    }
}

void uih_setfastmode(uih_context *c, int mode)
{
    const char *names[] = {"nodynamic", "nodynamic", "dynamicanimation",
                           "dynamicnew", "dynamicnew"};
    if (mode < 0)
        mode = 0;
    c->fastmode = mode;
    uih_updatemenus(c, names[mode]);
}

void uih_setoutcoloringmode(uih_context *c, int mode)
{
    // Not sure where negative values might come from
    // so stayed in the int space and not converted to enum
    if (mode < 0)
        mode = rand() % OUTCOLORING;
    if (mode > OUTCOLORING)
        mode = OUTCOLORING - 1;
    if (c->fcontext->coloringmode != (OutColormodeType::OutColormode)mode) {
        char str[10];
        c->fcontext->coloringmode = (OutColormodeType::OutColormode)mode;
        c->fcontext->version++;
        uih_newimage(c);
        sprintf(str, "out%i", mode);
        uih_updatemenus(c, str);
    }
}

void uih_setplane(uih_context *c, int mode)
{
    int i;

    if (mode < 0)
        mode = 0;
    for (i = 0; planename[i] != NULL; i++)
        ;
    if (mode >= i)
        mode = i - 1;
    if (mode < 0)
        mode = rand() % i;
    uih_invalidatepos(c);
    if (c->fcontext->plane != mode) {
        char str[20];
        c->fcontext->plane = mode;
        // if ( c->fcontext->plane == P_USER )
        // printf("USER NOT IMPLEMENTED");
        // uih_sffein( c, "z^3-c" )
        c->fcontext->version++;
        uih_newimage(c);
        sprintf(str, "plane%i", mode);
        uih_updatemenus(c, str);
    }
}

void uih_screentofractalcoord(uih_context *c, int mousex, int mousey,
                              number_t *re, number_t *im)
{
    uih_getcoord(c, mousex, mousey, re, im);
    recalculate(c->fcontext->plane, re, im);
}

void uih_setmandelbrot(uih_context *c, int mode, int mousex, int mousey)
{
    if (mode < 0)
        mode = 0;
    if (mode > 1)
        mode = 1;
    if (c->fcontext->mandelbrot != mode) {
        c->fcontext->mandelbrot = mode;
        if (c->fcontext->mandelbrot == 0 && !c->juliamode) {
            uih_getcoord(c, mousex, mousey, &c->fcontext->pre,
                         &c->fcontext->pim);
            recalculate(c->fcontext->plane, &c->fcontext->pre,
                        &c->fcontext->pim);
        } else
            uih_disablejulia(c);
        c->fcontext->version++;
        uih_newimage(c);
        uih_updatemenus(c, "uimandelbrot");
    }
}

void uih_setguessing(uih_context *c, int range)
{
    char str[10];
    c->fcontext->range = range;
    if (range <= 1) {
        uih_updatemenus(c, "noguess");
    } else if (range > 8) {
        uih_updatemenus(c, "guessall");
    } else {
        sprintf(str, "guess%i", range);
        uih_updatemenus(c, str);
    }
}

void uih_setperiodicity(uih_context *c, int periodicity)
{
    c->fcontext->periodicity = periodicity;
    uih_updatemenus(c, "periodicity");
}

void uih_interrupt(uih_context *c)
{
    if (c->incalculation)
        c->interrupt = 1;
}

void uih_stopzooming(uih_context *c) { c->speed = 0; }

int uih_updateimage(uih_context *c, struct image *image)
{
    /*exit(); */
    c->image = image;
    c->palette = image->palette;
    c->queue->isinitialized = 0;
    c->ddatalost = 1;
    fractalc_resize_to(c->fcontext, c->image->pixelwidth * c->image->width,
                       c->image->pixelheight * c->image->height);
    c->display = 1;
    c->palette->ncells = sizeof(uicolors) / sizeof(rgb_t);
    c->palette->prergb = uicolors;
    if (c->palette->type & BITMAPS)
        c->palette->prergb = uibwcolors;
    c->inanimation = 2;
    uih_newimage(c);
    if (image->palette->type & (FIXEDCOLOR | BITMAPS))
        uih_fixedcolorenable(c);
    else
        uih_fixedcolordisable(c);
    return (uih_initqueue(c));
}

static void uih_getcscreensizes(struct uih_context *uih, int *x, int *y, int *w,
                                int *h, void * /*data*/)
{
    *x = 0;
    *y = 0;
    if (uih->clearscreen)
        *w = uih->image->width, *h = uih->image->height;
    else
        *w = *h = 0;
}

static void uih_drawcscreen(struct uih_context *uih, void * /*data*/)
{
    if (uih->clearscreen)
        clear_image(uih->image);
}

struct uih_context *
uih_mkcontext(int flags, struct image *image,
              int (*passfunc)(struct uih_context *, int, const char *, float),
              void (*longwait)(struct uih_context *),
              void (*upd)(struct uih_context *, const char *))
{
    uih_context *uih;
    uih = (uih_context *)calloc(sizeof(*uih), 1); /*setup parameters */
    uih->updatemenus = upd;
    uih->autopilot = 0;
    uih->flags = flags;
    uih->image = image;
    uih->playstring = NULL;
    uih->palette = image->palette;
    uih->menuroot = "root";
    uih->palette->ncells = sizeof(uicolors) / sizeof(rgb_t);
    uih->palette->prergb = uicolors;
    if (uih->palette->type & BITMAPS) {
        uih->palette->prergb = uibwcolors;
    }
    uih->speed = 0;
    uih->step = 0;
    uih->color = 0;
    uih->speedup = STEP;
    uih->maxstep = MAXSTEP;
    uih->lasttime = -1;
    uih->recalculatemode = UIH_NEW_IMAGE;
    uih->display = 1;
    uih->fastmode = 2;
    uih_updatemenus(uih, "dynamicanimation");
    uih->aliasnum = -1;
    uih->direction = 1;
    uih->cyclingdirection = 1;
    uih->cyclingspeed = ROTATIONSPEED;
    uih->ddatalost = 1;
    uih->xtextpos = 1;
    uih_updatemenus(uih, "xtextleft");
    uih->complettehandler = 0;
    uih->ytextpos = 1;
    uih_updatemenus(uih, "ytextup");
    uih->display = 0;
    uih->errstring = NULL;
    uih->rotatemode = 0;
    uih_updatemenus(uih, "norotate");
    uih->rotationspeed = 10;
    uih->longwait = longwait;
    uih->passfunc = passfunc;
    uih->nletters = 0;
    uih->letterspersec = 15;
    uih->maintimer = tl_create_timer();
    uih->calculatetimer = tl_create_timer();
    uih->doittimer = tl_create_timer();
    tl_update_time();
    tl_reset_timer(uih->maintimer);
    tl_reset_timer(uih->calculatetimer);
    tl_stop_timer(uih->doittimer);
    tl_reset_timer(uih->doittimer);
    uih_alloctables(uih);
    uih_initqueue(uih); /*FIXME return value should not be ignored */
    if (image->palette->type & (FIXEDCOLOR | BITMAPS))
        uih_fixedcolorenable(uih);
    uih_mkdefaultpalette(uih);
    uih_stoptimers(uih);
    clean_autopilot(uih);
    uih_newimage(uih);
    uih->cscreenwindow = uih_registerw(uih, uih_getcscreensizes,
                                       uih_drawcscreen, 0, NONTRANSPARENTW);
    uih_initmessages(uih);
    uih_inittext(uih);
    uih_emulatetimers(uih);
#ifdef USE_SFFE
    sffe_parse(&uih->fcontext->userformula, USER_FORMULA);
    sffe_parse(&uih->fcontext->userinitial, "");
#endif
    uih_setformula(uih, 0);
    uih_saveundo(uih);
    return (uih);
}

void uih_savepalette(uih_context *c)
{
    if (c->palette2 != NULL)
        destroypalette(c->palette2);
    if (c->zengine->fractalc->palette != NULL)
        c->palette2 = clonepalette(c->zengine->fractalc->palette);
}

void uih_restorepalette(uih_context *uih)
{
    if (uih->palette2 != NULL) {
        if (uih->zengine->fractalc->palette != NULL)
            restorepalette(uih->zengine->fractalc->palette, uih->palette2);
        destroypalette(uih->palette2);
    }
    uih->palette2 = NULL;
    uih_finishpalette(uih);
}

void uih_loadpalette(uih_context *c, struct palette *palette)
{
    if (c->palette2)
        destroypalette(c->palette2);
    c->palette2 = clonepalette(palette);
    uih_restorepalette(c);
    uih_palettechg(c);
}

struct palette *uih_clonepalette(uih_context *c)
{
    if (c->zengine->fractalc->palette != NULL)
        return clonepalette(c->zengine->fractalc->palette);
    // I hope this is OK:
    return NULL;
}

void uih_setformula(uih_context *c, int num)
{
    set_formula(c->fcontext, num);
    uih_newimage(c);
    uih_updatemenus(c, "uimandelbrot");
    uih_updatemenus(c, "uiperturbation");
    uih_updatemenus(c, c->fcontext->currentformula->shortname);
}

void uih_sffeset(uih_context *c, sffe *parser, const char *formula)
{
    char error[200];
    char previous[200];
    if (c->fcontext->userformula->expression)
        strcpy(previous, c->fcontext->userformula->expression);
    else
        strcpy(previous, USER_FORMULA);
    parser->errormsg = error;
    int errorcode = sffe_parse(&parser, formula);
    if (errorcode > 0) {
        if (errorcode != EmptyFormula || parser != c->fcontext->userinitial) {
            tl_update_time(); // otherwise error doesn't display long enough
            uih_error(c, error);
            sffe_parse(&parser, previous);
        }
    } else {
        if (parser->expression)
            uih_message(c, parser->expression);
        sffe_setlocal(c->fcontext);
        if (!(c->fcontext->currentformula->flags & SFFE_FRACTAL)) {
            uih_play_formula(c, "user");
        } else {
            uih_recalculate(c);
        }
    }
    parser->errormsg = NULL;
}

void uih_initstate(struct uih_context *uih)
{
    int i;
    int ver = uih->fcontext->version;
    uih->step = 0;
    uih->speedup = STEP;
    uih->maxstep = MAXSTEP;
    uih_fastrotatedisable(uih);
    uih_disablejulia(uih);
    uih->color = 0;
    uih_cycling_off(uih);
    for (i = 0; i < uih_nfilters; i++)
        uih_disablefilter(uih, i);
    uih_setperbutation(uih, 0, 0);
    set_formula(uih->fcontext, 0);
#ifdef USE_SFFE
    sffe_parse(&uih->fcontext->userformula, USER_FORMULA);
    sffe_parse(&uih->fcontext->userinitial, "");
#endif
    uih_setperiodicity(uih, 1);
    uih_setmaxiter(uih, 170);
    uih_setbailout(uih, 4);
    uih_setincoloringmode(uih, 0);
    uih_setoutcoloringmode(uih, 0);
    uih_setcycling(uih, 30);
    uih_display(uih);
    uih_setfastmode(uih, 2);
    uih_setintcolor(uih, 0);
    uih_setouttcolor(uih, 0);
    uih_setplane(uih, 0);
    uih_setguessing(uih, 3);
    uih_angle(uih, 0);
    uih_rotatemode(uih, 0);
    uih_rotationspeed(uih, 10);
    uih->xtextpos = 1;
    uih->ytextpos = 1;
    if (uih->playc) {
        uih->playc->morphtimes[0] = 0;
        uih->playc->morphtimes[1] = 0;
        uih->playc->morphjuliatimes[0] = 0;
        uih->playc->morphjuliatimes[1] = 0;
        uih->playc->morphangletimes[0] = 0;
        uih->playc->morphangletimes[1] = 0;
        uih->playc->morphlinetimes[0] = 0;
        uih->playc->morphlinetimes[1] = 0;
    }
    if (mkdefaultpalette(uih->zengine->fractalc->palette) != 0 ||
        uih->recalculatemode || uih->fcontext->version != ver) {
        uih_newimage(uih);
    }
}

void uih_freecontext(uih_context *c)
{
    struct filter *f;
    int i;
    if (c->emulator != NULL)
        uih_noconstantframetime(c);
    for (i = 0; i < UNDOLEVEL; i++)
        if (c->undo.undos[i])
            free(c->undo.undos[i]), c->undo.undos[i] = 0;
    while (c->queue->first) {
        f = c->queue->first;
        removefilter(c->queue->first);
        f->action->destroyinstance(f);
    }
    uih_destroymessages(c);
    uih_destroytext(c);
    uih_removew(c, c->cscreenwindow);
    free(c->queue);
    free_fractalc(c->fcontext);
    free(c);
}

static struct filter *uih_getinstance(const struct filteraction *a)
{
    struct filter *f = createfilter(a);
    f->data = uih;
    f->name = "XaoS's user interface layer";
    return (f);
}

static void uih_destroyinstance(struct filter *f)
{
    struct uih_context *c = (struct uih_context *)f->data;
    if (c->autopilot)
        uih_autopilot_off(c);
    if (c->cycling)
        uih_cycling_off(c);
    tl_free_timer(c->maintimer);
    tl_free_timer(c->calculatetimer);
    tl_free_timer(c->doittimer);
    if (c->save)
        uih_save_disable(c);
    if (c->play)
        uih_replaydisable(c);
    free(f);
}

static int wascycling;
static int uih_require(struct filter *f, struct requirements *r)
{
    struct uih_context *uih;
    uih = (struct uih_context *)f->data;
    f->req = *r;
    uih_clearwindows(uih);
    if (uih->cycling)
        uih_cycling_off(uih), wascycling = 1;
    if (!(r->supportedmask & uih->image->palette->type))
        return 0;
    /*FIXME something should be done here :) */
    return (1);
}

static int uih_initialize(struct filter *f, struct initdata *i)
{
    struct uih_context *uih;
    int returnval;
    uih = (struct uih_context *)f->data;
    f->queue->saveimage = uih->image;
    i->fractalc = uih->fcontext;
    uih_setfont(uih);
    tl_update_time();
    f->image = uih->image;
    f->wait_function = uih_waitfunc;
    uih->times[0][0] = -1;
    i->image = uih->image;
    f->fractalc = i->fractalc;
    f->image->palette->flags |= FINISHLATER;
    i->fractalc->palette = uih->image->palette;
    i->wait_function = uih_waitfunc;
    /*FIXME datalost should be handled in better way */
    if (uih->ddatalost)
        i->flags |= DATALOST;
    uih->tbreak = 2;
    uih_invalidatepos(uih);
    clean_autopilot(uih);
    returnval = f->previous->action->initialize(f->previous, i);
    if (wascycling)
        uih_cycling_on(uih), wascycling = 0;
    return returnval;
}

void uih_inhibittextsw(uih_context *c)
{
    c->inhibittextoutput ^= 1;
    uih_updatemenus(c, "inhibittextoutput");
}

int uih_inhibittextselected(uih_context *c)
{
    if (c == NULL)
        return 0;
    return c->inhibittextoutput;
}

static char statustext[256];
static int statusstart;
static struct uih_window *statuswindow = NULL;
static int ministatusstart;
static struct uih_window *ministatuswindow = NULL;
static struct uih_window *cartesiangridwindow = NULL;

void uih_updatestatus(uih_context *uih)
{
    double times =
        (uih->fcontext->currentformula->v.rr) / (uih->fcontext->s.rr);
    double timesnop = log(times) / log(10.0);
    double speed;
    uih_drawwindows(uih);
    uih_cycling_continue(uih);
    speed = uih_displayed(uih);
    sprintf(
        statustext,
        TR("Message",
           "%s %.2f times (%.1fE) %2.2f frames/sec %c %i %i %i %u            "),
        times < 1 ? TR("Message", "unzoomed") : TR("Message", "zoomed"),
        times < 1 ? 1.0 / times : times, timesnop, speed,
        uih->autopilot ? 'A' : ' ', uih->fcontext->coloringmode.AsInt() + 1,
        uih->fcontext->incoloringmode + 1, uih->fcontext->plane + 1,
        uih->fcontext->maxiter);

    STAT(printf(TR("Message", "framerate:%f\n"), speed));
}

#ifdef MEMCHECK
#define STATUSLINES 14
#else
#define STATUSLINES 12
#endif

void uih_updatestarts(uih_context *uih)
{
    int y = 0;
    ministatusstart = y;
    if (ministatuswindow != NULL)
        y += xtextheight(uih->image, uih->font);
    statusstart = y;
    if (statuswindow != NULL)
        y += xtextheight(uih->image, uih->font) * STATUSLINES;
    uih->messg.messagestart = y;
}

static void uih_statuspos(uih_context *uih, int *x, int *y, int *w, int *h,
                          void * /*data*/)
{
    *x = 0;
    *y = statusstart;
    *w = uih->image->width;
    *h = xtextheight(uih->image, uih->font) * STATUSLINES;
}

static void uih_drawstatus(uih_context *uih, void * /*data*/)
{
    char str[6000];
    int h = xtextheight(uih->image, uih->font);
    sprintf(str, TR("Message", "Fractal name:%s"),
            uih->fcontext->currentformula->name[!uih->fcontext->mandelbrot]);
    xprint(uih->image, uih->font, 0, statusstart, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);
    sprintf(str, TR("Message", "Fractal type:%s"),
            uih->fcontext->mandelbrot ? TR("Message", "Mandelbrot")
                                      : TR("Message", "Julia"));
#ifdef USE_SFFE
    if (uih->fcontext->currentformula->flags & SFFE_FRACTAL &&
        uih->fcontext->userformula->expression) {
        sprintf(str, TR("Message", "Formula:%s"),
                uih->fcontext->userformula->expression);
    };
#endif
    xprint(uih->image, uih->font, 0, statusstart + h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);
    sprintf(str, TR("Message", "View:[%1.12f,%1.12f]"),
            (double)uih->fcontext->s.cr, (double)uih->fcontext->s.ci);
    xprint(uih->image, uih->font, 0, statusstart + 2 * h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);
    sprintf(str, TR("Message", "size:[%1.12f,%1.12f]"),
            (double)uih->fcontext->s.rr, (double)uih->fcontext->s.ri);
    xprint(uih->image, uih->font, 0, statusstart + 3 * h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);
    sprintf(str, TR("Message", "Rotation:%4.2f   Screen size:%i:%i"),
            (double)uih->fcontext->angle, uih->image->width,
            uih->image->height);
    xprint(uih->image, uih->font, 0, statusstart + 4 * h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);
    sprintf(str, TR("Message", "Iterations:%-4u Palette size:%i"),
            uih->fcontext->maxiter, uih->image->palette->size);
    xprint(uih->image, uih->font, 0, statusstart + 5 * h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);
    sprintf(str, TR("Message", "Bailout:%4.2f"),
            (double)uih->fcontext->bailout);
    xprint(uih->image, uih->font, 0, statusstart + 6 * h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);
    sprintf(str, TR("Message", "Autopilot:%-4s  Plane:%s"),
            uih->autopilot ? TR("Message", "On") : TR("Message", "Off"),
            planename[uih->fcontext->plane]);
    xprint(uih->image, uih->font, 0, statusstart + 7 * h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);
    sprintf(str, TR("Message", "incoloring:%s    outcoloring:%s"),
            incolorname[uih->fcontext->incoloringmode],
            outcolorname[uih->fcontext->coloringmode.AsInt()]);
    xprint(uih->image, uih->font, 0, statusstart + 8 * h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);
    sprintf(str, TR("Message", "zoomspeed:%f"), (float)uih->maxstep * 1000);
    xprint(uih->image, uih->font, 0, statusstart + 9 * h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);
    if (uih->fcontext->mandelbrot)
        strcpy(str, TR("Message", "Parameter:none"));
    else
        sprintf(str, TR("Message", "Parameter:[%f,%f]"),
                (float)uih->fcontext->pre, (float)uih->fcontext->pim);
    xprint(uih->image, uih->font, 0, statusstart + 10 * h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);

    /* Compute exact mouse position. */
    QPoint globalCursorPos = QCursor::pos();
    QPoint windowCursorPos = qApp->widgetAt(globalCursorPos)->mapFromGlobal(QCursor::pos());
    int cursorposx = windowCursorPos.x();
    int cursorposy = windowCursorPos.y();
    double realwidth = (double)uih->fcontext->rs.mc - (double)uih->fcontext->rs.nc;
    double realheight = (double)uih->fcontext->rs.mi - (double)uih->fcontext->rs.ni;
    double pixelwidth = realwidth/ uih->image->width;
    double pixelheight = realheight / uih->image->height;
    double realrelposx = pixelwidth * cursorposx;
    double realrelposy = pixelheight * cursorposy;
    double windowleftabspos = (double)uih->fcontext->rs.nc;
    double windowtopabspos = (double)uih->fcontext->rs.ni;
    double cursorabsposx = windowleftabspos + realrelposx;
    double cursorabsposy = windowtopabspos + realrelposy;
    sprintf(str, TR("Message", "Mouse:[%1.12f,%1.12f]"),
            (double)cursorabsposx, (double)cursorabsposy);
    xprint(uih->image, uih->font, 0, statusstart + 11 * h, str, FGCOLOR(uih),
           BGCOLOR(uih), 0);

#ifdef MEMCHECK
    {
        struct mallinfo i = mallinfo();
        sprintf(str, "Allocated arena:%i Wasted:%i %i", i.arena, i.ordblks,
                i.fordblks);
        xprint(uih->image, uih->font, 0, statusstart + 12 * h, str,
               FGCOLOR(uih), BGCOLOR(uih), 0);
        sprintf(str, "Mmaped blocks%i Mmaped area:%i keep:%i", i.hblks,
                i.hblkhd, i.keepcost);
        xprint(uih->image, uih->font, 0, statusstart + 13 * h, str,
               FGCOLOR(uih), BGCOLOR(uih), 0);
    }
#endif
}

void uih_status(uih_context *uih)
{
    if (statuswindow == NULL) {
        statuswindow =
            uih_registerw(uih, uih_statuspos, uih_drawstatus, NULL, 0);
    } else {
        uih_removew(uih, statuswindow);
        statuswindow = NULL;
    }
    uih_updatemenus(uih, "status");
    uih_updatemenus(uih, "animministatus");
    uih_updatestarts(uih);
}

int uih_statusenabled(uih_context * /*uih*/) { return (statuswindow != NULL); }

static void uih_ministatuspos(uih_context *uih, int *x, int *y, int *w, int *h,
                              void * /*data*/)
{
    *x = 0;
    *y = ministatusstart;
    *w = uih->image->width;
    *h = xtextheight(uih->image, uih->font);
}

static void uih_drawministatus(uih_context *uih, void * /*data*/)
{
    xprint(uih->image, uih->font, 0, ministatusstart, statustext, FGCOLOR(uih),
           BGCOLOR(uih), 0);
}

void uih_ministatus(uih_context *uih)
{
    if (ministatuswindow == NULL) {
        ministatuswindow =
            uih_registerw(uih, uih_ministatuspos, uih_drawministatus, NULL, 0);
    } else {
        uih_removew(uih, ministatuswindow);
        ministatuswindow = NULL;
    }
    uih_updatestarts(uih);
    uih_updatemenus(uih, "ministatus");
    uih_updatemenus(uih, "animministatus");
}

int uih_ministatusenabled(uih_context * /*uih*/)
{
    return (ministatuswindow != NULL);
}

static void uih_cartesiangridpos(uih_context *uih, int *x, int *y, int *w, int *h,
                              void * /*data*/)
{
    *x = 0;
    *y = 0;
    *w = uih->image->width;
    *h = uih->image->height-30; // Leave some padding, FIXME
    fflush(stdout);
}

static void uih_drawcartesiangrid(uih_context *uih, void * /*data*/)
{
    overlayGrid(uih, FGCOLOR(uih));
}

void uih_cartesiangrid(uih_context *uih)
{
    double currzoom =
        (uih->fcontext->currentformula->v.rr) / (uih->fcontext->s.rr);

    if (cartesiangridwindow == NULL and currzoom < 100000) {
        cartesiangridwindow =
            uih_registerw(uih, uih_cartesiangridpos, uih_drawcartesiangrid, NULL, 0);
    } else {
        if(cartesiangridwindow) {
            uih_removew(uih, cartesiangridwindow);
            cartesiangridwindow = NULL;
        } else {
            uih_error(uih, "Cartesian Grid not supported on zoom > 100000x");
        }
    }

    uih_updatestarts(uih);
    uih_updatemenus(uih, "cartesiangrid");
    uih_updatemenus(uih, "animcartesiangrid");
}

int uih_cartesiangridenabled(uih_context * /*uih*/)
{
    return (cartesiangridwindow != NULL);
}
