VPF::OpenGl сглаживание полигонов - Форум программистов

stalkerok

Дата 1.12.2008, 17:42 (ссылка)

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

Загрузка ...

Шустрый

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

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

Добрый день хочу реализовать сглаживание с использованием GL_MULTISAMPLE_ARB

не используя

Код


 glHint(GL_POLYGON_SMOOTH_HINT, GL_NICEST);
 glEnable(GL_POLYGON_SMOOTH);
 glHint(GL_POINT_SMOOTH_HINT, GL_NICEST);
 glEnable(GL_POINT_SMOOTH);
 glHint(GL_LINE_SMOOTH_HINT, GL_NICEST);
 glEnable(GL_LINE_SMOOTH);

нашёл ветку изменил ARB_multisample.pas как написал Ak47black в последнем посте.
в коде у меня:

Код


procedure TForm1.SetDCPixelFormat(hdc: HDC; Antialisted: Boolean);
var
  pfd : TPixelFormatDescriptor;
  nPixelFormat : Integer;
begin
  FillChar (pfd, SizeOf (pfd), 0);
  pfd.dwFlags  := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
  if not Antialisted then
  begin
    nPixelFormat := ChoosePixelFormat (hdc, @pfd);
  end
  else
  begin
    InitMultisample(HInstance,Self.Handle,pfd);
    nPixelFormat := arbMultisampleFormat;
  end;
  SetPixelFormat (hdc, nPixelFormat, @pfd);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DC := GetDC(Handle);
  SetDCPixelFormat(DC, False);
  hrc := wglCreateContext(DC);
  wglMakeCurrent(DC, hrc);


  SetDCPixelFormat(DC, True);
  DC := GetDC(Handle);
  SetDCPixelFormat(DC, False);
  hrc := wglCreateContext(DC);
  wglMakeCurrent(DC, hrc);

а также в инициализации glEnable(GL_MULTISAMPLE_ARB);

Но сглаживания не происходит(хотя в примере если заменить исправленный ARB_multisample.pas всё нормально)... что я делаю не так?

Спасибо.

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