Предыдущая страница реферата | 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 | Следующая страница реферата