Dec 212017
 
PCX.TPU - TP 6.0 Object-Oriented unit for displaying or saving PCX format picture files on Hercules, EGA, VGA, or compatible adapters.
File TPPCX.ZIP from The Programmer’s Corner in
Category Pascal Source Code
PCX.TPU – TP 6.0 Object-Oriented unit for displaying or saving PCX format picture files on Hercules, EGA, VGA, or compatible adapters.
File Name File Size Zip Size Zip Type
CHESS.PCX 41648 19930 deflated
EGA.DOC 3077 1020 deflated
EGA.INT 1195 418 deflated
EGA.TPU 1664 796 deflated
PCX.DOC 26305 6527 deflated
PCX.INT 6451 1753 deflated
PCX.TPU 11008 4606 deflated
PCX_READ.ME 2683 1174 deflated
RUNPCX.PAS 1667 757 deflated
SHAREWRE.TXT 1715 770 deflated
TP208.PCX 15700 2460 deflated

Download File TPPCX.ZIP Here

Contents of the EGA.DOC file


Documentation on EGA.TPU unit. ( See EGA.INT )

CONSTANTS

EGACard EGACard: boolean = false;
VGACard VGACard: boolean = false;

Default state of boolean expressions are false. Initialization of
this unit calls an internal procedure ( DetectEGA ) which
detects whether an EGA/VGA adapter is present. If an EGA adapter
is detected, the EGACard constant is set to true. The unit goes
on to determine if a VGA adapter is also present. If so the
VGACard constant is also set to true. ie: EGA adapter only:
EGACard = true, VGACard = false; VGA adapter: EGACard = true,
VGACard = true.

EGA_Pal EGA_Pal: PaletteType (graph unit)

Default EGA palette settings. Used with EGA_ResetPalette;

PROCEDURES

All procedures utilize the EGA Graphics 1&2 Controller Chips and Sequencer
Chip for functions. Functions work equally well for the VGA due to downward
compatibility.

EGA_SetPlane_Write procedure EGA_SetPlane_Write( Plane: byte );

Sets BitMask Register and MapMask Register for
writing to bit plane requested. Valid input for
plane is 0 to 3 only.

EGA_SetPlane_Read procedure EGA_SetPlane_Read( Plane: byte );

Sets ReadMap Register for reading bit plane
requested. Valid input for plane is 0 to 3 only.

EGA_Reset_Write procedure EGA_Reset_Write;

Resets BitMask register and MapMask register to
their default states. Should be final call to
procedures using the EGA_SetPlane_Write call.

EGA_Reset_Read procedure EGA_Reset_Read;

Resets the ReadMap Register to its default state.
Should be called after all calls to the EGA_SetPlane_
Read procedure are completed.

EGA_ResetPalette procedure EGA_ResetPalette;

Resets the EGA/VGA palette entries to their default
16 color values. Should be used if EGA_SetPalette
has been used before program termination.

EGA_SetRGBPalette procedure EGA_SetRGBPalette( cn, r, g, b: integer );

Sets color number (cn) to the values of r (red),
g (green), b (blue). r g b must be in the range of 0
to 255 ( $00..$FF ). Typical values are one of four,
$00, $55, $AA, $FF on most 64 color systems. A
number between these ranges does nothing more or
less to the color displayed. This procedure uses the
EGA BIOS interrupt $10 so parameter tables are
saved.



 December 21, 2017  Add comments

Leave a Reply