Как Вы относитесь к созданию игр на Delphi?

[Alexan-Dwer]

Beermonza, большое спасибо! Не знаю, почему надо задавать отрицательную высоту, но главное что код работает.

К сожалению, форум не дает повысить репутацию:

Вы должны добавить отзыв кому-то ещё, прежде чем сможете снова добавить его Beermonza

Поэтому я лично желаю Вам больших успехов, счастья и крепкого здоровья в Новом году.

[Beermonza]

Сообщение от Alexan-Dwer

Не знаю, почему надо задавать отрицательную высоту, но главное что код работает.

В оперативной памяти данные могут располагаться в разном направлении для облегчения и ускорения операций вычисления. В данном случае они расположены задом наперед. Некоторые структуры читают данные с реверсом, а некоторые читают как есть. Ты задаешь направление чтения в структуре самостоятельно.

[Alexan-Dwer]

Здравствуйте.

Загружаю кадры анимации персонажа в массив PByteArray, но почему-то некоторые кадры не загружаются.
Сделал упрощенную версию процедуры загрузки, однако это-то тоже не помогло.

Прошу более опытных программистов сказать, что я делаю не так.

1) Пример упрощенного кода:

...

var
  Frames: array of PByteArray;

...

procedure LoadFrames;
var
bmp: TBitmap; Info: TBitmapInfo; i: Byte;
begin

bmp:=TBitmap.Create;

with Info.bmiHeader do
  begin
biWidth:=96;
biHeight:=-96;
biSize:=SizeOf(TBITMAPINFOHEADER);
biCompression:=BI_RGB;
biBitCount:=24;
biPlanes:=1;
biSizeImage:=((biWidth * biBitCount+31) div 32) * biHeight * 4;
  end;

SetLength(Frames, 80);

for i:=0 to 79 do
  begin
GetMem(Frames[i], 96*96*3);

bmp.LoadFromFile('LoadImg.bmp');

GetDIBits(bmp.Canvas.Handle, bmp.Handle, 0, 96,
Frames[i], Info, DIB_RGB_COLORS);
  end;
end;

2) Что бы проверить правильность загрузки, я отрисовываю все кадры, через процедуру вывода в цикле от 0 до 79:

...

procedure DrawFrame(k: Byte);
var
i, j: Byte; R, G, B: Byte;
begin
for i:=0 to 95 do
for j:=0 to 95 do
  begin
R:=Frames[k]^[i*96*3+j*3+2];
G:=Frames[k]^[i*96*3+j*3+1];
B:=Frames[k]^[i*96*3+j*3  ];

Form1.Image1.Canvas.Pixels[j, i]:=RGB(R, G, B);
  end;
end;

Почему-то у меня, на 74-ом кадре выводится черный фон, с какими-то разноцветными пикселями, хотя сам загружаемый кадр – белый.

Для пояснения, прикрепляю загружаемое изображение и результат вывода 74-го кадра.

[Beermonza]

Выходи на пикселы загруженного файла в двумерном цикле. Компоненты забери вот так:

R := GetRValue(bmp.Canvas.Pixels[x, y]);
G := GetGValue(bmp.Canvas.Pixels[x, y]);
B := GetBValue(bmp.Canvas.Pixels[x, y]);

[phomm]

Немного непонятно, почему Вы задействуете такие хитрые методы для простого выведения изображений на экран (хотя полагаю, в простой версии этого нет, но в "сложной" есть).
Несколько непонятно при этом ещё использование canvas.pixels (ну, опять же, предположу, что для теста).
Я бы всё же посоветовал использовать более надёжный TBitmap.ScanLine. Ну или почитать эту тему со страницы 40 где-то, там тотальные исследования скорости работы всего, чего можно поюзать на процессоре.

Вообще , немного внушают непоняток расчёты -96 используется как множитель, например (я бы abs брал ), в целом бы под отладкой прошёлся и сопоставил с пачкой примеров из сети. Сделал бы на сканлайне и сравнил - есть ли различия.

И вообще неплохо бы проектик архивчиком пощупать. Авось, глаз замылился, тоже не исключается ведь.

