- 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