Category : Pascal Source Code
Archive   : CC20.ZIP
Filename : HEADERS.PAS

The following is a list of objects, procedures and functions included with
Custom Characters 2.0. You also get the complete source to CC.EXE to show
you how to use everything. Use ORDER.DOC to place order.
================================================================================

unit VGA;

{low level vga port access}

procedure SetSeqCont (IndexReg, DataReg : byte);
function GetSeqCont (IndexReg : byte) : byte;
procedure SetCRTCont (IndexReg, DataReg : byte);
function GetCRTCont (IndexReg : byte) : byte;
procedure SetGraphCont (IndexReg, DataReg : byte);
function GetGraphCont (IndexReg : byte) : byte;
procedure SetAttrCont (IndexReg, DataReg : byte);
function GetAttrCont (IndexReg : byte) : byte;
procedure SetMiscOutput (DataReg : byte);
function GetMiscOutput : byte;

{screen oritnted routines using low level access}

procedure WaitVertSync;
procedure WaitDispEnable;
procedure SetChrWidth8;
procedure SetChrWidth9;
function IsChrWidth9 : boolean;
procedure SetPage (StartOfs : word);
procedure CopyScrMem (Src, Dest : pointer; Len : word);

{256 color dac routines using low level access}

procedure SetDAC (RegNum, R, G, B : byte);
procedure GetDAC (RegNum : byte; var R, G, B : byte);
procedure SetDACBlock (PalPtr : pointer; StartReg, RegCnt : word);
procedure GetDACBlock (PalPtr : pointer; StartReg, RegCnt : word);
procedure FadeOutDAC;
procedure FadeInDAC (DefPal : vgaPalettePtr);

{character generator routines using low level access}

procedure AccessFontMem;
procedure AccessScreenMem;
procedure FontMapSelect (Font1, Font2 : byte);
procedure FontMapVal (MapSel : byte; var Font1, Font2 : byte);
procedure FontTableLoc (MapSel : byte; var Font1Ptr, Font2Ptr : pointer);
function GetRamTable (StartChr,TotalChrs,Height : word;
ChrAddr : vgaChrTablePtr) : vgaChrTablePtr;

{routines using vga bios}

function VGACardActive : boolean;

{attribute controller and 256 color dac routines using bios}

procedure BiosSetPalReg (RegNum, RegData : byte);
function BiosGetPalReg (RegNum : byte) : byte;
procedure BiosSetDAC (RegNum, R, G, B : byte);
procedure BiosGetDAC (RegNum : byte; var R, G, B : byte);
procedure BiosSetDACBlock (PalPtr : pointer; StartReg, RegCnt : word);
procedure BiosGetDACBlock (PalPtr : pointer; StartReg, RegCnt : word);

{character generator routines using bios}

procedure BiosFontMapSelect (Font1, Font2 : byte);
function BiosGetChrHeight : byte;
function BiosGetRomTablePtr (Info : byte) : pointer;
function BiosCopyRomTable (Info : byte) : vgaChrTablePtr;
procedure BiosSetChrTable (ChrTable : byte);
procedure BiosLoadFont (ChrData : pointer; ChrTable, ChrHeight :byte;
StartChr, NumChrs : word);
procedure BiosSetFont (ChrData : pointer; ChrTable, ChrHeight :byte;
StartChr, NumChrs : word);
procedure BiosLoad8X8Font (ChrTable : byte);
procedure BiosLoad8X14Font (ChrTable : byte);
procedure BiosLoad8X16Font (ChrTable : byte);
procedure BiosSet8X8Font (ChrTable : byte);
procedure BiosSet8X14Font (ChrTable : byte);
procedure BiosSet8X16Font (ChrTable : byte);

================================================================================

unit PCX;

PReadPCXFile = ^TReadPCXFile;
TReadPCXFile = object (TObject)
ReadError : integer;
XSize,
YSize,
EncodeBufPos : word;
ReadFileSize,
EncodeSize : longint;
ReadFile : file;
EncodeBufPtr : vgaDataBufPtr;
DecodeBufPtr : vgaDataBufPtr;
Header : pcxHeader;
ReadPalette : vgaPalette;
constructor Init (FileName : PathStr);
destructor Done; virtual;
function GetEncodeByte : byte;
procedure DecodeFile; virtual;
end;

PDecodePCXFile2 = ^TDecodePCXFile2;
TDecodePCXFile2 = object (TReadPCXFile)
constructor Init (FileName : PathStr);
end;

PDecodePCXFile256 = ^TDecodePCXFile256;
TDecodePCXFile256 = object (TReadPCXFile)
constructor Init (FileName : PathStr);
procedure ReadPal256;
procedure DecodeFile; virtual;
procedure Palette256to64;
end;

PWritePCXFile = ^TWritePCXFile;
TWritePCXFile = object (TObject)
WriteError : integer;
EncodeBufPos : word;
WriteFile : file;
EncodeBufPtr : vgaDataBufPtr;
Header : pcxHeader;
constructor Init (FileName : PathStr);
destructor Done; virtual;
procedure WriteHeader;
procedure SetHeader (XS, YS : integer; BP, CP : byte);
procedure WriteEncodeByte (E : byte);
procedure FlushEncodeBuf;
procedure EncodeFile (PCXImage : vgaDataBufPtr); virtual;
end;

