Есть вопрос!

[ne4aJIb]

Всем привет!

У меня такая задача стоит. Видеокамера снимает события, происходящие с какой-то частотой. Причем между событиями она не работает. То есть просто работает как фотоаппарат, снимающий кадры. И тут проблема такая. Мне надо снимать около 5000 кадров. Рисунки эти большие. Камера записывает все эти кадры на диск в формате bmp или tif по выбору! А они все мне нужны по сути. Мне надо только один просуммированный, то есть тот рисунок, полученный как сумма всех накоплений.

Есть для этого какая-нибудь программа? Если нет, то на как написать?

[Лубышев]

Не совсем понял, но как насчет того, чтобы просто переводить в jpg и немного уменьшить картинки? это же легко можно поставить на поток.
Тем более что код о переводе из bmp в jpg на форуме постоянно светится

[eoln]

По-моему надо наложить эти картинки друг на друга, только неясно по какому принципу должны суммироваться по амплитуде или по интенсивности (найти что-то среднее между 5000 изображениями или как в телескопах усилить изображение). Например так можно "складывать" изображения из bm1 и bm2 в bm.

var
  bm, bm1, bm2: TBitMap;
  p1, p2, p: PByteArray;
  y, x: integer;
...
for y := 0 to bm1.Height - 1 do
begin
 p := bm.ScanLine[y];
 p1 := bm1.ScanLine[y];
 p2 := bm2.ScanLine[y];
 for x := 0 to bm.Width * 3 - 1 do
  p^[x] := round((p1^[x] + p2^[x])/2); //какая-то операция с p1^[x] и p2^[x]
end;

Если файлов несколько, то лучше складывать по парам - получим 2500 изображений, затем ещё раз по парам - получим 1250, потом получим уже 625 пар, затем 312 пар + 1 без пары и т.д.

[Alter]

может как мозайку сделать, плиткой в одну большую превратить все фотографии. я понятно изъясняюсь?

[Sibedir]

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

Рисунки эти большие.

Скажи, а насколько они большие. Их разрешение. Скока на скока пикселов.

[ne4aJIb]

Прошу прощения у форумчан за отсутствие. Был в отъезде. Но эта проблема ещё стоит у меня поперек горла.

Рисунки размером, примерно, 1000*1000 пикселей. Складывать надо по интенсивности (не знаю как связать с цветом). Сейчас у меня стоит проблема в выборе языка, в котором это будет проще всего реализовать, но при этом скорость складывания должна быть высокой. Знакомый предлагал Visual С++ MFC. Но я в этом ООП не шарю (классы и все такое). С алгоритмом у меня тоже проблема. Все же мне не верится,что программы для этого не существуют. Или я не прав?

[Sibedir]

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

p^[x] := round((p1^[x] + p2^[x])/2);

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

[Sibedir]

Вот, что получилось
Усреднение картинки.zip
Скорость при таком методе, конечно же, оставляет желать лучшего.

[ne4aJIb]

Спасибо Sibedir за программу. А что за язык?

[Sibedir]

А что за язык?

Delphi 7 .