OpenGL и Delphi на практике
Категория реферата: Рефераты по информатике, программированию
Теги реферата: урок изложение, конспект урока 3
Добавил(а) на сайт: Кувшинов.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
t0:=t0+dt;
end;
end;
procedure DrawFace(A,R:Single;Normal:Boolean);
var x,y:single; t0,t1,dt:Single;
begin
t0:=-3;t1:=3;
dt:=0.06;
glBegin(GL_POLYGON);
while t0<=t1 do
begin
x:=a*sin(t0)*sin(t0)*sin(t0)*sin(t0)*cos(t0);
y:=a*abs(sin(t0)*cos(t0));
glVertex3F(x,y,r);
t0:=t0+dt;
end;
t0:=0;
x:=a*sin(t0)*sin(t0)*sin(t0)*sin(t0)*cos(t0);
y:=a*abs(sin(t0)*cos(t0));
if Normal then glNormal3f(x,y,-r) else glNormal3f(x,y,r);
glEnd;
end;
procedure TForm1.FormPaint(Sender: TObject);
var m,n:single;dm:Single;a:Single;df:Single;
begin
Рекомендуем скачать другие рефераты по теме: реферат сила, культурология как наука.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата