# unit vimage

### A unit to load a variety of image formats for VBXE

author: Steven Don, Tomasz Biela (Tebe)

VBXE Image

## Constants:

name: | value: | description:
--- | --- | ---
FileNotFound | $01 |
UnsupportedFormat | $02 |
TooLarge | $03 |
BitShift: array [0..15] of word | (1,2,4,8,$10,$20,$40,$80,$100,$200,$400,$800,$1000,$2000,$4000,$8000) |

## Register Variables:

name: | address: | type: | description:
--- | --- | --- | ---
Buffer | $0400 | array [0..0] of byte |

## Interface:

name: | description:
--- | ---
UpdateXDL | #### procedure UpdateXDL(Location: cardinal; Top: word; Height: word);
LoadPalette | #### procedure LoadPalette(cnt: byte; x, ln, a,b,c: byte);
LoadVPCX | #### function LoadVPCX(Filename: PString; Location: cardinal): Boolean; This loads a PCX File (8bit)
LoadVBMP | #### function LoadVBMP(Filename: PString; Location: cardinal): Boolean; This loads a BMP File (4bit, 8bit)
LoadVGIF | #### function LoadVGIF(FileName: PString; Location: cardinal): Boolean; This loads a GIF File (GIF87a)