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);
|