Вниз
Скачать: CL | DM;

OpenGL   Найти похожие ветки 

← →
X-RayMan   (2004-09-29 22:53) [0]

Привет олл!

У меня есть вопрос по сабжу. Есть анимация вращающейся Земли (Краснов. OpenGL графика в проектах Delphi. Глава 4, пример 89). По идее точки с преобладанием синего цвета должны быть полупрозрачными. Флаги в описании формата пиксела: pfd_SUPPORT_OpenGL or pfd_Draw_To_Window. Если к этому добавить or pfd_DoubleBuffer - анимация идет нормально, но точки не прозрачные. Если еще добавить or pfd_SUPPORT_GDI, то точки прозрачны, но анимация мигает.
Может кто знает, что надо сделать, чтобы и не мигало и было прозрачным. Заранее спасибо...

P.S. Пример можно скачать на http://d3dengine.narod.ru/books.html. Там есть ссылка - скачать дискету к книге.


← →
X-RayMan   (2004-09-30 00:23) [1]

Что-то я свое мыло в прошлой мессаге не правильно написал...


← →
WondeRu ©   (2004-09-30 09:50) [2]

?не  знай? у меня вообще прозрачности нет при любых флагах! еще совет: переделай процедуру инициализации - работать быстрее будет.
procedure TfrmGL.Init;
const
LightPos : Array [0..3] of GLFloat = (10.0, 10.0, 0.0, 1.0);
var
Quadric : GLUquadricObj;
begin
Quadric := gluNewQuadric;
gluQuadricTexture (Quadric, TRUE);

glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);

glEnable(GL_TEXTURE_2D);

glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
prepareImage ("earth.bmp");//вынес из дисплейного списка

glNewList (Earth, GL_COMPILE);
   glEnable (GL_BLEND);
   glEnable(GL_CULL_FACE);
   glCullFace(GL_FRONT);
   gluSphere (Quadric, 1.0, 24, 24);
   glCullFace(GL_BACK);
   gluSphere (Quadric, 1.0, 24, 24);
   glDisable(GL_CULL_FACE);
   glDisable (GL_BLEND);
glEndList;

gluDeleteQuadric (Quadric);

glEnable(GL_DEPTH_TEST);
end;



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.977 c
9-1093428278
XeNoN
2004-08-25 14:04
2004.12.26
Люди подскажите


8-1096355911
X-Disa
2004-09-28 11:18
2004.12.26
Печать изображений


1-1102143951
Viktop
2004-12-04 10:05
2004.12.26
Перемещение с PageControl на Frame2


4-1100421549
DeepProg
2004-11-14 11:39
2004.12.26
Вызвать контекстное меню Windows Explorer для файла/папки


9-1093282124
Creep
2004-08-23 21:28
2004.12.26
Как ввести в игру свой шрифт? Стандартными средствами Delphi7.




   Наверх