Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Глюк! [D7, WinXP]


WondeRu ©   (2003-11-04 11:23:00) 

Код работал нормально около 3 месяцев на 10 компах ежедневно:

procedure TAPolygon.DrawContour;
var i:integer;
begin
glColor3f(0,0,0);
glBegin(GL_LINE_STRIP);
for i:=0 to PolyX.Count-1 do
begin
glVertex2f(x2gl(polyX[i].x),y2gl(polyX[i].y));
end;
glVertex2f(x2gl(polyX[0].x),y2gl(polyX[0].y));
glend;
end;

но в один прекрасный((( день он начал ругаться AV"шниками,
прекращал только если комменитровал строки с glVertex2f.
Помогла только замена на код:

procedure TAPolygon.DrawContour;
var
i : Integer;
begin
glColor3f(0,0,0);
glBegin(GL_LINE_LOOP); <----замена

for i:=0 to PolyX.Count-1 do
glVertex2f(x2gl(polyX[i].x),y2gl(polyX[i].y));

glend;
end;

Не хотелось бы следующий раз попадать в такие вилы)))

Вопрос: Так чем же отличаются параметры GL_LINE_STRIP и GL_LINE_LOOP?


WondeRu   (2003-11-06 11:46:00) [1]

>willys © (04.11.03 14:49) [1]
Это я знаю, а чем отличается их реализация?


willys   (2003-11-04 14:49:00) [2]

GL_LINE_LOOP соединяет последнюю вершину с первой.


Наверх

Титульная страница Поиск, карта сайта Написать письмо