PROGRAM stars;
IMPORT "stars.so";
PRIVATE
mapa1;
BEGIN
mapa1=load_map("..\stars\prueba.map");
graph=mapa1;
loop
x=320;
y=240:
set_mode(m640x480);
frame;
// parametros
// velocidad,direccion,numerodepuntos,modo,color
put_stars(16,8,800,1,255);
WHILE(scan_code!=32)
FRAME;
END
quit_stars();
frame;
WHILE (scan_code==32)
FRAME;
END
// parametros
// velocidad,direccion,numerodepuntos,modo,color
put_stars(4,0,800,1,255);
frame;
WHILE (scan_code==32)
FRAME;
END
quit_stars();
set_mode(m320x200);
frame;
x=160;
y=100:
graph=mapa1;
WHILE (scan_code==32)
FRAME;
END
// parametros
// velocidad,direccion,numerodepuntos,modo,color
put_stars(1,3,400,1,15);
WHILE (scan_code!=32)
FRAME;
END
quit_stars();
frame;
WHILE (scan_code==32)
FRAME;
END
end
END
|