| 1,443 → 1,443 |
|---|
| /* |
| * Project: S.Ha.R.K. |
| * |
| * Coordinators: |
| * Giorgio Buttazzo <giorgio@sssup.it> |
| * Paolo Gai <pj@gandalf.sssup.it> |
| * |
| * Authors : |
| * Paolo Gai <pj@gandalf.sssup.it> |
| * Massimiliano Giorgi <massy@gandalf.sssup.it> |
| * Luca Abeni <luca@gandalf.sssup.it> |
| * (see the web pages for full authors list) |
| * |
| * ReTiS Lab (Scuola Superiore S.Anna - Pisa - Italy) |
| * |
| * http://www.sssup.it |
| * http://retis.sssup.it |
| * http://shark.sssup.it |
| */ |
| |
| /* CVS : $Id: fab_lib.c,v 1.1 2002-10-01 10:25:00 pj Exp $ */ |
| |
| /* |
| * Copyright (C) 2000 Fabio Calabrese <fabiocalabrese77@yahoo.it> |
| * |
| * This program is free software; you can redistribute it and/or modify |
| * it under the terms of the GNU General Public License as published by |
| * the Free Software Foundation; either version 2 of the License, or |
| * (at your option) any later version. |
| * |
| * This program is distributed in the hope that it will be useful, |
| * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| * GNU General Public License for more details. |
| * |
| * You should have received a copy of the GNU General Public License |
| * along with this program; if not, write to the Free Software |
| * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| * |
| */ |
| |
| /**************************************************** |
| * * |
| * file: FAB_lib.c * |
| * libreria: FAB_LIB * |
| * version: 1.0 25/08/2002 * |
| * creato da: Fabio CALABRESE * |
| * * |
| ****************************************************/ |
| |
| #ifndef __FAB_LIB_c__ |
| #define __FAB_LIB_c__ |
| //-------------------BEGIN--------------------------- |
| |
| // *** Librerie di S.Ha.R.K. *** |
| #include<kernel/kern.h> |
| #include<kernel/mem.h> |
| #include<drivers/gd.h> |
| #include<drivers/glib.h> |
| #include<ll/sys/types.h> |
| #include<ll/i386/x-dos.h> |
| // *** Librerie Standard C *** |
| // *** Librerie FAB *** |
| #include"FAB_LIB/FAB_msg.h" |
| #include"FAB_LIB/FAB_tool.h" |
| #include"FAB_LIB/FAB_grx.h" |
| |
| // *** Corpo delle funzioni in FAB_msg.h *** // |
| |
| void FAB_print(char * InitMsg, char * msg) |
| { if (InitMsg!=NULL) {kern_printf("\n[%s]",(InitMsg));} |
| if (msg!=NULL) {kern_printf("\n %s.",msg);} |
| } |
| void __FAB_go(int test, char * OkMsg, char * ErrorMsg,int EXITflag) |
| { |
| if (OkMsg==NULL) OkMsg=FAB_EMPTY_MSG; |
| if (ErrorMsg==NULL) ErrorMsg=FAB_EMPTY_MSG; |
| |
| if (!test) {kern_printf("\n OK: %s.",OkMsg);} |
| else {kern_printf("\n ERROR: %s!",ErrorMsg); |
| if (EXITflag==FAB_EXIT_YES) sys_end(); |
| } |
| } |
| |
| // *** Corpo delle funzioni in FAB_tool.h *** // |
| |
| // nessun corpo! |
| |
| // *** Corpo delle funzioni in FAB_show.h *** // |
| |
| void FAB_show_sched_modules() |
| { int i; |
| |
| FAB_print("MODULI DI SCHEDULAZIONE",NULL); |
| kern_printf("\n (livello) (nome)"); |
| for (i=0; i<sched_levels; i++) |
| {kern_printf("\n %-9d %s",i,(level_table[i])->level_name); |
| } |
| FAB_newline(); |
| } |
| |
| // *** Corpo delle funzioni in FAB_grx.h *** |
| |
| FAB_BALLFRAME* FAB_ballframe_alloc() |
| { FAB_BALLFRAME* frame; |
| |
| frame=(FAB_BALLFRAME*)kern_alloc(sizeof(FAB_BALLFRAME)); |
| if (frame==NULL) { |
| FAB_print(NULL,"BALLFRAME CREATING... ERROR #1"); |
| return NULL; |
| } |
| return frame; |
| } |
| void FAB_ballframe_free(FAB_BALLFRAME * frame) |
| { if (frame!=NULL) |
| { kern_free(frame,sizeof(FAB_BALLFRAME)); |
| } |
| } |
| |
| FAB_FRAME* FAB_frame_alloc() |
| { FAB_FRAME* frame; |
| |
| frame=(FAB_FRAME*)kern_alloc(sizeof(FAB_FRAME)); |
| if (frame==NULL) { |
| FAB_print(NULL,"FRAME CREATING... ERROR #1"); |
| return NULL; |
| } |
| |
| return frame; |
| } |
| void FAB_frame_free(FAB_FRAME * frame) |
| { if (frame!=NULL) |
| { kern_free(frame,sizeof(FAB_FRAME)); |
| } |
| } |
| void FAB_ballborder_put(FAB_BORDER* border, WORD cx, WORD cy, WORD r_int) |
| { int i; |
| |
| for (i=0; i<border->dim; i++) |
| grx_circle(cx, cy, r_int+i, border->buf[i]); |
| } |
| void FAB_border_put(FAB_BORDER* border, WORD x0, WORD y0, WORD x1, WORD y1) |
| { int i; |
| |
| for (i=0; i<border->dim; i++) |
| grx_rect(x0-i, y0-i, x1+i, y1+i, border->buf[i]); |
| } |
| FAB_BORDER* FAB_border_alloc(WORD dim) |
| { FAB_BORDER* border; |
| |
| border=(FAB_BORDER*)kern_alloc(sizeof(FAB_BORDER)); |
| if (border==NULL) { |
| FAB_print(NULL,"BORDER CREATING... ERROR #1"); |
| return NULL; |
| } |
| |
| border->buf=(COLOR*)kern_alloc(dim*sizeof(COLOR)); |
| if (border->buf==NULL) { |
| FAB_print(NULL,"BORDER CREATING... ERROR #2"); |
| return NULL; |
| } |
| |
| border->dim = dim; |
| |
| return border; |
| } |
| void FAB_border_free(FAB_BORDER * border) |
| { if (border!=NULL) |
| { kern_free(border->buf,border->dim*sizeof(COLOR)); |
| kern_free(border,sizeof(FAB_BORDER)); |
| } |
| } |
| void FAB_image_free(FAB_IMAGE* image) |
| { if (image!=NULL) |
| { kern_free(image->buf,image->lx*image->ly*sizeof(COLOR)); |
| kern_free(image,sizeof(FAB_IMAGE)); |
| } |
| } |
| FAB_IMAGE* FAB_image_alloc(WORD lx, WORD ly) |
| { FAB_IMAGE* image; |
| |
| image=(FAB_IMAGE*)kern_alloc(sizeof(FAB_IMAGE)); |
| if (image==NULL) { |
| FAB_print(NULL,"IMAGE CREATING... ERROR #1"); |
| return NULL; |
| } |
| |
| image->buf=(COLOR*)kern_alloc(lx*ly*sizeof(COLOR)); |
| if (image->buf==NULL) { |
| FAB_print(NULL,"IMAGE CREATING... ERROR #2"); |
| return NULL; |
| } |
| FAB_image_no_trasparent_set(image); |
| image->lx = lx; |
| image->ly = ly; |
| |
| return image; |
| } |
| int FAB_grx_open(WORD lx, WORD ly) |
| { int modenum; |
| |
| FAB_print("VIDEO",NULL); |
| if (grx_init()==-1) { |
| FAB_print(NULL,"ERRORE nell'inizializzazione!"); |
| return -1; |
| } |
| if((modenum = grx_getmode(lx, ly, FAB_BPP))==-1) { |
| FAB_print(NULL,"Modalita' NON supportata!"); |
| return -1; |
| } |
| if(grx_setmode(modenum)==-1) { |
| FAB_print(NULL,"ERRORE nell'apertura della modalita'video"); |
| return -1; |
| } |
| return 0; |
| } |
| void FAB_grx_close() |
| { grx_close(); |
| } |
| int FAB_image_load(FAB_IMAGE* image, char* file_name) |
| { |
| DOS_FILE* file; |
| BYTE rgb[3]; |
| COLOR * buf; |
| int i; |
| |
| file=DOS_fopen(file_name,"r"); |
| if (file==NULL) return -1; |
| |
| buf = image->buf; |
| for (i=0; i<image->lx*image->ly; i++) |
| { DOS_fread(&rgb[0],sizeof(BYTE),3,file); |
| *buf = FAB_rgb(rgb[0],rgb[1],rgb[2]); |
| buf++; |
| } |
| |
| DOS_fclose(file); |
| return(0); |
| } |
| void FAB_image_get(FAB_IMAGE* image, WORD x0, WORD y0, WORD lx, WORD ly) |
| { WORD x, y; |
| COLOR* buf; |
| |
| buf = image->buf; |
| for (y=0; y<image->ly; y++) |
| for (x=0; x<image->lx; x++) { |
| *buf = (COLOR) grx_getpixel(x0+x,y0+y); |
| buf++; |
| } |
| FAB_image_no_trasparent_set(image); |
| } |
| void FAB_image_put(FAB_IMAGE* image, WORD x0, WORD y0) |
| { WORD x, y; |
| COLOR* buf; |
| |
| buf = image->buf; |
| if (!image->trasparent) { |
| for (y=0; y<image->ly; y++) |
| for (x=0; x<image->lx; x++) |
| grx_plot(x0+x,y0+y,*buf++); |
| } |
| else { |
| for (y=0; y<image->ly; y++) |
| for (x=0; x<image->lx; x++) { |
| if (*buf!=image->trasparent_col) |
| grx_plot(x0+x,y0+y,*buf); |
| buf++; |
| } |
| } |
| } |
| void FAB_image_put_within(FAB_IMAGE* image, WORD x0, WORD y0, |
| WORD xx0, WORD yy0, WORD xx1, WORD yy1) |
| { int step_x0_xx0; |
| int step_y0_yy0; |
| int step_xx1_x1; |
| int step_yy1_y1; |
| WORD xx, yy; |
| COLOR* buf; |
| |
| step_x0_xx0 = xx0 - x0; |
| step_y0_yy0 = yy0 - y0; |
| step_xx1_x1 = (x0 + image->lx - 1) - xx1; |
| step_yy1_y1 = (y0 + image->ly - 1) - yy1; |
| |
| if (step_x0_xx0 < 0) step_x0_xx0 = 0; |
| if (step_y0_yy0 < 0) step_y0_yy0 = 0; |
| if (step_xx1_x1 < 0) step_xx1_x1 = 0; |
| if (step_yy1_y1 < 0) step_yy1_y1 = 0; |
| |
| buf = image->buf + step_y0_yy0*image->lx; |
| if (!image->trasparent) { |
| for(yy=step_y0_yy0; yy<image->ly-step_yy1_y1; yy++) { |
| buf += step_x0_xx0; |
| for(xx=step_x0_xx0; xx<image->lx-step_xx1_x1; xx++) |
| grx_plot(x0+xx,y0+yy,*buf++); |
| buf += step_xx1_x1; |
| } |
| } |
| else { |
| for(yy=step_y0_yy0; yy<image->ly-step_yy1_y1; yy++) { |
| buf += step_x0_xx0; |
| for(xx=step_x0_xx0; xx<image->lx-step_xx1_x1; xx++) { |
| if (*buf!=image->trasparent_col) |
| grx_plot(x0+xx,y0+yy,*buf); |
| buf++; |
| } |
| buf += step_xx1_x1; |
| } |
| } |
| } |
| //...funzione usata da FAB_image_fill()... |
| void __FAB_image_put_into(FAB_IMAGE* image, WORD x0, WORD y0, WORD lx, WORD ly) |
| { WORD x, y; |
| WORD skipped_pixels; |
| COLOR* buf; |
| |
| if (lx < image->lx) skipped_pixels = image->lx - lx; |
| else skipped_pixels = 0; |
| buf = image->buf; |
| |
| if (!image->trasparent) { |
| for (y=0; y<ly; y++, buf+=skipped_pixels) { |
| if (y > image->ly -1) break; |
| for (x=0; x<lx; x++, buf++) { |
| if (x < image->lx) grx_plot(x0+x,y0+y,*buf); |
| else break; |
| } |
| } |
| } |
| else { |
| for (y=0; y<ly; y++, buf+=skipped_pixels) { |
| if (y > image->ly -1) break; |
| for (x=0; x<lx; x++, buf++) { |
| if (x < image->lx) { |
| if (*buf!=image->trasparent_col) |
| grx_plot(x0+x,y0+y,*buf); |
| } |
| else break; |
| } |
| } |
| } |
| } |
| void FAB_image_fill(FAB_IMAGE* image, WORD x0, WORD y0, WORD lx, WORD ly) |
| { WORD x, y; |
| WORD sub_lx, sub_ly; |
| |
| for (y=0; y<ly; y+=image->ly) { |
| sub_ly = ly - y; // spazio verticale disponibile |
| if (sub_ly > image->ly) sub_ly = image->ly; |
| for (x=0; x<lx; x+=image->lx) { |
| sub_lx = lx - x; // spazio orizzontale disponibile |
| if (sub_lx > image->lx) sub_lx = image->lx; |
| __FAB_image_put_into(image,x0+x,y0+y,sub_lx,sub_ly); |
| } |
| } |
| } |
| void FAB_frame_put(FAB_FRAME* frame, WORD x0, WORD y0, WORD lx, WORD ly) |
| { |
| WORD eff_dim; |
| int j; |
| |
| //BORDO DEL FRAME |
| if (frame->border!=NULL) eff_dim = frame->border->dim; |
| else eff_dim = frame->border_dim; |
| frame->x0 = x0 + eff_dim; |
| frame->y0 = y0 + eff_dim; |
| frame->x1 = x0 + lx - eff_dim - 1; |
| frame->y1 = y0 + ly - eff_dim - 1; |
| if (frame->border!=NULL) { |
| FAB_border_put(frame->border, frame->x0-1, frame->y0-1, |
| frame->x1+1, frame->y1+1); |
| } |
| else { |
| for (j=0; j<eff_dim; j++) |
| grx_rect(frame->x0-1-j, frame->y0-1-j, |
| frame->x1+1+j, frame->y1+1+j, frame->border_col); |
| } |
| |
| //PANNELLO DEL FRAME |
| if (!frame->trasparent) { |
| if (frame->image==NULL) grx_box(frame->x0, frame->y0, |
| frame->x1, frame->y1, frame->color); |
| else FAB_image_fill(frame->image, |
| frame->x0, frame->y0, |
| lx-eff_dim*2, ly-eff_dim*2); |
| } |
| } |
| |
| void FAB_ballframe_put(FAB_BALLFRAME* frame, WORD cx, WORD cy, WORD r) |
| { |
| int j; |
| WORD eff_dim; |
| |
| //BORDO DEL FRAME |
| if (frame->border!=NULL) eff_dim = frame->border->dim; |
| else eff_dim = frame->border_dim; |
| frame->cx = cx; |
| frame->cy = cy; |
| frame->r = r - eff_dim; |
| |
| if (frame->border!=NULL) { |
| FAB_ballborder_put(frame->border,frame->cx,frame->cy,frame->r+1); |
| } |
| else { |
| for (j=0; j<eff_dim; j++) |
| grx_circle(frame->cx,frame->cy,frame->r+1+j,frame->border_col); |
| } |
| |
| //PANNELLO DEL FRAME |
| if (!frame->trasparent) { |
| grx_disc(frame->cx,frame->cy,frame->r,frame->color); |
| } |
| } |
| |
| void FAB_image_copy(FAB_IMAGE* orig_image, FAB_IMAGE* dest_image) |
| { |
| COLOR* orig_buf; |
| COLOR* dest_buf; |
| int j,n; |
| |
| n = orig_image->lx * orig_image->ly; |
| if (n==(dest_image->lx * dest_image->ly)) { |
| orig_buf = orig_image->buf; |
| dest_buf = dest_image->buf; |
| for(j=0; j<n; j++) { |
| *dest_buf = *orig_buf; |
| orig_buf++; |
| dest_buf++; |
| } |
| } |
| } |
| void FAB_image_color_change(FAB_IMAGE* image, COLOR old_col, COLOR new_col) |
| { COLOR* buf; |
| int j,n; |
| |
| buf = image->buf; |
| n = image->lx * image->ly; |
| for(j=0; j<n; j++, buf++) |
| if (*buf==old_col) |
| *buf=new_col; |
| } |
| //----------------------END-------------------------- |
| #endif |
| /* |
| * Project: S.Ha.R.K. |
| * |
| * Coordinators: |
| * Giorgio Buttazzo <giorgio@sssup.it> |
| * Paolo Gai <pj@gandalf.sssup.it> |
| * |
| * Authors : |
| * Paolo Gai <pj@gandalf.sssup.it> |
| * Massimiliano Giorgi <massy@gandalf.sssup.it> |
| * Luca Abeni <luca@gandalf.sssup.it> |
| * (see the web pages for full authors list) |
| * |
| * ReTiS Lab (Scuola Superiore S.Anna - Pisa - Italy) |
| * |
| * http://www.sssup.it |
| * http://retis.sssup.it |
| * http://shark.sssup.it |
| */ |
| |
| /* CVS : $Id: fab_lib.c,v 1.2 2002-10-01 10:33:51 pj Exp $ */ |
| |
| /* |
| * Copyright (C) 2000 Fabio Calabrese <fabiocalabrese77@yahoo.it> |
| * |
| * This program is free software; you can redistribute it and/or modify |
| * it under the terms of the GNU General Public License as published by |
| * the Free Software Foundation; either version 2 of the License, or |
| * (at your option) any later version. |
| * |
| * This program is distributed in the hope that it will be useful, |
| * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| * GNU General Public License for more details. |
| * |
| * You should have received a copy of the GNU General Public License |
| * along with this program; if not, write to the Free Software |
| * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| * |
| */ |
| |
| /**************************************************** |
| * * |
| * file: FAB_lib.c * |
| * libreria: FAB_LIB * |
| * version: 1.0 25/08/2002 * |
| * creato da: Fabio CALABRESE * |
| * * |
| ****************************************************/ |
| |
| #ifndef __FAB_LIB_c__ |
| #define __FAB_LIB_c__ |
| //-------------------BEGIN--------------------------- |
| |
| // *** Librerie di S.Ha.R.K. *** |
| #include<kernel/kern.h> |
| #include<kernel/mem.h> |
| #include<drivers/gd.h> |
| #include<drivers/glib.h> |
| #include<ll/sys/types.h> |
| #include<ll/i386/x-dos.h> |
| // *** Librerie Standard C *** |
| // *** Librerie FAB *** |
| #include"fab_lib/fab_msg.h" |
| #include"fab_lib/fab_tool.h" |
| #include"fab_lib/fab_grx.h" |
| |
| // *** Corpo delle funzioni in FAB_msg.h *** // |
| |
| void FAB_print(char * InitMsg, char * msg) |
| { if (InitMsg!=NULL) {kern_printf("\n[%s]",(InitMsg));} |
| if (msg!=NULL) {kern_printf("\n %s.",msg);} |
| } |
| void __FAB_go(int test, char * OkMsg, char * ErrorMsg,int EXITflag) |
| { |
| if (OkMsg==NULL) OkMsg=FAB_EMPTY_MSG; |
| if (ErrorMsg==NULL) ErrorMsg=FAB_EMPTY_MSG; |
| |
| if (!test) {kern_printf("\n OK: %s.",OkMsg);} |
| else {kern_printf("\n ERROR: %s!",ErrorMsg); |
| if (EXITflag==FAB_EXIT_YES) sys_end(); |
| } |
| } |
| |
| // *** Corpo delle funzioni in FAB_tool.h *** // |
| |
| // nessun corpo! |
| |
| // *** Corpo delle funzioni in FAB_show.h *** // |
| |
| void FAB_show_sched_modules() |
| { int i; |
| |
| FAB_print("MODULI DI SCHEDULAZIONE",NULL); |
| kern_printf("\n (livello) (nome)"); |
| for (i=0; i<sched_levels; i++) |
| {kern_printf("\n %-9d %s",i,(level_table[i])->level_name); |
| } |
| FAB_newline(); |
| } |
| |
| // *** Corpo delle funzioni in FAB_grx.h *** |
| |
| FAB_BALLFRAME* FAB_ballframe_alloc() |
| { FAB_BALLFRAME* frame; |
| |
| frame=(FAB_BALLFRAME*)kern_alloc(sizeof(FAB_BALLFRAME)); |
| if (frame==NULL) { |
| FAB_print(NULL,"BALLFRAME CREATING... ERROR #1"); |
| return NULL; |
| } |
| return frame; |
| } |
| void FAB_ballframe_free(FAB_BALLFRAME * frame) |
| { if (frame!=NULL) |
| { kern_free(frame,sizeof(FAB_BALLFRAME)); |
| } |
| } |
| |
| FAB_FRAME* FAB_frame_alloc() |
| { FAB_FRAME* frame; |
| |
| frame=(FAB_FRAME*)kern_alloc(sizeof(FAB_FRAME)); |
| if (frame==NULL) { |
| FAB_print(NULL,"FRAME CREATING... ERROR #1"); |
| return NULL; |
| } |
| |
| return frame; |
| } |
| void FAB_frame_free(FAB_FRAME * frame) |
| { if (frame!=NULL) |
| { kern_free(frame,sizeof(FAB_FRAME)); |
| } |
| } |
| void FAB_ballborder_put(FAB_BORDER* border, WORD cx, WORD cy, WORD r_int) |
| { int i; |
| |
| for (i=0; i<border->dim; i++) |
| grx_circle(cx, cy, r_int+i, border->buf[i]); |
| } |
| void FAB_border_put(FAB_BORDER* border, WORD x0, WORD y0, WORD x1, WORD y1) |
| { int i; |
| |
| for (i=0; i<border->dim; i++) |
| grx_rect(x0-i, y0-i, x1+i, y1+i, border->buf[i]); |
| } |
| FAB_BORDER* FAB_border_alloc(WORD dim) |
| { FAB_BORDER* border; |
| |
| border=(FAB_BORDER*)kern_alloc(sizeof(FAB_BORDER)); |
| if (border==NULL) { |
| FAB_print(NULL,"BORDER CREATING... ERROR #1"); |
| return NULL; |
| } |
| |
| border->buf=(COLOR*)kern_alloc(dim*sizeof(COLOR)); |
| if (border->buf==NULL) { |
| FAB_print(NULL,"BORDER CREATING... ERROR #2"); |
| return NULL; |
| } |
| |
| border->dim = dim; |
| |
| return border; |
| } |
| void FAB_border_free(FAB_BORDER * border) |
| { if (border!=NULL) |
| { kern_free(border->buf,border->dim*sizeof(COLOR)); |
| kern_free(border,sizeof(FAB_BORDER)); |
| } |
| } |
| void FAB_image_free(FAB_IMAGE* image) |
| { if (image!=NULL) |
| { kern_free(image->buf,image->lx*image->ly*sizeof(COLOR)); |
| kern_free(image,sizeof(FAB_IMAGE)); |
| } |
| } |
| FAB_IMAGE* FAB_image_alloc(WORD lx, WORD ly) |
| { FAB_IMAGE* image; |
| |
| image=(FAB_IMAGE*)kern_alloc(sizeof(FAB_IMAGE)); |
| if (image==NULL) { |
| FAB_print(NULL,"IMAGE CREATING... ERROR #1"); |
| return NULL; |
| } |
| |
| image->buf=(COLOR*)kern_alloc(lx*ly*sizeof(COLOR)); |
| if (image->buf==NULL) { |
| FAB_print(NULL,"IMAGE CREATING... ERROR #2"); |
| return NULL; |
| } |
| FAB_image_no_trasparent_set(image); |
| image->lx = lx; |
| image->ly = ly; |
| |
| return image; |
| } |
| int FAB_grx_open(WORD lx, WORD ly) |
| { int modenum; |
| |
| FAB_print("VIDEO",NULL); |
| if (grx_init()==-1) { |
| FAB_print(NULL,"ERRORE nell'inizializzazione!"); |
| return -1; |
| } |
| if((modenum = grx_getmode(lx, ly, FAB_BPP))==-1) { |
| FAB_print(NULL,"Modalita' NON supportata!"); |
| return -1; |
| } |
| if(grx_setmode(modenum)==-1) { |
| FAB_print(NULL,"ERRORE nell'apertura della modalita'video"); |
| return -1; |
| } |
| return 0; |
| } |
| void FAB_grx_close() |
| { grx_close(); |
| } |
| int FAB_image_load(FAB_IMAGE* image, char* file_name) |
| { |
| DOS_FILE* file; |
| BYTE rgb[3]; |
| COLOR * buf; |
| int i; |
| |
| file=DOS_fopen(file_name,"r"); |
| if (file==NULL) return -1; |
| |
| buf = image->buf; |
| for (i=0; i<image->lx*image->ly; i++) |
| { DOS_fread(&rgb[0],sizeof(BYTE),3,file); |
| *buf = FAB_rgb(rgb[0],rgb[1],rgb[2]); |
| buf++; |
| } |
| |
| DOS_fclose(file); |
| return(0); |
| } |
| void FAB_image_get(FAB_IMAGE* image, WORD x0, WORD y0, WORD lx, WORD ly) |
| { WORD x, y; |
| COLOR* buf; |
| |
| buf = image->buf; |
| for (y=0; y<image->ly; y++) |
| for (x=0; x<image->lx; x++) { |
| *buf = (COLOR) grx_getpixel(x0+x,y0+y); |
| buf++; |
| } |
| FAB_image_no_trasparent_set(image); |
| } |
| void FAB_image_put(FAB_IMAGE* image, WORD x0, WORD y0) |
| { WORD x, y; |
| COLOR* buf; |
| |
| buf = image->buf; |
| if (!image->trasparent) { |
| for (y=0; y<image->ly; y++) |
| for (x=0; x<image->lx; x++) |
| grx_plot(x0+x,y0+y,*buf++); |
| } |
| else { |
| for (y=0; y<image->ly; y++) |
| for (x=0; x<image->lx; x++) { |
| if (*buf!=image->trasparent_col) |
| grx_plot(x0+x,y0+y,*buf); |
| buf++; |
| } |
| } |
| } |
| void FAB_image_put_within(FAB_IMAGE* image, WORD x0, WORD y0, |
| WORD xx0, WORD yy0, WORD xx1, WORD yy1) |
| { int step_x0_xx0; |
| int step_y0_yy0; |
| int step_xx1_x1; |
| int step_yy1_y1; |
| WORD xx, yy; |
| COLOR* buf; |
| |
| step_x0_xx0 = xx0 - x0; |
| step_y0_yy0 = yy0 - y0; |
| step_xx1_x1 = (x0 + image->lx - 1) - xx1; |
| step_yy1_y1 = (y0 + image->ly - 1) - yy1; |
| |
| if (step_x0_xx0 < 0) step_x0_xx0 = 0; |
| if (step_y0_yy0 < 0) step_y0_yy0 = 0; |
| if (step_xx1_x1 < 0) step_xx1_x1 = 0; |
| if (step_yy1_y1 < 0) step_yy1_y1 = 0; |
| |
| buf = image->buf + step_y0_yy0*image->lx; |
| if (!image->trasparent) { |
| for(yy=step_y0_yy0; yy<image->ly-step_yy1_y1; yy++) { |
| buf += step_x0_xx0; |
| for(xx=step_x0_xx0; xx<image->lx-step_xx1_x1; xx++) |
| grx_plot(x0+xx,y0+yy,*buf++); |
| buf += step_xx1_x1; |
| } |
| } |
| else { |
| for(yy=step_y0_yy0; yy<image->ly-step_yy1_y1; yy++) { |
| buf += step_x0_xx0; |
| for(xx=step_x0_xx0; xx<image->lx-step_xx1_x1; xx++) { |
| if (*buf!=image->trasparent_col) |
| grx_plot(x0+xx,y0+yy,*buf); |
| buf++; |
| } |
| buf += step_xx1_x1; |
| } |
| } |
| } |
| //...funzione usata da FAB_image_fill()... |
| void __FAB_image_put_into(FAB_IMAGE* image, WORD x0, WORD y0, WORD lx, WORD ly) |
| { WORD x, y; |
| WORD skipped_pixels; |
| COLOR* buf; |
| |
| if (lx < image->lx) skipped_pixels = image->lx - lx; |
| else skipped_pixels = 0; |
| buf = image->buf; |
| |
| if (!image->trasparent) { |
| for (y=0; y<ly; y++, buf+=skipped_pixels) { |
| if (y > image->ly -1) break; |
| for (x=0; x<lx; x++, buf++) { |
| if (x < image->lx) grx_plot(x0+x,y0+y,*buf); |
| else break; |
| } |
| } |
| } |
| else { |
| for (y=0; y<ly; y++, buf+=skipped_pixels) { |
| if (y > image->ly -1) break; |
| for (x=0; x<lx; x++, buf++) { |
| if (x < image->lx) { |
| if (*buf!=image->trasparent_col) |
| grx_plot(x0+x,y0+y,*buf); |
| } |
| else break; |
| } |
| } |
| } |
| } |
| void FAB_image_fill(FAB_IMAGE* image, WORD x0, WORD y0, WORD lx, WORD ly) |
| { WORD x, y; |
| WORD sub_lx, sub_ly; |
| |
| for (y=0; y<ly; y+=image->ly) { |
| sub_ly = ly - y; // spazio verticale disponibile |
| if (sub_ly > image->ly) sub_ly = image->ly; |
| for (x=0; x<lx; x+=image->lx) { |
| sub_lx = lx - x; // spazio orizzontale disponibile |
| if (sub_lx > image->lx) sub_lx = image->lx; |
| __FAB_image_put_into(image,x0+x,y0+y,sub_lx,sub_ly); |
| } |
| } |
| } |
| void FAB_frame_put(FAB_FRAME* frame, WORD x0, WORD y0, WORD lx, WORD ly) |
| { |
| WORD eff_dim; |
| int j; |
| |
| //BORDO DEL FRAME |
| if (frame->border!=NULL) eff_dim = frame->border->dim; |
| else eff_dim = frame->border_dim; |
| frame->x0 = x0 + eff_dim; |
| frame->y0 = y0 + eff_dim; |
| frame->x1 = x0 + lx - eff_dim - 1; |
| frame->y1 = y0 + ly - eff_dim - 1; |
| if (frame->border!=NULL) { |
| FAB_border_put(frame->border, frame->x0-1, frame->y0-1, |
| frame->x1+1, frame->y1+1); |
| } |
| else { |
| for (j=0; j<eff_dim; j++) |
| grx_rect(frame->x0-1-j, frame->y0-1-j, |
| frame->x1+1+j, frame->y1+1+j, frame->border_col); |
| } |
| |
| //PANNELLO DEL FRAME |
| if (!frame->trasparent) { |
| if (frame->image==NULL) grx_box(frame->x0, frame->y0, |
| frame->x1, frame->y1, frame->color); |
| else FAB_image_fill(frame->image, |
| frame->x0, frame->y0, |
| lx-eff_dim*2, ly-eff_dim*2); |
| } |
| } |
| |
| void FAB_ballframe_put(FAB_BALLFRAME* frame, WORD cx, WORD cy, WORD r) |
| { |
| int j; |
| WORD eff_dim; |
| |
| //BORDO DEL FRAME |
| if (frame->border!=NULL) eff_dim = frame->border->dim; |
| else eff_dim = frame->border_dim; |
| frame->cx = cx; |
| frame->cy = cy; |
| frame->r = r - eff_dim; |
| |
| if (frame->border!=NULL) { |
| FAB_ballborder_put(frame->border,frame->cx,frame->cy,frame->r+1); |
| } |
| else { |
| for (j=0; j<eff_dim; j++) |
| grx_circle(frame->cx,frame->cy,frame->r+1+j,frame->border_col); |
| } |
| |
| //PANNELLO DEL FRAME |
| if (!frame->trasparent) { |
| grx_disc(frame->cx,frame->cy,frame->r,frame->color); |
| } |
| } |
| |
| void FAB_image_copy(FAB_IMAGE* orig_image, FAB_IMAGE* dest_image) |
| { |
| COLOR* orig_buf; |
| COLOR* dest_buf; |
| int j,n; |
| |
| n = orig_image->lx * orig_image->ly; |
| if (n==(dest_image->lx * dest_image->ly)) { |
| orig_buf = orig_image->buf; |
| dest_buf = dest_image->buf; |
| for(j=0; j<n; j++) { |
| *dest_buf = *orig_buf; |
| orig_buf++; |
| dest_buf++; |
| } |
| } |
| } |
| void FAB_image_color_change(FAB_IMAGE* image, COLOR old_col, COLOR new_col) |
| { COLOR* buf; |
| int j,n; |
| |
| buf = image->buf; |
| n = image->lx * image->ly; |
| for(j=0; j<n; j++, buf++) |
| if (*buf==old_col) |
| *buf=new_col; |
| } |
| //----------------------END-------------------------- |
| #endif |