Курсовая работа: Метод наискорейшего спуска

begin

glClear (GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); // очистка буфера цвета

xl:=0;

yl:=0;

zl:=0;

zlm:=StrToFloat(StringGrid1.cells[0,3]);

stg:=StringGrid1.ColCount;

clr:=0;

clb:=1.0;

h:=StrToFloat(Edit3.text);

wn:=StrToInt(Edit5.text);

obl:= StrToFloat(Edit6.Text);

//ox oy oz

glscalef(masht,masht,masht);

glLineWidth(3);

glcolor3f(1.0,1.0,1.0);

glBegin(GL_Lines);

glVertex3f(-1,-1,1);

glVertex3f(1,-1,1);

glVertex3f(-1,-1,1);

glVertex3f(-1,1,1);

glVertex3f(-1,-1,1);

glVertex3f(-1,-1,-1);

glend;

glLineWidth(1);

glcolor3f(1.0,1.0,0.0);

glBegin(GL_Lines);

//x

glVertex3f(1.1-0.03,-1+0.1,1);