freepascal.compiler/packages/svgalib/svgalib.pp

unit SVGALib;

{*************************************************************************
  VGAlib version 1.2 - (c) 1993 Tommy Frandsen

  This library is free software; you can redistribute it and/or
  modify it without any restrictions. This library is distributed
  in the hope that it will be useful, but without any warranty.

  Extended for svgalib by Harm Hanemaayer and Hartmut Schirmer
 ************************************************************************

  Original conversion to FPK-Pascal done by Balazs Scheidler ([email protected])
  08/29/1997
  
  Modified by Matthias K"oppe <[email protected]>, 21-Sep-1997
  The compiler (FPK 0.9.1) seems to have a problem with external procedures
  having void argument list (wrong number of arguments is taken from stack.)
  Therefore, I added dummy arguments to all these procedures. Moreover, I
  added `vgagl' support.

  Modified by Michael Van Canneyt ([email protected]) to
  support version 0.99.5 of the compiler. (March 1998) Removed the void replacements.
  Added makefile and 2 testprograms. Tested with svgalib 1.2.12.
   
  ************************************************************************}

interface

{ As of version 0.99.0, you can specify libs to link to in the source file }
{ Make sure you have those libs. MVC }

{$linklib vga}
{$linklib vgagl}
{$linklib c}

const
  GTEXT             = 0;		{ Compatible with VGAlib v1.2 }
  G320x200x16       = 1;
  G640x200x16       = 2;
  G640x350x16       = 3;
  G640x480x16       = 4;
  G320x200x256      = 5;
  G320x240x256      = 6;
  G320x400x256      = 7;
  G360x480x256      = 8;
  G640x480x2        = 9;

  G640x480x256      = 10;
  G800x600x256      = 11;
  G1024x768x256     = 12;

  G1280x1024x256    = 13;   { Additional modes. }

  G320x200x32K      = 14;
  G320x200x64K      = 15;
  G320x200x16M      = 16;
  G640x480x32K      = 17;
  G640x480x64K      = 18;
  G640x480x16M      = 19;
  G800x600x32K      = 20;
  G800x600x64K      = 21;
  G800x600x16M      = 22;
  G1024x768x32K     = 23;
  G1024x768x64K     = 24;
  G1024x768x16M     = 25;
  G1280x1024x32K    = 26;
  G1280x1024x64K    = 27;
  G1280x1024x16M    = 28;

  G800x600x16       = 29;
  G1024x768x16      = 30;
  G1280x1024x16     = 31;

  G720x348x2        = 32;		{ Hercules emulation mode }

  G320x200x16M32    = 33;	{ 32-bit per pixel modes. }
  G640x480x16M32    = 34;
  G800x600x16M32    = 35;
  G1024x768x16M32   = 36;
  G1280x1024x16M32  = 37;

{ additional resolutions }
  G1152x864x16      = 38;
  G1152x864x256     = 39;
  G1152x864x32K     = 40;
  G1152x864x64K     = 41;
  G1152x864x16M     = 42;
  G1152x864x16M32   = 43;

  G1600x1200x16     = 44;
  G1600x1200x256    = 45;
  G1600x1200x32K    = 46;
  G1600x1200x64K    = 47;
  G1600x1200x16M    = 48;
  G1600x1200x16M32  = 49;

  GLASTMODE         = 49;
  
{ Extensions to VGAlib v1.2: }

{ blit flags }
const
  HAVE_BITBLIT          = 1;
  HAVE_FILLBLIT         = 2;
  HAVE_IMAGEBLIT        = 4;
  HAVE_HLINELISTBLIT    = 8;
  HAVE_BLITWAIT         = 16;

{ other flags }
  HAVE_RWPAGE           = 1;		{ vga_setreadpage() / vga_setwritepage() available }
  IS_INTERLACED         = 2;		{ mode is interlaced }
  IS_MODEX              = 4;		{ ModeX style 256 colors }
  IS_DYNAMICMODE        = 8;	        { Dynamic defined mode }
  CAPABLE_LINEAR        = 16;	        { Can go to linear addressing mode. }
  IS_LINEAR             = 32;		{ Linear addressing enabled. }
  EXT_INFO_AVAILABLE    = 64;	        { Returned modeinfo contains valid extended fields }
  RGB_MISORDERED        = 128;  	{ Mach32 32bpp uses 0BGR instead of BGR0. }
    { As of this version 1.25 also used to signal if real RGB
       (red first in memory) is used instead of BGR (Mach32 DAC 4) }
  HAVE_EXT_SET          = 256;	        { vga_ext_set() available }

{ Valid values for what in vga_ext_set: }
const
  VGA_EXT_AVAILABLE   = 0;	{ supported flags }
  VGA_EXT_SET	      = 1;	{ set flag(s) }
  VGA_EXT_CLEAR	      = 2;	{ clear flag(s) }
  VGA_EXT_RESET	      = 3;	{ set/clear flag(s) }
  VGA_EXT_PAGE_OFFSET = 4;	{ set an offset for all subsequent vga_set*page() calls }
    { Like: vga_ext_set(VGA_EXT_PAGE_OFFSET, 42);           }
    { returns the previous offset value.                    }

 { Valid params for VGA_EXT_AVAILABLE: }
  VGA_AVAIL_SET	       = 0;	{ vga_ext_set sub funcs }
  VGA_AVAIL_ACCEL      = 1;	{ vga_accel sub funcs }
  VGA_AVAIL_FLAGS      = 2;	{ known flags for VGA_EXT_SET }
  
 { Known flags to vga_ext_set() }
  VGA_CLUT8	       = 1;	{ 8 bit DAC entries }

  { Acceleration interface. }

  { Accel operations. }
  ACCEL_FILLBOX		   = 1;	{ Simple solid fill. }
  ACCEL_SCREENCOPY	   = 2;	{ Simple screen-to-screen BLT. }
  ACCEL_PUTIMAGE	   = 3;	{ Straight image transfer. }
  ACCEL_DRAWLINE	   = 4;	{ General line draw. }
  ACCEL_SETFGCOLOR	   = 5;	{ Set foreground color. }
  ACCEL_SETBGCOLOR	   = 6;	{ Set background color. }
  ACCEL_SETTRANSPARENCY	   = 7;	{ Set transparency mode. }
  ACCEL_SETRASTEROP	   = 8;	{ Set raster-operation. }
  ACCEL_PUTBITMAP	   = 9;	{ Color-expand bitmap. }
  ACCEL_SCREENCOPYBITMAP   = 10;	{ Color-exand from screen. }
  ACCEL_DRAWHLINELIST	   = 11;	{ Draw horizontal spans. }
  ACCEL_SETMODE		   = 12;	{ Set blit strategy. }
  ACCEL_SYNC		   = 13;	{ Wait for blits to finish. }

  { Corresponding bitmask. }
  ACCELFLAG_FILLBOX	      = $1;	{ Simple solid fill. }
  ACCELFLAG_SCREENCOPY	      = $2;	{ Simple screen-to-screen BLT. }
  ACCELFLAG_PUTIMAGE	      = $4;	{ Straight image transfer. }
  ACCELFLAG_DRAWLINE	      = $8;	{ General line draw. }
  ACCELFLAG_SETFGCOLOR	      = $10;	{ Set foreground color. }
  ACCELFLAG_SETBGCOLOR	      = $20;	{ Set background color. }
  ACCELFLAG_SETTRANSPARENCY   = $40;	{ Set transparency mode. }
  ACCELFLAG_SETRASTEROP	      = $80;	{ Set raster-operation. }
  ACCELFLAG_PUTBITMAP	      = $100;	{ Color-expand bitmap. }
  ACCELFLAG_SCREENCOPYBITMAP  = $200;	{ Color-exand from screen. }
  ACCELFLAG_DRAWHLINELIST     = $400;	{ Draw horizontal spans. }
  ACCELFLAG_SETMODE	      = $800;	{ Set blit strategy. }
  ACCELFLAG_SYNC	      = $1000;	{ Wait for blits to finish. }

  { Mode for SetTransparency. }
  DISABLE_TRANSPARENCY_COLOR  =  0;
  ENABLE_TRANSPARENCY_COLOR   =  1;
  DISABLE_BITMAP_TRANSPARENCY =  2;
  ENABLE_BITMAP_TRANSPARENCY  =  3;

  { Flags for SetMode (accelerator interface). }
  BLITS_SYNC		      =  0;
  BLITS_IN_BACKGROUND	      =  $1;

  { Raster ops. }
  ROP_COPY		      =  0;	{ Straight copy. }
  ROP_OR		      =  1;	{ Source OR destination. }
  ROP_AND		      =  2;	{ Source AND destination. }
  ROP_XOR		      =  3;	{ Source XOR destination. }
  ROP_INVERT		      =  4;	{ Invert destination. }

const
  { chipsets }
  UNDEFINED             = 0;
  VGA                   = 1;
  ET4000                = 2;
  CIRRUS                = 3;
  TVGA8900              = 4;
  OAK                   = 5;
  EGA                   = 6;
  S3                    = 7;
  ET3000                = 8;
  MACH32                = 9;
  GVGA6400              = 10;
  ARK                   = 11;
  ATI                   = 12;
  ALI                   = 13;
  MACH64                = 14;

    { Hor. sync: }
  MON640_60             = 0;	{ 31.5 KHz (standard VGA) }
  MON800_56             = 1;	{ 35.1 KHz (old SVGA) }
  MON1024_43I           = 2;	{ 35.5 KHz (low-end SVGA, 8514) }
  MON800_60             = 3;	{ 37.9 KHz (SVGA) }
  MON1024_60            = 4;	{ 48.3 KHz (SVGA non-interlaced) }
  MON1024_70            = 5;	{ 56.0 KHz (SVGA high frequency) }
  MON1024_72            = 6;

{
 * valid values for what ( | is valid to combine them )
   (vga_waitevent values)
 }
  VGA_MOUSEEVENT        = 1;
  VGA_KEYEVENT          = 2;
  

type
  pvga_modeinfo = ^vga_modeinfo;
  vga_modeinfo = record
    width,
    height,
    bytesperpixel,
    colors,
    linewidth,		{ scanline width in bytes }
    maxlogicalwidth,	{ maximum logical scanline width }
    startaddressrange,	{ changeable bits set }
    maxpixels,		{ video memory / bytesperpixel }
    haveblit,		{ mask of blit functions available }
    flags: Longint;    	{ other flags }
 
    { Extended fields: }
 
    chiptype,		{ Chiptype detected }
    memory,		{ videomemory in KB }
    linewidth_unit: Longint;	{ Use only a multiple of this as parameter for set_logicalwidth and
                                  set_displaystart }
    linear_aperture: PChar;	{ points to mmap secondary mem aperture of card (NULL if unavailable) }
    aperture_size: Longint;	{ size of aperture in KB if size>=videomemory. 0 if unavail }
    set_aperture_page: procedure (page: Longint);
    { if aperture_size<videomemory select a memory page }
    extensions: Pointer;        { points to copy of eeprom for mach32 }
                                { depends from actual driver/chiptype.. etc. }
  end;
  shutdown_routine_ptr = procedure;

var
  graph_mem: PChar;

Function vga_setmode(mode: Longint): Longint; cdecl;
Function vga_hasmode(mode: Longint): Boolean; cdecl;
Function vga_setflipchar(c: Longint): Longint; cdecl;

Function vga_clear: Longint; cdecl;
Function vga_flip: Longint; cdecl;

Function vga_getxdim: Longint; cdecl;
Function vga_getydim: Longint; cdecl;
Function vga_getcolors: Longint; cdecl;

Function vga_setpalette(index: Longint; red: Longint; green: Longint; blue: Longint): Longint; cdecl;
Function vga_getpalette(index: Longint; var red: Longint; var green: Longint; var blue: Longint): Longint; cdecl;
Function vga_setpalvec(start: Longint; num: Longint; var pal): Longint; cdecl;
Function vga_getpalvec(start: Longint; num: Longint; var pal): Longint; cdecl;

Function vga_screenoff: Longint; cdecl;
Function vga_screenon: Longint; cdecl;

Function vga_setcolor(color: Longint): Longint; cdecl;
Function vga_drawpixel(x, y: Longint): Longint; cdecl;
Function vga_drawline(x1, y1, x2, y2: Longint): Longint; cdecl;
Function vga_drawscanline(line: Longint; var colors): Longint; cdecl;
Function vga_drawscansegment(var colors; x, y: Longint; length: Longint): Longint; cdecl;
Function vga_getpixel(x, y: Longint): Longint; cdecl;
Function vga_getscansegment(var colors; x, y: Longint; length: Longint): Longint; cdecl;

Function vga_getch: Longint; cdecl;

Function vga_dumpregs: Longint; cdecl;


Function vga_getmodeinfo(mode: Longint): pvga_modeinfo; cdecl;
Function vga_getdefaultmode: Longint; cdecl;
Function vga_getcurrentmode: Longint; cdecl;
Function vga_getcurrentchipset: Longint; cdecl;
Function vga_getmodename(mode: Longint): PChar; cdecl;
Function vga_getmodenumber(name: PChar): Longint; cdecl;
Function vga_lastmodenumber: Longint; cdecl;

Function vga_getgraphmem: PChar; cdecl;

Procedure vga_setpage(p: Longint); cdecl;
Procedure vga_setreadpage(p: Longint); cdecl;
Procedure vga_setwritepage(p: Longint); cdecl;
Procedure vga_setlogicalwidth(w: Longint); cdecl;
Procedure vga_setdisplaystart(a: Longint); cdecl;
Procedure vga_waitretrace; cdecl;
Function vga_claimvideomemory(n: Longint): Longint; cdecl;
Procedure vga_disabledriverreport; cdecl;
Function vga_setmodeX: Longint; cdecl;
Function vga_init: Longint;	{ Used to return void in svgalib <= 1.12. } cdecl;
Function vga_getmousetype: Longint; cdecl;
Function vga_getmonitortype: Longint; cdecl;
Procedure vga_setmousesupport(s: Longint); cdecl;
Procedure vga_lockvc; cdecl;
Procedure vga_unlockvc; cdecl;
Function vga_getkey: Longint; cdecl;
Procedure vga_runinbackground(s: Longint); cdecl;
Function vga_oktowrite: Longint; cdecl;
Procedure vga_copytoplanar256(virtualp: PChar; pitch: Longint; 
                                  voffset: Longint; vpitch: Longint; w: Longint; h: Longint);cdecl;
Procedure vga_copytoplanar16(virtualp: PChar; pitch, voffset, vpitch, w, h: Longint); cdecl;
Procedure vga_copytoplane(virtualp: PChar; pitch, voffset, vpitch, w, h, plane: Longint); cdecl;
Function vga_setlinearaddressing: Longint; cdecl;
Procedure vga_safety_fork(shutdown_routine: shutdown_routine_ptr); cdecl;

Procedure vga_setchipset(c: Longint); cdecl;
Procedure vga_setchipsetandfeatures(c: Longint; par1: Longint; par2: Longint); cdecl;
Procedure vga_gettextfont(font: Pointer); cdecl;
Procedure vga_puttextfont(font: Pointer); cdecl;
Procedure vga_settextmoderegs(regs: Pointer); cdecl;
Procedure vga_gettextmoderegs(regs: Pointer); cdecl;

Function vga_white: Longint; cdecl;
Function vga_setegacolor(c: Longint): Longint; cdecl;
Function vga_setrgbcolor(r, g, b: Longint): Longint; cdecl;

Procedure vga_bitblt(srcaddr, destaddr: Longint; w, h: Longint; pitch: Longint); cdecl;
Procedure vga_imageblt(srcaddr: Pointer; destaddr: Longint; w, h, pitch: Longint); cdecl;
Procedure vga_fillblt(destaddr: Longint; w, h, pitch, c: Longint); cdecl;
Procedure vga_hlinelistblt(ymin, n: Longint; var xmin, xmax: Longint; pitch, c: Longint); cdecl;
Procedure vga_blitwait; cdecl;

{
  The following Functions are not implemented, because they use variable number cdecl;
  of arguments
int vga_ext_set(unsigned what,...);
int vga_accel(unsigned operation,...);
}

{
 * wait for keypress, mousemove, I/O, timeout. cf. select (3) for details on
 * all parameters execept which.
 * NULL is a valid argument for any of the ptrs.
 }

type
  fd_set = array [1..32] of Longint;
  timeval = record
    tv_sec, tv_usec: Longint;
  end;

Function vga_waitevent(which: Longint; var inp, outp, excp: fd_set; 
			     timeout: timeval): Longint;cdecl;

{
 * return value >= has bits set for mouse/keyboard events detected.
 * mouse and raw keyboard events are already handled and their bits removed
 * from *in when vga_waitevent returns.
 * VGA_KEYEVENT relates to vga_getch NOT vga_getkey.
 * return values < 0 signal errors. In this case check errno.
 }

{ This part has been added by Matthias K"oppe <[email protected]>.
 It reflects the content of `vgagl.h'.
 }

