tepesi
06/07/2007, 01:08
Hola.
Siguiendo un tutorial de Fenix he probado hoy a ejecutar algo en la GP2X, asi que me he bajado el port de fenix para esta consola y he hecho algo muy sencillito para que aparezca en pantalla una navecita y se mueva de izquierda a derecha. Pero cuando lo ejecuto la pantalla se pone en negro y no arranca. En mi Debian funciona a la perfección.
¿Alguna idea? Este es el código fuente:
// primer intento de portar algo a la gp2x
program ejemplo;
global
graficos;
begin
set_fps(60,10);
graph_mode=mode_16bits;
set_mode(m360x240);
graficos=load_fpg("prueba.fpg");
put_screen(graficos,1);
nave();
loop
if(key(_space))break; end
frame;
end
unload_fpg(graficos);
let_me_alone();
end // programa ejemplo
// inicio del proceso nave
Process nave ()
Begin
Graph=2;
X=160;
Y=220;
Loop
If (key(_left)) x=x-4; end
If (key(_right)) x=x+4; end
If (x>300) x=300; end
If (x<20) x=20; end
Frame;
end
end
Siguiendo un tutorial de Fenix he probado hoy a ejecutar algo en la GP2X, asi que me he bajado el port de fenix para esta consola y he hecho algo muy sencillito para que aparezca en pantalla una navecita y se mueva de izquierda a derecha. Pero cuando lo ejecuto la pantalla se pone en negro y no arranca. En mi Debian funciona a la perfección.
¿Alguna idea? Este es el código fuente:
// primer intento de portar algo a la gp2x
program ejemplo;
global
graficos;
begin
set_fps(60,10);
graph_mode=mode_16bits;
set_mode(m360x240);
graficos=load_fpg("prueba.fpg");
put_screen(graficos,1);
nave();
loop
if(key(_space))break; end
frame;
end
unload_fpg(graficos);
let_me_alone();
end // programa ejemplo
// inicio del proceso nave
Process nave ()
Begin
Graph=2;
X=160;
Y=220;
Loop
If (key(_left)) x=x-4; end
If (key(_right)) x=x+4; end
If (x>300) x=300; end
If (x<20) x=20; end
Frame;
end
end