Re: [TOOL]: Herramienta Grafica: PIXELL
Posted: Mon May 09, 2011 7:10 pm
Lo mejor de todo es que con la GUI incluida al programa, el codigo de esto que veis se reduce a estas lineas jaja, que pasada.
[Codebox=gemix file=Untitled.gemix]BEGIN
//set_render_mode(rendering3d_sse);
SET_MODE(800,600,32);SET_FPS(60,0);VSYNC=TRUE; // SET DEL MODO GRAFICO.
F_MAIN=LOAD_FPG("DATA/PIXEL_05.FPG");
PUT_SCREEN(F_MAIN,2);
INIT_GUI();
INICIO(200,260);
LOOP
IF(KEY(_ESC))EXIT(0,0);END
FRAME;
END
END
//------------------------------------
PROCESS INICIO(X,Y);
BEGIN
GRAPH = GUI_CREATE_FORM(400,200);
GUI_SET_TITLE("POWERED BY - GEMIX STUDIO beta 6.0",FNT_WHITE);
GUI_DRAW_FORM(20,30,360,20,0);
GUI_WRITE_LABEL(FNT_AZUL,200,40,4,"PIXELL 0.53 alpha - 32 bit | GRAPHICS TOOL FOR GEMIX STUDIO");
GUI_DRAW_FORM(20,70,360,90,1);
GUI_WRITE_LABEL(FNT_rojo,200,80,4,"<< LICENSE OF USE >>");
GUI_WRITE_LABEL(FNT_BLACK,25,90,0,"This software is free for not comercial use,does not offer");
GUI_WRITE_LABEL(FNT_BLACK,25,100,0,"any guarantee of functioning and I do not play the role");
GUI_WRITE_LABEL(FNT_BLACK,25,110,0,"myself responsable for the hurts suffered in the equipmment");
GUI_WRITE_LABEL(FNT_BLACK,25,120,0,"by his utilization.");
GUI_WRITE_LABEL(FNT_verde,25,135,0,"Anyhow thank you for using it.");
GUI_BUTTON(150,178,-1,-1,"ACEPT","INICIAR",FNT_MAGENTA);
GUI_BUTTON(240,178,-1,-1,"<< EXIT >>","CANCEL",FNT_BLACK);
LOOP
IF(MSG_=="CANCEL")exit(0,0);END
IF(MSG_=="INICIAR")MAIN_FRAME();GUI_QUIT_FORM();END
MSG_=0; // A CADA FRAME RESETEO EL MENSAJE..
FRAME;
END
END
PROCESS MAIN_FRAME();
BEGIN
INFORMATION_BAR(1,1);
MAIN_TOOLBAR(1,500); // LLAMO A LA BARRA PRINCIPAL, Y ESTA LLAMA AL RESTO.. ES POR LOS PRIORITY.. HAY QUE ARREGLARLO..
LOOP
FRAME;
END
END
PROCESS MAIN_TOOLBAR(X,Y);
PRIVATE
INT T5; // ID DEL TEXTO DEL SYSTEM_MESSAGE..
BEGIN
GRAPH = GUI_CREATE_FORM(800,100);
GUI_SET_TITLE("MAIN TOOLBAR",FNT_AMARILLO);
GUI_DRAW_FORM(200,7,400,12,1);
GUI_WRITE_LABEL(FNT_AZUL,210,10,0,"SYSTEM MESSAGE:");
T5=WRITE(FNT_BLACK,X+305,Y+10,0, SYSTEM_MESSAGE);LOCK_TEXT(T5);
GUI_TILED_BUTTON(50,60,60,60,F_MAIN,50,"CHANGE_VIDEO_MODE");
GUI_BUTTON(200,60,50,40,"C_POINT",".",FNT_AZUL);
GUI_TILED_BUTTON(260,60,50,40,F_MAIN,16,".");
GUI_TILED_BUTTON(320,60,50,40,F_MAIN,13,".");
GUI_TILED_BUTTON(380,60,50,40,F_MAIN,14,".");
GUI_TILED_BUTTON(440,60,50,40,F_MAIN,11,".");
GUI_TILED_BUTTON(500,60,50,40,F_MAIN,51,".");
GUI_TILED_BUTTON(560,60,50,40,F_MAIN,12,".");
GUI_TILED_BUTTON(620,60,50,40,F_MAIN,15,"OPEN_FILE_");
LOOP
MOVE_TEXT(T5,X+305,Y+10);
SET_TEXT_Z(T5,Z-1);
IF(MSG_=="OPEN_FILE_" && WINDOW_OPEN_FILE==FALSE)OPEN_FILE(180,160,FATHER);END
IF(MSG_=="CHANGE_VIDEO_MODE" && MODE_FULLSCREEN_==FALSE)MODE_FULLSCREEN_=TRUE;CHANGE_MODE(2);MSG_=0;SYSTEM_MESSAGE="VIDEO MODE AS CHANGED, NOW ARE IN FULLSCREEN.";END
IF(MSG_=="CHANGE_VIDEO_MODE" && MODE_FULLSCREEN_==TRUE)MODE_FULLSCREEN_=FALSE;CHANGE_MODE(1);MSG_=0;SYSTEM_MESSAGE="VIDEO MODE AS CHANGED, NOW ARE IN MODE_WINDOW.";END
MSG_=0;
FRAME;
END
END
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
PROCESS INFORMATION_BAR(X,Y);
PRIVATE
INT T1,T2; // PARA MOSTRAR LAS COORDENADAS DEL MOUSE EN SCREEN.
INT T3,T4; // PARA MOSTRAR LAS COORDENADAS DEL MOUSE SOBRE EL GRAFICO A EDITAR
BEGIN
GRAPH = GUI_CREATE_FORM(110,499);
GUI_SET_TITLE("INFORMATION",FNT_AMARILLO);
GUI_DRAW_FORM(6,30,96,30,0);
GUI_DRAW_FORM(6,46,96,14,1);
GUI_WRITE_LABEL(FNT_BLACK,12,35,0,"SELECTED COLOR");
GUI_DRAW_FORM(6,70,96,30,0);
GUI_DRAW_FORM(6,86,96,14,1);
GUI_WRITE_LABEL(FNT_BLACK,12,75,0,"NEW.PAL. COLOR");
GUI_DRAW_FORM(6,120,96,30,0);
GUI_DRAW_FORM(6,135,96,14,0);
GUI_DRAW_FORM(6,150,96,14,0);
GUI_WRITE_LABEL(FNT_BLACK,12,125,0,"GRAPHIC INFORM");
GUI_WRITE_LABEL(FNT_BLACK,12,139,0,"WHG _>");
GUI_WRITE_LABEL(FNT_BLACK,12,154,0,"HIG _>");
GUI_DRAW_FORM(6,180,96,30,0);
GUI_DRAW_FORM(6,196,96,14,1);
GUI_WRITE_LABEL(FNT_BLACK,12,185,0,"MOUSE X/Y SCR");
GUI_WRITE_LABEL(FNT_MAGENTA,12,200,0,"X:");
GUI_WRITE_LABEL(FNT_MAGENTA,62,200,0,"Y:");
T1=WRITE_INT(FNT_AZUL,X+25,Y+200,0,&MOUSE.X);LOCK_TEXT(T1);
T2=WRITE_INT(FNT_AZUL,X+75,Y+200,0,&MOUSE.Y);LOCK_TEXT(T2);
GUI_DRAW_FORM(6,230,96,15,0);
GUI_WRITE_LABEL(FNT_BLACK,10,235,0,"LAST EXP.SPRITE");
GUI_DRAW_FORM(6,245,96,15,1);
GUI_WRITE_LABEL(FNT_AZUL,12,249,0,"FILE:");
GUI_DRAW_FORM(6,260,96,15,1);
GUI_WRITE_LABEL(FNT_BLACK,12,264,0,"X0: Y0:");
GUI_DRAW_FORM(6,275,96,15,1);
GUI_WRITE_LABEL(FNT_BLACK,12,279,0,"X1: Y1:");
GUI_DRAW_FORM(6,290,96,15,1);
GUI_WRITE_LABEL(FNT_BLACK,12,294,0,"WH_ HG_");
GUI_DRAW_FORM(6,320,96,30,0);
GUI_DRAW_FORM(6,336,96,14,1);
GUI_WRITE_LABEL(FNT_BLACK,12,325,0,"MOUSE ON GRAPH");
GUI_WRITE_LABEL(FNT_MAGENTA,12,340,0,"X:");
GUI_WRITE_LABEL(FNT_MAGENTA,62,340,0,"Y:");
T3=WRITE_INT(FNT_AZUL,X+25,Y+340,0,&MOUSE.X);LOCK_TEXT(T3);
T4=WRITE_INT(FNT_AZUL,X+75,Y+340,0,&MOUSE.Y);LOCK_TEXT(T4);
LOOP
MOVE_TEXT(T1,X+25,Y+200);
MOVE_TEXT(T2,X+75,Y+200);
MOVE_TEXT(T3,X+25,Y+340);
MOVE_TEXT(T4,X+75,Y+340);
set_text_z(T1,Z-1);
SET_TEXT_Z(T2,Z-1);
SET_TEXT_Z(T3,Z-1);
SET_TEXT_Z(T4,Z-1);
FRAME;
END
END[/Codebox]
[Codebox=gemix file=Untitled.gemix]BEGIN
//set_render_mode(rendering3d_sse);
SET_MODE(800,600,32);SET_FPS(60,0);VSYNC=TRUE; // SET DEL MODO GRAFICO.
F_MAIN=LOAD_FPG("DATA/PIXEL_05.FPG");
PUT_SCREEN(F_MAIN,2);
INIT_GUI();
INICIO(200,260);
LOOP
IF(KEY(_ESC))EXIT(0,0);END
FRAME;
END
END
//------------------------------------
PROCESS INICIO(X,Y);
BEGIN
GRAPH = GUI_CREATE_FORM(400,200);
GUI_SET_TITLE("POWERED BY - GEMIX STUDIO beta 6.0",FNT_WHITE);
GUI_DRAW_FORM(20,30,360,20,0);
GUI_WRITE_LABEL(FNT_AZUL,200,40,4,"PIXELL 0.53 alpha - 32 bit | GRAPHICS TOOL FOR GEMIX STUDIO");
GUI_DRAW_FORM(20,70,360,90,1);
GUI_WRITE_LABEL(FNT_rojo,200,80,4,"<< LICENSE OF USE >>");
GUI_WRITE_LABEL(FNT_BLACK,25,90,0,"This software is free for not comercial use,does not offer");
GUI_WRITE_LABEL(FNT_BLACK,25,100,0,"any guarantee of functioning and I do not play the role");
GUI_WRITE_LABEL(FNT_BLACK,25,110,0,"myself responsable for the hurts suffered in the equipmment");
GUI_WRITE_LABEL(FNT_BLACK,25,120,0,"by his utilization.");
GUI_WRITE_LABEL(FNT_verde,25,135,0,"Anyhow thank you for using it.");
GUI_BUTTON(150,178,-1,-1,"ACEPT","INICIAR",FNT_MAGENTA);
GUI_BUTTON(240,178,-1,-1,"<< EXIT >>","CANCEL",FNT_BLACK);
LOOP
IF(MSG_=="CANCEL")exit(0,0);END
IF(MSG_=="INICIAR")MAIN_FRAME();GUI_QUIT_FORM();END
MSG_=0; // A CADA FRAME RESETEO EL MENSAJE..
FRAME;
END
END
PROCESS MAIN_FRAME();
BEGIN
INFORMATION_BAR(1,1);
MAIN_TOOLBAR(1,500); // LLAMO A LA BARRA PRINCIPAL, Y ESTA LLAMA AL RESTO.. ES POR LOS PRIORITY.. HAY QUE ARREGLARLO..
LOOP
FRAME;
END
END
PROCESS MAIN_TOOLBAR(X,Y);
PRIVATE
INT T5; // ID DEL TEXTO DEL SYSTEM_MESSAGE..
BEGIN
GRAPH = GUI_CREATE_FORM(800,100);
GUI_SET_TITLE("MAIN TOOLBAR",FNT_AMARILLO);
GUI_DRAW_FORM(200,7,400,12,1);
GUI_WRITE_LABEL(FNT_AZUL,210,10,0,"SYSTEM MESSAGE:");
T5=WRITE(FNT_BLACK,X+305,Y+10,0, SYSTEM_MESSAGE);LOCK_TEXT(T5);
GUI_TILED_BUTTON(50,60,60,60,F_MAIN,50,"CHANGE_VIDEO_MODE");
GUI_BUTTON(200,60,50,40,"C_POINT",".",FNT_AZUL);
GUI_TILED_BUTTON(260,60,50,40,F_MAIN,16,".");
GUI_TILED_BUTTON(320,60,50,40,F_MAIN,13,".");
GUI_TILED_BUTTON(380,60,50,40,F_MAIN,14,".");
GUI_TILED_BUTTON(440,60,50,40,F_MAIN,11,".");
GUI_TILED_BUTTON(500,60,50,40,F_MAIN,51,".");
GUI_TILED_BUTTON(560,60,50,40,F_MAIN,12,".");
GUI_TILED_BUTTON(620,60,50,40,F_MAIN,15,"OPEN_FILE_");
LOOP
MOVE_TEXT(T5,X+305,Y+10);
SET_TEXT_Z(T5,Z-1);
IF(MSG_=="OPEN_FILE_" && WINDOW_OPEN_FILE==FALSE)OPEN_FILE(180,160,FATHER);END
IF(MSG_=="CHANGE_VIDEO_MODE" && MODE_FULLSCREEN_==FALSE)MODE_FULLSCREEN_=TRUE;CHANGE_MODE(2);MSG_=0;SYSTEM_MESSAGE="VIDEO MODE AS CHANGED, NOW ARE IN FULLSCREEN.";END
IF(MSG_=="CHANGE_VIDEO_MODE" && MODE_FULLSCREEN_==TRUE)MODE_FULLSCREEN_=FALSE;CHANGE_MODE(1);MSG_=0;SYSTEM_MESSAGE="VIDEO MODE AS CHANGED, NOW ARE IN MODE_WINDOW.";END
MSG_=0;
FRAME;
END
END
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
PROCESS INFORMATION_BAR(X,Y);
PRIVATE
INT T1,T2; // PARA MOSTRAR LAS COORDENADAS DEL MOUSE EN SCREEN.
INT T3,T4; // PARA MOSTRAR LAS COORDENADAS DEL MOUSE SOBRE EL GRAFICO A EDITAR
BEGIN
GRAPH = GUI_CREATE_FORM(110,499);
GUI_SET_TITLE("INFORMATION",FNT_AMARILLO);
GUI_DRAW_FORM(6,30,96,30,0);
GUI_DRAW_FORM(6,46,96,14,1);
GUI_WRITE_LABEL(FNT_BLACK,12,35,0,"SELECTED COLOR");
GUI_DRAW_FORM(6,70,96,30,0);
GUI_DRAW_FORM(6,86,96,14,1);
GUI_WRITE_LABEL(FNT_BLACK,12,75,0,"NEW.PAL. COLOR");
GUI_DRAW_FORM(6,120,96,30,0);
GUI_DRAW_FORM(6,135,96,14,0);
GUI_DRAW_FORM(6,150,96,14,0);
GUI_WRITE_LABEL(FNT_BLACK,12,125,0,"GRAPHIC INFORM");
GUI_WRITE_LABEL(FNT_BLACK,12,139,0,"WHG _>");
GUI_WRITE_LABEL(FNT_BLACK,12,154,0,"HIG _>");
GUI_DRAW_FORM(6,180,96,30,0);
GUI_DRAW_FORM(6,196,96,14,1);
GUI_WRITE_LABEL(FNT_BLACK,12,185,0,"MOUSE X/Y SCR");
GUI_WRITE_LABEL(FNT_MAGENTA,12,200,0,"X:");
GUI_WRITE_LABEL(FNT_MAGENTA,62,200,0,"Y:");
T1=WRITE_INT(FNT_AZUL,X+25,Y+200,0,&MOUSE.X);LOCK_TEXT(T1);
T2=WRITE_INT(FNT_AZUL,X+75,Y+200,0,&MOUSE.Y);LOCK_TEXT(T2);
GUI_DRAW_FORM(6,230,96,15,0);
GUI_WRITE_LABEL(FNT_BLACK,10,235,0,"LAST EXP.SPRITE");
GUI_DRAW_FORM(6,245,96,15,1);
GUI_WRITE_LABEL(FNT_AZUL,12,249,0,"FILE:");
GUI_DRAW_FORM(6,260,96,15,1);
GUI_WRITE_LABEL(FNT_BLACK,12,264,0,"X0: Y0:");
GUI_DRAW_FORM(6,275,96,15,1);
GUI_WRITE_LABEL(FNT_BLACK,12,279,0,"X1: Y1:");
GUI_DRAW_FORM(6,290,96,15,1);
GUI_WRITE_LABEL(FNT_BLACK,12,294,0,"WH_ HG_");
GUI_DRAW_FORM(6,320,96,30,0);
GUI_DRAW_FORM(6,336,96,14,1);
GUI_WRITE_LABEL(FNT_BLACK,12,325,0,"MOUSE ON GRAPH");
GUI_WRITE_LABEL(FNT_MAGENTA,12,340,0,"X:");
GUI_WRITE_LABEL(FNT_MAGENTA,62,340,0,"Y:");
T3=WRITE_INT(FNT_AZUL,X+25,Y+340,0,&MOUSE.X);LOCK_TEXT(T3);
T4=WRITE_INT(FNT_AZUL,X+75,Y+340,0,&MOUSE.Y);LOCK_TEXT(T4);
LOOP
MOVE_TEXT(T1,X+25,Y+200);
MOVE_TEXT(T2,X+75,Y+200);
MOVE_TEXT(T3,X+25,Y+340);
MOVE_TEXT(T4,X+75,Y+340);
set_text_z(T1,Z-1);
SET_TEXT_Z(T2,Z-1);
SET_TEXT_Z(T3,Z-1);
SET_TEXT_Z(T4,Z-1);
FRAME;
END
END[/Codebox]