const
  CONTEXT_VIRTUAL  = 0;
  CONTEXT_PAGED	   = 1;
  CONTEXT_LINEAR   = 2;
  CONTEXT_MODEX	   = 3;
  CONTEXT_PLANAR16 = 4;
		   
const
  MODEFLAG_PAGEFLIPPING_CAPABLE	   = $01;
  MODEFLAG_TRIPLEBUFFERING_CAPABLE = $02;
  MODEFLAG_PAGEFLIPPING_ENABLED	   = $04;
  MODEFLAG_TRIPLEBUFFERING_ENABLED = $08;
  MODEFLAG_FLIPPAGE_BANKALIGNED	   = $10;
  MODEFLAG_32BPP_SHIFT8		   = $20;
  MODEFLAG_24BPP_REVERSED	   = $20;
				   
type
  PGraphicsContext = ^TGraphicsContext;
  TGraphicsContext = record
		       ModeType: Byte;
		       ModeFlags: Byte;
		       Dummy: Byte;
		       FlipPage: Byte;
		       Width: LongInt;
		       Height: LongInt;
		       BytesPerPixel: LongInt;
		       Colors: LongInt;
		       BitsPerPixel: LongInt;
		       ByteWidth: LongInt;
		       VBuf: pointer;
		       Clip: LongInt;
		       ClipX1: LongInt;
		       ClipY1: LongInt;
		       ClipX2: LongInt;
		       ClipY2: LongInt;
		       ff: pointer;
		     end;	     

