https://pascalabc.net/wiki/index.php?action=history&feed=atom&title=OpenGL 2026-04-18T12:34:36Z История изменений этой страницы в вики MediaWiki 1.39.1 https://pascalabc.net/wiki/index.php?title=OpenGL&diff=514&oldid=prev 2009-10-10T13:19:32Z

<p>Новая: &#039;&#039;&#039;OpenGL&#039;&#039;&#039; - открытая библиотека для написания приложений, использующих компьютерную графику. Для исполь...</p> <p><b>Новая страница</b></p><div>'''OpenGL''' - открытая библиотека для написания приложений, использующих компьютерную графику. Для использования OpenGL нужно скачать модуль [http://pascalabc.net/downloads/opengl/OpenGL.pas OpenGL.pas].<br /> <br /> Пример программы, выводящей зеленый квадрат:<br /> <br /> &lt;source lang=&quot;pascal&quot;&gt;<br /> {$reference System.Windows.Forms.dll}<br /> {$reference System.Drawing.dll}<br /> {$apptype windows}<br /> <br /> uses System, System.Drawing, System.Windows.Forms, OpenGL;<br /> <br /> type Form1 = class(Form)<br /> <br /> _hdc : HDC;<br /> <br /> constructor Create;<br /> begin<br /> _hdc := GetDC(self.Handle.ToInt32());<br /> OpenGLInit(self.Handle);<br /> end;<br /> <br /> protected procedure OnPaint(e: System.Windows.Forms.PaintEventArgs); override;<br /> begin<br /> glClearColor(single(0.0), single(0.0), single(0.0), single(0.0));<br /> glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);<br /> glColor3f(single(0.0), single(1.0), single(0.0));<br /> glOrtho(-1.0, 1.0, -1.0, 1.0, -1.0, 1.0);<br /> glBegin(GL_POLYGON);<br /> glVertex2f(single(-0.5), single(-0.5));<br /> glVertex2f(single(-0.5), single(0.5));<br /> glVertex2f(single(0.5), single(0.5));<br /> glVertex2f(single(0.5), single(-0.5));<br /> glEnd();<br /> glFlush();<br /> SwapBuffers(_hdc);<br /> end;<br /> <br /> procedure Form_Closed(sender : object; e : EventArgs);<br /> begin<br /> OpenGLUninit(self.Handle);<br /> end;<br /> <br /> procedure Form_Resize(sender: object; e : EventArgs);<br /> begin<br /> glViewport(0, 0, Width, Height);<br /> end;<br /> end;<br /> <br /> var f : Form1;<br /> begin<br /> f := new Form1();<br /> f.Resize += f.Form_Resize;<br /> f.Closed += f.Form_Closed;<br /> Application.Run(f);<br /> end.<br /> &lt;/source&gt;</div>

92.207.5.58