Update of /cvsroot/pythianproject/Prototypes/TextureDemo
In directory slayer.i.sourceforge.net:/tmp/cvs-serv18050/TextureDemo
Modified Files:
QuadTextUnit.pas
Log Message:
GUI system update -mike
Index: QuadTextUnit.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/TextureDemo/QuadTextUnit.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** QuadTextUnit.pas 2000/11/17 20:32:59 1.1
--- QuadTextUnit.pas 2000/12/09 19:52:04 1.2
***************
*** 11,15 ****
! Todo -
}
--- 11,17 ----
! Todo - all data packaged into a file?
! - antialiasing?
! - scaling
}
***************
*** 36,39 ****
--- 38,42 ----
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 4, 6, 7, 2, 2, 3, 3);
+
ARIAL_WIDTHS :TQuadTextWidthsArray = (
9, 10, 10, 10, 10, 9, 10, 10, 2, 9, 10, 9,
***************
*** 117,120 ****
--- 120,128 ----
o,a:integer;
begin
+ glMatrixMode(GL_TEXTURE); // modify texture matrix;
+ glLoadIdentity;
+ glScalef(1/256,1/256,1);
+
+ glMatrixMode(GL_MODELVIEW);
glPushMatrix;
glPushMatrix;
***************
*** 130,134 ****
glTranslatef(0,QT.GridSquareHeight,0); // translate down
glPushMatrix;
! end else begin
o := qtDrawGridChar(QT,s[a]);
if o <> -1 then
--- 138,142 ----
glTranslatef(0,QT.GridSquareHeight,0); // translate down
glPushMatrix;
! end else if s[a] <> #$A then begin
o := qtDrawGridChar(QT,s[a]);
if o <> -1 then
***************
*** 140,143 ****
--- 148,154 ----
glPopMatrix;
glPopMatrix;
+ glMatrixMode(GL_TEXTURE);
+ glLoadIdentity;
+ glMatrixMode(GL_MODELVIEW);
end;
***************
*** 146,149 ****
--- 157,161 ----
glGetBooleanv(GL_DEPTH_TEST,@dtstore);
glDisable(GL_DEPTH_TEST);
+ glEnable(GL_TEXTURE_2D);
end;
|
