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

x,y,z,m,a,b,c,d,masht : glfloat;

mx,my,mz: TE;

mm : TM;

xmaus,ymaus,rt,verx: integer;

implementation

{$R *.DFM}

{Формат пикселя}

procedure SetDCPixelFormat (hdc : HDC);

var

pfd : TPixelFormatDescriptor;

nPixelFormat : Integer;

begin

FillChar (pfd, SizeOf (pfd), 0);

pfd.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;

nPixelFormat := ChoosePixelFormat (hdc, @pfd);

SetPixelFormat (hdc, nPixelFormat, @pfd);

end;

{====================================================

Создание формы}

procedure TForm1.FormCreate(Sender: TObject);

begin

DC := GetDC (Form1.Panel1.Handle);

SetDCPixelFormat(DC);

hrc := wglCreateContext(DC);

wglMakeCurrent(DC, hrc);

glClearColor (0.5, 0.5, 0.75, 1.0); // цвет фона

glColor3f (1.0, 0.0, 0.5); // текущий цвет примитивов

glEnable(GL_DEPTH_TEST);

x:=0.0;