[nil0q]

Пасибо, теперь буду крутые заставки писать
__________________
Ан нет, блин, почему-то функция 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
__________________
Как же всё-таки эти программеры написали Дум и Бункер...