VPF::Закраска области в OpenGL - Форум программистов

jorka

Дата 14.3.2009, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 25.10.2008

Репутация: нет
Всего: нет

Вывожу на канву замкнутый контур примерно так:

Код


 glBegin(GL_Lines);
   for i := 0 to Length(amount) - 1 do
     glVertex3f(amount[0][i],amount[1][i],0);
 glEnd;

как закрасить внутренность этого контура?

Alexeis

Дата 14.3.2009, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

jorka, использовать полигон. Полигон можно закрашивать любым цветом.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

jorka

Дата 14.3.2009, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 25.10.2008

Репутация: нет
Всего: нет

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

Alexeis

Дата 14.3.2009, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Цитата(jorka @ 14.3.2009, 16:03

)

Я так понимаю он лишний раз точки соединяет

Это зависит от выставленных флагов. FloodFill нечего искать в OpenGL это неэффективный алгоритм. Дешевле несколько раз залить пересекающиеся полигоны, чем 1 раз залить результат их пересечения.

--------------------

jorka

Дата 14.3.2009, 17:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 25.10.2008

Репутация: нет
Всего: нет

И какой флаг Вы посоветуете?

Alexeis

Дата 14.3.2009, 22:23 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

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

--------------------

jorka

Дата 15.3.2009, 00:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 25.10.2008

Репутация: нет
Всего: нет

не нашел у себя в коде ни STRIPED ни FloodFill

Alexeis

Дата 15.3.2009, 01:44 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

jorka, FloodFill это алгоритм заливки из GDI, которого нет в OpenGL. А так нужно смотреть код. Чего сказать... Должно закрашиваться правильно, если вершины указаны правильно.

--------------------

jorka

Дата 15.3.2009, 19:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 25.10.2008

Репутация: нет
Всего: нет

к примеру надо вывести на экран букву Г, вот координаты точек:

0 0
0 4
3 4
3 3
1 3
1 0

как и в каком порядке мне выводить точки?

Alexeis

Дата 15.3.2009, 21:30 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

А все, понял GL_POLYGON умеет рисовать только выпуклые многоугольники, поэтому букву "Г" нужно рисовать двумя кусками. Вот так.

Код


procedure TfrmGL.FormPaint(Sender: TObject);
begin
 wglMakeCurrent(Canvas.Handle, hrc);

 glViewPort (0, 0, ClientWidth, ClientHeight);

 glClearColor (0.75, 0.75, 0.75, 1.0);
 glClear (GL_COLOR_BUFFER_BIT);

 glColor3f (0.0, 0.0, 0.75);

 glBegin (GL_POLYGON);
   glVertex2f (0, 0);
   glVertex2f (0, 4 / 10);
   glVertex2f (1 / 10, 4 / 10);
   glVertex2f (1 / 10, 0);
 glEnd;

 glBegin (GL_POLYGON);
   glVertex2f (1 / 10, 4 / 10);
   glVertex2f (3 / 10, 4 / 10);
   glVertex2f (3 / 10, 3 / 10);
   glVertex2f (1 / 10, 3 / 10);
 glEnd;

 SwapBuffers(Canvas.Handle);
 wglMakeCurrent(0, 0);
end;

{=======================================================================
Формат пикселя}
procedure SetDCPixelFormat (hdc : HDC);
var
 pfd : TPixelFormatDescriptor;
 nPixelFormat : Integer;
begin
 FillChar (pfd, SizeOf (pfd), 0);
 pfd.dwFlags  := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
 nPixelFormat := ChoosePixelFormat (hdc, @pfd);
 SetPixelFormat (hdc, nPixelFormat, @pfd);
end;

{=======================================================================
Создание формы}
procedure TfrmGL.FormCreate(Sender: TObject);
begin
 SetDCPixelFormat(Canvas.Handle);
 hrc := wglCreateContext(Canvas.Handle);
end;

{=======================================================================
Конец работы приложения}
procedure TfrmGL.FormDestroy(Sender: TObject);
begin
 wglDeleteContext(hrc);
end;

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »