[Pythianproject-cvsmail] CVS: PythianProject/Source/GameEngine GameGrEngState.pas,1.8,1.9 GrEngState.pas,1.6,1.7

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

Update of /cvsroot/pythianproject/PythianProject/Source/GameEngine
In directory slayer.i.sourceforge.net:/tmp/cvs-serv17897

Modified Files:
	GameGrEngState.pas GrEngState.pas 
Log Message:
text demo

Index: GameGrEngState.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/GameEngine/GameGrEngState.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** GameGrEngState.pas	2000/09/04 17:51:55	1.8
--- GameGrEngState.pas	2000/10/14 19:39:16	1.9
***************
*** 3,7 ****
  interface
  
! uses GrEngState, Sky;
  
  type
--- 3,7 ----
  interface
  
! uses GrEngState, Sky, Graphics;
  
  type
***************
*** 18,24 ****
--- 18,32 ----
      procedure SetFogStartMultiplier(const Value: Single);
    protected
+     txtFont :integer;
+     txtBaseList :integer;
+ 
      procedure InitFog;
      procedure LoadSkyBox;
      procedure Paint; override;
+ 
+     // test code
+     procedure InitTest; virtual;
+     procedure PaintTest; virtual;
+     procedure FinalizeTest; virtual;
    public
      procedure Finalize; override;
***************
*** 34,38 ****
  
  uses ModelInstances, OpenGL, Points, Geometry, StdInit, TerrainEng, SysUtils,
!      Windows, Trace;
  
  { TGameGrEngSate }
--- 42,46 ----
  
  uses ModelInstances, OpenGL, Points, Geometry, StdInit, TerrainEng, SysUtils,
!      Trace, Windows, glfd;
  
  { TGameGrEngSate }
***************
*** 44,50 ****
--- 52,64 ----
    FSkybox.Free;
  
+   FinalizeTest;
+ 
    inherited;
  end;
  
+ procedure TGameGraphicsEngine.FinalizeTest;
+ begin
+ end;
+ 
  procedure TGameGraphicsEngine.InitFog;
  begin
***************
*** 97,103 ****
--- 111,129 ----
      LoadSkyBox;
  
+     InitTest;
    end;
  end;
  
+ procedure TGameGraphicsEngine.InitTest;
+ begin
+   // put code to init tests here
+   glfInit;
+   txtfont := glfLoadFont('arial1.glf');
+   glfSetAnchorPoint(GLF_LEFT_UP);
+   glfConsoleClear;
+   glfPrintString('Test Line 1');
+   glfPrintString('Test Line 2');
+ end;
+ 
  procedure TGameGraphicsEngine.LoadSkyBox;
  begin
***************
*** 148,151 ****
--- 174,212 ----
  
    teFinishFrame;
+ 
+   PaintTest;
+ end;
+ 
+ procedure TGameGraphicsEngine.PaintTest;
+ begin
+   // put paint code here for tests
+ 
+   // reinit the matrices
+   glClear(GL_DEPTH_BUFFER_BIT); // don't know why we need this, but we do
+   glMatrixMode(GL_MODELVIEW);
+   glLoadIdentity;
+   glMatrixMode(GL_PROJECTION);
+   glPushMatrix;
+   glLoadIdentity;
+ 
+   glColor3f(1.0,1.0,1.0); // has no effect :(
+ 
+ 
+   // change co-ordinate system  to 1:1 pixel mapping
+   glScalef(2.0 / Window.Width, -2.0 / Window.Height, 1.0);
+   glTranslatef(-(window.width / 2), -(window.height/2), 0);
+ 
+   // offset it from the top by 10px to make it look nicer
+   glTranslatef(0,10,0);
+   // need this: scale it - otherwise text will be 1x1 pixels!
+   glScalef(20,20,0);
+   // need this: flip matrix because GLF is expecting OpenGL default
+   // co-ordinates and we have changed them. Otherwise text will be
+   // upside down
+   glScalef(1,-1,1);
+   // finally draw the text
+   glfDrawSolidString('Pythian Project 2000');
+   // and restore to default
+   glPopMatrix;
  end;
  

Index: GrEngState.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/GameEngine/GrEngState.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** GrEngState.pas	2000/09/04 17:51:55	1.6
--- GrEngState.pas	2000/10/14 19:39:16	1.7
***************
*** 43,47 ****
    if Result then
    begin
!     FFilterMode := GL_NEAREST;
  
      FFrames := 0;
--- 43,47 ----
    if Result then
    begin
!     FFilterMode := GL_LINEAR;
  
      FFrames := 0;