/*
License
-------
Copyright 2002 Kenta Cho. All rights reserved.
Redistribution and use in source and binary forms,
with or without modification, are permitted provided that
the following conditions are met:
 1. Redistributions of source code must retain the above copyright notice,
    this list of conditions and the following disclaimer.
 2. Redistributions in binary form must reproduce the above copyright notice,
    this list of conditions and the following disclaimer in the documentation
    and/or other materials provided with the distribution.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/

/* "test044a.c" : 32bit-gbox, fast */
/*  stack:4k malloc:304k   */
/*  動けばいいんだ、動けば。 */


#include <monapi.h>
using namespace MonAPI;

/* ----------- these are from Noiz2sa by Kenta Cho ------------ */

#define BOARD_MAX 256
#define NOT_EXIST -1
#define FPS       30
#define COLOR(R,G,B) ((R)<<16|(G)<<8|(B))

#define SCREEN_W 256
#define SCREEN_H 256

static int bdIdx;
static int boardMx, boardMy;
static int boardRepx, boardRepy;
static int boardRepXn, boardRepYn;


typedef struct {
  int x, y, z;
  int width, height, color;
} Board;
static Board board[BOARD_MAX];

void initBackground() {
    int i;
    for ( i=0 ; i<BOARD_MAX ; i++ ) {
        board[i].width = NOT_EXIST;
    }
}

static void addBoard(int x, int y, int z, int width, int height) {
    if ( bdIdx >= BOARD_MAX ) return;
    board[bdIdx].x = x;
    board[bdIdx].y = y;
    board[bdIdx].z = z;
    board[bdIdx].width = width/z;
    board[bdIdx].height = height/z;
    board[bdIdx].color = COLOR(0x99 * 256 / (1 + z), 0xAA * 256 / (1 + z), 0xDD);
    bdIdx++;
}

void setStageBackground(int bn) {
    int i, j, k;
    bdIdx = 0;

    for(i=0;i<BOARD_MAX;i++)
        board[i].width = NOT_EXIST;

    switch ( bn%6 ) {
    case 0:
        addBoard(9000, 9000, 500, 25000, 25000);
        for ( i=0 ; i<4 ; i++ ) {
            for ( j=0 ; j<4 ; j++ ) {
                if ( i > 1 || j > 1 ) {
                    addBoard(i*16384, j*16384, 500, 10000+(i*12345)%3000, 10000+(j*54321)%3000);
                }
            }
        }
        for ( j=0 ; j<8 ; j++ ) {
            for ( i=0 ; i<4 ; i++ ) {
                addBoard(0, i*16384, 500-j*50, 20000-j*1000, 12000-j*500);
            }
        }
        for ( i=0 ; i<8 ; i++ ) {
            addBoard(0, i*8192, 100, 20000, 6400);
        }
        boardMx = 40; boardMy = 300;
        boardRepx = boardRepy = 65536;
        boardRepXn = boardRepYn = 4;
        break;

    case 1:
        addBoard(12000, 12000, 400, 48000, 48000);
        addBoard(12000, 44000, 400, 48000, 8000);
        addBoard(44000, 12000, 400, 8000, 48000);
        for ( i=0 ; i<16 ; i++ ) {
            addBoard(0, 0, 400-i*10, 16000, 16000);
            if ( i < 6 ) {
                addBoard(9600, 16000, 400-i*10, 40000, 16000);
            }
        }
        boardMx = 128; boardMy = 512;
        boardRepx = boardRepy = 65536;
        boardRepXn = boardRepYn = 4;
        break;

    case 2:
        for ( i=0 ; i<16 ; i++ ) {
            addBoard(7000+i*3000, 0, 1600-i*100, 24000, 5000);
            addBoard(7000+i*3000, 50000, 1600-i*100, 4000, 10000);
            addBoard(-7000-i*3000, 0, 1600-i*100, 24000, 5000);
            addBoard(-7000-i*3000, 50000, 1600-i*100, 4000, 10000);
        }
        boardMx = 0; boardMy = 1200;
        boardRepx = 0;
        boardRepy = 65536;
        boardRepXn = 1;
        boardRepYn = 10;
        break;

    case 3:
        addBoard(9000, 9000, 500, 30000, 30000);
        for ( i=0 ; i<4 ; i++ ) {
            for ( j=0 ; j<4 ; j++ ) {
                if ( i > 1 || j > 1 ) {
                    addBoard(i*16384, j*16384, 500, 12000+(i*12345)%3000, 12000+(j*54321)%3000);
                }
            }
        }
        for ( i=0 ; i<4 ; i++ ) {
            for ( j=0 ; j<4 ; j++ ) {
                if ( (i > 1 || j > 1) && (i+j)%3 == 0 ) {
                    addBoard(i*16384, j*16384, 480, 9000+(i*12345)%3000, 9000+(j*54321)%3000);
                }
            }
        }
        addBoard(9000, 9000, 480, 20000, 20000);
        addBoard(9000, 9000, 450, 20000, 20000);
        addBoard(32768, 40000, 420, 65536, 5000);
        addBoard(30000, 32768, 370, 4800, 65536);
        addBoard(32768, 0, 8, 65536, 10000);
        boardMx = 10; boardMy = 100;
        boardRepx = boardRepy = 65536;
        boardRepXn = boardRepYn = 4;
        break;

    case 4:
        addBoard(32000, 12000, 160, 48000, 48000);
        addBoard(32000, 44000, 160, 48000, 8000);
        addBoard(64000, 12000, 160, 8000, 48000);
        for ( i=0 ; i<16 ; i++ ) {
            addBoard(20000, 0, 160-i*10, 16000, 16000);
            if ( i < 6 ) {
                addBoard(29600, 16000, 160-i*10, 40000, 16000);
            }
        }
        boardMx = 0; boardMy = 128;
        boardRepx = boardRepy = 65536;
        boardRepXn = 2; boardRepYn = 2;
        break;

    case 5:
        for ( k=0 ; k<5 ; k++ ) {
            j = 0;
            for ( i=0 ; i<16 ; i++ ) {
                addBoard(j, i*4096, 200-k*10, 16000, 4096);
                addBoard(j+16000-j*2, i*4096, 200-k*10, 16000, 4096);
                if ( i < 4 ) j += 2000;
                else if ( i < 6 ) j -= 3500;
                else if ( i < 12 ) j += 1500;
                else j -= 2000;
            }
        }
        boardMx = -64; boardMy = 256;
        boardRepx = boardRepy = 65536;
        boardRepXn = boardRepYn = 2;
        break;

    }
}

