Форум программистов, компьютерный форум, киберфорум
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
MineralII
1

Свет в OpenGL. Не выводится изображение на экран.

03.10.2010, 22:41. Показов 1418. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Пользуюсь модулем dglopengl.pas. Пытаюсь создать имитацию света, рисуя изображение, прикреплённое к теме. Не знаю почему, но оно не рисуется так, как должно. Подскажите пожалуйста. Спасибо.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
  glClearColor(1, 1, 1, 1);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  //================
  glEnable(GL_TEXTURE_2D);
  glEnable(GL_BLEND);
  
  glColor3f(1-LightLevel, 1-LightLevel, 1-LightLevel);
 
  case LightFlag of
    0:  begin
          Inc(DayTime);
          if DayTime = 48 then LightFlag := 1;
        end;
    1:  begin
          LightLevel := LightLevel + 0.005;
          if LightLevel >= 1 then LightFlag := 2;
        end;
    2:  begin
          Dec(DayTime);
          if DayTime = 0 then LightFlag := 3;
        end;
    3:  begin
          LightLevel := LightLevel - 0.005;
          if LightLevel <= 0 then LightFlag := 0;
        end;
  end;      
 
  cX := CameraX div PointSize;
  cY := CameraY div PointSize;
 
  for i := cX to cX + SEE_AREA_X do
    for j := cY to cY + SEE_AREA_Y do begin
      if Matrix[i,j].tGround <> -1 then
        DrawImage(-CameraX + i * PointSize, -CameraY + j * PointSize, PointSize,
        PointSize, GroundLib[Matrix[i,j].tGround]);
    end;
 
  glColor3f(0.7, 0.7, 0.7);
  DrawImage(100, 100, 300, 300, Light);
 
  glDisable(GL_BLEND);
  glDisable(GL_TEXTURE_2D);
  //================
  glColor3f(LightLevel, LightLevel, LightLevel);
  glBegin(GL_LINES);
  for i := 0 to SEE_AREA_X do
    for j := 0 to SEE_AREA_Y do begin
      glVertex2f(i * PointSize, 0);
      glVertex2f(i * PointSize, STANDART_HEIGHT);
      glVertex2f(0, j * PointSize);
      glVertex2f(STANDART_WIDTH, j*PointSize);
    end;
  glEnd;
  //===============
 
  SwapBuffers(MainDC);
Изображения
 
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.10.2010, 22:41
Ответы с готовыми решениями:

Не выводится изображение на экран
Приветствую! Я недавно начал изучать XNA, код пишу в MV S# Express,использую XNA 4.0. Пишу по...

Не выводится изображение на экран
Решил я проапгрейдить свой комп, купил материнку с процом по мощнее предыдущих, все соединил,...

Не выводится изображение на экран ноутбука
Здравствуйте. Попробовал поставить линух на свежекупленный ноут, и обнаружил, что изображение не...

Включаю компьютер, изображение на экран не выводится.
проблема такая. Включаю комп, изображение на экрн не выводтся. проверил модули ОЗУ. с ними вроде...

1
15 / 15 / 3
Регистрация: 19.10.2010
Сообщений: 82
19.10.2010, 18:32 2
А как оно должно? Описание, пример... Не могу подсказать как решить, незная что нужно получить.
0
19.10.2010, 18:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.10.2010, 18:32
Помогаю со студенческими работами здесь

Не выводится изображение на экран,спикер молчит
При подключении мат. платы к блоку питания,видеокарты (пробовал gt 8500 и встроенную),оперативы ,на...

Не пищит спикер, не выводится изображение на экран
Всем привет. Недавно у меня пробило vrm на МП, отнес в СЦ, купил новую. В СЦ сказали, что у камня...

Ноутбук K55VJ на экран выводится изображение только после загрузки системы
В чём может быть причина того, что в момент включения ноутбука на экране ничего не отображается до...

Не выводится изображение на экран и не пищит спикер при вставленной видеокарте, а со встроенной - запускается
Здравствуйте. Случилось это днём... Я сидел за компьютером и смотрел видео про котиков. Как...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru