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

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

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.11.2013, 02:04   #1
Dendro
Новичок
Джуниор
 
Регистрация: 01.11.2013
Сообщений: 2
Печаль opengl 3d, проекция перспективы

Доброе время суток товарищи-программисты. Вот нашёл код создания шахматной доски. Но для работы с 3d, мне нужен такой вид как в программе ChessTitans. Если я правильно понял, такой вид называют перспективой проекции. Не могли бы вы подсказать как мне сделать такой вид в своей программе? Я пытался использовать процедуры glFrustrum, gluPerspective, но всё безуспешно. Ogl я начал изучать недавно,поэтому не шарю Посмотреть как выглядит моя программа и программа ChessTitans можно во вложениях.
Код:
procedure myPaint;
var i,j:integer;
 wglMakeCurrent(Canvas.Handle, hrc);
  glViewPort (0, 0, Width, Height); // область вывода
  glClearColor (0.5, 0.5, 0.75, 1.0); // цвет фона
  glClear (GL_COLOR_BUFFER_BIT or GL_DOUBLEBUFFER);     
 
   glMatrixMode (GL_PROJECTION);
    glLoadIdentity ();
    gluOrtho2D (0.0, 800.0, 0.0, 600.0);
   T.X:=199;
   T.Y:=99;
for i := 0 to 7 do
begin
  for j := 0 to 7 do
  begin
    if ((i+j)mod 2=0) then
    glColor3f(0,0,0)
    else glColor3f(1,1,1);
    	glRecti (T.x, T.y, T.x + 50, T.y + 50);
            T.x:= T.x+50;

  end;
  T.x := 199;
  T.y :=T.y+ 50;
end;
 SwapBuffers(Canvas.Handle);         // содержимое буфера - на экран
 wglMakeCurrent(0, 0);
 end;
Изображения
Тип файла: jpg 1.jpg (42.0 Кб, 123 просмотров)
Тип файла: jpg 2.jpg (104.7 Кб, 134 просмотров)
Dendro вне форума Ответить с цитированием
Старый 17.11.2013, 05:02   #2
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Курсач по OpenGL однокашнику пригодился). Шаманить надо с glPerspective.
Возможно, что я уже поздно, но лучше поздно, чем никогда.
Вложения
Тип файла: rar (ЗАНЯТО) пешка.rar (13.4 Кб, 14 просмотров)
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 17.11.2013, 23:20   #3
Dendro
Новичок
Джуниор
 
Регистрация: 01.11.2013
Сообщений: 2
По умолчанию

Я разобрался- хотя возникают другие проблемы. За исходник спасибо.
Dendro вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проекция точки на прямую AnDre_rus Общие вопросы C/C++ 4 25.08.2013 17:33
Проекция для bitmap sonmax Помощь студентам 0 24.08.2012 09:25
Диметрическая проекция Pascal Viwwna Помощь студентам 9 20.05.2012 18:25
Проекция Кавалье newStudent Помощь студентам 0 28.11.2010 19:32
Проекция Rectangle _-Re@l-_ Паскаль, Turbo Pascal, PascalABC.NET 8 09.09.2010 11:13