PEncodePCXFile2 = ^TEncodePCXFile2;
TEncodePCXFile2 = object (TWritePCXFile)
procedure EncodeFile (PCXImage : vgaDataBufPtr); virtual;
end;

PEncodePCXFile256 = ^TEncodePCXFile256;
TEncodePCXFile256 = object (TWritePCXFile)
procedure EncodeFile (PCXImage : vgaDataBufPtr); virtual;
procedure WritePal256 (Pal : vgaPalettePtr);
procedure Palette64to256 (Pal : vgaPalettePtr);
end;

================================================================================

unit VGACGFil;

PChrGenFile = ^TChrGenFile;
TChrGenFile = object (TObject)
IoError : integer;
ChrTableSize : word;
CGFFile : file;
Header : cgfHeader;
ChrTablePtr : vgaChrTablePtr;
constructor Init;
destructor Done; virtual;
procedure FreeChrTable;
procedure OpenRead (FileName : PathStr);
procedure ReadChrTable;
procedure OpenWrite (FileName : PathStr);
procedure WriteChrTable;
procedure GetFontTable (ChrTable,StartChr,TotalChrs,Height : word);
end;

================================================================================

unit ViewTxt;

PTextWin = ^TTextWin;
TTextWin = object (TWindow)
TxtFile : Text;
TermText: Text;
Terminal: PTerminal;
constructor Init (F : PathStr);
end;

================================================================================

unit ChrPCX;

function PCXToChrTable (FileName : PathStr;
XLen, YLen, CHeight : word;
ChrTablePtr : vgaChrTablePtr) : boolean;
procedure ChrTableToPCX (FileName : PathStr;
XChrs, YChrs, CHeight : word;
ChrTablePtr : vgaChrTablePtr);

================================================================================

unit ChrSpr;

PBackView = ^TBackView;
TBackView = object (TView)
procedure Draw; virtual;
end;

PSpriteView = ^TSpriteView;
TSpriteView = object (TView)
FrameSize,
FramePos,
EndPos,
ColorAttr : byte;
Dir : TPoint;
SpriteStr : PString;
BackGnd : PBackView;
constructor Init (var Bounds : TRect;
BG : PBackView; S : PString; D : TPoint);
procedure CalcMove; virtual;
procedure Draw; virtual;
end;

PAniDlg = ^TAniDlg;
TAniDlg = object (TDialog)
AniFlag : boolean;
BackView : PBackView;
constructor Init (T : string);
procedure InitSprites; virtual;
procedure DrawSprites; virtual;
procedure HandleEvent(var Event: TEvent); virtual;
end;

PUfoView = ^TUfoView;
TUfoView = object (TSpriteView)
procedure CalcMove; virtual;
end;

PBombView = ^TBombView;
TBombView = object (TSpriteView)
procedure CalcMove; virtual;
end;

PExpView = ^TExpView;
TExpView = object (TSpriteView)
procedure CalcMove; virtual;
end;

PUfoDlg = ^TUfoDlg;
TUfoDlg = object (TAniDlg)
Ufo : PUfoView;
Bomb : PBombView;
Exp : PExpView;
procedure InitSprites; virtual;
procedure DrawSprites; virtual;
end;

PShipView = ^TShipView;
TShipView = object (TSpriteView)
procedure CalcMove; virtual;
end;

PShotView = ^TShotView;
TShotView = object (TSpriteView)
procedure CalcMove; virtual;
end;

PShipDlg = ^TShipDlg;
TShipDlg = object (TAniDlg)
Ship : PShipView;
Shot : PShotView;
procedure InitSprites; virtual;
procedure DrawSprites; virtual;
end;

================================================================================

unit ChSetDlg;

PChrGraphView = ^TChrGraphView;
TChrGraphView = object(TView)
procedure Draw; virtual;
end;

PChrGraphDlg = ^TChrGraphDlg;
TChrGraphDlg = object (TDialog)
PCXValid : boolean;
constructor Init (FileName : PathStr; CTable : byte;
XLen,YLen,CHeight : word);
function Valid(Command: Word): Boolean; virtual;
end;

================================================================================

unit OptDlg;

PScrOptsDlg = ^TScrOptsDlg;
TScrOptsDlg = object (TDialog)
ScrMode :PCheckBoxes;
ChrTable1,
ChrTable2 : PRadioButtons;
constructor Init;
end;

================================================================================

unit PalDlg;

PColPalView = ^TColPalView;
TColPalView = object (TView)
StartColor : byte;
constructor Init (var Bounds : TRect; StartCol : byte);
procedure Draw; virtual;
end;

PMsgButtons = ^TMsgButtons;
TMsgButtons = object (TRadioButtons)
procedure Press(Item: Integer); virtual;
procedure MovedTo (Item:Integer); virtual;
end;

PPalDlg = ^TPalDlg;
TPalDlg = object (TDialog)
CurPal : vgaPalette;
RedBar,
GreenBar,
BlueBar : PScrollBar;
DefColor : PMsgButtons;
constructor Init;
procedure SetColorBars (Color : byte);
procedure ChangeDAC;
procedure HandleEvent(var Event: TEvent); virtual;
end;