OpenGL и Delphi на практике

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: урок изложение, конспект урока 3
| Добавил(а) на сайт: Кувшинов.

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);

Рекомендуем скачать другие рефераты по теме: реферат сила, культурология как наука.

Claw.ru | Рефераты по информатике, программированию | OpenGL и Delphi на практике