[Pythianproject-cvsmail] CVS: Prototypes/TextureDemo QuadTextUnit.pas,1.1,1.2

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

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;