338 lines
11 KiB
Plaintext
338 lines
11 KiB
Plaintext
|
||
{*******************************************************}
|
||
{ }
|
||
{ Turbo Pascal Version 6.0 }
|
||
{ Graph Interface Unit }
|
||
{ }
|
||
{ Copyright (C) 1987,90 Borland International }
|
||
{ }
|
||
{*******************************************************}
|
||
|
||
unit Graph;
|
||
|
||
interface
|
||
|
||
const
|
||
{ GraphResult error return 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; { generic error }
|
||
grIOerror = -12;
|
||
grInvalidFont = -13;
|
||
grInvalidFontNum = -14;
|
||
|
||
{ define graphics drivers }
|
||
CurrentDriver = -128; { passed to GetModeRange }
|
||
Detect = 0; { requests autodetection }
|
||
CGA = 1;
|
||
MCGA = 2;
|
||
EGA = 3;
|
||
EGA64 = 4;
|
||
EGAMono = 5;
|
||
IBM8514 = 6;
|
||
HercMono = 7;
|
||
ATT400 = 8;
|
||
VGA = 9;
|
||
PC3270 = 10;
|
||
|
||
{ graphics modes for each driver }
|
||
CGAC0 = 0; { 320x200 palette 0: LightGreen, LightRed, Yellow; 1 page }
|
||
CGAC1 = 1; { 320x200 palette 1: LightCyan, LightMagenta, White; 1 page }
|
||
CGAC2 = 2; { 320x200 palette 2: Green, Red, Brown; 1 page }
|
||
CGAC3 = 3; { 320x200 palette 3: Cyan, Magenta, LightGray; 1 page }
|
||
CGAHi = 4; { 640x200 1 page }
|
||
MCGAC0 = 0; { 320x200 palette 0: LightGreen, LightRed, Yellow; 1 page }
|
||
MCGAC1 = 1; { 320x200 palette 1: LightCyan, LightMagenta, White; 1 page }
|
||
MCGAC2 = 2; { 320x200 palette 2: Green, Red, Brown; 1 page }
|
||
MCGAC3 = 3; { 320x200 palette 3: Cyan, Magenta, LightGray; 1 page }
|
||
MCGAMed = 4; { 640x200 1 page }
|
||
MCGAHi = 5; { 640x480 1 page }
|
||
EGALo = 0; { 640x200 16 color 4 page }
|
||
EGAHi = 1; { 640x350 16 color 2 page }
|
||
EGA64Lo = 0; { 640x200 16 color 1 page }
|
||
EGA64Hi = 1; { 640x350 4 color 1 page }
|
||
EGAMonoHi = 3; { 640x350 64K on card, 1 page; 256K on card, 2 page }
|
||
HercMonoHi = 0; { 720x348 2 page }
|
||
ATT400C0 = 0; { 320x200 palette 0: LightGreen, LightRed, Yellow; 1 page }
|
||
ATT400C1 = 1; { 320x200 palette 1: LightCyan, LightMagenta, White; 1 page }
|
||
ATT400C2 = 2; { 320x200 palette 2: Green, Red, Brown; 1 page }
|
||
ATT400C3 = 3; { 320x200 palette 3: Cyan, Magenta, LightGray; 1 page }
|
||
ATT400Med = 4; { 640x200 1 page }
|
||
ATT400Hi = 5; { 640x400 1 page }
|
||
VGALo = 0; { 640x200 16 color 4 page }
|
||
VGAMed = 1; { 640x350 16 color 2 page }
|
||
VGAHi = 2; { 640x480 16 color 1 page }
|
||
PC3270Hi = 0; { 720x350 1 page }
|
||
IBM8514LO = 0; { 640x480 256 colors }
|
||
IBM8514HI = 1; { 1024x768 256 colors }
|
||
|
||
{ Colors for SetPalette and 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;
|
||
|
||
{ colors for 8514 to set standard EGA colors w/o knowing their values }
|
||
EGABlack = 0; { dark colors }
|
||
EGABlue = 1;
|
||
EGAGreen = 2;
|
||
EGACyan = 3;
|
||
EGARed = 4;
|
||
EGAMagenta = 5;
|
||
EGABrown = 20;
|
||
EGALightgray = 7;
|
||
EGADarkgray = 56; { light colors }
|
||
EGALightblue = 57;
|
||
EGALightgreen = 58;
|
||
EGALightcyan = 59;
|
||
EGALightred = 60;
|
||
EGALightmagenta = 61;
|
||
EGAYellow = 62;
|
||
EGAWhite = 63;
|
||
|
||
{ Line styles and widths for Get/SetLineStyle: }
|
||
SolidLn = 0;
|
||
DottedLn = 1;
|
||
CenterLn = 2;
|
||
DashedLn = 3;
|
||
UserBitLn = 4; { User-defined line style }
|
||
|
||
NormWidth = 1;
|
||
ThickWidth = 3;
|
||
|
||
{ Set/GetTextStyle constants: }
|
||
DefaultFont = 0; { 8x8 bit mapped font }
|
||
TriplexFont = 1; { "Stroked" fonts }
|
||
SmallFont = 2;
|
||
SansSerifFont = 3;
|
||
GothicFont = 4;
|
||
|
||
HorizDir = 0; { left to right }
|
||
VertDir = 1; { bottom to top }
|
||
|
||
UserCharSize = 0; { user-defined char size }
|
||
|
||
{ Clipping constants: }
|
||
ClipOn = true;
|
||
ClipOff = false;
|
||
|
||
{ Bar3D constants: }
|
||
TopOn = true;
|
||
TopOff = false;
|
||
|
||
{ Fill patterns for Get/SetFillStyle: }
|
||
EmptyFill = 0; { fills area in background color }
|
||
SolidFill = 1; { fills area in solid fill color }
|
||
LineFill = 2; { --- fill }
|
||
LtSlashFill = 3; { /// fill }
|
||
SlashFill = 4; { /// fill with thick lines }
|
||
BkSlashFill = 5; { \\\ fill with thick lines }
|
||
LtBkSlashFill = 6; { \\\ fill }
|
||
HatchFill = 7; { light hatch fill }
|
||
XHatchFill = 8; { heavy cross hatch fill }
|
||
InterleaveFill = 9; { interleaving line fill }
|
||
WideDotFill = 10; { Widely spaced dot fill }
|
||
CloseDotFill = 11; { Closely spaced dot fill }
|
||
UserFill = 12; { user defined fill }
|
||
|
||
{ BitBlt operators for PutImage: }
|
||
NormalPut = 0; { MOV } { left for 1.0 compatibility }
|
||
CopyPut = 0; { MOV }
|
||
XORPut = 1; { XOR }
|
||
OrPut = 2; { OR }
|
||
AndPut = 3; { AND }
|
||
NotPut = 4; { NOT }
|
||
|
||
{ Horizontal and vertical justification for SetTextJustify: }
|
||
LeftText = 0;
|
||
CenterText = 1;
|
||
RightText = 2;
|
||
|
||
BottomText = 0;
|
||
{ CenterText = 1; already defined above }
|
||
TopText = 2;
|
||
|
||
|
||
const
|
||
MaxColors = 15;
|
||
type
|
||
PaletteType = record
|
||
Size : byte;
|
||
Colors : array[0..MaxColors] of shortint;
|
||
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 { Pre-defined fill style }
|
||
Pattern : word;
|
||
Color : word;
|
||
end;
|
||
|
||
FillPatternType = array[1..8] of byte; { User defined fill style }
|
||
|
||
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;
|
||
|
||
|
||
var
|
||
GraphGetMemPtr : Pointer; { allows user to steal heap allocation }
|
||
GraphFreeMemPtr : Pointer; { allows user to steal heap de-allocation }
|
||
|
||
{ *** high-level error handling *** }
|
||
function GraphErrorMsg(ErrorCode : integer) : String;
|
||
function GraphResult : integer;
|
||
|
||
{ *** detection, initialization and crt mode routines *** }
|
||
procedure DetectGraph(var GraphDriver, GraphMode : integer);
|
||
function GetDriverName : string;
|
||
|
||
procedure InitGraph(var GraphDriver : integer;
|
||
var GraphMode : integer;
|
||
PathToDriver : String);
|
||
|
||
function RegisterBGIfont(Font : pointer) : integer;
|
||
function RegisterBGIdriver(Driver : pointer) : integer;
|
||
function InstallUserDriver(DriverFileName : string;
|
||
AutoDetectPtr : pointer) : integer;
|
||
function InstallUserFont(FontFileName : string) : integer;
|
||
procedure SetGraphBufSize(BufSize : word);
|
||
function GetMaxMode : integer;
|
||
procedure GetModeRange(GraphDriver : integer; var LoMode, HiMode : integer);
|
||
function GetModeName(GraphMode : integer) : string;
|
||
procedure SetGraphMode(Mode : integer);
|
||
function GetGraphMode : integer;
|
||
procedure GraphDefaults;
|
||
procedure RestoreCrtMode;
|
||
procedure CloseGraph;
|
||
|
||
function GetX : integer;
|
||
function GetY : integer;
|
||
function GetMaxX : integer;
|
||
function GetMaxY : integer;
|
||
|
||
{ *** Screen, viewport, page routines *** }
|
||
procedure ClearDevice;
|
||
procedure SetViewPort(x1, y1, x2, y2 : integer; Clip : boolean);
|
||
procedure GetViewSettings(var ViewPort : ViewPortType);
|
||
procedure ClearViewPort;
|
||
procedure SetVisualPage(Page : word);
|
||
procedure SetActivePage(Page : word);
|
||
|
||
{ *** point-oriented routines *** }
|
||
procedure PutPixel(X, Y : integer; Pixel : word);
|
||
function GetPixel(X, Y : integer) : word;
|
||
|
||
{ *** line-oriented routines *** }
|
||
procedure SetWriteMode(WriteMode : integer);
|
||
procedure LineTo(X, Y : integer);
|
||
procedure LineRel(Dx, Dy : integer);
|
||
procedure MoveTo(X, Y : integer);
|
||
procedure MoveRel(Dx, Dy : integer);
|
||
procedure Line(x1, y1, x2, y2 : integer);
|
||
procedure GetLineSettings(var LineInfo : LineSettingsType);
|
||
procedure SetLineStyle(LineStyle : word;
|
||
Pattern : word;
|
||
Thickness : word);
|
||
|
||
{ *** polygon, fills and figures *** }
|
||
procedure Rectangle(x1, y1, x2, y2 : integer);
|
||
procedure Bar(x1, y1, x2, y2 : integer);
|
||
procedure Bar3D(x1, y1, x2, y2 : integer; Depth : word; Top : boolean);
|
||
procedure DrawPoly(NumPoints : word; var PolyPoints);
|
||
procedure FillPoly(NumPoints : word; var PolyPoints);
|
||
procedure GetFillSettings(var FillInfo : FillSettingsType);
|
||
procedure GetFillPattern(var FillPattern : FillPatternType);
|
||
procedure SetFillStyle(Pattern : word; Color : word);
|
||
procedure SetFillPattern(Pattern : FillPatternType; Color : word);
|
||
procedure FloodFill(X, Y : integer; Border : word);
|
||
|
||
{ *** arc, circle, and other curves *** }
|
||
procedure Arc(X, Y : integer; StAngle, EndAngle, Radius : word);
|
||
procedure GetArcCoords(var ArcCoords : ArcCoordsType);
|
||
procedure Circle(X, Y : integer; Radius : word);
|
||
procedure Ellipse(X, Y : integer;
|
||
StAngle, EndAngle : word;
|
||
XRadius, YRadius : word);
|
||
procedure FillEllipse(X, Y : integer;
|
||
XRadius, YRadius : word);
|
||
procedure GetAspectRatio(var Xasp, Yasp : word);
|
||
procedure SetAspectRatio(Xasp, Yasp : word);
|
||
procedure PieSlice(X, Y : integer; StAngle, EndAngle, Radius : word);
|
||
procedure Sector(X, Y : Integer;
|
||
StAngle, EndAngle,
|
||
XRadius, YRadius : word);
|
||
|
||
|
||
{ *** color and palette routines *** }
|
||
procedure SetBkColor(ColorNum : word);
|
||
procedure SetColor(Color : word);
|
||
function GetBkColor : word;
|
||
function GetColor : word;
|
||
procedure SetAllPalette(var Palette);
|
||
procedure SetPalette(ColorNum : word; Color : shortint);
|
||
procedure GetPalette(var Palette : PaletteType);
|
||
function GetPaletteSize : integer;
|
||
procedure GetDefaultPalette(var Palette : PaletteType);
|
||
function GetMaxColor : word;
|
||
procedure SetRGBPalette(ColorNum, RedValue, GreenValue, BlueValue : integer);
|
||
|
||
{ *** bit-image routines *** }
|
||
function ImageSize(x1, y1, x2, y2 : integer) : word;
|
||
procedure GetImage(x1, y1, x2, y2 : integer; var BitMap);
|
||
procedure PutImage(X, Y : integer; var BitMap; BitBlt : word);
|
||
|
||
{ *** text routines *** }
|
||
procedure GetTextSettings(var TextInfo : TextSettingsType);
|
||
procedure OutText(TextString : string);
|
||
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);
|
||
function TextHeight(TextString : string) : word;
|
||
function TextWidth(TextString : string) : word;
|
||
|