X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pages%2FSDL-Cookbook-OpenGL.html-inc;h=8bc33d9644d4c7c942d7ee864162ceb131b5c6cd;hb=1dbe16975541da864f8bfa5169c89a2ab8893bf2;hp=11328ab1a7e72f073f9e63bfb0691aa1cf286cd8;hpb=ca0a3441dd72000cbbbb4be484b18d0d305fdb29;p=sdlgit%2FSDL-Site.git

diff --git a/pages/SDL-Cookbook-OpenGL.html-inc b/pages/SDL-Cookbook-OpenGL.html-inc
index 11328ab..8bc33d9 100644
--- a/pages/SDL-Cookbook-OpenGL.html-inc
+++ b/pages/SDL-Cookbook-OpenGL.html-inc
@@ -8,7 +8,8 @@
 <ul><li><a href="#EXAMPLE">EXAMPLE</a></li>
 </ul>
 </li>
-<li><a href="#SEE_ALSO">SEE ALSO</a>
+<li><a href="#SEE_ALSO">SEE ALSO</a></li>
+<li><a href="#AUTHORS">AUTHORS</a>
 </li>
 </ul><hr />
 <!-- INDEX END -->
@@ -45,27 +46,27 @@
 	use SDL::Event;
 	use OpenGL qw(:all);
 
-	my ($SDLAPP, $WIDTH, $HEIGHT, $SDLEVENT);
+</pre>
+<p>You can use OpenGL as needed here.</p>
+<pre>	my ($SDLAPP, $WIDTH, $HEIGHT, $SDLEVENT);
 
 	$| = 1;
 	$WIDTH = 1024;
 	$HEIGHT = 768;
-	$SDLAPP = SDLx::App-&gt;new(-title =&gt; &quot;Opengl App&quot;, -width =&gt; $WIDTH, -height =&gt; $HEIGHT, -gl =&gt; 1);
+	$SDLAPP = SDLx::App-&gt;new(title =&gt; &quot;Opengl App&quot;, width =&gt; $WIDTH, height =&gt; $HEIGHT, gl =&gt; 1);
 	$SDLEVENT = SDL::Event-&gt;new;
 
-
-
-
-	glEnable(GL_DEPTH_TEST);
+</pre>
+<p>SDLx::App can start an OpenGL application with the parameter gl =&gt; 1.</p>
+<pre>	glEnable(GL_DEPTH_TEST);
 	glMatrixMode(GL_PROJECTION);
 	glLoadIdentity;
 	gluPerspective(60, $WIDTH / $HEIGHT, 1, 1000);
 	glTranslatef(0, 0, -20);
 
-
-
-
-	while (1) {
+</pre>
+<p>Above we enable GL and set the correct prespective</p>
+<pre>	while (1) {
 	  &amp;handlepolls;
 	  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
 	  glRotatef(.1, 1, 1, 1);
@@ -73,13 +74,9 @@
 	  $SDLAPP-&gt;sync;
 	}
 
-
-
-
-
-
-
-	sub drawscene {
+</pre>
+<p>For SDLx::App sync handles the GL buffer clean.</p>
+<pre>	sub drawscene {
 	  my ($color, $x, $y, $z);
 
 	  for (-2 .. 2) {
@@ -96,15 +93,6 @@
 
 
 
-
-
-
-
-
-
-
-
-
 	sub draw_cube {
 	  my (@indices, @vertices, $face, $vertex, $index, $coords);
 
@@ -131,16 +119,9 @@
 	  return &quot;&quot;;
 	}
 
-
-
-
-
-
-
-
-
-
-	sub handlepolls {
+</pre>
+<p>Below we can use SDL::Events as normal:</p>
+<pre>	sub handlepolls {
 	  my ($type, $key);
 
 	  SDL::Events::pump_events();
@@ -168,7 +149,16 @@
 </div>
 <h1 id="SEE_ALSO">SEE ALSO</h1><p><a href="#TOP" class="toplink">Top</a></p>
 <div id="SEE_ALSO_CONTENT">
-<p><a href="http://search.cpan.org/perldoc?perl">perl</a> <a href="http://search.cpan.org/perldoc?SDLx::App">SDLx::App</a> <a href="http://search.cpan.org/perldoc?OpenGL">OpenGL</a></p>
+<p><a href="http://search.cpan.org/perldoc?perl">perl</a> <a href="SDLx-App.html">SDLx::App</a> <a href="http://search.cpan.org/perldoc?OpenGL">OpenGL</a> </p>
+
+</div>
+<h1 id="AUTHORS">AUTHORS</h1><p><a href="#TOP" class="toplink">Top</a></p>
+<div id="AUTHORS_CONTENT">
+<p>See <a href="/SDL.html#AUTHORS">/SDL.html#AUTHORS</a>.</p>
+
+
+
+
 
 </div>
 </div>
\ No newline at end of file