{ Configuration
}
Function gl_setcontextvga(m: LongInt): LongInt; cdecl;
Function gl_setcontextvgavirtual(m: LongInt): LongInt; cdecl;
Procedure gl_setcontextvirtual(w, h, bpp, bitspp: LongInt; vbuf: pointer); cdecl;
Procedure gl_setcontextwidth(w: LongInt); cdecl;
Procedure gl_setcontextheight(h: LongInt); cdecl;
Function gl_allocatecontext: PGraphicsContext; cdecl;
Procedure gl_setcontext(gc: PGraphicsContext); cdecl;
Procedure gl_getcontext(gc: PGraphicsContext); cdecl;
Procedure gl_freecontext(gc: PGraphicsContext); cdecl;

{ Line drawing 
}
Procedure gl_setpixel(x, y, c: LongInt); cdecl;
Procedure gl_setpixelrgb(x, y, r, g, b: LongInt); cdecl;
Function gl_getpixel(x, y: LongInt): LongInt; cdecl;
Procedure gl_getpixelrgb(x, y: LongInt; var r, g, b: LongInt); cdecl;
Function gl_rgbcolor(r, g, b: LongInt): LongInt; cdecl;
Procedure gl_hline(x1, y, x2, c: LongInt); cdecl;
Procedure gl_line(x1, y1, x2, y2, c: LongInt); cdecl;
Procedure gl_circle(x, y, r, c: LongInt ); cdecl;

