Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

a:=25;

df:=10;

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

glColor(1.0,0.0,0.0,0.0);

glMaterialfv(GL_FRONT,GL_AMBIENT,@mat1_amb);

glMaterialfv(GL_FRONT,GL_DIFFUSE,@mat1_dif);

glMaterialfv(GL_FRONT,GL_SPECULAR,@mat1_spec);

glMaterialf(GL_FRONT,GL_SHININESS,mat1_shininess);

m:=-1;n:=1;dm:=0.5;

while m<=n do

begin

DrawElement(Sqrt(a-m*m),Sqrt(a-(m+dm)*(m+dm)),m/df,(m+dm)/df);

m:=m+dm;

end;

DrawFace(Sqrt(a-(m)*(m)),(m)/df,True);

m:=-1;

DrawFace(Sqrt(a-(m)*(m)),(m)/df,True);

end;

procedure TForm1.FormResize(Sender: TObject);

const lm:Array[0..3] of Single = (0.5,0.5,0.5,1.0);

const

light_ambient:array[0..3] of glfloat = (0.0,0.0,0.0,1.0);

light_diffuse:array[0..3] of glfloat = (1.0,1.0,1.0,1.0);

light_specular:array[0..3] of glfloat = (2.0,2.0,2.0,1.0);

light_position:array[0..3] of glfloat = (2.0,1.0,3.0,1.0);

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



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки