Такая проблема: этот код работает на телефоне со скоростью в 1 фпс. Можно ли как-то его ускорить?
procedure painter;
var temp:integer;
begin
for y:=0 to 319 do for x:=1 to 239 do
begin
temp:=canvas[y,240-x];
if temp=0 then setcolor(0,0,0);
if (temp>=101) and (temp<=130) then setcolor(colors[temp-100,1],colors[temp-100,2],colors[temp-100,3]);
if (temp>=201) and (temp<=230) then setcolor((colors[temp-200,1] div 3)*2,(colors[temp-200,2] div 3)*2,(colors[temp-200,3] div 3)*2);
if (temp>=301) and (temp<=330) then setcolor((colors[temp-300,1] div 2),(colors[temp-300,2] div 2),(colors[temp-300,3] div 2));
if (temp>=401) and (temp<=430) then setcolor((colors[temp-400,1] div 3),(colors[temp-400,2] div 3),(colors[temp-400,3] div 3));
if (temp>=501) and (temp<=530) then setcolor((colors[temp-500,1] div 4),(colors[temp-500,2] div 4),(colors[temp-500,3] div 4));
plot (x,y);
end;
repaint;
end;