paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new graph unit is default for go32v2

Browse Source 
* removed warnings/notes
This commit is contained in:
peter 1999-09-27 23:34:40 +00:00
parent de09b385d3
commit 85c3b9ff3b
8 changed files with 302 additions and 549 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
rtl/go32v2/Makefile
View File

@ -38,7 +38,7 @@ ifneq ("$(FPC_VERSION)","0.99.10")
ifndef BROWSER ifndef BROWSER
NEEDOPT=-b- NEEDOPT=-b-
endif endif
endif endif
# Where to place the result files # Where to place the result files
TARGETDIR=. TARGETDIR=.
@ -53,7 +53,7 @@ UNITPREFIX=rtl
# Paths # Paths
OBJPASDIR=$(RTL)/objpas OBJPASDIR=$(RTL)/objpas
PPI=ppi GRAPHDIR=$(INC)/graph
# Define Go32v2 Units # Define Go32v2 Units
SYSTEMUNIT=system SYSTEMUNIT=system
@ -63,11 +63,11 @@ LOADEROBJECTS=prt0 exceptn fpu
# Unit Objects # Unit Objects
UNITOBJECTS=$(SYSTEMUNIT) objpas strings \ UNITOBJECTS=$(SYSTEMUNIT) objpas strings \
go32 initc dpmiexcp profile dxeload emu387 \ go32 initc dpmiexcp profile dxeload emu387 \
dos crt objects printer graph \ dos crt objects printer graph \
sysutils math typinfo \ sysutils math typinfo \
cpu mmx getopts heaptrc \ cpu mmx getopts heaptrc \
msmouse ports msmouse ports
##################################################################### #####################################################################
@ -216,9 +216,16 @@ objects$(PPUEXT) : $(INC)/objects.pp objinc.inc $(SYSTEMPPU)
printer$(PPUEXT) : printer.pp $(SYSTEMPPU) printer$(PPUEXT) : printer.pp $(SYSTEMPPU)
graph$(PPUEXT) : graph.pp go32$(PPUEXT) $(SYSTEMPPU) mmx$(PPUEXT) \ #
$(wildcard $(PPI)/*.ppi) # Graph
$(COMPILER) -I$(PPI) graph.pp $(REDIR) #
include $(GRAPHDIR)/makefile.inc
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
graph$(PPUEXT) : $(GRAPHDIR)/graph.pp go32$(PPUEXT) ports$(PPUEXT) $(SYSTEMPPU) \
$(GRAPHINCDEPS)
$(COMPILER) -I$(GRAPHDIR) $(GRAPHDIR)/graph.pp $(REDIR)
# #
# Delphi Compatible Units # Delphi Compatible Units
@ -252,7 +259,11 @@ msmouse$(PPUEXT) : msmouse.pp $(SYSTEMPPU)
ports$(PPUEXT) : ports.pp $(SYSTEMPPU) ports$(PPUEXT) : ports.pp $(SYSTEMPPU)
# #
# $Log$ # $Log$
# Revision 1.17 1999-09-08 14:22:54 pierre # Revision 1.18 1999-09-27 23:34:40 peter
# * new graph unit is default for go32v2
# * removed warnings/notes
#
# Revision 1.17 1999/09/08 14:22:54 pierre
# + ports unit # + ports unit
# #
# Revision 1.16 1999/06/01 13:23:13 peter # Revision 1.16 1999/06/01 13:23:13 peter

8
rtl/inc/graph/fills.inc
View File

@ -401,7 +401,7 @@ var
Var Var
stemp: PWordArray; stemp: PWordArray;
Beginx : Integer; Beginx : Integer;
d, e, a : Byte; d, e : Byte;
Cont : Boolean; Cont : Boolean;
BackupColor : Word; BackupColor : Word;
x1, x2, prevy: integer; x1, x2, prevy: integer;
@ -509,7 +509,11 @@ var
{ {
$Log$ $Log$
Revision 1.10 1999-09-24 22:52:38 jonas Revision 1.11 1999-09-27 23:34:40 peter
* new graph unit is default for go32v2
* removed warnings/notes
Revision 1.10 1999/09/24 22:52:38 jonas
* optimized patternline a bit (always use hline when possible) * optimized patternline a bit (always use hline when possible)
* isgraphmode stuff cleanup * isgraphmode stuff cleanup
* vesainfo.modelist now gets disposed in cleanmode instead of in * vesainfo.modelist now gets disposed in cleanmode instead of in

709
rtl/inc/graph/graph.inc
View File

@ -19,35 +19,6 @@
{$asmmode intel} {$asmmode intel}
{$endif fpc} {$endif fpc}
CONST
{ VESA Specific video modes. }
m320x200x32k = $10D;
m320x200x64k = $10E;
m640x400x256 = $100;
m640x480x256 = $101;
m640x480x32k = $110;
m640x480x64k = $111;
m800x600x16 = $102;
m800x600x256 = $103;
m800x600x32k = $113;
m800x600x64k = $114;
m1024x768x16 = $104;
m1024x768x256 = $105;
m1024x768x32k = $116;
m1024x768x64k = $117;
m1280x1024x16 = $106;
m1280x1024x256 = $107;
m1280x1024x32k = $119;
m1280x1024x64k = $11A;
{ How to access real mode memory } { How to access real mode memory }
{ using 32-bit DPMI memory } { using 32-bit DPMI memory }
@ -451,7 +422,7 @@ Procedure GetScanLine16(y: integer; var data);
var dummylong: longint; var dummylong: longint;
Offset, count, count2, amount, index: word; Offset, count, count2, amount, index: word;
shift, plane: byte; plane: byte;
Begin Begin
{$ifdef logging} {$ifdef logging}
LogLn('GetScanLine16 start, length to get: '+strf(ViewWidth+1)+' at y = '+strf(y)); LogLn('GetScanLine16 start, length to get: '+strf(ViewWidth+1)+' at y = '+strf(y));
@ -1866,25 +1837,14 @@ const CrtAddress: word = 0;
mode.DirectColor := FALSE; mode.DirectColor := FALSE;
mode.MaxX := 319; mode.MaxX := 319;
mode.MaxY := 199; mode.MaxY := 199;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixel320;
mode.DirectPutPixel:=DirectPutPixel320; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixel320;
mode.PutPixel:=PutPixel320; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixel320;
mode.GetPixel:=GetPixel320; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
mode.SetRGBPalette := SetVGARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
mode.GetRGBPalette := GetVGARGBPalette; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisual320;
mode.SetVisualPage := SetVisual320; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActive320;
mode.SetActivePage := SetActive320; mode.InitMode := {$ifdef fpc}@{$endif}Init320;
mode.InitMode := Init320;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixel320;
mode.PutPixel:=@PutPixel320;
mode.GetPixel:=@GetPixel320;
mode.SetRGBPalette := @SetVGARGBPalette;
mode.GetRGBPalette := @GetVGARGBPalette;
mode.SetVisualPage := @SetVisual320;
mode.SetActivePage := @SetActive320;
mode.InitMode := @Init320;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -1900,25 +1860,14 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 319; mode.MaxX := 319;
mode.MaxY := 199; mode.MaxY := 199;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixelX;
mode.DirectPutPixel:=DirectPutPixelX; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixelX;
mode.PutPixel:=PutPixelX; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixelX;
mode.GetPixel:=GetPixelX; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
mode.SetRGBPalette := SetVGARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
mode.GetRGBPalette := GetVGARGBPalette; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualX;
mode.SetVisualPage := SetVisualX; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveX;
mode.SetActivePage := SetActiveX; mode.InitMode := {$ifdef fpc}@{$endif}InitModeX;
mode.InitMode := InitModeX;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixelX;
mode.PutPixel:=@PutPixelX;
mode.GetPixel:=@GetPixelX;
mode.SetRGBPalette := @SetVGARGBPalette;
mode.GetRGBPalette := @GetVGARGBPalette;
mode.SetVisualPage := @SetVisualX;
mode.SetActivePage := @SetActiveX;
mode.InitMode := @InitModeX;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -1933,29 +1882,17 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 199; mode.MaxY := 199;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixel16;
mode.DirectPutPixel:=DirectPutPixel16; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixel16;
mode.PutPixel:=PutPixel16; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixel16;
mode.GetPixel:=GetPixel16; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
mode.SetRGBPalette := SetVGARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
mode.GetRGBPalette := GetVGARGBPalette; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisual200;
mode.SetVisualPage := SetVisual200; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActive200;
mode.SetActivePage := SetActive200; mode.InitMode := {$ifdef fpc}@{$endif}Init640x200x16;
mode.InitMode := Init640x200x16; mode.HLine := {$ifdef fpc}@{$endif}HLine16;
mode.GetScanLine := GetScanLine16; mode.VLine := {$ifdef fpc}@{$endif}VLine16;
{$else fpc} mode.GetScanLine := {$ifdef fpc}@{$endif}GetScanLine16;
mode.DirectPutPixel:=@DirectPutPixel16;
mode.PutPixel:=@PutPixel16;
mode.GetPixel:=@GetPixel16;
mode.SetRGBPalette := @SetVGARGBPalette;
mode.GetRGBPalette := @GetVGARGBPalette;
mode.SetVisualPage := @SetVisual200;
mode.SetActivePage := @SetActive200;
mode.InitMode := @Init640x200x16;
mode.HLine := @HLine16;
mode.VLine := @VLine16;
mode.GetScanLine := @GetScanLine16;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -1970,29 +1907,17 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 349; mode.MaxY := 349;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixel16;
mode.DirectPutPixel:=DirectPutPixel16; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixel16;
mode.PutPixel:=PutPixel16; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixel16;
mode.GetPixel:=GetPixel16; mode.InitMode := {$ifdef fpc}@{$endif}Init640x350x16;
mode.InitMode := Init640x350x16; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
mode.SetRGBPalette := SetVGARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
mode.GetRGBPalette := GetVGARGBPalette; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisual350;
mode.SetVisualPage := SetVisual350; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActive350;
mode.SetActivePage := SetActive350; mode.HLine := {$ifdef fpc}@{$endif}HLine16;
mode.GetScanLine := GetScanLine16; mode.VLine := {$ifdef fpc}@{$endif}VLine16;
{$else fpc} mode.GetScanLine := {$ifdef fpc}@{$endif}GetScanLine16;
mode.DirectPutPixel:=@DirectPutPixel16;
mode.PutPixel:=@PutPixel16;
mode.GetPixel:=@GetPixel16;
mode.InitMode := @Init640x350x16;
mode.SetRGBPalette := @SetVGARGBPalette;
mode.GetRGBPalette := @GetVGARGBPalette;
mode.SetVisualPage := @SetVisual350;
mode.SetActivePage := @SetActive350;
mode.HLine := @HLine16;
mode.VLine := @VLine16;
mode.GetScanLine := @GetScanLine16;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2007,29 +1932,17 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 479; mode.MaxY := 479;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixel16;
mode.DirectPutPixel:=DirectPutPixel16; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixel16;
mode.PutPixel:=PutPixel16; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixel16;
mode.GetPixel:=GetPixel16; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVGARGBPalette;
mode.SetRGBPalette := SetVGARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVGARGBPalette;
mode.GetRGBPalette := GetVGARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init640x480x16;
mode.InitMode := Init640x480x16; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisual480;
mode.SetVisualPage := SetVisual480; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActive480;
mode.SetActivePage := SetActive480; mode.HLine := {$ifdef fpc}@{$endif}HLine16;
mode.GetScanLine := GetScanLine16; mode.VLine := {$ifdef fpc}@{$endif}VLine16;
{$else fpc} mode.GetScanLine := {$ifdef fpc}@{$endif}GetScanLine16;
mode.DirectPutPixel:=@DirectPutPixel16;
mode.PutPixel:=@PutPixel16;
mode.GetPixel:=@GetPixel16;
mode.SetRGBPalette := @SetVGARGBPalette;
mode.GetRGBPalette := @GetVGARGBPalette;
mode.InitMode := @Init640x480x16;
mode.SetVisualPage := @SetVisual480;
mode.SetActivePage := @SetActive480;
mode.HLine := @HLine16;
mode.VLine := @VLine16;
mode.GetScanLine := @GetScanLine16;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2070,25 +1983,14 @@ const CrtAddress: word = 0;
mode.DirectColor := TRUE; mode.DirectColor := TRUE;
mode.MaxX := 319; mode.MaxX := 319;
mode.MaxY := 199; mode.MaxY := 199;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA32k;
mode.DirectPutPixel:=DirectPutPixVESA32k; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA32k;
mode.PutPixel:=PutPixVESA32k; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA32k;
mode.GetPixel:=GetPixVESA32k; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init320x200x32k;
mode.InitMode := Init320x200x32k; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA32k;
mode.PutPixel:=@PutPixVESA32k;
mode.GetPixel:=@GetPixVESA32k;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init320x200x32k;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2107,25 +2009,14 @@ const CrtAddress: word = 0;
mode.DirectColor := TRUE; mode.DirectColor := TRUE;
mode.MaxX := 319; mode.MaxX := 319;
mode.MaxY := 199; mode.MaxY := 199;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA64k;
mode.DirectPutPixel:=DirectPutPixVESA64k; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA64k;
mode.PutPixel:=PutPixVESA64k; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA64k;
mode.GetPixel:=GetPixVESA64k; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init320x200x64k;
mode.InitMode := Init320x200x64k; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA64k;
mode.PutPixel:=@PutPixVESA64k;
mode.GetPixel:=@GetPixVESA64k;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init320x200x64k;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2144,29 +2035,16 @@ const CrtAddress: word = 0;
mode.DirectColor := FALSE; mode.DirectColor := FALSE;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 399; mode.MaxY := 399;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA256;
mode.DirectPutPixel:=DirectPutPixVESA256; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA256;
mode.PutPixel:=PutPixVESA256; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA256;
mode.GetPixel:=GetPixVESA256; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init640x400x256;
mode.InitMode := Init640x400x256; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA; mode.hline := {$ifdef fpc}@{$endif}HLineVESA256;
mode.hline := HLineVESA256; mode.vline := {$ifdef fpc}@{$endif}VLineVESA256;
mode.vline := VLineVESA256;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA256;
mode.PutPixel:=@PutPixVESA256;
mode.GetPixel:=@GetPixVESA256;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init640x400x256;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
mode.hline := @HLineVESA256;
mode.vline := @VLineVESA256;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2184,29 +2062,16 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 479; mode.MaxY := 479;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA256;
mode.DirectPutPixel:=DirectPutPixVESA256; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA256;
mode.PutPixel:=PutPixVESA256; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA256;
mode.GetPixel:=GetPixVESA256; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init640x480x256;
mode.InitMode := Init640x480x256; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA; mode.hline := {$ifdef fpc}@{$endif}HLineVESA256;
mode.hline := HLineVESA256; mode.hline := {$ifdef fpc}@{$endif}HLineVESA256;
mode.vline := VLineVESA256;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA256;
mode.PutPixel:=@PutPixVESA256;
mode.GetPixel:=@GetPixVESA256;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init640x480x256;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
mode.hline := @HLineVESA256;
mode.hline := @HLineVESA256;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2225,25 +2090,14 @@ const CrtAddress: word = 0;
mode.DirectColor := TRUE; mode.DirectColor := TRUE;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 399; mode.MaxY := 399;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA32k;
mode.DirectPutPixel:=DirectPutPixVESA32k; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA32k;
mode.PutPixel:=PutPixVESA32k; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA32k;
mode.GetPixel:=GetPixVESA32k; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init640x480x32k;
mode.InitMode := Init640x480x32k; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA32k;
mode.PutPixel:=@PutPixVESA32k;
mode.GetPixel:=@GetPixVESA32k;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init640x480x32k;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2262,25 +2116,14 @@ const CrtAddress: word = 0;
mode.DirectColor := TRUE; mode.DirectColor := TRUE;
mode.MaxX := 639; mode.MaxX := 639;
mode.MaxY := 479; mode.MaxY := 479;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA64k;
mode.DirectPutPixel:=DirectPutPixVESA64k; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA64k;
mode.PutPixel:=PutPixVESA64k; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA64k;
mode.GetPixel:=GetPixVESA64k; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init640x480x64k;
mode.InitMode := Init640x480x64k; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA64k;
mode.PutPixel:=@PutPixVESA64k;
mode.GetPixel:=@GetPixVESA64k;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init640x480x64k;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2299,25 +2142,14 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 799; mode.MaxX := 799;
mode.MaxY := 599; mode.MaxY := 599;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA16;
mode.DirectPutPixel:=DirectPutPixVESA16; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA16;
mode.PutPixel:=PutPixVESA16; (* mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA16; *)
{ mode.GetPixel:=GetPixVESA16;} mode.InitMode := {$ifdef fpc}@{$endif}Init800x600x16;
mode.InitMode := Init800x600x16; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA16;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.PutPixel:=@PutPixVESA16;
{ mode.GetPixel:=@GetPixVESA16;}
mode.InitMode := @Init800x600x16;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2336,29 +2168,16 @@ const CrtAddress: word = 0;
mode.DirectColor := FALSE; mode.DirectColor := FALSE;
mode.MaxX := 799; mode.MaxX := 799;
mode.MaxY := 599; mode.MaxY := 599;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA256;
mode.DirectPutPixel:=DirectPutPixVESA256; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA256;
mode.PutPixel:=PutPixVESA256; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA256;
mode.GetPixel:=GetPixVESA256; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init800x600x256;
mode.InitMode := Init800x600x256; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA; mode.hline := {$ifdef fpc}@{$endif}HLineVESA256;
mode.hline := HLineVESA256; mode.vline := {$ifdef fpc}@{$endif}VLineVESA256;
mode.vline := VLineVESA256;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA256;
mode.PutPixel:=@PutPixVESA256;
mode.GetPixel:=@GetPixVESA256;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init800x600x256;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
mode.hline := @HLineVESA256;
mode.vline := @VLineVESA256;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2377,25 +2196,14 @@ const CrtAddress: word = 0;
mode.DirectColor := TRUE; mode.DirectColor := TRUE;
mode.MaxX := 799; mode.MaxX := 799;
mode.MaxY := 599; mode.MaxY := 599;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA32k;
mode.DirectPutPixel:=DirectPutPixVESA32k; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA32k;
mode.PutPixel:=PutPixVESA32k; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA32k;
mode.GetPixel:=GetPixVESA32k; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init800x600x32k;
mode.InitMode := Init800x600x32k; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA32k;
mode.PutPixel:=@PutPixVESA32k;
mode.GetPixel:=@GetPixVESA32k;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init800x600x32k;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2414,25 +2222,14 @@ const CrtAddress: word = 0;
mode.DirectColor := TRUE; mode.DirectColor := TRUE;
mode.MaxX := 799; mode.MaxX := 799;
mode.MaxY := 599; mode.MaxY := 599;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA64k;
mode.DirectPutPixel:=DirectPutPixVESA64k; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA64k;
mode.PutPixel:=PutPixVESA64k; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA64k;
mode.GetPixel:=GetPixVESA64k; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init800x600x64k;
mode.InitMode := Init800x600x64k; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA64k;
mode.PutPixel:=@PutPixVESA64k;
mode.GetPixel:=@GetPixVESA64k;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init800x600x64k;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2451,25 +2248,14 @@ const CrtAddress: word = 0;
mode.DirectColor := FALSE; mode.DirectColor := FALSE;
mode.MaxX := 1023; mode.MaxX := 1023;
mode.MaxY := 767; mode.MaxY := 767;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA16;
mode.DirectPutPixel:=DirectPutPixVESA16; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA16;
mode.PutPixel:=PutPixVESA16; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; (* mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA16; *)
{ mode.GetPixel:=GetPixVESA16;} mode.InitMode := {$ifdef fpc}@{$endif}Init1024x768x16;
mode.InitMode := Init1024x768x16; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA16;
mode.PutPixel:=@PutPixVESA16;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
{ mode.GetPixel:=@GetPixVESA16;}
mode.InitMode := @Init1024x768x16;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2488,29 +2274,16 @@ const CrtAddress: word = 0;
mode.DirectColor := FALSE; mode.DirectColor := FALSE;
mode.MaxX := 1023; mode.MaxX := 1023;
mode.MaxY := 767; mode.MaxY := 767;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA256;
mode.DirectPutPixel:=DirectPutPixVESA256; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA256;
mode.PutPixel:=PutPixVESA256; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA256;
mode.GetPixel:=GetPixVESA256; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init1024x768x256;
mode.InitMode := Init1024x768x256; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA; mode.vline := {$ifdef fpc}@{$endif}VLineVESA256;
mode.hline := HLineVESA256; mode.hline := {$ifdef fpc}@{$endif}HLineVESA256;
mode.vline := VLineVESA256;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA256;
mode.PutPixel:=@PutPixVESA256;
mode.GetPixel:=@GetPixVESA256;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init1024x768x256;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
mode.vline := @VLineVESA256;
mode.hline := @HLineVESA256;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2529,25 +2302,14 @@ const CrtAddress: word = 0;
mode.DirectColor := TRUE; mode.DirectColor := TRUE;
mode.MaxX := 1023; mode.MaxX := 1023;
mode.MaxY := 767; mode.MaxY := 767;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA32k;
mode.DirectPutPixel:=DirectPutPixVESA32k; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA32k;
mode.PutPixel:=PutPixVESA32k; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA32k;
mode.GetPixel:=GetPixVESA32k; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init640x480x32k;
mode.InitMode := Init640x480x32k; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA32k;
mode.PutPixel:=@PutPixVESA32k;
mode.GetPixel:=@GetPixVESA32k;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init640x480x32k;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2566,25 +2328,14 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 1023; mode.MaxX := 1023;
mode.MaxY := 767; mode.MaxY := 767;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA64k;
mode.DirectPutPixel:=DirectPutPixVESA64k; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA64k;
mode.PutPixel:=PutPixVESA64k; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA64k;
mode.GetPixel:=GetPixVESA64k; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.InitMode := {$ifdef fpc}@{$endif}Init1024x768x64k;
mode.InitMode := Init1024x768x64k; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA64k;
mode.PutPixel:=@PutPixVESA64k;
mode.GetPixel:=@GetPixVESA64k;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.InitMode := @Init1024x768x64k;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2603,25 +2354,14 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 1279; mode.MaxX := 1279;
mode.MaxY := 1023; mode.MaxY := 1023;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA16;
mode.DirectPutPixel:=DirectPutPixVESA16; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA16;
mode.PutPixel:=PutPixVESA16; (* mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA16; *)
{ mode.GetPixel:=GetPixVESA16;} mode.InitMode := {$ifdef fpc}@{$endif}Init1280x1024x16;
mode.InitMode := Init1280x1024x16; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA16;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.PutPixel:=@PutPixVESA16;
{ mode.GetPixel:=@GetPixVESA16;}
mode.InitMode := @Init1280x1024x16;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2640,29 +2380,16 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 1279; mode.MaxX := 1279;
mode.MaxY := 1023; mode.MaxY := 1023;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA256;
mode.DirectPutPixel:=DirectPutPixVESA256; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA256;
mode.PutPixel:=PutPixVESA256; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA256;
mode.GetPixel:=GetPixVESA256; mode.InitMode := {$ifdef fpc}@{$endif}Init1280x1024x256;
mode.InitMode := Init1280x1024x256; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA; mode.vline := {$ifdef fpc}@{$endif}VLineVESA256;
mode.hline := HLineVESA256; mode.hline := {$ifdef fpc}@{$endif}HLineVESA256;
mode.vline := VLineVESA256;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA256;
mode.PutPixel:=@PutPixVESA256;
mode.GetPixel:=@GetPixVESA256;
mode.InitMode := @Init1280x1024x256;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
mode.vline := @VLineVESA256;
mode.hline := @HLineVESA256;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2681,25 +2408,14 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 1279; mode.MaxX := 1279;
mode.MaxY := 1023; mode.MaxY := 1023;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA32k;
mode.DirectPutPixel:=DirectPutPixVESA32k; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA32k;
mode.PutPixel:=PutPixVESA32k; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA32k;
mode.GetPixel:=GetPixVESA32k; mode.InitMode := {$ifdef fpc}@{$endif}Init1280x1024x32k;
mode.InitMode := Init1280x1024x32k; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA32k;
mode.PutPixel:=@PutPixVESA32k;
mode.GetPixel:=@GetPixVESA32k;
mode.InitMode := @Init1280x1024x32k;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2718,25 +2434,14 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor; mode.PaletteSize := mode.MaxColor;
mode.MaxX := 1279; mode.MaxX := 1279;
mode.MaxY := 1023; mode.MaxY := 1023;
{$ifndef fpc} mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA64k;
mode.DirectPutPixel:=DirectPutPixVESA64k; mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA64k;
mode.PutPixel:=PutPixVESA64k; mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA64k;
mode.GetPixel:=GetPixVESA64k; mode.InitMode := {$ifdef fpc}@{$endif}Init1280x1024x64k;
mode.InitMode := Init1280x1024x64k; mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.SetRGBPalette := SetVESARGBPalette; mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.GetRGBPalette := GetVESARGBPalette; mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetVisualPage := SetVisualVESA; mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.SetActivePage := SetActiveVESA;
{$else fpc}
mode.DirectPutPixel:=@DirectPutPixVESA64k;
mode.PutPixel:=@PutPixVESA64k;
mode.GetPixel:=@GetPixVESA64k;
mode.InitMode := @Init1280x1024x64k;
mode.SetRGBPalette := @SetVESARGBPalette;
mode.GetRGBPalette := @GetVESARGBPalette;
mode.SetVisualPage := @SetVisualVESA;
mode.SetActivePage := @SetActiveVESA;
{$endif fpc}
mode.XAspect := 10000; mode.XAspect := 10000;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
@ -2746,7 +2451,11 @@ const CrtAddress: word = 0;
{ {
$Log$ $Log$
Revision 1.20 1999-09-26 13:31:06 jonas Revision 1.21 1999-09-27 23:34:40 peter
* new graph unit is default for go32v2
* removed warnings/notes
Revision 1.20 1999/09/26 13:31:06 jonas
* changed name of modeinfo variable to vesamodeinfo and fixed * changed name of modeinfo variable to vesamodeinfo and fixed
associated errors (fillchar(modeinfo,sizeof(tmodeinfo),#0) instead associated errors (fillchar(modeinfo,sizeof(tmodeinfo),#0) instead
of sizeof(TVesamodeinfo) etc) of sizeof(TVesamodeinfo) etc)

28
rtl/inc/graph/graph.pp
View File

@ -192,7 +192,9 @@ Unit Graph;
{ text.inc will crash on aligned requirement machines. } { text.inc will crash on aligned requirement machines. }
{ (packed record for fontrec) } { (packed record for fontrec) }
{$G+} {$ifndef fpc}
{$G+}
{$endif}
Interface Interface
@ -340,6 +342,7 @@ Interface
HercMonoHi = 0; HercMonoHi = 0;
{$i graphmod.inc}
MaxColors = 255; { Maximum possible colors using a palette } MaxColors = 255; { Maximum possible colors using a palette }
{ otherwise, direct color encoding } { otherwise, direct color encoding }
@ -400,8 +403,8 @@ Interface
graph_float = single; { the platform's preferred floating point size } graph_float = single; { the platform's preferred floating point size }
{$ELSE} {$ELSE}
graph_int = integer; { platform specific integer used for indexes; graph_int = integer; { platform specific integer used for indexes;
should be 16 bits on TP/BP and 32 bits on every- should be 16 bits on TP/BP and 32 bits on every-
thing else for speed reasons } thing else for speed reasons }
graph_float = real; { the platform's preferred floating point size } graph_float = real; { the platform's preferred floating point size }
{$ENDIF} {$ENDIF}
@ -704,10 +707,10 @@ Begin
Close(debuglog); Close(debuglog);
End; End;
{$endif logging} {$endif logging}
const const
StdBufferSize = 4096; { Buffer size for FloodFill } StdBufferSize = 4096; { Buffer size for FloodFill }
type type
@ -725,9 +728,6 @@ const
RevbitArray: Array[0..7] of byte = RevbitArray: Array[0..7] of byte =
($80,$40,$20,$10,$08,$04,$02,$01); ($80,$40,$20,$10,$08,$04,$02,$01);
{ pre expanded line patterns } { pre expanded line patterns }
{ 0 = LSB of byte pattern } { 0 = LSB of byte pattern }
{ 15 = MSB of byte pattern } { 15 = MSB of byte pattern }
@ -841,7 +841,6 @@ var
procedure VLineDefault(x,y,y2: integer); {$ifndef fpc}far;{$endif fpc} procedure VLineDefault(x,y,y2: integer); {$ifndef fpc}far;{$endif fpc}
var var
Col: word;
ytmp: integer; ytmp: integer;
Begin Begin
{ must we swap the values? } { must we swap the values? }
@ -874,7 +873,7 @@ var
xinc2 : Integer; xinc2 : Integer;
yinc1 : Integer; yinc1 : Integer;
yinc2 : Integer; yinc2 : Integer;
i, j : Integer; i : Integer;
Flag : Boolean; { determines pixel direction in thick lines } Flag : Boolean; { determines pixel direction in thick lines }
NumPixels : Integer; NumPixels : Integer;
PixelCount : Integer; PixelCount : Integer;
@ -1309,10 +1308,7 @@ var
var var
j, Delta, DeltaEnd: graph_float; j, Delta, DeltaEnd: graph_float;
NumOfPixels: longint; NumOfPixels: longint;
NumOfPix: Array[0..2] of longint;
count: longint;
ConvFac,TempTerm: graph_float; ConvFac,TempTerm: graph_float;
aval,bval: integer;
xtemp, ytemp, xp, yp, xm, ym, xnext, ynext, xtemp, ytemp, xp, yp, xm, ym, xnext, ynext,
plxpyp, plxmyp, plxpym, plxmym: integer; plxpyp, plxmyp, plxpym, plxmym: integer;
BackupColor, DeltaAngle, TmpAngle, OldLineWidth: word; BackupColor, DeltaAngle, TmpAngle, OldLineWidth: word;
@ -2049,12 +2045,14 @@ end;
function InstallUserDriver(Name: string; AutoDetectPtr: Pointer): integer; function InstallUserDriver(Name: string; AutoDetectPtr: Pointer): integer;
begin begin
_graphResult := grError; _graphResult := grError;
InstallUserDriver:=grError;
end; end;
function RegisterBGIDriver(driver: pointer): integer; function RegisterBGIDriver(driver: pointer): integer;
begin begin
_graphResult := grError; _graphResult := grError;
RegisterBGIDriver:=grError;
end; end;
@ -2845,7 +2843,11 @@ SetGraphBufSize
{ {
$Log$ $Log$
Revision 1.29 1999-09-26 13:31:06 jonas Revision 1.30 1999-09-27 23:34:41 peter
* new graph unit is default for go32v2
* removed warnings/notes
Revision 1.29 1999/09/26 13:31:06 jonas
* changed name of modeinfo variable to vesamodeinfo and fixed * changed name of modeinfo variable to vesamodeinfo and fixed
associated errors (fillchar(modeinfo,sizeof(tmodeinfo),#0) instead associated errors (fillchar(modeinfo,sizeof(tmodeinfo),#0) instead
of sizeof(TVesamodeinfo) etc) of sizeof(TVesamodeinfo) etc)

27
rtl/inc/graph/graphmod.inc Normal file
View File

@ -0,0 +1,27 @@
CONST
{ VESA Specific video modes. }
m320x200x32k = $10D;
m320x200x64k = $10E;
m640x400x256 = $100;
m640x480x256 = $101;
m640x480x32k = $110;
m640x480x64k = $111;
m800x600x16 = $102;
m800x600x256 = $103;
m800x600x32k = $113;
m800x600x64k = $114;
m1024x768x16 = $104;
m1024x768x256 = $105;
m1024x768x32k = $116;
m1024x768x64k = $117;
m1280x1024x16 = $106;
m1280x1024x256 = $107;
m1280x1024x32k = $119;
m1280x1024x64k = $11A;

16
rtl/inc/graph/gtext.inc
View File

@ -152,7 +152,6 @@
function unpack(buf: pchar; index: integer; var Stroke: TStrokes): integer; function unpack(buf: pchar; index: integer; var Stroke: TStrokes): integer;
var var
pb: pword;
po: TStrokes; po: TStrokes;
num_ops: integer; num_ops: integer;
opcode, i, opc: word; opcode, i, opc: word;
@ -258,7 +257,7 @@
var var
hp : pchar; hp : pchar;
b : word; b : word;
i,j: longint; i: longint;
Header: THeader; Header: THeader;
counter: longint; counter: longint;
FontData: pchar; FontData: pchar;
@ -358,13 +357,9 @@
X,Y: Integer; X,Y: Integer;
end; end;
var var
ch: char;
b1,b2 : shortint;
b3 : byte;
i,j,k,c : longint; i,j,k,c : longint;
oldvalues : linesettingstype; oldvalues : linesettingstype;
nextpos : word; xpos,ypos : longint;
xpos,ypos,offs: longint;
counter : longint; counter : longint;
FontBitmap : TBitmapChar; FontBitmap : TBitmapChar;
chr: char; chr: char;
@ -372,7 +367,6 @@
cnt3,cnt4 : integer; cnt3,cnt4 : integer;
charsize : word; charsize : word;
TextBuffer : array[1..sizeof(string)*2] of Tpoint;
WriteMode : word; WriteMode : word;
CurX, CurY : integer; CurX, CurY : integer;
@ -734,7 +728,11 @@
{ {
$Log$ $Log$
Revision 1.4 1999-09-26 13:31:07 jonas Revision 1.5 1999-09-27 23:34:42 peter
* new graph unit is default for go32v2
* removed warnings/notes
Revision 1.4 1999/09/26 13:31:07 jonas
* changed name of modeinfo variable to vesamodeinfo and fixed * changed name of modeinfo variable to vesamodeinfo and fixed
associated errors (fillchar(modeinfo,sizeof(tmodeinfo),#0) instead associated errors (fillchar(modeinfo,sizeof(tmodeinfo),#0) instead
of sizeof(TVesamodeinfo) etc) of sizeof(TVesamodeinfo) etc)

5
rtl/inc/graph/makefile.inc Normal file
View File

@ -0,0 +1,5 @@
GRAPHINCNAMES=graph.inc fontdata.inc clip.inc fills.inc gtext.inc palette.inc modes.inc
ifeq ($(OS_TARGET),go32v2)
GRAPHINCNAMES+=vesa.inc vesah.inc dpmi.inc
endif

25
rtl/inc/graph/vesa.inc
View File

@ -95,11 +95,12 @@ end;
ptrlong : longint; ptrlong : longint;
VESAPtr : ^TVESAInfo; VESAPtr : ^TVESAInfo;
regs : TDPMIRegisters; regs : TDPMIRegisters;
{$ifndef fpc}
ModeSel: word; ModeSel: word;
offs: longint; offs: longint;
{$endif}
{ added... } { added... }
modelist: PmodeList; modelist: PmodeList;
modeptr : pointer;
i: longint; i: longint;
RealSeg : word; RealSeg : word;
begin begin
@ -393,7 +394,6 @@ end;
procedure PutPixVESA256(x, y : integer; color : word); {$ifndef fpc}far;{$endif fpc} procedure PutPixVESA256(x, y : integer; color : word); {$ifndef fpc}far;{$endif fpc}
var var
bank : word;
offs : longint; offs : longint;
begin begin
X:= X + StartXViewPort; X:= X + StartXViewPort;
@ -413,7 +413,6 @@ end;
procedure DirectPutPixVESA256(x, y : integer); {$ifndef fpc}far;{$endif fpc} procedure DirectPutPixVESA256(x, y : integer); {$ifndef fpc}far;{$endif fpc}
var var
bank : word;
offs : longint; offs : longint;
col : byte; col : byte;
begin begin
@ -447,7 +446,6 @@ end;
function GetPixVESA256(x, y : integer): word; {$ifndef fpc}far;{$endif fpc} function GetPixVESA256(x, y : integer): word; {$ifndef fpc}far;{$endif fpc}
var var
bank : word;
offs : longint; offs : longint;
begin begin
X:= X + StartXViewPort; X:= X + StartXViewPort;
@ -891,7 +889,6 @@ end;
procedure PutPixVESA32k(x, y : integer; color : word); {$ifndef fpc}far;{$endif fpc} procedure PutPixVESA32k(x, y : integer; color : word); {$ifndef fpc}far;{$endif fpc}
var var
bank : word;
offs : longint; offs : longint;
begin begin
X:= X + StartXViewPort; X:= X + StartXViewPort;
@ -911,7 +908,6 @@ end;
procedure PutPixVESA64k(x, y : integer; color : word); {$ifndef fpc}far;{$endif fpc} procedure PutPixVESA64k(x, y : integer; color : word); {$ifndef fpc}far;{$endif fpc}
var var
bank : word;
offs : longint; offs : longint;
begin begin
X:= X + StartXViewPort; X:= X + StartXViewPort;
@ -931,7 +927,6 @@ end;
function GetPixVESA32k(x, y : integer): word; {$ifndef fpc}far;{$endif fpc} function GetPixVESA32k(x, y : integer): word; {$ifndef fpc}far;{$endif fpc}
var var
bank : word;
offs : longint; offs : longint;
begin begin
X:= X + StartXViewPort; X:= X + StartXViewPort;
@ -943,7 +938,6 @@ end;
function GetPixVESA64k(x, y : integer): word; {$ifndef fpc}far;{$endif fpc} function GetPixVESA64k(x, y : integer): word; {$ifndef fpc}far;{$endif fpc}
var var
bank : word;
offs : longint; offs : longint;
begin begin
X:= X + StartXViewPort; X:= X + StartXViewPort;
@ -955,7 +949,7 @@ end;
procedure DirectPutPixVESA32k(x, y : integer); {$ifndef fpc}far;{$endif fpc} procedure DirectPutPixVESA32k(x, y : integer); {$ifndef fpc}far;{$endif fpc}
var var
bank, col : word; col : word;
offs : longint; offs : longint;
begin begin
offs := longint(y) * BytesPerLine + 2*x; offs := longint(y) * BytesPerLine + 2*x;
@ -988,7 +982,7 @@ end;
procedure DirectPutPixVESA64k(x, y : integer); {$ifndef fpc}far;{$endif fpc} procedure DirectPutPixVESA64k(x, y : integer); {$ifndef fpc}far;{$endif fpc}
var var
bank, Col : word; Col : word;
offs : longint; offs : longint;
begin begin
offs := longint(y) * BytesPerLine + 2*x; offs := longint(y) * BytesPerLine + 2*x;
@ -1025,7 +1019,6 @@ end;
procedure PutPixVESA16(x, y : integer; color : word); {$ifndef fpc}far;{$endif fpc} procedure PutPixVESA16(x, y : integer; color : word); {$ifndef fpc}far;{$endif fpc}
var var
bank : word;
offs : longint; offs : longint;
dummy_read : byte; dummy_read : byte;
begin begin
@ -1058,7 +1051,6 @@ end;
procedure DirectPutPixVESA16(x, y : integer); {$ifndef fpc}far;{$endif fpc} procedure DirectPutPixVESA16(x, y : integer); {$ifndef fpc}far;{$endif fpc}
var var
bank : word;
offs : longint; offs : longint;
dummy_read : byte; dummy_read : byte;
begin begin
@ -1173,8 +1165,9 @@ end;
RedValue, GreenValue, BlueValue : integer); RedValue, GreenValue, BlueValue : integer);
var var
pal: PalRec; pal: PalRec;
Error: boolean; {$ifndef fpc}
palptr : ^PalRec; palptr : ^PalRec;
{$endif}
regs : TDPMIRegisters; regs : TDPMIRegisters;
RealSeg: word; RealSeg: word;
ptr: longint; ptr: longint;
@ -1880,7 +1873,11 @@ end;
{ {
$Log$ $Log$
Revision 1.16 1999-09-26 13:31:07 jonas Revision 1.17 1999-09-27 23:34:42 peter
* new graph unit is default for go32v2
* removed warnings/notes
Revision 1.16 1999/09/26 13:31:07 jonas
* changed name of modeinfo variable to vesamodeinfo and fixed * changed name of modeinfo variable to vesamodeinfo and fixed
associated errors (fillchar(modeinfo,sizeof(tmodeinfo),#0) instead associated errors (fillchar(modeinfo,sizeof(tmodeinfo),#0) instead
of sizeof(TVesamodeinfo) etc) of sizeof(TVesamodeinfo) etc)