paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 07:59:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

Better initgraph handling.

Browse Source
This commit is contained in:
michael 1998-08-24 08:23:47 +00:00
parent 6ea8c9f86f
commit 5f833458e1
1 changed files with 59 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
rtl/linux/graph.pp
View File

@ -298,27 +298,8 @@ Procedure CloseGraph;
const
NoGraphics: Boolean = false;
implementation
uses Objects, Linux;
{ ---------------------------------------------------------------------
SVGA bindings.
---------------------------------------------------------------------}
{ Link with VGA, gl and c libraries }
{$linklib vga}
{$linklib vgagl}
{$linklib c}
{ Constants }
const
{ VGA modes }
TEXT = 0; { Compatible with VGAlib v1.2 }
GTEXT = 0; { Compatible with VGAlib v1.2 }
G320x200x16 = 1;
G640x200x16 = 2;
G640x350x16 = 3;
@ -380,9 +361,26 @@ const
GLASTMODE = 49;
{ Text }
implementation
uses Objects, Linux;
{ ---------------------------------------------------------------------
SVGA bindings.
---------------------------------------------------------------------}
{ Link with VGA, gl and c libraries }
{$linklib vga}
{$linklib vgagl}
{$linklib c}
Const
{ Text }
WRITEMODE_OVERWRITE = 0;
WRITEMODE_MASKED = 1;
FONT_EXPANDED = 0;
@ -405,8 +403,7 @@ const
{ Extended fields: }
chiptype, { Chiptype detected }
memory, { videomemory in KB }
linewidth_unit: Longint; { Use only a multiple of this as parameter for
set_displaystart }
linewidth_unit: Longint; { Use only a multiple of this as parameter for set_displaystart }
linear_aperture: PChar; { points to mmap secondary mem aperture of card }
aperture_size: Longint; { size of aperture in KB if size>=videomemory.}
@ -672,7 +669,7 @@ begin
if not NoGraphics
then begin
if IsVirtual then gl_freecontext(BackScreen);
vga_setmode(TEXT)
vga_setmode(GTEXT)
end
end;
@ -1467,12 +1464,45 @@ Procedure DetectGraph (Var Driver,Mode : Integer);
begin
Driver:=9;
Mode:=vga_getdefaultmode;
If Mode=-1 then mode:=0;
end;
Procedure InitGraph (Var Driver,Mode : Integer;DriverPath : String);
var
VgaMode: Integer;
ModeInfo: pvga_modeinfo;
begin
InitVideo;
If Mode=0 then
VgaMode := vga_getdefaultmode
else
VGAMode :=Mode;
if (VgaMode = -1) then VgaMode := G320X200X256;
if (not vga_hasmode(VgaMode))
then begin
WriteLn('BGI: Mode not available.');
Halt(1)
end;
ModeInfo := vga_getmodeinfo(VgaMode);
{IsVirtual := (ModeInfo^.colors = 16) or (ModeInfo^.flags and IS_MODEX <> 0);}
IsVirtual := true;
{ We always want a back screen (for buffering). }
if IsVirtual
then begin
{ Create virtual screen }
gl_setcontextvgavirtual(VgaMode);
BackScreen := gl_allocatecontext;
gl_getcontext(BackScreen)
end;
vga_setmode(VgaMode);
gl_setcontextvga(VgaMode); { Physical screen context. }
PhysicalScreen := gl_allocatecontext;
gl_getcontext(PhysicalScreen);
if (PhysicalScreen^.colors = 256) then gl_setrgbpalette;
SetColors;
SizeX := PhysicalScreen^.Width;
SizeY := PhysicalScreen^.Height
end;
Procedure CloseGraph;
@ -1489,7 +1519,10 @@ end.
{
$Log$
Revision 1.6 1998-08-14 09:20:36 michael
Revision 1.7 1998-08-24 08:23:47 michael
Better initgraph handling.
Revision 1.6 1998/08/14 09:20:36 michael
Typo fixed. linklib gl to linklib vgagl
Revision 1.5 1998/08/12 14:01:08 michael