+ Start of common graph implementation

rtl/linux/Makefile

@@ -49,6 +49,7 @@ LIBNAME=fprtl
 
 # Paths
 OBJPASDIR=$(RTL)/objpas
+GRAPHDIR=$(INC)/graph
 
 # Define Go32v2 Units
 SYSTEMUNIT=syslinux
@@ -251,8 +252,17 @@ objects$(PPUEXT) : $(INC)/objects.pp objinc.inc $(SYSTEMPPU)
 
 printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMPPU)
 
+#
+# Graph
+#
+ifndef NEWGRAPH
 graph$(PPUEXT) : graph.pp linux$(PPUEXT) objects$(PPUEXT)
-
+else
+include $(GRAPHDIR)/makefile.inc
+GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
+graph$(PPUEXT) : $(GRAPHDIR)/graph.pp $(SYSTEMPPU) $(GRAPHINCDEPS) graph.inc
+	$(COMPILER) -I$(GRAPHDIR) $(GRAPHDIR)/graph.pp $(REDIR)
+endif
 #
 # Delphi Compatible Units
 #
@@ -297,7 +307,10 @@ ipc$(PPUEXT) : ipc.pp linux$(PPUEXT) $(SYSTEMPPU)
 
 #
 # $Log$
-# Revision 1.31  1999-08-04 11:30:05  michael
+# Revision 1.32  1999-11-07 16:57:26  michael
+# + Start of common graph implementation
+#
+# Revision 1.31  1999/08/04 11:30:05  michael
 # * moved gettext to fcl
 #
 # Revision 1.30  1999/07/29 01:39:09  peter

rtl/linux/ggigraph.inc

@@ -0,0 +1,405 @@
+{
+     $Id$
+}
+  const
+   InternalDriverName = 'LinuxGX';
+
+  var SavePtr : Pointer;
+
+{ ---------------------------------------------------------------------
+   SVGA bindings.
+
+  ---------------------------------------------------------------------}
+
+{  Link with VGA, gl and c libraries }
+{$linklib vga}
+{$linklib vgagl}
+{$linklib c}
+
+Const
+  { Text }
+
+  WRITEMODE_OVERWRITE = 0;
+  WRITEMODE_MASKED    = 1;
+  FONT_EXPANDED       = 0;
+  FONT_COMPRESSED     = 2;
+
+ { Types }
+ 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_displaystart }
+     linear_aperture: PChar;     { points to mmap secondary mem aperture of card }
+     aperture_size: Longint;     { size of aperture in KB if size>=videomemory.}
+
+     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;
+
+  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;
+Const
+  { VGA modes }
+  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;
+  ModeNames : Array[1..GLastMode] of string [20] = 
+   ('G320x200x16',
+    'G640x200x16',
+    'G640x350x16',
+    'G640x480x16',
+    'G320x200x256',
+    'G320x240x256',
+    'G320x400x256',
+    'G360x480x256',
+    'G640x480x2',
+    'G640x480x256',
+    'G800x600x256',
+    'G1024x768x256',
+    'G1280x1024x256',
+    'G320x200x32K',
+    'G320x200x64K',
+    'G320x200x16M',
+    'G640x480x32K',
+    'G640x480x64K',
+    'G640x480x16M',
+    'G800x600x32K',
+    'G800x600x64K',
+    'G800x600x16M',
+    'G1024x768x32K',
+    'G1024x768x64K',
+    'G1024x768x16M',
+    'G1280x1024x32K',
+    'G1280x1024x64K',
+    'G1280x1024x16M',
+    'G800x600x16',
+    '1024x768x16',
+    '1280x1024x16',
+    'G720x348x2',
+    'G320x200x16M32',
+    'G640x480x16M32',
+    'G800x600x16M32',
+    'G1024x768x16M32',
+    'G1280x1024x16M32',
+    'G1152x864x16',
+    'G1152x864x256',
+    'G1152x864x32K',
+    'G1152x864x64K',
+    'G1152x864x16M',
+    'G1152x864x16M32',
+    'G1600x1200x16',
+    'G1600x1200x256',
+    'G1600x1200x32K',
+    'G1600x1200x64K',
+    'G1600x1200x16M',
+    'G1600x1200x16M32');
+
+ { vga functions }
+ Function vga_init: Longint; Cdecl; External;
+ Function vga_getdefaultmode: Longint; Cdecl; External;
+
+ Function vga_hasmode(mode: Longint): Boolean; Cdecl; External;
+
+ Function vga_getmodeinfo(mode: Longint): pvga_modeinfo; Cdecl; External;
+ Function vga_setmode(mode: Longint): Longint; Cdecl; External;
+ Function vga_getxdim : Longint; cdecl;external;
+ Function vga_getydim : longint; cdecl;external;
+
+ { gl functions }
+ procedure gl_setpixel(x, y, c: LongInt); Cdecl; External;
+ function  gl_getpixel(x, y: LongInt): LongInt; cdecl; external;
+ procedure gl_line(x1, y1, x2, y2, c: LongInt); Cdecl; External;
+ procedure gl_fillbox(x, y, w, h, c: LongInt); Cdecl; External;
+ procedure gl_circle(x, y, r, 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_disableclipping; Cdecl; External;
+ procedure gl_enableclipping; Cdecl; External;
+ procedure gl_putboxpart(x, y, w, h, bw, bh: LongInt; b: pointer; xo, yo: LongInt); Cdecl; External;
+ function  gl_rgbcolor(r, g, b: LongInt): LongInt; Cdecl; External;
+ function  gl_setcontextvga(m: LongInt): LongInt; Cdecl; External;
+ function  gl_allocatecontext: PGraphicsContext; Cdecl; External;
+ procedure gl_getcontext(gc: PGraphicsContext); Cdecl; External;
+ procedure gl_setrgbpalette; Cdecl; External;
+ procedure gl_freecontext(gc: PGraphicsContext); Cdecl; External;
+ procedure gl_setclippingwindow(x1, y1, x2, y2: LongInt); Cdecl; External;
+ procedure gl_setwritemode(wm: LongInt); Cdecl; External;
+ procedure gl_setfontcolors(bg, fg: LongInt); Cdecl; External;
+ procedure gl_writen(x, y, n: LongInt; s: PChar); Cdecl; External;
+ procedure gl_setfont(fw, fh: LongInt; fdp: pointer); Cdecl; External;
+
+ procedure gl_copyboxfromcontext(var gc: TGraphicsContext; x1, y1, w, h, x2, y2: LongInt); Cdecl; External;
+ procedure gl_setcontext(gc: PGraphicsContext); Cdecl; External;
+
+ function  gl_setcontextvgavirtual(m: LongInt): LongInt; cdecl; external;
+ procedure gl_font8x8; Cdecl; External;
+
+
+{ ---------------------------------------------------------------------
+    Required procedures
+  ---------------------------------------------------------------------}
+procedure libvga_initmodeproc;
+begin
+  vga_setmode(IntCurrentMode);
+end;
+  
+function libvga_getpixelproc (X,Y: Integer): word;
+begin
+end;
+
+procedure libvga_putpixelproc(X,Y: Integer; Color: Word);
+begin
+end;
+
+procedure libvga_clrviewproc;
+begin
+end;
+
+procedure libvga_putimageproc (X,Y: Integer; var Bitmap; BitBlt: Word);
+begin
+end;
+
+procedure libvga_getimageproc (X1,Y1,X2,Y2: Integer; Var Bitmap);
+begin
+end;
+
+function  libvga_imagesizeproc (X1,Y1,X2,Y2: Integer): longint;
+begin
+end;
+
+procedure libvga_hlineproc (x, x2,y : integer);
+begin
+end;
+
+procedure libvga_vlineproc (x,y,y2: integer);
+begin
+end;
+
+procedure libvga_patternlineproc (x1,x2,y: integer);
+begin
+end;
+
+procedue libvga_ellipseproc  (X,Y: Integer;XRadius: word;
+  YRadius:word; stAngle,EndAngle: word; fp: PatternLineProc);
+begin
+end;
+
+procedure libvga_lineproc (X1, Y1, X2, Y2 : Integer);
+begin
+end;
+
+procedure libvga_getscanlineproc = procedure (Y : integer; var data);
+begin
+end;
+
+procedure libvga_setactivepageproc (page: word);
+begin
+end;
+
+procedure libvga_setvisualpageproc (page: word);
+begin
+end;
+
+
+procedure libvga_savestateproc;
+begin
+end;
+
+procedure libvga_restorestateproc;
+begin
+end;
+
+procedure libvga_setrgbpaletteproc(ColorNum, RedValue, GreenValue, BlueValue: Integer);
+begin
+end;
+
+procedure libvga_getrgbpaletteproc =(ColorNum: integer; var
+     RedValue, GreenValue, BlueValue: Integer);
+begin
+end;
+ 
+{************************************************************************}
+{*                       General routines                               *}
+{************************************************************************}
+
+ procedure CloseGraph;
+ Begin
+    If not isgraphmode then
+      begin
+        _graphresult := grnoinitgraph;
+        exit
+      end;
+    RestoreVideoState;
+    isgraphmode := false;
+ end;
+
+  function QueryAdapterInfo:PModeInfo;
+  { This routine returns the head pointer to the list }
+  { of supported graphics modes.                      }
+  { Returns nil if no graphics mode supported.        }
+  { This list is READ ONLY!                           }
+   var
+    mode: TModeInfo;
+    modeinfo : vga_modeinfo;
+    i : longint;
+    
+   begin
+     QueryAdapterInfo := ModeList;
+     { If the mode listing already exists... }
+     { simply return it, without changing    }
+     { anything...                           }
+     if assigned(ModeList) then
+       exit;
+     vga_init;
+     For I:=1 to GLastMode do
+       If vga_hasmode(I) then
+         begin
+         ModeInfo:=vga_getmodeinfo(i)^; 
+         InitMode(Mode);
+         With Mode,ModeInfo do
+           begin
+           ModeNumber:=I;
+           ModeName:=ModeNames[i];
+           DriverNumber := 0;
+           MaxX:=Width;
+           MaxY:=height;
+           MaxColor := colors;
+           PaletteSize := MaxColor;
+           HardwarePages := 0;
+           {
+           // necessary hooks ... 
+           DirectPutPixel : DefPixelProc;
+           GetPixel       : GetPixelProc;
+           PutPixel       : PutPixelProc;
+           SetRGBPalette  : SetRGBPaletteProc;
+           GetRGBPalette  : GetRGBPaletteProc;
+           // defaults possible ... 
+           SetVisualPage  : SetVisualPageProc;
+           SetActivePage  : SetActivePageProc;
+           ClearViewPort  : ClrViewProc;
+           PutImage       : PutImageProc;
+           GetImage       : GetImageProc;
+           ImageSize      : ImageSizeProc;
+           GetScanLine    : GetScanLineProc;
+           Line           : LineProc;
+           InternalEllipse: EllipseProc;
+           PatternLine    : PatternLineProc;
+           HLine          : HLineProc;
+           VLine          : VLineProc;
+           InitMode       : InitModeProc;
+           next: PModeInfo;
+           DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA256;
+           PutPixel:={$ifdef fpc}@{$endif}PutPixVESA256;
+           GetPixel:={$ifdef fpc}@{$endif}GetPixVESA256;
+           SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
+           GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
+           InitMode := {$ifdef fpc}@{$endif}Init640x480x256;
+           SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
+           SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
+           hline := {$ifdef fpc}@{$endif}HLineVESA256;
+           hline := {$ifdef fpc}@{$endif}HLineVESA256;
+           XAspect := 10000;
+           YAspect := 10000;
+           }
+           end;
+         AddMode(Mode);
+         end;
+   end;
+
+{
+$Log$
+Revision 1.1  1999-11-07 16:57:26  michael
++ Start of common graph implementation
+
+}

rtl/linux/graph.inc

@@ -0,0 +1,25 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1998 by the Free Pascal development team
+
+    <What does this file>
+    
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{ decide what to load }
+
+{$ifdef USEGGI}
+{ use GGI libs }
+{$i ggigraph.inc}
+{$else}
+{ use plain old vgalib }
+{$i vgagraph.inc}
+{$endif}

rtl/linux/vgagraph.inc

@@ -0,0 +1,405 @@
+{
+     $Id$
+}
+  const
+   InternalDriverName = 'LinuxGX';
+
+  var SavePtr : Pointer;
+
+{ ---------------------------------------------------------------------
+   SVGA bindings.
+
+  ---------------------------------------------------------------------}
+
+{  Link with VGA, gl and c libraries }
+{$linklib vga}
+{$linklib vgagl}
+{$linklib c}
+
+Const
+  { Text }
+
+  WRITEMODE_OVERWRITE = 0;
+  WRITEMODE_MASKED    = 1;
+  FONT_EXPANDED       = 0;
+  FONT_COMPRESSED     = 2;
+
+ { Types }
+ 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_displaystart }
+     linear_aperture: PChar;     { points to mmap secondary mem aperture of card }
+     aperture_size: Longint;     { size of aperture in KB if size>=videomemory.}
+
+     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;
+
+  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;
+Const
+  { VGA modes }
+  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;
+  ModeNames : Array[1..GLastMode] of string [20] = 
+   ('G320x200x16',
+    'G640x200x16',
+    'G640x350x16',
+    'G640x480x16',
+    'G320x200x256',
+    'G320x240x256',
+    'G320x400x256',
+    'G360x480x256',
+    'G640x480x2',
+    'G640x480x256',
+    'G800x600x256',
+    'G1024x768x256',
+    'G1280x1024x256',
+    'G320x200x32K',
+    'G320x200x64K',
+    'G320x200x16M',
+    'G640x480x32K',
+    'G640x480x64K',
+    'G640x480x16M',
+    'G800x600x32K',
+    'G800x600x64K',
+    'G800x600x16M',
+    'G1024x768x32K',
+    'G1024x768x64K',
+    'G1024x768x16M',
+    'G1280x1024x32K',
+    'G1280x1024x64K',
+    'G1280x1024x16M',
+    'G800x600x16',
+    '1024x768x16',
+    '1280x1024x16',
+    'G720x348x2',
+    'G320x200x16M32',
+    'G640x480x16M32',
+    'G800x600x16M32',
+    'G1024x768x16M32',
+    'G1280x1024x16M32',
+    'G1152x864x16',
+    'G1152x864x256',
+    'G1152x864x32K',
+    'G1152x864x64K',
+    'G1152x864x16M',
+    'G1152x864x16M32',
+    'G1600x1200x16',
+    'G1600x1200x256',
+    'G1600x1200x32K',
+    'G1600x1200x64K',
+    'G1600x1200x16M',
+    'G1600x1200x16M32');
+
+ { vga functions }
+ Function vga_init: Longint; Cdecl; External;
+ Function vga_getdefaultmode: Longint; Cdecl; External;
+
+ Function vga_hasmode(mode: Longint): Boolean; Cdecl; External;
+
+ Function vga_getmodeinfo(mode: Longint): pvga_modeinfo; Cdecl; External;
+ Function vga_setmode(mode: Longint): Longint; Cdecl; External;
+ Function vga_getxdim : Longint; cdecl;external;
+ Function vga_getydim : longint; cdecl;external;
+
+ { gl functions }
+ procedure gl_setpixel(x, y, c: LongInt); Cdecl; External;
+ function  gl_getpixel(x, y: LongInt): LongInt; cdecl; external;
+ procedure gl_line(x1, y1, x2, y2, c: LongInt); Cdecl; External;
+ procedure gl_fillbox(x, y, w, h, c: LongInt); Cdecl; External;
+ procedure gl_circle(x, y, r, 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_disableclipping; Cdecl; External;
+ procedure gl_enableclipping; Cdecl; External;
+ procedure gl_putboxpart(x, y, w, h, bw, bh: LongInt; b: pointer; xo, yo: LongInt); Cdecl; External;
+ function  gl_rgbcolor(r, g, b: LongInt): LongInt; Cdecl; External;
+ function  gl_setcontextvga(m: LongInt): LongInt; Cdecl; External;
+ function  gl_allocatecontext: PGraphicsContext; Cdecl; External;
+ procedure gl_getcontext(gc: PGraphicsContext); Cdecl; External;
+ procedure gl_setrgbpalette; Cdecl; External;
+ procedure gl_freecontext(gc: PGraphicsContext); Cdecl; External;
+ procedure gl_setclippingwindow(x1, y1, x2, y2: LongInt); Cdecl; External;
+ procedure gl_setwritemode(wm: LongInt); Cdecl; External;
+ procedure gl_setfontcolors(bg, fg: LongInt); Cdecl; External;
+ procedure gl_writen(x, y, n: LongInt; s: PChar); Cdecl; External;
+ procedure gl_setfont(fw, fh: LongInt; fdp: pointer); Cdecl; External;
+
+ procedure gl_copyboxfromcontext(var gc: TGraphicsContext; x1, y1, w, h, x2, y2: LongInt); Cdecl; External;
+ procedure gl_setcontext(gc: PGraphicsContext); Cdecl; External;
+
+ function  gl_setcontextvgavirtual(m: LongInt): LongInt; cdecl; external;
+ procedure gl_font8x8; Cdecl; External;
+
+
+{ ---------------------------------------------------------------------
+    Required procedures
+  ---------------------------------------------------------------------}
+procedure libvga_initmodeproc;
+begin
+  vga_setmode(IntCurrentMode);
+end;
+  
+function libvga_getpixelproc (X,Y: Integer): word;
+begin
+end;
+
+procedure libvga_putpixelproc(X,Y: Integer; Color: Word);
+begin
+end;
+
+procedure libvga_clrviewproc;
+begin
+end;
+
+procedure libvga_putimageproc (X,Y: Integer; var Bitmap; BitBlt: Word);
+begin
+end;
+
+procedure libvga_getimageproc (X1,Y1,X2,Y2: Integer; Var Bitmap);
+begin
+end;
+
+function  libvga_imagesizeproc (X1,Y1,X2,Y2: Integer): longint;
+begin
+end;
+
+procedure libvga_hlineproc (x, x2,y : integer);
+begin
+end;
+
+procedure libvga_vlineproc (x,y,y2: integer);
+begin
+end;
+
+procedure libvga_patternlineproc (x1,x2,y: integer);
+begin
+end;
+
+procedue libvga_ellipseproc  (X,Y: Integer;XRadius: word;
+  YRadius:word; stAngle,EndAngle: word; fp: PatternLineProc);
+begin
+end;
+
+procedure libvga_lineproc (X1, Y1, X2, Y2 : Integer);
+begin
+end;
+
+procedure libvga_getscanlineproc = procedure (Y : integer; var data);
+begin
+end;
+
+procedure libvga_setactivepageproc (page: word);
+begin
+end;
+
+procedure libvga_setvisualpageproc (page: word);
+begin
+end;
+
+
+procedure libvga_savestateproc;
+begin
+end;
+
+procedure libvga_restorestateproc;
+begin
+end;
+
+procedure libvga_setrgbpaletteproc(ColorNum, RedValue, GreenValue, BlueValue: Integer);
+begin
+end;
+
+procedure libvga_getrgbpaletteproc =(ColorNum: integer; var
+     RedValue, GreenValue, BlueValue: Integer);
+begin
+end;
+ 
+{************************************************************************}
+{*                       General routines                               *}
+{************************************************************************}
+
+ procedure CloseGraph;
+ Begin
+    If not isgraphmode then
+      begin
+        _graphresult := grnoinitgraph;
+        exit
+      end;
+    RestoreVideoState;
+    isgraphmode := false;
+ end;
+
+  function QueryAdapterInfo:PModeInfo;
+  { This routine returns the head pointer to the list }
+  { of supported graphics modes.                      }
+  { Returns nil if no graphics mode supported.        }
+  { This list is READ ONLY!                           }
+   var
+    mode: TModeInfo;
+    modeinfo : vga_modeinfo;
+    i : longint;
+    
+   begin
+     QueryAdapterInfo := ModeList;
+     { If the mode listing already exists... }
+     { simply return it, without changing    }
+     { anything...                           }
+     if assigned(ModeList) then
+       exit;
+     vga_init;
+     For I:=1 to GLastMode do
+       If vga_hasmode(I) then
+         begin
+         ModeInfo:=vga_getmodeinfo(i)^; 
+         InitMode(Mode);
+         With Mode,ModeInfo do
+           begin
+           ModeNumber:=I;
+           ModeName:=ModeNames[i];
+           DriverNumber := 0;
+           MaxX:=Width;
+           MaxY:=height;
+           MaxColor := colors;
+           PaletteSize := MaxColor;
+           HardwarePages := 0;
+           {
+           // necessary hooks ... 
+           DirectPutPixel : DefPixelProc;
+           GetPixel       : GetPixelProc;
+           PutPixel       : PutPixelProc;
+           SetRGBPalette  : SetRGBPaletteProc;
+           GetRGBPalette  : GetRGBPaletteProc;
+           // defaults possible ... 
+           SetVisualPage  : SetVisualPageProc;
+           SetActivePage  : SetActivePageProc;
+           ClearViewPort  : ClrViewProc;
+           PutImage       : PutImageProc;
+           GetImage       : GetImageProc;
+           ImageSize      : ImageSizeProc;
+           GetScanLine    : GetScanLineProc;
+           Line           : LineProc;
+           InternalEllipse: EllipseProc;
+           PatternLine    : PatternLineProc;
+           HLine          : HLineProc;
+           VLine          : VLineProc;
+           InitMode       : InitModeProc;
+           next: PModeInfo;
+           DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA256;
+           PutPixel:={$ifdef fpc}@{$endif}PutPixVESA256;
+           GetPixel:={$ifdef fpc}@{$endif}GetPixVESA256;
+           SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
+           GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
+           InitMode := {$ifdef fpc}@{$endif}Init640x480x256;
+           SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
+           SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
+           hline := {$ifdef fpc}@{$endif}HLineVESA256;
+           hline := {$ifdef fpc}@{$endif}HLineVESA256;
+           XAspect := 10000;
+           YAspect := 10000;
+           }
+           end;
+         AddMode(Mode);
+         end;
+   end;
+
+{
+$Log$
+Revision 1.1  1999-11-07 16:57:26  michael
++ Start of common graph implementation
+
+}