[Alexan-Dwer]

Beermonza, phomm, спасибо за ответы. Извините, что оставил столько вопросов.

И так, код, который я хочу отладить, используется в игре.
Раньше я пользовался Canvas, но потом перешел на массив пикселей. В результате скорость повысилась где-то в два раза.
Сейчас у меня процессор загружается под 40%, а в некоторых местах под 70, причем это с отсечением объектов, если они вне зоны видимости.
Для меня очень много, так как на уровне практически только 5 объектов.

Основная нагрузка, как показали тесты, это вывод графики, который работает так:

1. Загрузка всех объектов в индивидуальные PByteArray массивы при старте
2. Перебор объектов, которые в зоне видимости
3. Отрисовка (с учетом прозрачности) объектов, которые прошли тест, в буфер TRGBTriple
4. Вывод буфера в Bitmap через SetDIBits
5. Вывод Bitmap на форму через BitBlt

В основном коде, разумеется, ни каких Canvas и GetRValue нет.

Процедура отрисовки идет через два цикла (высота, ширина), путем присваивания пикселя массиву TRGBTriple соответствующего пикселя из PByteArray, взятому через формулу [i*h*3+j*3] со смещением по компоненту цвета и прозрачности (если она присутствует).

Понижение нагрузки в два раза очень радует, однако то, что некоторые картинки не загружаются, заставляют еще тщательнее отлаживать код, и искать ошибки.

В общем, проблема с непонятным черным квадратом и пикселями, которые как-то интересно располагаются, заставила меня упростить код. Но, это не помогло. Иногда этот черный квадрат появляется, чаще на 74-ом кадре, а иногда нет.

Вот только, почему такое происходит, я пока не смог понять

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

Вообще , немного внушают непоняток расчёты -96 используется как множитель, например (я бы abs брал ), в целом бы под отладкой прошёлся и сопоставил с пачкой примеров из сети

Плохо понял суть сообщения, не могли бы уточнить, что за -96? Если, это касается кода из прошлого моего сообщения, то он упрощен, поэтому там и GetDIBits и GetRValue перемешаны.
Если не трудно прошу скомпилировать и написать результат, так как есть вероятность, что черный квадрат только на моем компьютере выводится.

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

И вообще неплохо бы проектик архивчиком пощупать. Авось, глаз замылился, тоже не исключается ведь.

Проект очень объемный, поэтому если заливать сюда, то нужно резать. Я стараюсь вычленять сами участки, чтобы не вводить в заблуждение.

[Beermonza]

Сообщение от Alexan-Dwer

Понижение нагрузки в два раза очень радует, однако то, что некоторые картинки не загружаются, заставляют еще тщательнее отлаживать код, и искать ошибки.

Ошибки ты найдешь, но BMP-формат - это тупик. Альфа-канал понадобится очень скоро. Целесообразно уже сейчас перейти на PNG.

Вот тут забери библиотеку для работы с PNG: http://programmersforum.ru/showpost....&postcount=824

Во вложении пример вывода изображений, разберись с ним и примени для своего проекта.

[stalker1995s]

Сам, стараюсь не влезать в графику и физику. Но работаю с командой, и разрабатываю механику для движка. Кто сказал что на Delphi нельзя делать ? - "Да если руки от куда надо, все можно сделать, и кризис мизис ваш, и Сталкер..".

- Будут вопросы, обращайтесь.

[intmain]

Будут вопросы, обращайтесь.

Как сделать кризис3 на турбо паскале ?

[Beermonza]

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

Как сделать кризис3 на турбо паскале ?

Ну какой турбо паскаль? ...ты подумал прежде чем написать эту глупость?
Изучаешь Си, ну и изучай, только хомяком безбашенным не становись, ...промыли уже содержимое головы видать.

Delphi - Object Pascal, мощнейшая среда на ряду с Сями, так же можно использовать и OpenGL и DirectX, и под любые ОС. Глупый народ просто ищет готовое, а оно на С++ готовое, ничего знать не нужно. Кто на чем привык, на том и пишет. А если понятий о Delphi нет, то и занижать его возможности не следует.