[Pythianproject-cvsmail] CVS: Prototypes/BasicGLapp frmMain.pas,1.2,1.3

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/BasicGLapp
In directory slayer.i.sourceforge.net:/tmp/cvs-serv11441

Modified Files:
	frmMain.pas 
Log Message:
added scissor test -mike

Index: frmMain.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/BasicGLapp/frmMain.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** frmMain.pas	2000/10/23 20:55:11	1.2
--- frmMain.pas	2000/10/24 17:21:24	1.3
***************
*** 226,236 ****
    glMatrixMode(GL_MODELVIEW);
  
    inc(Counter1);
!   if Counter1 >= 10 then
    begin
      MakeList;
      Counter1 := 0;
    end;
    glCallList(txtList);
  
    glDisable(GL_TEXTURE_2D);
--- 226,241 ----
    glMatrixMode(GL_MODELVIEW);
  
+   glEnable(GL_SCISSOR_TEST);
+ 
    inc(Counter1);
!   if Counter1 >= 100 then
    begin
      MakeList;
      Counter1 := 0;
    end;
+   glScissor(10,10,630,470);
+   gltranslatef(0,animSquare-500,0);
    glCallList(txtList);
+   glDisable(GL_SCISSOR_TEST);
  
    glDisable(GL_TEXTURE_2D);