[Pythianproject-cvsmail] CVS: PythianProject/Source/Units glfd.pas,NONE,1.1

[Kamil K. <kkr...@us...>]

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

Added Files:
	glfd.pas 
Log Message:
-k

--- NEW FILE ---
unit glfd;

interface

uses
  Windows, SysUtils, OpenGL;

const
  //* CONSTANTS */
  GLF_ERROR            = -1;
  GLF_OK               =  0;
  GLF_YES              =  1;
  GLF_NO               =  2;

  GLF_CONSOLE_MESSAGES = 10;
  GLF_TEXTURING        = 11;
  GLF_CONTOURING       = 12;

  GLF_LEFT_UP          = 20;
[...1026 lines suppressed...]
            s[j + 1] := #0;
            Break;
          end;
    end;
    glfDrawSolidStringF(conFont, s);
    glTranslatef(0, -2, 0);
  end;
end;

procedure glfSetCursorBlinkRate(Rate: Integer);
begin
  if Rate > 0 then
  begin
    conCursorBlink := Rate;
    conCursorCount := Rate;
    conCursorMode := GLF_YES;
  end;
end;

end.