Пасибо, теперь буду крутые заставки писать
__________________
Ан нет, блин, почему-то функция set_pixeln не работает. Чёрный экран. При этом set_pixel работает.
На К-эмуляторе проходит несколько циклов, и он виснет
Похоже, память забивается картинками
На мобиле 6 FPS
Но признаков засорения памяти не видно. Наоборот, FPS постепенно поднимается с 6 до 8. Наверно, разгоняется процессор. Телефон SE Naite (J105i), и, вообще-то, многие приложения работают на нём быстрее, чем на аналогах.
Ну-ка, знатоки, внимание, вопрос: очищается ли память после отрисовки вот такой командой?
drawimage(argb_to_image(240,320),0,0);
__________________
Исходник
program ScreenTest;
uses argb_240;
var x,y,n,t,t0,t1: integer;
var r,g,b: integer;
var img: image;
var empty: image;
begin
t:=0;
setcolor(0,0,0);
repeat
t:=t+3;
n:=0;
for y:=0 to 319 do begin
for x:=0 to 239 do begin
r:=(y*2+x-t) and 255;
g:=(x*2-y-t) and 255;
b:=(x*2+y+t) and 255;
set_pixel((r*256+g)*256+b,x,y);
end;
end;
//img:=;
drawimage(argb_to_image(240,320),0,0);
//img:=empty;
t0:=t1;
t1:=getRelativeTimeMs;
drawtext(integerToString(1000/(t1-t0))+' FPS',0,0);
repaint;
until getKeyPressed<>ke_none;
end.
Если в jad дописать строчку "SEMC-StandbyApplication: Y", получится программа-заставка. FPS 1-2
__________________
Как же всё-таки эти программеры написали Дум и Бункер...