mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-12 18:46:54 +02:00
222 lines
5.5 KiB
Plaintext
222 lines
5.5 KiB
Plaintext
{
|
||
$Id$
|
||
This file is part of the Free Pascal run time library.
|
||
Copyright (c) 1993,97 by the Free Pascal development team.
|
||
|
||
See the file COPYING.FPC, included in this distribution,
|
||
for details about the copyright.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||
|
||
**********************************************************************}
|
||
{$PACKRECORDS NORMAL}
|
||
|
||
const
|
||
{ error codes }
|
||
grOk = 0;
|
||
grNoInitGraph = -1;
|
||
grNotDetected = -2;
|
||
grFileNotFound = -3;
|
||
grInvalidDriver = -4;
|
||
grNoLoadMem = -5;
|
||
grNoScanMem = -6;
|
||
grNoFloodMem = -7;
|
||
grFontNotFound = -8;
|
||
grNoFontMem = -9;
|
||
grInvalidMode = -10;
|
||
grError = -11;
|
||
grIOerror = -12;
|
||
grInvalidFont = -13;
|
||
grInvalidFontNum = -14;
|
||
grInvalidVersion = -18;
|
||
|
||
{ graphic drivers }
|
||
CurrentDriver = -128;
|
||
Detect = 0;
|
||
|
||
{ graph modes }
|
||
Default = 0;
|
||
|
||
{ Farben f<>r setpalette und setallpalette }
|
||
black = 0;
|
||
blue = 1;
|
||
green = 2;
|
||
cyan = 3;
|
||
red = 4;
|
||
magenta = 5;
|
||
brown = 6;
|
||
lightgray = 7;
|
||
darkgray = 8;
|
||
lightblue = 9;
|
||
lightgreen = 10;
|
||
lightcyan = 11;
|
||
lightred = 12;
|
||
lightmagenta = 13;
|
||
yellow = 14;
|
||
white = 15;
|
||
|
||
{ Linenart f<>r Get/SetLineStyle: }
|
||
SolidLn = 0;
|
||
DottedLn = 1;
|
||
CenterLn = 2;
|
||
DashedLn = 3;
|
||
UserBitLn = 4;
|
||
|
||
NormWidth = 1;
|
||
ThickWidth = 3;
|
||
|
||
{ Set/GetTextStyle Konstanten: }
|
||
DefaultFont = 0;
|
||
TriplexFont = 1;
|
||
SmallFont = 2;
|
||
SansSerifFont = 3;
|
||
GothicFont = 4;
|
||
ScriptFont = 5;
|
||
SimpleFont = 6;
|
||
TSCRFont = 7;
|
||
LCOMFont = 8;
|
||
EuroFont = 9;
|
||
BoldFont = 10;
|
||
|
||
HorizDir = 0;
|
||
VertDir = 1;
|
||
|
||
UserCharSize = 0;
|
||
|
||
ClipOn = true;
|
||
ClipOff = false;
|
||
|
||
{ Bar3D constants }
|
||
TopOn = true;
|
||
TopOff = false;
|
||
|
||
{ fill pattern for Get/SetFillStyle: }
|
||
EmptyFill = 0;
|
||
SolidFill = 1;
|
||
LineFill = 2;
|
||
LtSlashFill = 3;
|
||
SlashFill = 4;
|
||
BkSlashFill = 5;
|
||
LtBkSlashFill = 6;
|
||
HatchFill = 7;
|
||
XHatchFill = 8;
|
||
InterleaveFill = 9;
|
||
WideDotFill = 10;
|
||
CloseDotFill = 11;
|
||
UserFill = 12;
|
||
|
||
{ bitblt operators }
|
||
NormalPut = 0;
|
||
CopyPut = 0;
|
||
XORPut = 1;
|
||
OrPut = 2;
|
||
AndPut = 3;
|
||
NotPut = 4;
|
||
|
||
{ SetTextJustify constants }
|
||
LeftText = 0;
|
||
CenterText = 1;
|
||
RightText = 2;
|
||
|
||
BottomText = 0;
|
||
TopText = 2;
|
||
|
||
type
|
||
RGBColor = record
|
||
r,g,b,i : byte;
|
||
end;
|
||
|
||
PaletteType = record
|
||
Size : integer;
|
||
Colors : array[0..767]of Byte;
|
||
end;
|
||
|
||
LineSettingsType = record
|
||
linestyle : word;
|
||
pattern : word;
|
||
thickness : word;
|
||
end;
|
||
|
||
TextSettingsType = record
|
||
font : word;
|
||
direction : word;
|
||
charsize : word;
|
||
horiz : word;
|
||
vert : word;
|
||
end;
|
||
|
||
FillSettingsType = record
|
||
pattern : word;
|
||
color : longint;
|
||
end;
|
||
|
||
FillPatternType = array[1..8] of byte;
|
||
|
||
PointType = record
|
||
x,y : integer;
|
||
end;
|
||
|
||
ViewPortType = record
|
||
x1,y1,x2,y2 : integer;
|
||
Clip : boolean;
|
||
end;
|
||
|
||
ArcCoordsType = record
|
||
x,y : integer;
|
||
xstart,ystart : integer;
|
||
xend,yend : integer;
|
||
end;
|
||
|
||
const
|
||
fillpattern : array[0..12] of FillPatternType = (
|
||
($00,$00,$00,$00,$00,$00,$00,$00), { Hintergrundfarbe }
|
||
($ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff), { Vordergrundfarbe }
|
||
($ff,$ff,$00,$00,$ff,$ff,$00,$00), { === }
|
||
($01,$02,$04,$08,$10,$20,$40,$80), { /// }
|
||
($07,$0e,$1c,$38,$70,$e0,$c1,$83), { /// als dicke Linien }
|
||
($07,$83,$c1,$e0,$70,$38,$1c,$0e), { \\\ als dicke Linien }
|
||
($5a,$2d,$96,$4b,$a5,$d2,$69,$b4), { \ \\ \ }
|
||
($ff,$88,$88,$88,$ff,$88,$88,$88), { K„stchen }
|
||
($18,$24,$42,$81,$81,$42,$24,$18), { Rauten }
|
||
($cc,$33,$cc,$33,$cc,$33,$cc,$33), { "Mauermuster" }
|
||
($80,$00,$08,$00,$80,$00,$08,$00), { weit auseinanderliegende Punkte }
|
||
($88,$00,$22,$00,$88,$00,$22,$00), { dichte Punkte}
|
||
(0,0,0,0,0,0,0,0) { benutzerdefiniert }
|
||
);
|
||
|
||
{
|
||
$Log$
|
||
Revision 1.2 1998-03-26 10:41:15 florian
|
||
* some warnings fixed
|
||
|
||
Revision 1.1.1.1 1998/03/25 11:18:42 root
|
||
* Restored version
|
||
|
||
Revision 1.4 1998/03/03 22:48:42 florian
|
||
+ graph.drawpoly procedure
|
||
+ putimage with xorput uses mmx if available
|
||
|
||
Revision 1.3 1998/01/26 11:58:05 michael
|
||
+ Added log at the end
|
||
|
||
|
||
|
||
Working file: rtl/dos/ppi/global.ppi
|
||
description:
|
||
----------------------------
|
||
revision 1.2
|
||
date: 1997/12/01 12:21:30; author: michael; state: Exp; lines: +13 -0
|
||
+ added copyright reference in header.
|
||
----------------------------
|
||
revision 1.1
|
||
date: 1997/11/27 08:33:51; author: michael; state: Exp;
|
||
Initial revision
|
||
----------------------------
|
||
revision 1.1.1.1
|
||
date: 1997/11/27 08:33:51; author: michael; state: Exp; lines: +0 -0
|
||
FPC RTL CVS start
|
||
=============================================================================
|
||
}
|