{ Box (bitmap) Functions cdecl;
}
Procedure gl_fillbox(x, y, w, h, c: LongInt); cdecl;
Procedure gl_getbox(x, y, w, h: LongInt; dp: pointer); cdecl;
Procedure gl_putbox(x, y, w, h: LongInt; dp: pointer); cdecl;
Procedure gl_putboxpart(x, y, w, h, bw, bh: LongInt; b: pointer; xo, yo: LongInt); cdecl;
Procedure gl_putboxmask(x, y, w, h: LongInt; dp: pointer); cdecl;
Procedure gl_copybox(x1, y1, w, h, x2, y2: LongInt); cdecl;
Procedure gl_copyboxtocontext(x1, y1, w, h: LongInt; var gc: TGraphicsContext; x2, y2: LongInt); cdecl;
Procedure gl_copyboxfromcontext(var gc: TGraphicsContext; x1, y1, w, h, x2, y2: LongInt); cdecl;
{ The following Functions only work in 256-color modes: } cdecl;
Procedure gl_compileboxmask(w, h: LongInt; sdp, dpp: pointer); cdecl;
Function gl_compiledboxmasksize(w, h: LongInt; sdp: pointer): LongInt; cdecl;
Procedure gl_putboxmaskcompiled(x, y, w, h: LongInt; dp: pointer); cdecl;

