Blender для начинающих/Немного об OpenGL: различия между версиями

protected procedure OnPaint(e: System.Windows.Forms.PaintEventArgs); override;

begin

glClearColor(single(0.0), single(0.0), single(0.0), single(0.0));

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

glOrtho(-1.0, 1.0, -1.0, 1.0, -1.0, 1.0);

glLineWidth(10);

glBegin(GL_LINE_STRIP);

glColor3d(single(1.0), single(1.0), single(0.0));

glVertex2f(single(-0.5), single(-0.5));

glColor3d(single(0.0), single(1.0), single(0.0));

glVertex2f(single(-0.5), single(-0.5));

glEnd();

glFlush();

SwapBuffers(_hdc);

end;

 

var

f: Form1;

 

f.Resize += f.Form_Resize;

f.Closed += f.Form_Closed;

Application.Run(f);

end.

</source>