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

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

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

Modified Files:
	frmMain.pas 
Log Message:
no message

Index: frmMain.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/BasicGLapp/frmMain.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** frmMain.pas	2000/10/24 17:21:24	1.3
--- frmMain.pas	2000/10/26 17:08:15	1.4
***************
*** 1,5 ****
  unit frmMain;
  
! { Shows texture fonts loaded from a grid.
    (C) Michael Hearn 2000
    mh...@su... }
--- 1,5 ----
  unit frmMain;
  
! { Basic 3D application
    (C) Michael Hearn 2000
    mh...@su... }
***************
*** 30,35 ****
      { Public declarations }
  
-     TestTex :TTexture;
- 
      // Animation trackers can go here
      animSquare: integer; // this var will be cycled through 1..360
--- 30,33 ----
***************
*** 38,55 ****
                           // a rotating square :)
  
-     GridSquareWidth,GridSquareHeight :integer; // size of grid square
-     GridCharSpacing:integer; // spacing between letters.
- 
-     txtfile :TStringList;
-     counter1 :integer;
- 
-     txtList:integer;
      procedure SetProjection(Sender: TObject);
- 
-     procedure DrawGridChar(C:Char);
-     function DrawGridSquare(X,Y:integer):integer;
-     procedure DrawGridString(s:String);
- 
-     procedure MakeList;
    end;
  
--- 36,40 ----
***************
*** 102,120 ****
    // uncomment this line to enable alpha blending
  
-   TestTex := TTexture.Create;
-   TestTex.UseMipmaps := true;
-   TestTex.UseAlpha := true;
-   TestTex.LoadFromFile('CourierNew Grid.bmp');
- 
-   GridSquareWidth := 20;
-   GridSquareHeight := 20;
-   GridCharSpacing := 15;
- 
-   txtFile := TStringList.Create;
-   txtFile.LoadFromFile('movies.txt');
- 
-   txtList := glGenLists(1);
-   Counter1 := 0;
-   MakeList;
  end;
  
--- 87,90 ----
***************
*** 203,243 ****
      glVertex3f(-1.0, -1.0, 1.0);
    glEnd;
- 
-   glLoadIdentity;
- 
-   glClear(GL_DEPTH_BUFFER_BIT);
-   glEnable(GL_TEXTURE_2D);
-   glEnable(GL_BLEND);
- 
-   // change co-ordinate system  to 1:1 pixel mapping
-   glScalef(2.0 / GLPanel.Width, -2.0 / GLPanel.Height, 1.0);
-   glTranslatef(-(GLPanel.Width / 2), -(GLPanel.Height / 2), 0);
- 
-   glMatrixMode(GL_TEXTURE);
-   glLoadIdentity;
-   glScalef(1/256,1/256,1);
- 
-   TestTex.Draw;
-   // left = 256 right = 0
-   // top = 0 bottom = 256
-   //
-   // left = 256 - (20 * (x-1))
- 
-   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);
  end;
  
--- 173,176 ----
***************
*** 245,325 ****
  begin
    Close;
- end;
- 
- function TMainForm.DrawGridSquare(X,Y: integer):integer;
- var l,t:integer;
- begin
-   Result := -1;
-   if (l <= 0) or (t <= 0) then
-     exit;
- 
-   l := 256 - (GridSquareWidth * (x-1));
-   t := (Y - 1) * GridSquareHeight;
- 
-   glBegin(GL_QUADS);
-     glTexCoord2f(l,t);
-     glVertex2f(0,0);
-     glTexCoord2f(l,t+GridSquareHeight);
-     glVertex2f(0,GridSquareHeight);
-     glTexCoord2f(l-GridSquareWidth,t+GridSquareHeight);
-     glVertex2f(GridSquareWidth,GridSquareHeight);
-     glTexCoord2f(l-GridSquareWidth,t);
-     glVertex2f(GridSquareWidth,0);
-   glEnd;
- 
-   result := 0;
- end;
- 
- procedure TMainForm.DrawGridChar(C: Char);
- var
-   AlphaOffset :integer;
-   x,y:integer;
- begin
-   C := UpCase(C);
-   if (Ord(C) >= Ord('A')) or (Ord(C) <= Ord('Z')) then
-   begin
-     AlphaOffset := Ord(C) - Ord('A') + 1;
-     // AlphaOffset contains the grid offset of the character now
-     // in this test grid there are 12 per line
-     Y := (AlphaOffset div 12);
-     if AlphaOffset mod 12 <> 0 then // need this in case letter is last on grid line
-       inc(y);
-     X := AlphaOffset - ((Y-1)*12);
-     TraceString(IntToStr(X)+','+IntToStr(Y));
-     DrawGridSquare(x,y);
-   end;
- end;
- 
- procedure TMainForm.DrawGridString(s: String);
- var a:integer;
- begin
-   for a := 1 to Length(s) do
-   begin
-     if s[a] = #13 then
-     begin
-       glTranslatef(-GLPanel.Width-GridCharSpacing,20,0)
-     end else begin
-       DrawGridChar(s[a]);
-       glTranslatef(GridCharSpacing,0,0);
-     end;
-   end;
- end;
- 
- procedure TMainForm.MakeList;
- var x,y:integer;
- begin
-   glNewList(txtList,GL_COMPILE);
-     for y := 1 to 800 div 20 do
-     begin
-       glPushMatrix;
-       for x := 1 to (640 div GridCharSpacing) do
-       begin
-         DrawGridChar(Chr(Trunc(Random(Ord('Z') - Ord('A')) + Ord('A'))));
-         glTranslatef(GridCharSpacing,0,0);
-       end;
-       glPopMatrix;
-       glTranslatef(0,20,0);
-     end;
-   glEndList;
  end;
  
--- 178,181 ----