/*    $Id: fminigui.c,v 1.15 2003/08/15 08:45:46 weiym Exp $******************************************************************************   Flying-GGIs - Another neat GGI demo...   Porting to MiniGUI by WEI Yongming   Authors:    1998       Andrew Apted        [andrew@ggi-project.org]   This software is placed in the public domain and can be used freely   for any purpose. It comes without any kind of warranty, either   expressed or implied, including, but not limited to the implied   warranties of merchantability or fitness for a particular purpose.   Use it at your own risk. the author is not responsible for any damage   or consequences raised by use or inability to use this program.*******************************************************************************//* This is needed for the HAVE_* macros */#include <stdio.h>#include <stdlib.h>#include <string.h>#include <ctype.h>#include <time.h>#include <unistd.h>#include <math.h>#include <minigui/common.h>#include <minigui/minigui.h>#include <minigui/gdi.h>#include <minigui/window.h>#include "amuze.h"#define fixed  gal_sint32   /* 16.16 */#define DEFAULT_WIDTH   320#define DEFAULT_HEIGHT  200#define DEFAULT_GENTIME      200   /* msec */#define DEFAULT_MAXSIZE      100   /* percent */#define DEFAULT_CLUSTERSIZE  100   /* percent */#define DEFAULT_SPEED        30 /* Global Info */static int screen_width;static int screen_height;static int screen_diag;static int banner_width;static int banner_height;static int banner_diag;static int gen_time;      /* msec */static fixed max_size;    /* default 1.0 = full screen */static int cluster_size;  /* pixels */static int fixed_speed=0;static int speed;static int use_putbox;static gal_pixel lookup[256];static void *image_buf;static int image_size;typedef struct texture{        struct texture *succ;        struct texture *tail;        fixed mid_x, mid_y;        fixed size;        fixed millis;        fixed speed;        gal_uint8 color;} Texture;static Texture *texture_list;static char *banner[46];static void banner_size(int *width, int *height){        *width=0;        for (*height=0; banner[*height] != NULL; (*height)++) {                int len = strlen(banner[*height]);                if (len > *width) {                        *width = len;        }        }}static int random_in_range(int low, int high){    return low + random() % (high-low+1);}static void setup_palette(void){    int i;    use_putbox = 0;    if (GetGDCapability (HDC_SCREEN, GDCAP_DEPTH) == 8)        use_putbox = 1;    for (i=0; i < 256; i++) {        GAL_Color col;        col.r = ((i >> 5) & 7) * 0xffff / 7;        col.g = ((i >> 2) & 7) * 0xffff / 7;        col.b = ((i)      & 3) * 0xffff / 3;        lookup[i] = RGB2Pixel (HDC_SCREEN, col.r, col.g, col.b);    }}static gal_uint8 trans_buffer[8192];static void translate_hline(HDC hdc, int x, int y, int w, gal_uint8 *data){    int ww = w;#ifdef _USE_NEWGAL    BITMAP bmp = {BMP_TYPE_NORMAL};#else    BITMAP bmp;#endif    gal_uint8  *buf1 = (gal_uint8  *) trans_buffer;    gal_uint16 *buf2 = (gal_uint16 *) trans_buffer;    gal_uint32 *buf4 = (gal_uint32 *) trans_buffer;    switch ( GetGDCapability (hdc, GDCAP_BPP)) {    case 1:        for (; ww > 0; ww--) {            *buf1++ = lookup[*data++];        }        break;    case 2:        for (; ww > 0; ww--) {            *buf2++ = lookup[*data++];        }        break;    case 3:        for (; ww > 0; ww--) {            gal_pixel pix = lookup[*data++];            *buf1++ = pix; pix >>= 8;            *buf1++ = pix; pix >>= 8;            *buf1++ = pix;        }        break;    case 4:        for (; ww > 0; ww--) {            *buf4++ = lookup[*data++];        }        break;    }    #ifdef _USE_NEWGAL    bmp.bmBitsPerPixel = GetGDCapability (hdc, GDCAP_DEPTH);    bmp.bmBytesPerPixel = GetGDCapability (hdc, GDCAP_BPP);    bmp.bmPitch = w;#endif    bmp.bmWidth = w; bmp.bmHeight = 1;    bmp.bmBits = trans_buffer;    FillBoxWithBitmap (hdc, x, y, 0, 0, &bmp);}static void update_frame(HDC hdc){    if (use_putbox) {#ifdef _USE_NEWGAL        BITMAP bmp = {BMP_TYPE_NORMAL};        bmp.bmBitsPerPixel = GetGDCapability (hdc, GDCAP_DEPTH);        bmp.bmBytesPerPixel = GetGDCapability (hdc, GDCAP_BPP);    	bmp.bmPitch = screen_width;#else        BITMAP bmp;#endif    	bmp.bmWidth = screen_width;        bmp.bmHeight = screen_height;    	bmp.bmBits = image_buf;        FillBoxWithBitmap (hdc, 0, 0, 0, 0, &bmp);    } else {        int y;        gal_uint8 *src = (gal_uint8 *) image_buf;        for (y=0; y < screen_height; y++) {            translate_hline(hdc, 0, y, screen_width, src);            src += screen_width;        }    }}static void init_textures(void){        texture_list = NULL;}static void free_textures(void){    Texture *t;        while (texture_list != NULL) {                t = texture_list;        texture_list = t->succ;                free(t);    }    }static void add_texture(int x, int y, gal_uint8 color){        Texture *t;        t = (Texture *) malloc(sizeof(Texture));        t->mid_x = x << 16;        t->mid_y = y << 16;        t->millis = 0;        t->color  = color;        t->speed  = speed + (fixed_speed ? 0 :            random_in_range(-(speed/2), +(speed/2)));        t->succ = texture_list;        texture_list = t;}static void render_texture(int width, int height, Texture *t){        int x, y;        int sx, sy, bx;        int dx, dy;        gal_uint8 *dest;        height <<= 16;        width  <<= 16;        dx = dy = t->size * screen_diag / banner_diag;        bx = t->mid_x - (banner_width  * dx / 2);        sy = t->mid_y - (banner_height * dy / 2);        for (y=0; (banner[y] != NULL) && (sy < height); y++, sy += dy) {                char *pos = banner[y];                if (sy >= 0) {                        dest = image_buf;                        dest += ((sy>>16) * screen_width);                        for (x=0, sx=bx; (*pos != 0) && (sx < width);                  x++, pos++, sx += dx) {                                            if ((sx >= 0) && (*pos == '#'))                                {                                        dest[sx>>16] = t->color;                                }                        }                }        }}static void update_texture(Texture *t, Texture ***prev_ptr, int millis){        t->millis += millis;        t->size = t->millis * t->speed;        if (t->size > max_size) {                                /* remove texture */                **prev_ptr = t->succ;        free(t);                return;