{ Miscellaneous
 }

Procedure gl_clearscreen(c: LongInt); cdecl;
Procedure gl_scalebox(w1, h1: LongInt; sb: pointer; w2, h2: LongInt; db: pointer); cdecl;
Procedure gl_setdisplaystart(x, y: LongInt); cdecl;
Procedure gl_enableclipping; cdecl;
Procedure gl_setclippingwindow(x1, y1, x2, y2: LongInt); cdecl;
Procedure gl_disableclipping; cdecl;

{ Screen buffering
}

Procedure gl_copyscreen(var gc: TGraphicsContext); cdecl;
Procedure gl_setscreenoffset(o: LongInt); cdecl;
Function gl_enablepageflipping(var gc: TGraphicsContext): LongInt; cdecl;

{ Text
 }

{ Writemode flags.
 }
const
  WRITEMODE_OVERWRITE = 0;
  WRITEMODE_MASKED    = 1;
  FONT_EXPANDED	      = 0;
  FONT_COMPRESSED     = 2;

Procedure gl_expandfont(fw, fh, c: LongInt; sfdp, dfdp: pointer); cdecl;
Procedure gl_setfont(fw, fh: LongInt; fdp: pointer); cdecl;
Procedure gl_colorfont(fw, fh, c: LongInt; fdp: pointer); cdecl;
Procedure gl_setwritemode(wm: LongInt); cdecl;
Procedure gl_write(x, y: LongInt; s: PChar); cdecl;
Procedure gl_writen(x, y, n: LongInt; s: PChar); cdecl;
Procedure gl_setfontcolors(bg, fg: LongInt); cdecl;

