OpenGL и Delphi на практике
Категория реферата: Рефераты по информатике, программированию
Теги реферата: урок изложение, конспект урока 3
Добавил(а) на сайт: Кувшинов.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
x1e,y1e:Single;
x0b,y0b:Single;
x0e,y0e:Single;
t0,t1:Single;
dt:single;
begin
t0:=-3;t1:=3;
dt:=0.06;
while t0<=t1 do
begin
x0b:=a*sin(t0)*sin(t0)*sin(t0)*sin(t0)*cos(t0);
y0b:=a*abs(sin(t0)*cos(t0));
x0e:=a*sin(t0+dt)*sin(t0+dt)*sin(t0+dt)*sin(t0+dt)*cos(t0+dt);
y0e:=a*abs(sin(t0+dt)*cos(t0+dt));
x1b:=b*sin(t0)*sin(t0)*sin(t0)*sin(t0)*cos(t0);
y1b:=b*abs(sin(t0)*cos(t0));
x1e:=b*sin(t0+dt)*sin(t0+dt)*sin(t0+dt)*sin(t0+dt)*cos(t0+dt);
y1e:=b*abs(sin(t0+dt)*cos(t0+dt));
glBegin(GL_TRIANGLE_STRIP);
glNormal((x0b+x1e)/2,(y0b+y1e)/2,(r1+r0)/2);
glVertex3f(x0b,y0b,r0);
glVertex3f(x0e,y0e,r0);
glVertex3f(x1e,y1e,r1);
glVertex3f(x1b,y1b,r1);
glEnd;
Рекомендуем скачать другие рефераты по теме: реферат сила, культурология как наука.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата