#include <sysinit.h>

#include "basic/basic.h"

#include "lcd/render.h"
#include "lcd/display.h"
#include "lcd/allfonts.h"

#define FIXSIZE 25
#define mul(a,b) ((((long long)a)*(b))>>FIXSIZE)
#define fixpt(a) ((long)(((a)*(1<<FIXSIZE))))
#define integer(a) (((a)+(1<<(FIXSIZE-1)))>>FIXSIZE)

#define ZOOM_RATIO 0.90
#define ITERATION_MAX 150

void blink(){
    gpioSetValue (RB_LED1, CFG_LED_OFF); 
    delayms(100);
    gpioSetValue (RB_LED1, CFG_LED_ON); 
    delayms(100);
    gpioSetValue (RB_LED1, CFG_LED_OFF); 
}

struct mb {
    long rmin, rmax, imin, imax;
    bool dirty, dup, ddown, dleft, dright;
} mandel;

void mandelInit() {
    //mandel.rmin = -2.2*0.9;
    //mandel.rmax = 1.0*0.9;
    //mandel.imin = -2.0*0.9;
    //mandel.imax = 2.0*0.9;
    mandel.rmin = fixpt(-2);
    mandel.rmax = fixpt(1);
    mandel.imin = fixpt(-2);
    mandel.imax = fixpt(2);
    
    mandel.dirty = true;
    mandel.dup = false;
    mandel.ddown = false;
    mandel.dleft = false;
    mandel.dright = false;
}

void mandelMove() {
    //long delta_r = (mandel.rmax - mandel.rmin)/10;
    //long delta_i = (mandel.imax - mandel.imin)/10;
 
    long rs =(mandel.rmax-mandel.rmin)/RESY;
    long is =(mandel.imax-mandel.imin)/RESX;
    
	char key = getInputRaw();
    
	 if (key == BTN_LEFT) {
        mandel.imax -=is;
        mandel.imin -=is;
        mandel.dleft = true;
    } else if (key == BTN_RIGHT) {
        mandel.imax += is;
        mandel.imin += is;
        mandel.dright = true;
     } else if (key == BTN_DOWN) {
        mandel.rmax += rs;
        mandel.rmin += rs;
        mandel.ddown = true;
     } else if (key == BTN_UP) {
        mandel.rmax -= rs;
        mandel.rmin -= rs;
        mandel.dup = true;
     } else if (key == (BTN_ENTER +  BTN_UP)) {
        mandel.imin = mandel.imin + (mandel.imax-mandel.imin)/10;
        mandel.imax = mandel.imax - (mandel.imax-mandel.imin)/10;
        mandel.rmin = mandel.rmin +(mandel.rmax-mandel.rmin)/10;
        mandel.rmax = mandel.rmax -(mandel.rmax-mandel.rmin)/10;
        mandel.dirty = true;
     } else if (key == (BTN_ENTER + BTN_DOWN)) {
		mandel.imin = mandel.imin - (mandel.imax-mandel.imin)/10;
        mandel.imax = mandel.imax + (mandel.imax-mandel.imin)/10;
        mandel.rmin = mandel.rmin -(mandel.rmax-mandel.rmin)/10;
        mandel.rmax = mandel.rmax +(mandel.rmax-mandel.rmin)/10;
        mandel.dirty = true;
	 }
}

void mandelPixel(int x, int y) {
    long r0,i0,rn, p,q;
    long rs,is;
    int iteration;

    rs=(mandel.rmax-mandel.rmin)/RESY;
    is=(mandel.imax-mandel.imin)/RESX;
    //p=fixpt(mandel.rmin+y*rs);
    //q=fixpt(mandel.imin+x*is);
    p=mandel.rmin+y*rs;
	q=mandel.imin+x*is;
            
	rn=0;
    r0=0;
    i0=0;
    iteration=0;
    while ((mul(rn,rn)+mul(i0,i0))<fixpt(4) && ++iteration<ITERATION_MAX)  {
        rn=mul((r0+i0),(r0-i0)) +p;
        i0=mul(fixpt(2),mul(r0,i0)) +q;
        r0=rn;
    }
    if (iteration==ITERATION_MAX) iteration=1;
    bool pixel = ( iteration>1);
    lcdSetPixel(x, y, pixel);
}

void mandelUpdate() {
    int xmin,xmax,ymin,ymax;
    if (mandel.dirty) {
        xmin = 0;
        xmax = RESX;
        ymin = 0;
        ymax = RESY;
        mandel.dirty = false;
    } else if (mandel.dleft) {
        lcdShift(1,0,false);
        xmin = 0;
        xmax = 1;
        ymin = 0;
        ymax = RESY;
        mandel.dleft = false;
    } else if (mandel.dright) {
        lcdShift(-1,0,false);
        xmin = RESX-1;
        xmax = RESX;
        ymin = 0;
        ymax = RESY;
        mandel.dright = false;
    } else if (mandel.dup) {
        lcdShift(0,-1,true);
        xmin=0;
        xmax=RESX;
        ymin=0;
        ymax=1;
        mandel.dup = false;
    } else if (mandel.ddown) {
        lcdShift(0,1,true);
        xmin=0;
        xmax=RESX;
        ymin=RESY-1;
        ymax=RESY;
        mandel.ddown = false;
    } else {
        return;
    }

    for (int x = xmin; x<xmax; x++) {
        for (int y = ymin; y<ymax; y++) {
            mandelPixel(x,y);
        }
    }
}


void main_mandelbrot2(void) {
    backlightInit();
    IOCON_PIO3_3 = 0x10;
    font=&Font_7x8;
    mandelInit();
    while (1) {
        lcdDisplay();
        mandelMove();
        mandelUpdate();
        
        
        if(gpioGetValue(RB_BTN0)==0 && gpioGetValue(RB_BTN4)==0){
        DoString(0,0,"Enter ISP!");
        lcdDisplay();
        ISPandReset();
    }
    
    }
    return;
}

void tick_mandelbrot2(void){
    static int foo=0;
    static int toggle=0;
	if(foo++>50){
        toggle=1-toggle;
		foo=0;
        gpioSetValue (RB_LED0, toggle); 
	};
    
    return;
};