mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 11:09:27 +02:00
+ Implemented dummies for all missing functions
This commit is contained in:
michael
parent
b45a63565b
commit
f743d0e06b
@ -181,7 +181,6 @@ Type
|
||||
|
||||
PaletteType = record
|
||||
Size : integer;
|
||||
|
||||
Colors : array[0..767]of Byte;
|
||||
end;
|
||||
|
||||
@ -281,12 +280,24 @@ procedure Sector(X, Y: Integer; StAngle, EndAngle, XRadius, YRadius: Word);
|
||||
{ Color routines }
|
||||
procedure SetBkColor(ColorNum: Word);
|
||||
procedure SetColor(Color: Word);
|
||||
Function GetBkColor : Word;
|
||||
Function GetColor : Word;
|
||||
function GetMaxColor : Word;
|
||||
Procedure GetDefaultPalette (Var Palette : PaletteType);
|
||||
Procedure GetPalette (Var Palette : PaletteType);
|
||||
Function GetPaletteSize : Word;
|
||||
Procedure SetAllPalette (Var Palette);
|
||||
Procedure SetPalette (ColorNr : Word; NewColor : ShortInt);
|
||||
|
||||
{ Filling/linestyle utilities }
|
||||
Procedure GetFillSettings (Var FillSettings : FillSettingsType);
|
||||
Procedure GetFillPattern (Var FillPattern : FillPatternType);
|
||||
Procedure GetLineSettings (Var LineInfo : LineSettingsType);
|
||||
|
||||
{ Bitmap utilities }
|
||||
procedure GetImage(x1, y1, x2, y2: Integer; var BitMap);
|
||||
procedure PutImage(X, Y: Integer; var BitMap; BitBlt: Word);
|
||||
function ImageSize(x1, y1, x2, y2: Integer): LongInt;
|
||||
function ImageSize(x1, y1, x2, y2: Integer): LongInt;
|
||||
|
||||
{ Text routines}
|
||||
procedure OutText(TextString: string);
|
||||
@ -294,29 +305,47 @@ procedure OutTextXY(X, Y: Integer; TextString: string);
|
||||
procedure SetTextJustify(Horiz, Vert: Word);
|
||||
procedure SetTextStyle(Font, Direction: Word; CharSize: Word);
|
||||
procedure SetUserCharSize(MultX, DivX, MultY, DivY: Word);
|
||||
procedure GetTextSettings (Var TextInfo : TextSettingsType);
|
||||
|
||||
{ Graph clipping method }
|
||||
procedure SetViewPort(x1, y1, x2, y2: Integer; Clip: Boolean);
|
||||
Procedure SetViewPort(x1, y1, x2, y2: Integer; Clip: Boolean);
|
||||
Procedure ClearViewPort;
|
||||
Procedure GetViewSettings (Var ViewPort : ViewPortType);
|
||||
|
||||
{ Init/Done }
|
||||
procedure InitVideo;
|
||||
procedure DoneVideo;
|
||||
|
||||
{ Other }
|
||||
function GetResX: Integer;
|
||||
function GetResY: Integer;
|
||||
function GetAspect: Real;
|
||||
function GetMaxX : Integer;
|
||||
function GetMAxY : Integer;
|
||||
function GetResX: Integer;
|
||||
function GetResY: Integer;
|
||||
function GetAspect: Real;
|
||||
Procedure GetAspectRatio (Var x,y : Word);
|
||||
function GetMaxX : Integer;
|
||||
function GetMAxY : Integer;
|
||||
|
||||
{ For compatibility }
|
||||
Procedure DetectGraph (Var Driver,Mode : Integer);
|
||||
Procedure InitGraph (Var Driver,Mode : Integer;DriverPath : String);
|
||||
Procedure CloseGraph;
|
||||
Function GraphResult : Integer;
|
||||
Function GraphResult : Integer;
|
||||
Procedure GraphDefaults ;
|
||||
Function GraphErrorMsg (Errcode : Integer) : String;
|
||||
Function GraphErrorMsg (Errcode : Integer) : String;
|
||||
Procedure ClearDevice;
|
||||
Function GetDriverName : String;
|
||||
Function GetGraphMode : Integer;
|
||||
Function GetMaxMode : Word;
|
||||
Function GetModeName (Var Modus : INteger) : String;
|
||||
Procedure GetModeRange (Driver : Integer; Var loModus,HiModus : Integer);
|
||||
Function InstallUserDriver (DriverPat :String; AutodetectPtr : Pointer) : Integer;
|
||||
Function InstallUserFont (FontPath : String) : Integer;
|
||||
Function RegisterBGIDriver (Driver : Pointer) : Integer;
|
||||
Function RegisterBGIFont (Font : Pointer) : Integer;
|
||||
Procedure RestoreCRTmode;
|
||||
Procedure SetActivePage (Page : Word);
|
||||
Procedure SetGraphBufSize (BufSize : Word);
|
||||
Procedure SetGraphMode (Mode :Integer);
|
||||
Procedure SetVisualPage (Page : Word);
|
||||
|
||||
const
|
||||
NoGraphics: Boolean = false;
|
||||
@ -511,7 +540,12 @@ var
|
||||
IsVirtual: Boolean;
|
||||
PhysicalScreen, BackScreen: PGraphicsContext;
|
||||
ColorTable: array[0..15] of LongInt;
|
||||
|
||||
TheFillPattern : FillPatternType;
|
||||
TheLineSettings : LineSettingsType;
|
||||
ThePalette : PaletteType;
|
||||
TheTextSettings : TextSettingsType;
|
||||
TheFillSettings : FillSettingsType;
|
||||
|
||||
const
|
||||
BgiColors: array[0..15] of LongInt
|
||||
= ($000000, $000080, $008000, $008080,
|
||||
@ -914,6 +948,12 @@ begin
|
||||
GetAspect := 1.0
|
||||
end; { GetAspect }
|
||||
|
||||
Procedure GetAspectRatio (Var x,y : Word);
|
||||
begin
|
||||
X:=GetMaxX;
|
||||
Y:=GetMaxY
|
||||
end; { GetAspect }
|
||||
|
||||
Var LastViewPort : ViewPortType;
|
||||
|
||||
procedure SetViewPort(x1, y1, x2, y2: Integer; Clip: Boolean);
|
||||
@ -936,6 +976,12 @@ begin
|
||||
gl_fillbox(X1,Y1,X2-X1,Y2-Y1,BackColor);
|
||||
end;
|
||||
|
||||
Procedure GetViewSettings (Var ViewPort : ViewPortType);
|
||||
|
||||
begin
|
||||
ViewPort:=LastViewPort;
|
||||
end;
|
||||
|
||||
{ VGAMEM }
|
||||
|
||||
type
|
||||
@ -1295,7 +1341,9 @@ begin
|
||||
end;
|
||||
|
||||
procedure FillPoly(NumPoints: Word; var PolyPoints);
|
||||
|
||||
begin
|
||||
DrawPoly (NumPoints,PolyPoints);
|
||||
end;
|
||||
|
||||
procedure SetFillStyle(Pattern: Word; Color: Word);
|
||||
@ -1387,6 +1435,7 @@ end;
|
||||
|
||||
procedure SetAspectRatio(Xasp, Yasp: Word);
|
||||
begin
|
||||
//!! Needs implementing.
|
||||
end;
|
||||
|
||||
procedure PieSlice(X, Y: Integer; StAngle, EndAngle, Radius: Word);
|
||||
@ -1427,12 +1476,24 @@ begin
|
||||
BackColor := ColorTable[ColorNum];
|
||||
end;
|
||||
|
||||
Function GetBkColor : Word;
|
||||
|
||||
begin
|
||||
GetBkColor:=BackColor;
|
||||
end;
|
||||
|
||||
procedure SetColor(Color: Word);
|
||||
begin
|
||||
TheColor := ColorTable[Color];
|
||||
end;
|
||||
|
||||
function getmaxcolor : Word;
|
||||
Function GetColor : Word;
|
||||
|
||||
begin
|
||||
GetColor:=TheColor;
|
||||
end;
|
||||
|
||||
function GetMaxColor : Word;
|
||||
|
||||
begin
|
||||
getmaxcolor:=16;
|
||||
@ -1512,10 +1573,11 @@ begin
|
||||
If Mode=-1 then mode:=0;
|
||||
end;
|
||||
|
||||
Var VgaMode : Integer;
|
||||
|
||||
Procedure InitGraph (Var Driver,Mode : Integer;DriverPath : String);
|
||||
|
||||
var
|
||||
VgaMode: Integer;
|
||||
ModeInfo: pvga_modeinfo;
|
||||
|
||||
begin
|
||||
@ -1573,16 +1635,163 @@ begin
|
||||
GraphErrorMsg:='';
|
||||
end;
|
||||
|
||||
Procedure ClearDevice;
|
||||
|
||||
begin
|
||||
SetViewPort (0,0,GetMaxX,GetMaxY,False);
|
||||
ClearViewPort;
|
||||
MoveTo(0,0);
|
||||
end;
|
||||
|
||||
Procedure GetDefaultPalette (Var Palette : Palettetype);
|
||||
|
||||
begin
|
||||
//!! Not yet implemented.
|
||||
end;
|
||||
|
||||
Function GetDriverName : String;
|
||||
|
||||
begin
|
||||
GetDriverName:='libvga';
|
||||
end;
|
||||
|
||||
Function GetGraphMode : Integer;
|
||||
|
||||
begin
|
||||
GetGraphMode:=VgaMode;
|
||||
end;
|
||||
|
||||
Procedure GetFillPattern (Var FillPattern : FillPatternType);
|
||||
|
||||
begin
|
||||
FillPattern:=TheFillPattern;
|
||||
end;
|
||||
|
||||
Procedure GetFillSettings (Var FillSettings : FillSettingsType);
|
||||
|
||||
begin
|
||||
FillSettings:=TheFillSettings;
|
||||
end;
|
||||
|
||||
Procedure GetLineSettings (Var LineInfo : LineSettingsType);
|
||||
|
||||
begin
|
||||
LineInfo:=TheLineSettings;
|
||||
end;
|
||||
|
||||
Function GetMaxMode : Word;
|
||||
|
||||
begin
|
||||
GetMaxMode:=GLastMode;
|
||||
end;
|
||||
|
||||
Function GetModeName (Var Modus : INteger) : String;
|
||||
|
||||
begin
|
||||
GetModeName:='VGA'
|
||||
end;
|
||||
|
||||
Procedure GetModeRange (Driver : Integer; Var loModus,HiModus : Integer);
|
||||
|
||||
begin
|
||||
LoModus:=1;
|
||||
HiModus:=GLASTMODE;
|
||||
end;
|
||||
|
||||
Procedure GetPalette (Var Palette : PaletteType);
|
||||
|
||||
begin
|
||||
Palette:=ThePalette;
|
||||
end;
|
||||
|
||||
Procedure SetAllPalette (Var Palette);
|
||||
|
||||
begin
|
||||
ThePalette:=PaletteType(Palette);
|
||||
end;
|
||||
|
||||
Procedure SetPalette (ColorNr : Word; NewColor : ShortInt);
|
||||
|
||||
begin
|
||||
//!! not implemented.
|
||||
end;
|
||||
|
||||
Function GetPaletteSize : Word;
|
||||
|
||||
begin
|
||||
GetPaletteSize:=16;
|
||||
end;
|
||||
|
||||
Procedure GetTextSettings (Var TextInfo : TextSettingsType);
|
||||
|
||||
begin
|
||||
TextInfo:=TheTextSettings;
|
||||
end;
|
||||
|
||||
Function InstallUserDriver (DriverPat :String; AutodetectPtr : Pointer) : Integer;
|
||||
|
||||
begin
|
||||
InstallUserDriver:=grError;
|
||||
end;
|
||||
|
||||
Function InstallUserFont (FontPath : String) : Integer;
|
||||
|
||||
begin
|
||||
InstallUserFont:=0;
|
||||
end;
|
||||
|
||||
Function RegisterBGIDriver (Driver : Pointer) : Integer;
|
||||
|
||||
begin
|
||||
RegisterBGIDriver:=grError;
|
||||
end;
|
||||
|
||||
Function RegisterBGIFont (Font : Pointer) : Integer;
|
||||
begin
|
||||
RegisterBGIFont:=grError;
|
||||
end;
|
||||
|
||||
Procedure RestoreCRTmode;
|
||||
|
||||
begin
|
||||
vga_setmode(GTEXT);
|
||||
end;
|
||||
|
||||
Procedure SetActivePage (Page : Word);
|
||||
|
||||
begin
|
||||
//!! Not implemented
|
||||
end;
|
||||
|
||||
Procedure SetVisualPage (Page : Word);
|
||||
|
||||
begin
|
||||
//!! Not implemented
|
||||
end;
|
||||
|
||||
Procedure SetGraphBufSize (BufSize : Word);
|
||||
|
||||
begin
|
||||
end;
|
||||
|
||||
Procedure SetGraphMode (Mode :Integer);
|
||||
|
||||
begin
|
||||
vga_setmode(Mode);
|
||||
VgaMode:=Mode;
|
||||
end;
|
||||
|
||||
begin
|
||||
{ Give up root permissions if we are root. }
|
||||
if geteuid = 0 then vga_init;
|
||||
end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.8 1998-09-11 09:24:55 michael
|
||||
Revision 1.9 1998-09-13 19:22:06 michael
|
||||
+ Implemented dummies for all missing functions
|
||||
|
||||
Revision 1.8 1998/09/11 09:24:55 michael
|
||||
Added missing functions so mandel compiles and runs
|
||||
|
||||
Revision 1.7 1998/08/24 08:23:47 michael
|
||||
|
||||
Loading…
Reference in New Issue
Block a user