OpenGL и Delphi на практике
Категория реферата: Рефераты по информатике, программированию
Теги реферата: урок изложение, конспект урока 3
Добавил(а) на сайт: Кувшинов.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
light_emission:array[0..3] of glfloat = (1.0,1.0,1.0,1.0);
light_spotdirection:array[0..3] of glfloat = (1.0,1.0,1.0,1.0);
begin
wglMakeCurrent(0,0);
wglDeleteContext(RC);
ReleaseDC(H,DC);
DC:=GetDC(H);
SetDCPixelFormat(DC);
RC:=wglCreateContext(DC);
wglMakeCurrent(DC,RC);
glClearColor(0.6,0.6,0.6,0.0);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
glFrustum(-1,1,-1,1,2,20);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
glTranslatef(0.0,-1.0,-6.0);
glLightModel(GL_LIGHT_MODEL_LOCAL_VIEWER,Ord(True));
glLightModelfv(GL_LIGHT_MODEL_AMBIENT,@lm);
glLightfv(GL_LIGHT0,GL_AMBIENT,@light_ambient);
glLightfv(GL_LIGHT0,GL_DIFFUSE,@light_diffuse);
glLightfv(GL_LIGHT0,GL_SPECULAR,@light_specular);
glLightfv(GL_LIGHT0,GL_POSITION,@light_position);
glLightf(GL_LIGHT0,GL_SPOT_EXPONENT,8);
glLightf(GL_LIGHT0,GL_SPOT_CUTOFF,170);
Рекомендуем скачать другие рефераты по теме: реферат сила, культурология как наука.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата