Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2015, 21:02   #1
Atherakhia
 
Регистрация: 12.12.2014
Сообщений: 8
По умолчанию OpenGL (Lazarus)

Здравствуйте! Задание нарисовать фигуру с помощью OpenGL. Фигуру я сделал, но при попытке изменить её цвет, полукруг окрашивается не полностью. Прошу помочь разобраться, в чём дело

Код, по которому рисуется полукруг
Код:
glBegin(GL_POLYGON);
  r:=0.5;
  for i:= 180 to 360 do
        begin
        glEdgeFlag(GL_TRUE);
        glVertex2f((r*sin(((2*3.14)/360)*i)-0.4), (r*cos(((2*3.14)/360)*i)));
        glColor3f(red(clr)/255, green(clr)/255, blue(clr)/255);
        glEdgeFlag(GL_FALSE);
        end;
  glEnd;
Изображения
Тип файла: png Снимок.PNG (11.3 Кб, 69 просмотров)
Atherakhia вне форума Ответить с цитированием
Старый 08.05.2015, 17:09   #2
sem6703
 
Регистрация: 06.05.2015
Сообщений: 9
По умолчанию

Поменяйте местами эти две строки. В противном случае первая точка рисуется левым цветом.

Код:
glVertex2f((r*sin(((2*3.14)/360)*i)-0.4), (r*cos(((2*3.14)/360)*i)));
glColor3f(red(clr)/255, green(clr)/255, blue(clr)/255);

Последний раз редактировалось Stilet; 08.05.2015 в 17:47.
sem6703 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Lazarus SnS Lazarus, Free Pascal, CodeTyphon 9 21.11.2013 21:05
Lazarus SnS Помощь студентам 0 07.10.2013 22:40
Qt+OpenGL. Qt "не видит" функции OpenGL EnterFix Qt и кроссплатформенное программирование С/С++ 4 29.01.2013 18:59
Перекомпиляция программы(простой) Win Lazarus в Linux Lazarus Toxifer Фриланс 0 27.11.2012 22:46
Lazarus... Сristina Помощь студентам 1 28.03.2011 20:03