{extern unsigned char *gl_font8x8;	/* compressed 8x8 font */}

type
  TRGB = record
	   red, green, blue: Byte
	 end;		    
type
  TRGBPalette = array[0..255] of TRGB;

Procedure gl_setpalettecolor(c, r, b, g: LongInt); cdecl;
Procedure gl_getpalettecolor(c: LongInt; var r, b, g: LongInt); cdecl;
Procedure gl_setpalettecolors(s, n: LongInt; dp: pointer); cdecl;
Procedure gl_getpalettecolors(s, n: LongInt; dp: pointer); cdecl;
Procedure gl_setpalette(p: pointer); cdecl;
Procedure gl_getpalette(p: pointer); cdecl;
Procedure gl_setrgbpalette; cdecl;

Procedure gl_font8x8; { ACTUALLY A DATA POINTER } cdecl;

implementation 

function vga_setmode(mode: Longint): Longint; Cdecl; External;
function vga_hasmode(mode: Longint): Boolean; Cdecl; External;
function vga_setflipchar(c: Longint): Longint; Cdecl; External;

function vga_clear: Longint; Cdecl; External;
function vga_flip: Longint;  Cdecl; External;

function vga_getxdim: Longint;  Cdecl; External;
function vga_getydim: Longint;  Cdecl; External;
function vga_getcolors: Longint;Cdecl; External;

function vga_setpalette(index: Longint; red: Longint; green: Longint; blue: Longint): Longint; Cdecl; External;
function vga_getpalette(index: Longint; var red: Longint; var green: Longint; var blue: Longint): Longint; Cdecl; External;
function vga_setpalvec(start: Longint; num: Longint; var pal): Longint; Cdecl; External;
function vga_getpalvec(start: Longint; num: Longint; var pal): Longint; Cdecl; External;

function vga_screenoff: Longint; Cdecl; External;
function vga_screenon: Longint;  Cdecl; External;

function vga_setcolor(color: Longint): Longint; Cdecl; External;
function vga_drawpixel(x, y: Longint): Longint; Cdecl; External;
function vga_drawline(x1, y1, x2, y2: Longint): Longint; Cdecl; External;
function vga_drawscanline(line: Longint; var colors): Longint; Cdecl; External;
function vga_drawscansegment(var colors; x, y: Longint; length: Longint): Longint; Cdecl; External;
function vga_getpixel(x, y: Longint): Longint; Cdecl; External;
function vga_getscansegment(var colors; x, y: Longint; length: Longint): Longint; Cdecl; External;

function vga_getch: Longint; Cdecl; External;

function vga_dumpregs: Longint; Cdecl; External;


