Фото звездного неба веб камерой.

[Vomifor]

Мне не нужны звезды - это в качестве примера. Я не могу склеить в один кадр видеопоток с веб-камеры. Сделать программную имитацию светографики.

[NetSpace]

тебе нужен алгоритм наложения одного кадра на другой, чтоб светлые участки накладывались, а тёмные отсекались?

[WinCoder]

Ну да. Как я понял, затык в том, что человек накладывает новые кадры поверх старых, тем самым уничтожая предыдущую информацию вместо того, что суммировать пиксели.

[Аватар]

тебе нужен алгоритм наложения одного кадра на другой

Ему ботаны нужны

Одним словом - "ботаны"

[Vomifor]

Да. Я не прошу готовый код - направление куда "копать". Есть ли стандартные процедуры, функции и пр. в Делфи? Понимаю, что надо работать с пикселами.

[WinCoder]

Vomifor Ответы в теме уже должны были дать ответ "куда копать". Неужели не дали?

[NetSpace]

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

 r:=0;
   g:=0;
   b:=0;
   //считаем cредние показатели RGB в квадрате размером rz
   for p:=k1 to k1+rz-1 do for q:=k2 to k2+rz-1 do
   begin
      r:=r+GetRValue(MyBmp.Canvas.Pixels[p,q]);
      g:=g+GetGValue(MyBmp.Canvas.Pixels[p,q]);
      b:=b+GetBValue(MyBmp.Canvas.Pixels[p,q]);
   end;
   r:=Round(r/(rz*rz));//вот они, средние значения цветов
   g:=Round(g/(rz*rz));
   b:=Round(b/(rz*rz));
   //вот тут будем запоминать всё светлые пиксели, напоминающие звёзды
   for p:=k1 to k1+rz-1 do for q:=k2 to k2+rz-1 do
   if(r+sv<GetRValue(MyBmp.Canvas.Pixels[p,q]))and(g+sv<GetGValue(MyBmp.Canvas.Pixels[p,q]))
   and(b+sv<GetBValue(MyBmp.Canvas.Pixels[p,q]))then
   begin
      rs[p,q]:=GetRValue(MyBmp.Canvas.Pixels[p,q]);
      gs[p,q]:=GetGValue(MyBmp.Canvas.Pixels[p,q]);
      bs[p,q]:=GetBValue(MyBmp.Canvas.Pixels[p,q]);
   end;

но процессор грузится на 52-55% при такой детальной обработке фотографий

[WinCoder]

Чтоб не грузился процессор, увеличиваем задержку между кадрами. Да она собственно короткая и не нужна.

[NetSpace]

так это у меня уже отдельные кадры. а если перед этой процедурой ещё и разбор видео на отдельные кадры присобачить, а после этого ещё и сбор снова в цельное видео, то, думается, загрузка будет 100%...

[WinCoder]

Смотри. Допустим нам нужен 1 кадр в минуту. Раз в минуту запустили видеопоток, дёрнули с него кадр, наложили на заготовку. Всё. Ждём минуту с нулевой нагрузкой на ЦП.