void moveBackground() {
    int i;
    Board *bd;
    for ( i=0 ; i<BOARD_MAX ; i++ ) {
        if ( board[i].width == NOT_EXIST ) continue;
        bd = &(board[i]);
        bd->x += boardMx; bd->y += boardMy;
        bd->x &= (boardRepx-1); bd->y &= (boardRepy-1);
    }
}

void clearBuffer(unsigned char *pbuf)
{
    int i;
    for(i=0;i<SCREEN_W*SCREEN_H*4;i++)
        pbuf[i]=0xFF;
}

// optimized :: 川合(2002/01/21)    -> 式の調整
void drawBoxAlpha(unsigned char *pbuf,int x1,int y1,int w,int h,int color,int alpha)
{
    int x,y,x2,y2;
    unsigned char col_r, col_g, col_b;
    x2 = x1+w; y2 = y1+h;

    //clipping
    if(x2<0 || y2<0 || x1>SCREEN_W || y1>SCREEN_H)
        return;
    if(x1<0) x1=0;
    if(y1<0) y1=0;
    if(x2>SCREEN_W)
        x2=SCREEN_W;
    if(y2>SCREEN_H)
        y2=SCREEN_H;

    col_r = ((color >> 16) & 0xff) * (0x10000 - alpha) >> 16;
    col_g = ((color >>  8) & 0xff) * (0x10000 - alpha) >> 16;
    col_b = ( color        & 0xff) * (0x10000 - alpha) >> 16;

    for (y=y1;y<y2;y++)
    {
        //  int off = y * SCREEN_W + x1;
        unsigned char *p = &pbuf[(y*SCREEN_W + x1) * 4];
        for (x = x2 - x1; x > 0; x--)
        {
            //  pbuf[off] = AlphaBlend(pbuf[off],color,alpha);
            p[0] = (p[0] * alpha >> 16) + col_b;
            p[1] = (p[1] * alpha >> 16) + col_g;
            p[2] = (p[2] * alpha >> 16) + col_r;
            p += 4;
        }
    }
}


void drawBackground(unsigned char *pbuf) {
    int i;
    Board *bd;
    int ox, oy, osx, osy, rx, ry;

    clearBuffer(pbuf);

    osx = -boardRepx * (boardRepXn/2);
    osy = -boardRepy * (boardRepYn/2);
    for ( i=0 ; i<BOARD_MAX ; i++ ) {
        if ( board[i].width == NOT_EXIST )
            continue;
        bd = &(board[i]);
        ox = osx;
        for ( rx = 0 ; rx < boardRepXn ; rx++, ox += boardRepx ) {
            oy = osy;
            for ( ry = 0 ; ry < boardRepYn ; ry++, oy += boardRepy ) {
                drawBoxAlpha(pbuf,
                             (bd->x+ox)/bd->z + SCREEN_W/2,
                             (bd->y+oy)/bd->z + SCREEN_H/2,
                             bd->width, bd->height,
                             bd->color, 0xD000);
            }
        }
    }
}

/* ------------------- */

int MonaMain(List<char*> *pekoe)
{
    int x, y, k, k2;

    unsigned char *pbuf;

    Screen screen;
    int vesaBpp = screen.getBpp() / 8;
    int vesaWidth = screen.getWidth();
    byte* vesaVram = screen.getVRAM();
    int scene_count,scene;

    /* check bpp */
    if (screen.getBpp() < 16) {
        printf("user mode screen (x, y) = (%d, %d) %dbpp\n", screen.getWidth(), screen.getHeight(), screen.getBpp());
        printf("sorry, this demo needs 16bpp or higher Video mode\n");
        return -1;
    }

    initBackground();
    setStageBackground(1);
    scene = 1;
    scene_count = FPS * 10;

    /*
    SCREEN_W = screen.getWidh();
    SCREEN_H = screen.getHeight();
    SCREEN_B = screen.getBpp() / 8;
     */

    pbuf = (unsigned char *)malloc(SCREEN_W*SCREEN_H * 4);

    while(1) {
        moveBackground();
        drawBackground(pbuf);

        for(y=0;y<SCREEN_H;y++){
            for(x=0;x<SCREEN_W;x++){
                k = (x + y * SCREEN_W) * 4;
                k2= (x + y * vesaWidth)* vesaBpp;

                if (vesaBpp == 2)
                {
                    *(word*)&vesaVram[k2] = Color::bpp24to565(&pbuf[k]);
                }
                else
                {
                    vesaVram[k2  ] = pbuf[k  ];
                    vesaVram[k2+1] = pbuf[k+1];
                    vesaVram[k2+2] = pbuf[k+2];
                }
            }
        }
        scene_count--;
        if(scene_count <= 0){
            scene       = (scene+1)%6;
            scene_count = FPS * 20;
            setStageBackground( scene );
        }
    }
    free(pbuf);
    return 0;
}
