Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Технологии программирования > Программирование графики
Перезагрузить страницу Платная консультация по OpenGL glReadPixels
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
victor1963 victor1963 вне форума
Member
 
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.01.2012
По умолчанию Платная консультация по OpenGL glReadPixels - 10.03.2012, 18:33

Как перебрать каждый пиксель по цвету в glReadPixels, что-бы использовать всю, ниже показанною, логику в glReadPixels или есть что-то другое покажите. Желательно в Delphi.


l:=0;
k1:count:=0;
k2:x:=500;
y:=300;
m:=0;
ang:=6.28218;
for r:=102 downto {93}1 do
begin
c:=bmCanvas.Pixels[round(x+r*cos(6.28318)),round(y+r*sin(6.28318))];
if c=clBlack then
begin
m:=r;
bmCanvas.Pixels[round(x+r*cos(6.28318)),round(y+r*sin(6.28318))]:=clWhite;
end;
end;
While ang>(0.01) do
begin
for r:={50}1 to 105 do
begin
c:=bmCanvas.Pixels[round(x+r*cos(ang)),round(y+r*sin(ang))];
if c=clBlack then
begin
bmCanvasPixels[round(x+r*cos(ang+0.01)),round(y+r*sin(ang+0.01))]:=clBlack;
bmCanvasPixels[round(x+r*cos(ang)),round(y+r*sin(ang))]:=clWhite;
end;
end;
ang:=ang-{0.01}0.0001;
end;
bmCanvasPixels[round(x+m*cos(6.28318+0.01)),round(y+m*sin(6.28318 +0.01))]:=clBlack;//Установка первой точки по час.
begin
for x:=605 downto {593}501 do
begin
c:=mas1[x,300];
if (c=clBlack) and (x>=l) then
begin
l:=x;
goto k1;
end;
end;
count:=count+1;
if count<5 then
begin
goto k2;
end
else
begin
goto k3;
end;
end;
k3:count1:=0;
ListBox1.Items.Add('Финиш');
OperEnd:=DateTimeToTimeStamp(Now);
Total:=OperEnd.Time-OperBegin.Time;
ListBox1.Items.Add(IntToStr(Total)+' MSec');
bm.SaveToFile('c:\Program Files\Borland\Delphi6\Projects\FormImage.bmp');

end;
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна консультация по VB 6.0 THORR Visual Basic 5 15.04.2012 17:58
Консультация по ОЗУ ancord Память 7 30.03.2012 16:59
Консультация по апгрейду. igorkivi Апгрейд 1 04.12.2011 08:18
Необходима консультация по апгрейду. Ripley Апгрейд 1 26.11.2011 05:00
Консультация по matlab. maggg Работа 0 28.05.2011 20:29
Нужна помощь\консультация !!! RRomang Любые вопросы от новичков 0 23.10.2010 03:34
Нужна ли платная программа для работы с роутером trendnet432 ? Morchima Любые вопросы от новичков 18 29.03.2010 16:05
Консультация по комплектующим mutobor Память 3 20.03.2009 14:51
Нужна консультация. Userina Подбор комплектующих 14 27.08.2008 15:48
платная доска объявлений - что это? мася Софт и программы 1 04.05.2007 02:16
Нужна платная помощь: считывание из СОМ-порта. VC++ AleMiS Работа 4 13.07.2005 21:00
Нужна платная помощь AleMiS Работа 0 08.07.2005 11:40



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов