Уменьшение загрузки ЦП и увеличение скорости программы.

[Beermonza]

Сообщение от Shadow_1329

Это прям так и написать? вместо Buf.Canvas.Draw(gx,gy,FullMap) писать это? Щас попробую.

Ну естественно, так и пиши.

[Shadow_1329]

Ошибка [Error] Unit1.pas(608): Inline assembler syntax error в @@mix:
movq xmm0, [esi] // FullMap -> в регистр
movq [edx], xmm0 // Buf <- из регистра в этих строках

[Beermonza]

Ты все подготовки проделал, прежде чем использовать ассемблерную вставку? ...что у тебя указано вместо W и H?

[Shadow_1329]

Все что написал то и сделал. В 24 бита текстуры переводить?

[Shadow_1329]

Всесто w и h 800 и 600

[Beermonza]

Да, все текстуры в 24 бита, зачем нам лишние байты, если они не используются.

[Shadow_1329]

If UpdateTerr=true then
Begin
For MMH := MapUp to MapDown do
begin
For MMW := MapLeft to MapRight do
Begin
If map[MMW, MMH] = 1 then BitBlt(FullMap.Canvas.Handle,(MMW-MapLeft)*100,(MMH-MapUp)*100,100,100,Grass.Canvas.Han dle,0,0,SrcCopy);
end;
end;
UpdateTerr:=false;
end;

asm
push esi
push edx

mov ecx, BufLengthDiv
mov esi, FullMapPointer
mov edx, BufPointer

@@mix:
movq xmm0, [esi] // FullMap -> в регистр
movq [edx], xmm0 // Buf <- из регистра

add esi, 8
add edx, 8

loop @@mix

pop edx
pop esi

emms
end;
вот как я записал прорисовку. Может что не так?

[Beermonza]

Delphi не хочет компилировать, и подчеркивает строку? ...или не работает после запуска?

[Shadow_1329]

Delphi не хочет компилить.А так все правильно написано?

[Beermonza]

Да, написано все верно, у меня все это работает с твоим старым кодом. Если ты все переменные создал и задал их, то вопросов Delphi задавать не будет, ...внимательно проверь каждую строчку что я показал, проверь переменные.