function vga_getmodeinfo(mode: Longint): pvga_modeinfo; Cdecl; External;
function vga_getdefaultmode: Longint; Cdecl; External;
function vga_getcurrentmode: Longint; Cdecl; External;
function vga_getcurrentchipset: Longint; Cdecl; External;
function vga_getmodename(mode: Longint): PChar; Cdecl; External;
function vga_getmodenumber(name: PChar): Longint; Cdecl; External;
function vga_lastmodenumber: Longint; Cdecl; External;

function vga_getgraphmem: PChar; Cdecl; External;

procedure vga_setpage(p: Longint); Cdecl; External;
procedure vga_setreadpage(p: Longint); Cdecl; External;
procedure vga_setwritepage(p: Longint); Cdecl; External;
procedure vga_setlogicalwidth(w: Longint); Cdecl; External;
procedure vga_setdisplaystart(a: Longint); Cdecl; External;
procedure vga_waitretrace; Cdecl; External;
function vga_claimvideomemory(n: Longint): Longint; Cdecl; External;
procedure vga_disabledriverreport; Cdecl; External;
function vga_setmodeX: Longint; Cdecl; External;
function vga_init: Longint; Cdecl; External;	{ Used to return void in svgalib <= 1.12. }
function vga_getmousetype: Longint; Cdecl; External;
function vga_getmonitortype: Longint; Cdecl; External;
procedure vga_setmousesupport(s: Longint); Cdecl; External;
procedure vga_lockvc; Cdecl; External;
procedure vga_unlockvc; Cdecl; External;
function vga_getkey: Longint; Cdecl; External;
procedure vga_runinbackground(s: Longint); Cdecl; External;
function vga_oktowrite: Longint; Cdecl; External;
procedure vga_copytoplanar256(virtualp: PChar; pitch: Longint;
                                  voffset: Longint; vpitch: Longint; w: Longint; h: Longint); Cdecl; External;
procedure vga_copytoplanar16(virtualp: PChar; pitch, voffset, vpitch, w, h: Longint); Cdecl; External;
procedure vga_copytoplane(virtualp: PChar; pitch, voffset, vpitch, w, h, plane: Longint); Cdecl; External;
function vga_setlinearaddressing: Longint; Cdecl; External;
procedure vga_safety_fork(shutdown_routine: shutdown_routine_ptr); Cdecl; External;

procedure vga_setchipset(c: Longint); Cdecl; External;
procedure vga_setchipsetandfeatures(c: Longint; par1: Longint; par2: Longint); Cdecl; External;
procedure vga_gettextfont(font: Pointer); Cdecl; External;
procedure vga_puttextfont(font: Pointer); Cdecl; External;
procedure vga_settextmoderegs(regs: Pointer); Cdecl; External;
procedure vga_gettextmoderegs(regs: Pointer); Cdecl; External;

function vga_white: Longint; Cdecl; External;
function vga_setegacolor(c: Longint): Longint; Cdecl; External;
function vga_setrgbcolor(r, g, b: Longint): Longint; Cdecl; External;

procedure vga_bitblt(srcaddr, destaddr: Longint; w, h: Longint; pitch: Longint); Cdecl; External;
procedure vga_imageblt(srcaddr: Pointer; destaddr: Longint; w, h, pitch: Longint); Cdecl; External;
procedure vga_fillblt(destaddr: Longint; w, h, pitch, c: Longint); Cdecl; External;
procedure vga_hlinelistblt(ymin, n: Longint; var xmin, xmax: Longint; pitch, c: Longint); Cdecl; External;
procedure vga_blitwait; Cdecl; External;

{
  The following functions are not implemented, because they use variable number
  of arguments
int vga_ext_set(unsigned what,...);
int vga_accel(unsigned operation,...);
}

function vga_waitevent(which: Longint; var inp, outp, excp: fd_set;
			     timeout: timeval): Longint; Cdecl; External;


{ vgagl }

function gl_setcontextvga(m: LongInt): LongInt; Cdecl; External;
function gl_setcontextvgavirtual(m: LongInt): LongInt; Cdecl; External;
procedure gl_setcontextvirtual(w, h, bpp, bitspp: LongInt; vbuf: pointer); Cdecl; External;
procedure gl_setcontextwidth(w: LongInt); Cdecl; External;
procedure gl_setcontextheight(h: LongInt); Cdecl; External;
function gl_allocatecontext: PGraphicsContext; Cdecl; External;
procedure gl_setcontext(gc: PGraphicsContext); Cdecl; External;
procedure gl_getcontext(gc: PGraphicsContext); Cdecl; External;
procedure gl_freecontext(gc: PGraphicsContext); Cdecl; External;
procedure gl_setpixel(x, y, c: LongInt); Cdecl; External;
procedure gl_setpixelrgb(x, y, r, g, b: LongInt); Cdecl; External;
function gl_getpixel(x, y: LongInt): LongInt; Cdecl; External;
procedure gl_getpixelrgb(x, y: LongInt; var r, g, b: LongInt); Cdecl; External;
function gl_rgbcolor(r, g, b: LongInt): LongInt; Cdecl; External;
procedure gl_hline(x1, y, x2, c: LongInt); Cdecl; External;
procedure gl_line(x1, y1, x2, y2, c: LongInt); Cdecl; External;
procedure gl_circle(x, y, r, c: LongInt ); Cdecl; External;
procedure gl_fillbox(x, y, w, h, c: LongInt); Cdecl; External;
procedure gl_getbox(x, y, w, h: LongInt; dp: pointer); Cdecl; External;
procedure gl_putbox(x, y, w, h: LongInt; dp: pointer); Cdecl; External;
procedure gl_putboxpart(x, y, w, h, bw, bh: LongInt; b: pointer; xo, yo: LongInt); Cdecl; External;
procedure gl_putboxmask(x, y, w, h: LongInt; dp: pointer); Cdecl; External;
procedure gl_copybox(x1, y1, w, h, x2, y2: LongInt); Cdecl; External;
procedure gl_copyboxtocontext(x1, y1, w, h: LongInt; var gc: TGraphicsContext; x2, y2: LongInt); Cdecl; External;
procedure gl_copyboxfromcontext(var gc: TGraphicsContext; x1, y1, w, h, x2, y2: LongInt); Cdecl; External;
procedure gl_compileboxmask(w, h: LongInt; sdp, dpp: pointer); Cdecl; External;
function gl_compiledboxmasksize(w, h: LongInt; sdp: pointer): LongInt; Cdecl; External;
procedure gl_putboxmaskcompiled(x, y, w, h: LongInt; dp: pointer); Cdecl; External;
procedure gl_clearscreen(c: LongInt); Cdecl; External;
procedure gl_scalebox(w1, h1: LongInt; sb: pointer; w2, h2: LongInt; db: pointer); Cdecl; External;
procedure gl_setdisplaystart(x, y: LongInt); Cdecl; External;
procedure gl_enableclipping; Cdecl; External;
procedure gl_setclippingwindow(x1, y1, x2, y2: LongInt); Cdecl; External;
procedure gl_disableclipping; Cdecl; External;
procedure gl_copyscreen(var gc: TGraphicsContext); Cdecl; External;
procedure gl_setscreenoffset(o: LongInt); Cdecl; External;
function gl_enablepageflipping(var gc: TGraphicsContext): LongInt; Cdecl; External;
procedure gl_expandfont(fw, fh, c: LongInt; sfdp, dfdp: pointer); Cdecl; External;
procedure gl_setfont(fw, fh: LongInt; fdp: pointer); Cdecl; External;
procedure gl_colorfont(fw, fh, c: LongInt; fdp: pointer); Cdecl; External;
procedure gl_setwritemode(wm: LongInt); Cdecl; External;
procedure gl_write(x, y: LongInt; s: PChar); Cdecl; External;
procedure gl_writen(x, y, n: LongInt; s: PChar); Cdecl; External;
procedure gl_setfontcolors(bg, fg: LongInt); Cdecl; External;
procedure gl_setpalettecolor(c, r, b, g: LongInt); Cdecl; External;
procedure gl_getpalettecolor(c: LongInt; var r, b, g: LongInt); Cdecl; External;
procedure gl_setpalettecolors(s, n: LongInt; dp: pointer); Cdecl; External;
procedure gl_getpalettecolors(s, n: LongInt; dp: pointer); Cdecl; External;
procedure gl_setpalette(p: pointer); Cdecl; External;
procedure gl_getpalette(p: pointer); Cdecl; External;
procedure gl_setrgbpalette; Cdecl; External;

procedure gl_font8x8; Cdecl; External;


end.

  $Log$
  Revision 1.2  2000-07-13 11:33:31  michael
  + removed logs
 
}