mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-05 22:50:18 +02:00
* graph unit include is now independent and the dependent part
is now in graph.pp * ggigraph unit for linux added
This commit is contained in:
peter
parent
98a50970e7
commit
2d6a92f17e
@ -1,5 +1,5 @@
|
||||
#
|
||||
# Makefile generated by fpcmake v0.99.13 [2000/03/10]
|
||||
# Makefile generated by fpcmake v0.99.13 [2000/02/24]
|
||||
#
|
||||
|
||||
defaultrule: all
|
||||
@ -146,7 +146,6 @@ endif
|
||||
ifdef NO_EXCEPTIONS_IN_SYSTEM
|
||||
override FPCOPT+=-dNO_EXCEPTIONS_IN_SYSTEM
|
||||
endif
|
||||
|
||||
#####################################################################
|
||||
# FPCDIR Setting
|
||||
#####################################################################
|
||||
@ -232,7 +231,7 @@ endif
|
||||
|
||||
# Info
|
||||
|
||||
INFOTARGET=fpc_infocfg fpc_infoobjects fpc_infoinstall
|
||||
INFOTARGET=fpc_infocfg fpc_infoobjects fpc_infoinstall
|
||||
|
||||
#####################################################################
|
||||
# Post Settings
|
||||
@ -1201,9 +1200,9 @@ printer$(PPUEXT) : printer.pp $(SYSTEMPPU)
|
||||
include $(GRAPHDIR)/makefile.inc
|
||||
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
|
||||
|
||||
graph$(PPUEXT) : $(GRAPHDIR)/graph.pp go32$(PPUEXT) ports$(PPUEXT) $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS) graph.inc graphh.inc vesa.inc vesah.inc dpmi.inc
|
||||
$(COMPILER) -I$(GRAPHDIR) $(GRAPHDIR)/graph.pp $(REDIR)
|
||||
graph$(PPUEXT) : graph.pp go32$(PPUEXT) ports$(PPUEXT) $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS) vesa.inc vesah.inc dpmi.inc
|
||||
$(COMPILER) -I$(GRAPHDIR) graph.pp $(REDIR)
|
||||
|
||||
#
|
||||
# Delphi Compatible Units
|
||||
@ -1239,4 +1238,4 @@ lineinfo$(PPUEXT) : $(INC)/lineinfo.pp $(SYSTEMPPU)
|
||||
# Other system-dependent RTL Units
|
||||
#
|
||||
|
||||
msmouse$(PPUEXT) : msmouse.pp $(SYSTEMPPU)
|
||||
msmouse$(PPUEXT) : msmouse.pp $(SYSTEMPPU)
|
||||
|
||||
@ -134,9 +134,9 @@ printer$(PPUEXT) : printer.pp $(SYSTEMPPU)
|
||||
include $(GRAPHDIR)/makefile.inc
|
||||
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
|
||||
|
||||
graph$(PPUEXT) : $(GRAPHDIR)/graph.pp go32$(PPUEXT) ports$(PPUEXT) $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS) graph.inc graphh.inc vesa.inc vesah.inc dpmi.inc
|
||||
$(COMPILER) -I$(GRAPHDIR) $(GRAPHDIR)/graph.pp $(REDIR)
|
||||
graph$(PPUEXT) : graph.pp go32$(PPUEXT) ports$(PPUEXT) $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS) vesa.inc vesah.inc dpmi.inc
|
||||
$(COMPILER) -I$(GRAPHDIR) graph.pp $(REDIR)
|
||||
|
||||
#
|
||||
# Delphi Compatible Units
|
||||
|
||||
@ -1,17 +1,75 @@
|
||||
{
|
||||
$Id$
|
||||
}
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by Florian Klaempfl
|
||||
|
||||
{$ifdef DPMI}
|
||||
This file implements the go32v2 support for the graph unit
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
unit Graph;
|
||||
interface
|
||||
|
||||
{$i graphh.inc}
|
||||
{$i vesah.inc}
|
||||
{$endif DPMI}
|
||||
|
||||
{$ifndef fpc}
|
||||
{$i dpmi.inc}
|
||||
{$else fpc}
|
||||
{$asmmode intel}
|
||||
{$endif fpc}
|
||||
CONST
|
||||
m640x200x16 = VGALo;
|
||||
m640x400x16 = VGAMed;
|
||||
m640x480x16 = VGAHi;
|
||||
|
||||
{ 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;
|
||||
|
||||
const
|
||||
UseLFB : boolean = false;
|
||||
UseNoSelector : boolean = false;
|
||||
LFBPointer : pointer = nil;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
go32,ports;
|
||||
|
||||
const
|
||||
InternalDriverName = 'DOSGX';
|
||||
|
||||
{$i graph.inc}
|
||||
|
||||
|
||||
Type
|
||||
TDPMIRegisters = go32.registers;
|
||||
|
||||
{$asmmode intel}
|
||||
|
||||
{ How to access real mode memory }
|
||||
{ using 32-bit DPMI memory }
|
||||
@ -19,7 +77,6 @@
|
||||
{ 2. Set segment limit }
|
||||
{ 3. Set base linear address }
|
||||
const
|
||||
InternalDriverName = 'DOSGX';
|
||||
{$ifdef fpc}
|
||||
VideoOfs : DWord = 0; { Segment to draw to }
|
||||
{$else fpc}
|
||||
@ -2519,97 +2576,14 @@ const CrtAddress: word = 0;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
InitializeGraph;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.13 2000-02-09 16:59:28 peter
|
||||
* truncated log
|
||||
|
||||
Revision 1.12 2000/01/02 19:00:30 jonas
|
||||
* another small fix to getpixel320 and putpixel320 (when clip = off)
|
||||
|
||||
Revision 1.11 1999/12/29 16:43:44 jonas
|
||||
* fixed put- and getpixel320 for fpc
|
||||
|
||||
Revision 1.10 1999/12/26 10:36:00 jonas
|
||||
* finished patternlineVESA256 and enabled it
|
||||
* folded (direct)put/getpixVESA32k and 64k into one procedure since
|
||||
they were exactly the same code
|
||||
|
||||
Revision 1.9 1999/12/25 22:26:10 jonas
|
||||
* vlinevesa256 wasn't used yet for 640x480x256
|
||||
|
||||
Revision 1.8 1999/12/25 08:25:20 jonas
|
||||
* screen dimensions for g640x480x32k were set to 640x400, changed
|
||||
|
||||
Revision 1.7 1999/12/12 13:34:19 jonas
|
||||
* putimage now performs the lipping itself and uses directputpixel
|
||||
(note: this REQUIRES or/and/notput support in directputpixel,
|
||||
this is not yet the case in the assembler versions!)
|
||||
* YOffset addition moved in hlinevesa256 and vlinevesa256
|
||||
because it uses still putpixel afterwards
|
||||
|
||||
Revision 1.6 1999/12/11 23:41:39 jonas
|
||||
* changed definition of getscanlineproc to "getscanline(x1,x2,y:
|
||||
integer; var data);" so it can be used by getimage too
|
||||
* changed getimage so it uses getscanline
|
||||
* changed floodfill, getscanline16 and definitions in Linux
|
||||
include files so they use this new format
|
||||
+ getscanlineVESA256 for 256 color VESA modes (banked)
|
||||
|
||||
Revision 1.5 1999/12/10 12:49:24 pierre
|
||||
* avoid overflow on ProtW in PutPixel16
|
||||
|
||||
Revision 1.4 1999/11/29 07:32:53 jonas
|
||||
* fixed setvgargbpalette (it's 6bit lsb, not msb values, so no shifts!)
|
||||
|
||||
Revision 1.3 1999/11/27 21:48:00 jonas
|
||||
* fixed VlineVESA256 and re-enabled it in graph.inc
|
||||
* added procedure detectgraph to interface of graph unit
|
||||
|
||||
Revision 1.2 1999/11/11 14:05:21 florian
|
||||
+ support font loaded from BIOS
|
||||
|
||||
Revision 1.1 1999/11/08 11:15:21 peter
|
||||
* move graph.inc to the target dir
|
||||
|
||||
Revision 1.26 1999/11/05 12:18:23 jonas
|
||||
* fixed pascal version of (direct)putpixelx
|
||||
|
||||
Revision 1.25 1999/11/03 20:23:01 florian
|
||||
+ first release of win32 gui support
|
||||
|
||||
Revision 1.24 1999/10/24 15:51:22 carl
|
||||
* Bugfix of mode m800x600x64k - wrong vide mode would be used.
|
||||
+ TP compilable.
|
||||
|
||||
Revision 1.23 1999/10/24 03:34:37 carl
|
||||
- Removed some old french comments.
|
||||
* Bugfix of problems with register access in noasmmoded
|
||||
+ GetPixVESA16
|
||||
|
||||
Revision 1.22 1999/10/08 14:28:18 jonas
|
||||
* fixed set/getvgargbpalette for VGA 16 color modes
|
||||
|
||||
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
|
||||
associated errors (fillchar(modeinfo,sizeof(tmodeinfo),#0) instead
|
||||
of sizeof(TVesamodeinfo) etc)
|
||||
* changed several sizeof(type) to sizeof(varname) to avoid similar
|
||||
errors in the future
|
||||
|
||||
Revision 1.19 1999/09/24 22:52:38 jonas
|
||||
* optimized patternline a bit (always use hline when possible)
|
||||
* isgraphmode stuff cleanup
|
||||
* vesainfo.modelist now gets disposed in cleanmode instead of in
|
||||
closegraph (required moving of some declarations from vesa.inc to
|
||||
new vesah.inc)
|
||||
* queryadapter gets no longer called from initgraph (is called from
|
||||
initialization of graph unit)
|
||||
* bugfix for notput in 32k and 64k vesa modes
|
||||
* a div replaced by / in fillpoly
|
||||
$Log$
|
||||
Revision 1.8 2000-03-19 11:20:12 peter
|
||||
* graph unit include is now independent and the dependent part
|
||||
is now in graph.pp
|
||||
* ggigraph unit for linux added
|
||||
|
||||
}
|
||||
@ -1,35 +0,0 @@
|
||||
CONST
|
||||
|
||||
m640x200x16 = VGALo;
|
||||
m640x400x16 = VGAMed;
|
||||
m640x480x16 = VGAHi;
|
||||
|
||||
{ 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;
|
||||
|
||||
const
|
||||
UseLFB : boolean = false;
|
||||
UseNoSelector : boolean = false;
|
||||
LFBPointer : pointer = nil;
|
||||
@ -1,5 +1,4 @@
|
||||
{
|
||||
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by Carl Eric Codere
|
||||
@ -1834,8 +1833,6 @@ Const
|
||||
DsLimit : dword = 0;
|
||||
|
||||
function NewHeapError(size : longint) : integer;
|
||||
var
|
||||
res : integer;
|
||||
begin
|
||||
set_segment_limit(get_ds,DsLimit);
|
||||
NewHeapError:=OldHeapError(size);
|
||||
@ -2599,7 +2596,12 @@ Const
|
||||
|
||||
(*
|
||||
$Log$
|
||||
Revision 1.21 2000-03-12 22:32:22 pierre
|
||||
Revision 1.22 2000-03-19 11:20:13 peter
|
||||
* graph unit include is now independent and the dependent part
|
||||
is now in graph.pp
|
||||
* ggigraph unit for linux added
|
||||
|
||||
Revision 1.21 2000/03/12 22:32:22 pierre
|
||||
+ UseLFB and UseNoSelector vars to force LinearFrameBuffer use
|
||||
with or without specific selector.
|
||||
|
||||
|
||||
@ -3,6 +3,8 @@
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by the Free Pascal development team
|
||||
|
||||
Graph unit implementation part
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
for details about the copyright.
|
||||
|
||||
@ -11,700 +13,6 @@
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
||||
**********************************************************************}
|
||||
Unit Graph;
|
||||
{-------------------------------------------------------}
|
||||
{ Differences with TP Graph unit: }
|
||||
{ - default putimage and getimage only support a max. }
|
||||
{ of 64K colors on screen, because all pixels are }
|
||||
{ saved as words. }
|
||||
{ - Set RGB Palette is not used, SetPalette must be }
|
||||
{ used instead. }
|
||||
{ - In the TP graph unit, Clipping is always performed }
|
||||
{ on strings written with OutText, and this clipping }
|
||||
{ is done on a character per character basis (for }
|
||||
{ example, if ONE part of a character is outside the }
|
||||
{ viewport , then that character is not written at }
|
||||
{ all to the screen. In FPC Pascal, clipping is done }
|
||||
{ on a PIXEL basis, not a character basis, so part of }
|
||||
{ characters which are not entirely in the viewport }
|
||||
{ may appear on the screen. }
|
||||
{ - SetTextStyle only conforms to the TP version when }
|
||||
{ the correct (and expected) values are used for }
|
||||
{ CharSize for stroked fonts (4 = stroked fonts) }
|
||||
{ - InstallUserDriver is not supported, so always }
|
||||
{ returns an error. }
|
||||
{ - RegisterBGIDriver is not supported, so always }
|
||||
{ returns an error. }
|
||||
{ - DrawPoly XORPut mode is not exactly the same as in }
|
||||
{ the TP graph unit. }
|
||||
{ - Imagesize returns a longint instead of a word }
|
||||
{ - ImageSize cannot return an error value }
|
||||
{-------------------------------------------------------}
|
||||
{ AUTHORS: }
|
||||
{ Gernot Tenchio - original version }
|
||||
{ Florian Klaempfl - major updates }
|
||||
{ Pierre Mueller - major bugfixes }
|
||||
{ Carl Eric Codere - complete rewrite }
|
||||
{ Thomas Schatzl - optimizations,routines and }
|
||||
{ suggestions. }
|
||||
{ Jonas Maebe - bugfixes and optimizations }
|
||||
{ Credits (external): }
|
||||
{ - Original FloodFill code by }
|
||||
{ Menno Victor van der star }
|
||||
{ (the code has been heavily modified) }
|
||||
{-------------------------------------------------------}
|
||||
{-------------------------------------------------------}
|
||||
{ For significant speed improvements , is is recommended }
|
||||
{ that these routines be hooked (otherwise the default, }
|
||||
{ slower routines will be used) : }
|
||||
{ HLine() }
|
||||
{ VLine() }
|
||||
{ PatternLine() }
|
||||
{ ClearViewPort() }
|
||||
{ PutImage() }
|
||||
{ GetImage() - ImageSize() should also be changed }
|
||||
{ InternalEllipse() }
|
||||
{ Line() }
|
||||
{ GetScanLine() }
|
||||
{--------------------------------------------------------}
|
||||
{ FPC unit requirements: }
|
||||
{ All modes should at least have 1 graphics page to }
|
||||
{ make it possible to create animation on all supported }
|
||||
{ systems , this can be done either by double-buffering }
|
||||
{ yourself in the heap if no hardware is available to do}
|
||||
{ it. }
|
||||
{--------------------------------------------------------}
|
||||
{ COMPATIBILITY WARNING: Some of the compatibility tests }
|
||||
{ were done using the CGA and other the VGA drivers. }
|
||||
{ Within the BGI drivers themselves the BEHAVIOUR is not }
|
||||
{ the same, so be warned!!! }
|
||||
{--------------------------------------------------------}
|
||||
{ History log: }
|
||||
{ 15th February 1999: }
|
||||
{ + Added support for system font in vertical mode }
|
||||
{ + system font is now available for all platforms }
|
||||
{ * font support routines now compile }
|
||||
{ * textHeight would not return correct size for system }
|
||||
{ font }
|
||||
{ * Alignment of fonts partly fixed }
|
||||
{ 17th Feb. 1999: }
|
||||
{ + First support for stroked fonts }
|
||||
{ 18th Feb. 1999: }
|
||||
{ * bugfix of line drawing which fixes stroked font }
|
||||
{ displays. }
|
||||
{ 23rd Feb. 1999: }
|
||||
{ + Applied Pierre's patches to font }
|
||||
{ + Added scaling of bitmapped fonts }
|
||||
{ + Vertical stroked fonts }
|
||||
{ 24th Feb. 1999: }
|
||||
{ * Scaling of stroked fonts must be done using FPs }
|
||||
{ to be 100% compatible with turbo pascal }
|
||||
{ + Sped up by 40% stroked font scaling calculations }
|
||||
{ + RegisterBGIFont }
|
||||
{ 9th march 1999: }
|
||||
{ + Starting implementing Fillpoly() }
|
||||
{ 15th march 1999: }
|
||||
{ + SetFillStyle() }
|
||||
{ + patternLine() }
|
||||
{ + Bar() }
|
||||
{ * GraphDefaults would not make the Default color }
|
||||
{ of the fill pattern to the Max. Palette entry. }
|
||||
{ + SetFillPattern() }
|
||||
{ 20th march 1999: }
|
||||
{ * GraphDefaults would not reset to the text system }
|
||||
{ * DefaultFont would write one character too much to }
|
||||
{ the screen }
|
||||
{ + Sloped thick lines in Line() }
|
||||
{ + Sloped patterned lines in Line() }
|
||||
{ * GraphDefaults would not reset the User Fill pattern}
|
||||
{ to $ff }
|
||||
{ + DirectPutPixel takes care of XOR mode writes }
|
||||
{ improves speed by about 30% over old method of }
|
||||
{ GetPixel XOR CurrentColor }
|
||||
{ * Dashed LineStyle exactly like BP version now }
|
||||
{ + Center LineStyle (checked against CGA driver) }
|
||||
{ * GraphDefaults() now resets linepattern array }
|
||||
{ 1st april 1999: }
|
||||
{ + First implementation of FillPoly (incomplete) }
|
||||
{ 2nd april 1999: }
|
||||
{ * FillPoly did not Reset PatternLine index }
|
||||
{ * FillPoly did not use correct color }
|
||||
{ * PatternLine was writing modes in reverse direction }
|
||||
{ * PatternLine would not work with non-rectangular }
|
||||
{ shapes. }
|
||||
{ * PatternLine must fill up the ENTIRE pattern, }
|
||||
{ with either the foreground or background color. }
|
||||
{ * GraphDefaults() would not call SetBkColor() }
|
||||
{ * Fixed some memory leaks in FillPoly() }
|
||||
{ 11th April 1999: }
|
||||
{ * PatternLine() was drawing one pixel less then }
|
||||
{ requested }
|
||||
{ 12th April 1999: }
|
||||
{ + FloodFill - first working implementation }
|
||||
{ Horrbly slow even on very fast cpu's }
|
||||
{ + Some suggestions of Thomas implemented }
|
||||
{ 13th April 1999: }
|
||||
{ * FloodFill() vertical index was off by one pixel }
|
||||
{ * FloodFill() would never draw the last line in the }
|
||||
{ list }
|
||||
{ - Removed ClearViewPort320 which was wrong anyways, }
|
||||
{ will need to be implemented later. }
|
||||
{ * PatternLine() would not always restore write mode }
|
||||
{ + Circle() uses NormalPut always with NormWidth lines}
|
||||
{ + FillEllipse() initial version }
|
||||
{ * InternalEllipse() - 0 to 360 now supported as }
|
||||
{ angles. }
|
||||
{ 14th April 1999: }
|
||||
{ * mod x = and (x-1)(from Thomas Schatzl) gives a }
|
||||
{ significant speed improvement. }
|
||||
{ 15th april 1999: }
|
||||
{ + Arc() ok except for Aspect Ratio, which does not }
|
||||
{ give us the correct ratio on a 320x200 screen. }
|
||||
{ + Added FillPoly() from Thomas Schatzl }
|
||||
{ + More hookable routines }
|
||||
{ 16th april 1999: }
|
||||
{ + Line() checked ok. }
|
||||
{ 17th april 1999: }
|
||||
{ * GraphDefaults() would not reset CP }
|
||||
{ + GetX(), GetY(), MoveTo() checked for viewports }
|
||||
{ * OutTextXY() should not update the CP }
|
||||
{ * ClearViewPort() would not update the CP }
|
||||
{ * ClearDevice() would not update the CP }
|
||||
{ * Sector() would update the CP by calling LineTo }
|
||||
{ * Bar3D() would update the CP }
|
||||
{ * PieSlice() would update the CP }
|
||||
{ 18th april 1999: }
|
||||
{ + Clipping algorithm }
|
||||
{ 19th april 1999: }
|
||||
{ + Adapterinfo structure }
|
||||
{ 20th april 1999: }
|
||||
{ + GetModeName }
|
||||
{ + GetGraphMode }
|
||||
{ + GetModeRange }
|
||||
{--------------------------------------------------------}
|
||||
{ LEFT TO DO: }
|
||||
{ - optimize scaling of stroked fonts }
|
||||
{ - optimize InternalEllipse() }
|
||||
{ using linear appx. of sine/cosine tables }
|
||||
{ - justification for stroked fonts does not work }
|
||||
{--------------------------------------------------------}
|
||||
|
||||
{ text.inc will crash on aligned requirement machines. }
|
||||
{ (packed record for fontrec) }
|
||||
{$ifndef fpc}
|
||||
{$G+}
|
||||
{$endif}
|
||||
|
||||
Interface
|
||||
|
||||
|
||||
{$ifdef win32}
|
||||
uses
|
||||
windows;
|
||||
{$endif win32}
|
||||
|
||||
type smallint = -32768..32767;
|
||||
|
||||
const
|
||||
maxsmallint = high(smallint);
|
||||
{ error codes }
|
||||
grOk = 0;
|
||||
grNoInitGraph = -1;
|
||||
grNotDetected = -2;
|
||||
grFileNotFound = -3;
|
||||
grInvalidDriver = -4;
|
||||
grNoLoadMem = -5;
|
||||
grNoScanMem = -6;
|
||||
grNoFloodMem = -7;
|
||||
grFontNotFound = -8;
|
||||
grNoFontMem = -9;
|
||||
grInvalidMode = -10;
|
||||
grError = -11;
|
||||
grIOerror = -12;
|
||||
grInvalidFont = -13;
|
||||
grInvalidFontNum = -14;
|
||||
grInvalidVersion = -18;
|
||||
|
||||
|
||||
{ Color constants for setpalette }
|
||||
black = 0;
|
||||
blue = 1;
|
||||
green = 2;
|
||||
cyan = 3;
|
||||
red = 4;
|
||||
magenta = 5;
|
||||
brown = 6;
|
||||
lightgray = 7;
|
||||
darkgray = 8;
|
||||
lightblue = 9;
|
||||
lightgreen = 10;
|
||||
lightcyan = 11;
|
||||
lightred = 12;
|
||||
lightmagenta = 13;
|
||||
yellow = 14;
|
||||
white = 15;
|
||||
|
||||
EGABlack = 0;
|
||||
EGABlue = 1;
|
||||
EGAGreen = 2;
|
||||
EGACyan = 3;
|
||||
EGARed = 4;
|
||||
EGAMagenta = 5;
|
||||
EGALightgray= 7;
|
||||
EGABrown = 20;
|
||||
EGADarkgray = 56;
|
||||
EGALightblue = 57;
|
||||
EGALightgreen = 58;
|
||||
EGALightcyan = 59;
|
||||
EGALightred = 60;
|
||||
EGALightmagenta=61;
|
||||
EGAYellow = 62;
|
||||
EGAWhite = 63;
|
||||
|
||||
|
||||
|
||||
{ Line styles for GetLineStyle/SetLineStyle }
|
||||
SolidLn = 0;
|
||||
DottedLn = 1;
|
||||
CenterLn = 2;
|
||||
DashedLn = 3;
|
||||
UserBitLn = 4;
|
||||
|
||||
NormWidth = 1;
|
||||
ThickWidth = 3;
|
||||
|
||||
{ Set/GetTextStyle Konstanten: }
|
||||
DefaultFont = 0;
|
||||
TriplexFont = 1;
|
||||
SmallFont = 2;
|
||||
SansSerifFont = 3;
|
||||
GothicFont = 4;
|
||||
ScriptFont = 5;
|
||||
SimpleFont = 6;
|
||||
TSCRFont = 7;
|
||||
LCOMFont = 8;
|
||||
EuroFont = 9;
|
||||
BoldFont = 10;
|
||||
|
||||
HorizDir = 0;
|
||||
VertDir = 1;
|
||||
|
||||
UserCharSize = 0;
|
||||
|
||||
ClipOn = true;
|
||||
ClipOff = false;
|
||||
|
||||
{ Bar3D constants }
|
||||
TopOn = true;
|
||||
TopOff = false;
|
||||
|
||||
{ fill pattern for Get/SetFillStyle: }
|
||||
EmptyFill = 0;
|
||||
SolidFill = 1;
|
||||
LineFill = 2;
|
||||
LtSlashFill = 3;
|
||||
SlashFill = 4;
|
||||
BkSlashFill = 5;
|
||||
LtBkSlashFill = 6;
|
||||
HatchFill = 7;
|
||||
XHatchFill = 8;
|
||||
InterleaveFill = 9;
|
||||
WideDotFill = 10;
|
||||
CloseDotFill = 11;
|
||||
UserFill = 12;
|
||||
|
||||
{ bitblt operators }
|
||||
NormalPut = 0;
|
||||
CopyPut = 0;
|
||||
XORPut = 1;
|
||||
OrPut = 2;
|
||||
AndPut = 3;
|
||||
NotPut = 4;
|
||||
|
||||
{ SetTextJustify constants }
|
||||
LeftText = 0;
|
||||
CenterText = 1;
|
||||
RightText = 2;
|
||||
|
||||
BottomText = 0;
|
||||
TopText = 2;
|
||||
|
||||
{ graphic drivers }
|
||||
CurrentDriver = -128;
|
||||
Detect = 0;
|
||||
LowRes = 1;
|
||||
HercMono = 7;
|
||||
VGA = 9;
|
||||
VESA = 10;
|
||||
|
||||
{ graph modes }
|
||||
Default = 0;
|
||||
|
||||
{ VGA Driver modes }
|
||||
VGALo = 0;
|
||||
VGAMed = 1;
|
||||
VGAHi = 2;
|
||||
|
||||
{ Hercules mono card }
|
||||
HercMonoHi = 0;
|
||||
|
||||
MaxColors = 255; { Maximum possible colors using a palette }
|
||||
{ otherwise, direct color encoding }
|
||||
|
||||
|
||||
type
|
||||
RGBRec = packed record
|
||||
Red: smallint;
|
||||
Green: smallint;
|
||||
Blue : smallint;
|
||||
end;
|
||||
|
||||
PaletteType = record
|
||||
Size : longint;
|
||||
Colors : array[0..MaxColors] of RGBRec;
|
||||
end;
|
||||
|
||||
LineSettingsType = record
|
||||
linestyle : word;
|
||||
pattern : word;
|
||||
thickness : word;
|
||||
end;
|
||||
|
||||
TextSettingsType = record
|
||||
font : word;
|
||||
direction : word;
|
||||
charsize : word;
|
||||
horiz : word;
|
||||
vert : word;
|
||||
end;
|
||||
|
||||
FillSettingsType = record
|
||||
pattern : word;
|
||||
color : word;
|
||||
end;
|
||||
|
||||
FillPatternType = array[1..8] of byte;
|
||||
|
||||
PointType = record
|
||||
x,y : smallint;
|
||||
end;
|
||||
|
||||
ViewPortType = record
|
||||
x1,y1,x2,y2 : smallint;
|
||||
Clip : boolean;
|
||||
end;
|
||||
|
||||
ArcCoordsType = record
|
||||
x,y : smallint;
|
||||
xstart,ystart : smallint;
|
||||
xend,yend : smallint;
|
||||
end;
|
||||
|
||||
{$IFDEF FPC}
|
||||
graph_int = longint; { platform specific smallint used for indexes;
|
||||
should be 16 bits on TP/BP and 32 bits on every-
|
||||
thing else for speed reasons }
|
||||
graph_float = single; { the platform's preferred floating point size }
|
||||
{$ELSE}
|
||||
graph_int = smallint; { platform specific smallint used for indexes;
|
||||
should be 16 bits on TP/BP and 32 bits on every-
|
||||
thing else for speed reasons }
|
||||
graph_float = real; { the platform's preferred floating point size }
|
||||
{$ENDIF}
|
||||
|
||||
const
|
||||
fillpatternTable : array[0..12] of FillPatternType = (
|
||||
($00,$00,$00,$00,$00,$00,$00,$00), { background color }
|
||||
($ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff), { foreground color }
|
||||
($ff,$ff,$00,$00,$ff,$ff,$00,$00), { horizontal lines }
|
||||
($01,$02,$04,$08,$10,$20,$40,$80), { slashes }
|
||||
($07,$0e,$1c,$38,$70,$e0,$c1,$83), { thick slashes }
|
||||
($07,$83,$c1,$e0,$70,$38,$1c,$0e), { thick backslashes }
|
||||
($5a,$2d,$96,$4b,$a5,$d2,$69,$b4), { backslashes }
|
||||
($ff,$88,$88,$88,$ff,$88,$88,$88), { small boxes }
|
||||
($18,$24,$42,$81,$81,$42,$24,$18), { rhombus }
|
||||
($cc,$33,$cc,$33,$cc,$33,$cc,$33), { wall pattern }
|
||||
($80,$00,$08,$00,$80,$00,$08,$00), { wide points }
|
||||
($88,$00,$22,$00,$88,$00,$22,$00), { dense points }
|
||||
(0,0,0,0,0,0,0,0) { user defined line style }
|
||||
);
|
||||
|
||||
|
||||
|
||||
{ ******************** PROCEDURAL VARIABLES ********************* }
|
||||
{ * These are hooks which have device specific stuff in them, * }
|
||||
{ * therefore to add new modes or to redirect these routines * }
|
||||
{ * then declare variables of these types as shown below. * }
|
||||
{-----------------------------------------------------------------}
|
||||
|
||||
TYPE
|
||||
|
||||
|
||||
{ This is the standard putpixel routine used by all function }
|
||||
{ drawing routines, it will use the viewport settings, as }
|
||||
{ well as clip, and use the current foreground color to plot }
|
||||
{ the desired pixel. }
|
||||
defpixelproc = procedure(X,Y: smallint);
|
||||
|
||||
{ standard plot and get pixel }
|
||||
getpixelproc = function(X,Y: smallint): word;
|
||||
putpixelproc = procedure(X,Y: smallint; Color: Word);
|
||||
|
||||
{ clears the viewport, also used to clear the device }
|
||||
clrviewproc = procedure;
|
||||
|
||||
{ putimage procedure, can be hooked to accomplish transparency }
|
||||
putimageproc = procedure (X,Y: smallint; var Bitmap; BitBlt: Word);
|
||||
getimageproc = procedure(X1,Y1,X2,Y2: smallint; Var Bitmap);
|
||||
imagesizeproc= function (X1,Y1,X2,Y2: smallint): longint;
|
||||
|
||||
graphfreememprc = procedure (var P: Pointer; size: word);
|
||||
graphgetmemprc = procedure (var P: pointer; size: word);
|
||||
|
||||
{ internal routines -- can be hooked for much faster drawing }
|
||||
|
||||
{ draw filled horizontal lines using current color }
|
||||
{ on entry coordinates are already clipped. }
|
||||
hlineproc = procedure (x, x2,y : smallint);
|
||||
{ on entry coordinates are already clipped. }
|
||||
{ draw filled vertical line using current color }
|
||||
vlineproc = procedure (x,y,y2: smallint);
|
||||
|
||||
{ this routine is used to draw filled patterns for all routines }
|
||||
{ that require it. (FillPoly, FloodFill, Sector, etc... }
|
||||
{ clipping is verified, uses current Fill settings for drawing }
|
||||
patternlineproc = procedure (x1,x2,y: smallint);
|
||||
|
||||
{ this routine is used to draw all circles/ellipses/sectors }
|
||||
{ more info... on this later... }
|
||||
ellipseproc = procedure (X,Y: smallint;XRadius: word;
|
||||
YRadius:word; stAngle,EndAngle: word; fp: PatternLineProc);
|
||||
|
||||
{ Line routine - draws lines thick/norm widths with current }
|
||||
{ color and line style - LINE must be clipped here. }
|
||||
lineproc = procedure (X1, Y1, X2, Y2 : smallint);
|
||||
|
||||
{ this routine is used for FloodFill - it returns an entire }
|
||||
{ screen scan line with a word for each pixel in the scanline. }
|
||||
{ Also handy for GetImage, so I added x coords as well (JM) }
|
||||
getscanlineproc = procedure (X1, X2, Y : smallint; var data);
|
||||
|
||||
{ changes the active display screen where we draw to... }
|
||||
setactivepageproc = procedure (page: word);
|
||||
|
||||
{ changes the active display screen which we see ... }
|
||||
setvisualpageproc = procedure (page: word);
|
||||
|
||||
{ this routine actually switches to the desired video mode. }
|
||||
initmodeproc = procedure;
|
||||
|
||||
{ this routine is called to save the sate just before a mode set }
|
||||
savestateproc = procedure;
|
||||
{ this routine is called in closegraph to cleanup... }
|
||||
restorestateproc = procedure;
|
||||
|
||||
{ This routine is a hook for SetRGBPalette }
|
||||
setrgbpaletteproc =
|
||||
procedure(ColorNum, RedValue, GreenValue, BlueValue: smallint);
|
||||
|
||||
{ This routine is a hook for GetRGBPalette }
|
||||
getrgbpaletteproc =
|
||||
procedure(ColorNum: smallint; var
|
||||
RedValue, GreenValue, BlueValue: smallint);
|
||||
|
||||
|
||||
TYPE
|
||||
{-----------------------------------}
|
||||
{ Linked list for mode information }
|
||||
{ This list is set up by one of the }
|
||||
{ following routines: }
|
||||
{ It lists all available resolutions}
|
||||
{ on this display adapter. }
|
||||
{-----------------------------------}
|
||||
{ QueryAdapter() }
|
||||
{ DetectGraph() }
|
||||
{ InitGraph() }
|
||||
{-----------------------------------}
|
||||
PModeInfo = ^TModeInfo;
|
||||
TModeInfo = record
|
||||
DriverNumber: smallint;
|
||||
ModeNumber: smallint;
|
||||
MaxColor: Longint; { Maximum colors on screen }
|
||||
PaletteSize : Longint; { Maximum palette entry we can change }
|
||||
XAspect : word; { XAspect ratio correction factor }
|
||||
YAspect : word; { YAspect ratio correction factor }
|
||||
MaxX: word; { Max-X row }
|
||||
MaxY: word; { Max. column. }
|
||||
DirectColor: boolean; { Is this a direct color mode?? }
|
||||
Hardwarepages: byte; { total number of image pages - 1 }
|
||||
ModeName: String[18];
|
||||
{ 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;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
VAR
|
||||
DirectPutPixel : DefPixelProc;
|
||||
ClearViewPort : ClrViewProc;
|
||||
PutPixel : PutPixelProc;
|
||||
PutImage : PutImageProc;
|
||||
GetImage : GetImageProc;
|
||||
ImageSize : ImageSizeProc;
|
||||
GetPixel : GetPixelProc;
|
||||
SetVisualPage : SetVisualPageProc;
|
||||
SetActivePage : SetActivePageProc;
|
||||
SetRGBPalette : SetRGBPaletteProc;
|
||||
GetRGBPalette : GetRGBPaletteProc;
|
||||
|
||||
GraphFreeMemPtr: graphfreememprc;
|
||||
GraphGetMemPtr : graphgetmemprc;
|
||||
|
||||
GetScanLine : GetScanLineProc;
|
||||
Line : LineProc;
|
||||
InternalEllipse: EllipseProc;
|
||||
PatternLine : PatternLineProc;
|
||||
HLine : HLineProc;
|
||||
VLine : VLineProc;
|
||||
|
||||
SaveVideoState : SaveStateProc;
|
||||
RestoreVideoState: RestoreStateProc;
|
||||
ExitSave: pointer;
|
||||
|
||||
|
||||
Procedure Closegraph;
|
||||
procedure SetLineStyle(LineStyle: word; Pattern: word; Thickness: word);
|
||||
function GraphErrorMsg(ErrorCode: smallint): string;
|
||||
Function GetMaxX: smallint;
|
||||
Function GetMaxY: smallint;
|
||||
Procedure SetViewPort(X1, Y1, X2, Y2: smallint; Clip: Boolean);
|
||||
Function GraphResult: smallint;
|
||||
function GetModeName(ModeNumber: smallint): string;
|
||||
procedure SetGraphMode(Mode: smallint);
|
||||
function GetGraphMode: smallint;
|
||||
function GetMaxMode: word;
|
||||
procedure RestoreCrtMode;
|
||||
procedure GetModeRange(GraphDriver: smallint; var LoMode, HiMode: smallint);
|
||||
Function GetX: smallint;
|
||||
Function GetY: smallint;
|
||||
procedure GraphDefaults;
|
||||
procedure ClearDevice;
|
||||
procedure GetViewSettings(var viewport : ViewPortType);
|
||||
procedure SetWriteMode(WriteMode : smallint);
|
||||
procedure GetFillSettings(var Fillinfo:Fillsettingstype);
|
||||
procedure GetFillPattern(var FillPattern:FillPatternType);
|
||||
procedure GetLineSettings(var ActiveLineInfo : LineSettingsType);
|
||||
procedure InitGraph(var GraphDriver:smallint;var GraphMode:smallint;const PathToDriver:String);
|
||||
procedure DetectGraph(var GraphDriver:smallint;var GraphMode:smallint);
|
||||
function InstallUserDriver(Name: string; AutoDetectPtr: Pointer): smallint;
|
||||
function RegisterBGIDriver(driver: pointer): smallint;
|
||||
procedure SetFillStyle(Pattern : word; Color: word);
|
||||
procedure SetFillPattern(Pattern: FillPatternType; Color: word);
|
||||
Function GetDriverName: string;
|
||||
procedure MoveRel(Dx, Dy: smallint);
|
||||
procedure MoveTo(X,Y: smallint);
|
||||
|
||||
procedure SetDirectVideo(DirectAccess: boolean);
|
||||
function GetDirectVideo: boolean;
|
||||
|
||||
{ -------------------- Color/Palette ------------------------------- }
|
||||
procedure SetBkColor(ColorNum: Word);
|
||||
function GetColor: Word;
|
||||
function GetBkColor: Word;
|
||||
procedure SetColor(Color: Word);
|
||||
function GetMaxColor: word;
|
||||
|
||||
procedure SetAllPalette(var Palette:PaletteType);
|
||||
procedure SetPalette(ColorNum: word; Color: shortint);
|
||||
procedure GetPalette(var Palette: PaletteType);
|
||||
function GetPaletteSize: smallint;
|
||||
procedure GetDefaultPalette(var Palette: PaletteType);
|
||||
|
||||
|
||||
{ -------------------- Shapes/Lines -------------------------------- }
|
||||
procedure Rectangle(x1,y1,x2,y2:smallint);
|
||||
procedure Bar(x1,y1,x2,y2:smallint);
|
||||
procedure Bar3D(x1, y1, x2, y2 : smallint;depth : word;top : boolean);
|
||||
procedure FillPoly(NumPoints: word; Var PolyPoints);
|
||||
procedure DrawPoly(NumPoints : word;var polypoints);
|
||||
procedure LineRel(Dx, Dy: smallint);
|
||||
procedure LineTo(X,Y : smallint);
|
||||
procedure FloodFill(x : smallint; y : smallint; Border: word);
|
||||
|
||||
{ -------------------- Circle related routines --------------------- }
|
||||
procedure GetAspectRatio(var Xasp,Yasp : word);
|
||||
procedure SetAspectRatio(Xasp, Yasp : word);
|
||||
procedure GetArcCoords(var ArcCoords: ArcCoordsType);
|
||||
|
||||
|
||||
procedure Arc(X,Y : smallint; StAngle,EndAngle,Radius: word);
|
||||
procedure PieSlice(X,Y,stangle,endAngle:smallint;Radius: Word);
|
||||
procedure FillEllipse(X, Y: smallint; XRadius, YRadius: Word);
|
||||
procedure Circle(X, Y: smallint; Radius:Word);
|
||||
procedure Sector(x, y: smallint; StAngle,EndAngle, XRadius, YRadius: Word);
|
||||
procedure Ellipse(X,Y : smallint; stAngle, EndAngle: word; XRadius,
|
||||
YRadius: word);
|
||||
|
||||
{ --------------------- Text related routines --------------------- }
|
||||
function InstallUserFont(const FontFileName : string) : smallint;
|
||||
function RegisterBGIfont(font : pointer) : smallint;
|
||||
procedure GetTextSettings(var TextInfo : TextSettingsType);
|
||||
function TextHeight(const TextString : string) : word;
|
||||
function TextWidth(const TextString : string) : word;
|
||||
procedure SetTextJustify(horiz,vert : word);
|
||||
procedure SetTextStyle(font,direction : word;charsize : word);
|
||||
procedure SetUserCharSize(Multx,Divx,Multy,Divy : word);
|
||||
|
||||
procedure OutTextXY(x,y : smallint;const TextString : string);
|
||||
procedure OutText(const TextString : string);
|
||||
|
||||
{ Load extra graph additions per system like mode constants }
|
||||
{$i graphh.inc}
|
||||
|
||||
|
||||
Implementation
|
||||
|
||||
{ what a mess ... it would be much better if the graph unit }
|
||||
{ would follow the structure of the FPC system unit: }
|
||||
{ the main file is system depended and the system independend part }
|
||||
{ is included (FK) }
|
||||
{$ifdef fpc}
|
||||
{$ifdef go32v2}
|
||||
{$define dpmi}
|
||||
uses go32,ports;
|
||||
Type TDPMIRegisters = go32.registers;
|
||||
{$endif go32v2}
|
||||
{$ifdef win32}
|
||||
uses
|
||||
strings;
|
||||
{$endif}
|
||||
{$ifdef linux}
|
||||
uses linux;
|
||||
{$endif}
|
||||
{$else fpc}
|
||||
{$IFDEF DPMI}
|
||||
uses WinAPI;
|
||||
{$ENDIF}
|
||||
{$endif fpc}
|
||||
|
||||
{$ifdef logging}
|
||||
var debuglog: text;
|
||||
@ -2159,7 +1467,6 @@ end;
|
||||
|
||||
{$i modes.inc}
|
||||
{$i palette.inc}
|
||||
{$i graph.inc}
|
||||
|
||||
function InstallUserDriver(Name: string; AutoDetectPtr: Pointer): smallint;
|
||||
begin
|
||||
@ -2960,6 +2267,7 @@ end;
|
||||
end;
|
||||
|
||||
|
||||
procedure InitializeGraph;
|
||||
begin
|
||||
{$ifdef logging}
|
||||
assign(debuglog,'grlog.txt');
|
||||
@ -3003,10 +2311,15 @@ begin
|
||||
{$ifdef win32}
|
||||
charmessagehandler:=nil;
|
||||
{$endif win32}
|
||||
end.
|
||||
end;
|
||||
{
|
||||
$Log$
|
||||
Revision 1.60 2000-03-18 10:45:07 sg
|
||||
Revision 1.28 2000-03-19 11:20:13 peter
|
||||
* graph unit include is now independent and the dependent part
|
||||
is now in graph.pp
|
||||
* ggigraph unit for linux added
|
||||
|
||||
Revision 1.60 2000/03/18 10:45:07 sg
|
||||
* Fix for ClearViewportDefault: The width and the height of the rectangle
|
||||
it filled has been one pixel too high.
|
||||
|
||||
682
rtl/inc/graph/graphh.inc
Normal file
682
rtl/inc/graph/graphh.inc
Normal file
@ -0,0 +1,682 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by the Free Pascal development team
|
||||
|
||||
Interface include file for graph unit
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
{-------------------------------------------------------}
|
||||
{ Differences with TP Graph unit: }
|
||||
{ - default putimage and getimage only support a max. }
|
||||
{ of 64K colors on screen, because all pixels are }
|
||||
{ saved as words. }
|
||||
{ - Set RGB Palette is not used, SetPalette must be }
|
||||
{ used instead. }
|
||||
{ - In the TP graph unit, Clipping is always performed }
|
||||
{ on strings written with OutText, and this clipping }
|
||||
{ is done on a character per character basis (for }
|
||||
{ example, if ONE part of a character is outside the }
|
||||
{ viewport , then that character is not written at }
|
||||
{ all to the screen. In FPC Pascal, clipping is done }
|
||||
{ on a PIXEL basis, not a character basis, so part of }
|
||||
{ characters which are not entirely in the viewport }
|
||||
{ may appear on the screen. }
|
||||
{ - SetTextStyle only conforms to the TP version when }
|
||||
{ the correct (and expected) values are used for }
|
||||
{ CharSize for stroked fonts (4 = stroked fonts) }
|
||||
{ - InstallUserDriver is not supported, so always }
|
||||
{ returns an error. }
|
||||
{ - RegisterBGIDriver is not supported, so always }
|
||||
{ returns an error. }
|
||||
{ - DrawPoly XORPut mode is not exactly the same as in }
|
||||
{ the TP graph unit. }
|
||||
{ - Imagesize returns a longint instead of a word }
|
||||
{ - ImageSize cannot return an error value }
|
||||
{-------------------------------------------------------}
|
||||
{ AUTHORS: }
|
||||
{ Gernot Tenchio - original version }
|
||||
{ Florian Klaempfl - major updates }
|
||||
{ Pierre Mueller - major bugfixes }
|
||||
{ Carl Eric Codere - complete rewrite }
|
||||
{ Thomas Schatzl - optimizations,routines and }
|
||||
{ suggestions. }
|
||||
{ Jonas Maebe - bugfixes and optimizations }
|
||||
{ Credits (external): }
|
||||
{ - Original FloodFill code by }
|
||||
{ Menno Victor van der star }
|
||||
{ (the code has been heavily modified) }
|
||||
{-------------------------------------------------------}
|
||||
{-------------------------------------------------------}
|
||||
{ For significant speed improvements , is is recommended }
|
||||
{ that these routines be hooked (otherwise the default, }
|
||||
{ slower routines will be used) : }
|
||||
{ HLine() }
|
||||
{ VLine() }
|
||||
{ PatternLine() }
|
||||
{ ClearViewPort() }
|
||||
{ PutImage() }
|
||||
{ GetImage() - ImageSize() should also be changed }
|
||||
{ InternalEllipse() }
|
||||
{ Line() }
|
||||
{ GetScanLine() }
|
||||
{--------------------------------------------------------}
|
||||
{ FPC unit requirements: }
|
||||
{ All modes should at least have 1 graphics page to }
|
||||
{ make it possible to create animation on all supported }
|
||||
{ systems , this can be done either by double-buffering }
|
||||
{ yourself in the heap if no hardware is available to do}
|
||||
{ it. }
|
||||
{--------------------------------------------------------}
|
||||
{ COMPATIBILITY WARNING: Some of the compatibility tests }
|
||||
{ were done using the CGA and other the VGA drivers. }
|
||||
{ Within the BGI drivers themselves the BEHAVIOUR is not }
|
||||
{ the same, so be warned!!! }
|
||||
{--------------------------------------------------------}
|
||||
{ History log: }
|
||||
{ 15th February 1999: }
|
||||
{ + Added support for system font in vertical mode }
|
||||
{ + system font is now available for all platforms }
|
||||
{ * font support routines now compile }
|
||||
{ * textHeight would not return correct size for system }
|
||||
{ font }
|
||||
{ * Alignment of fonts partly fixed }
|
||||
{ 17th Feb. 1999: }
|
||||
{ + First support for stroked fonts }
|
||||
{ 18th Feb. 1999: }
|
||||
{ * bugfix of line drawing which fixes stroked font }
|
||||
{ displays. }
|
||||
{ 23rd Feb. 1999: }
|
||||
{ + Applied Pierre's patches to font }
|
||||
{ + Added scaling of bitmapped fonts }
|
||||
{ + Vertical stroked fonts }
|
||||
{ 24th Feb. 1999: }
|
||||
{ * Scaling of stroked fonts must be done using FPs }
|
||||
{ to be 100% compatible with turbo pascal }
|
||||
{ + Sped up by 40% stroked font scaling calculations }
|
||||
{ + RegisterBGIFont }
|
||||
{ 9th march 1999: }
|
||||
{ + Starting implementing Fillpoly() }
|
||||
{ 15th march 1999: }
|
||||
{ + SetFillStyle() }
|
||||
{ + patternLine() }
|
||||
{ + Bar() }
|
||||
{ * GraphDefaults would not make the Default color }
|
||||
{ of the fill pattern to the Max. Palette entry. }
|
||||
{ + SetFillPattern() }
|
||||
{ 20th march 1999: }
|
||||
{ * GraphDefaults would not reset to the text system }
|
||||
{ * DefaultFont would write one character too much to }
|
||||
{ the screen }
|
||||
{ + Sloped thick lines in Line() }
|
||||
{ + Sloped patterned lines in Line() }
|
||||
{ * GraphDefaults would not reset the User Fill pattern}
|
||||
{ to $ff }
|
||||
{ + DirectPutPixel takes care of XOR mode writes }
|
||||
{ improves speed by about 30% over old method of }
|
||||
{ GetPixel XOR CurrentColor }
|
||||
{ * Dashed LineStyle exactly like BP version now }
|
||||
{ + Center LineStyle (checked against CGA driver) }
|
||||
{ * GraphDefaults() now resets linepattern array }
|
||||
{ 1st april 1999: }
|
||||
{ + First implementation of FillPoly (incomplete) }
|
||||
{ 2nd april 1999: }
|
||||
{ * FillPoly did not Reset PatternLine index }
|
||||
{ * FillPoly did not use correct color }
|
||||
{ * PatternLine was writing modes in reverse direction }
|
||||
{ * PatternLine would not work with non-rectangular }
|
||||
{ shapes. }
|
||||
{ * PatternLine must fill up the ENTIRE pattern, }
|
||||
{ with either the foreground or background color. }
|
||||
{ * GraphDefaults() would not call SetBkColor() }
|
||||
{ * Fixed some memory leaks in FillPoly() }
|
||||
{ 11th April 1999: }
|
||||
{ * PatternLine() was drawing one pixel less then }
|
||||
{ requested }
|
||||
{ 12th April 1999: }
|
||||
{ + FloodFill - first working implementation }
|
||||
{ Horrbly slow even on very fast cpu's }
|
||||
{ + Some suggestions of Thomas implemented }
|
||||
{ 13th April 1999: }
|
||||
{ * FloodFill() vertical index was off by one pixel }
|
||||
{ * FloodFill() would never draw the last line in the }
|
||||
{ list }
|
||||
{ - Removed ClearViewPort320 which was wrong anyways, }
|
||||
{ will need to be implemented later. }
|
||||
{ * PatternLine() would not always restore write mode }
|
||||
{ + Circle() uses NormalPut always with NormWidth lines}
|
||||
{ + FillEllipse() initial version }
|
||||
{ * InternalEllipse() - 0 to 360 now supported as }
|
||||
{ angles. }
|
||||
{ 14th April 1999: }
|
||||
{ * mod x = and (x-1)(from Thomas Schatzl) gives a }
|
||||
{ significant speed improvement. }
|
||||
{ 15th april 1999: }
|
||||
{ + Arc() ok except for Aspect Ratio, which does not }
|
||||
{ give us the correct ratio on a 320x200 screen. }
|
||||
{ + Added FillPoly() from Thomas Schatzl }
|
||||
{ + More hookable routines }
|
||||
{ 16th april 1999: }
|
||||
{ + Line() checked ok. }
|
||||
{ 17th april 1999: }
|
||||
{ * GraphDefaults() would not reset CP }
|
||||
{ + GetX(), GetY(), MoveTo() checked for viewports }
|
||||
{ * OutTextXY() should not update the CP }
|
||||
{ * ClearViewPort() would not update the CP }
|
||||
{ * ClearDevice() would not update the CP }
|
||||
{ * Sector() would update the CP by calling LineTo }
|
||||
{ * Bar3D() would update the CP }
|
||||
{ * PieSlice() would update the CP }
|
||||
{ 18th april 1999: }
|
||||
{ + Clipping algorithm }
|
||||
{ 19th april 1999: }
|
||||
{ + Adapterinfo structure }
|
||||
{ 20th april 1999: }
|
||||
{ + GetModeName }
|
||||
{ + GetGraphMode }
|
||||
{ + GetModeRange }
|
||||
{--------------------------------------------------------}
|
||||
{ LEFT TO DO: }
|
||||
{ - optimize scaling of stroked fonts }
|
||||
{ - optimize InternalEllipse() }
|
||||
{ using linear appx. of sine/cosine tables }
|
||||
{ - justification for stroked fonts does not work }
|
||||
{--------------------------------------------------------}
|
||||
|
||||
{ text.inc will crash on aligned requirement machines. }
|
||||
{ (packed record for fontrec) }
|
||||
{$ifndef fpc}
|
||||
{$G+}
|
||||
{$endif}
|
||||
|
||||
type smallint = -32768..32767;
|
||||
|
||||
const
|
||||
maxsmallint = high(smallint);
|
||||
{ error codes }
|
||||
grOk = 0;
|
||||
grNoInitGraph = -1;
|
||||
grNotDetected = -2;
|
||||
grFileNotFound = -3;
|
||||
grInvalidDriver = -4;
|
||||
grNoLoadMem = -5;
|
||||
grNoScanMem = -6;
|
||||
grNoFloodMem = -7;
|
||||
grFontNotFound = -8;
|
||||
grNoFontMem = -9;
|
||||
grInvalidMode = -10;
|
||||
grError = -11;
|
||||
grIOerror = -12;
|
||||
grInvalidFont = -13;
|
||||
grInvalidFontNum = -14;
|
||||
grInvalidVersion = -18;
|
||||
|
||||
|
||||
{ Color constants for setpalette }
|
||||
black = 0;
|
||||
blue = 1;
|
||||
green = 2;
|
||||
cyan = 3;
|
||||
red = 4;
|
||||
magenta = 5;
|
||||
brown = 6;
|
||||
lightgray = 7;
|
||||
darkgray = 8;
|
||||
lightblue = 9;
|
||||
lightgreen = 10;
|
||||
lightcyan = 11;
|
||||
lightred = 12;
|
||||
lightmagenta = 13;
|
||||
yellow = 14;
|
||||
white = 15;
|
||||
|
||||
EGABlack = 0;
|
||||
EGABlue = 1;
|
||||
EGAGreen = 2;
|
||||
EGACyan = 3;
|
||||
EGARed = 4;
|
||||
EGAMagenta = 5;
|
||||
EGALightgray= 7;
|
||||
EGABrown = 20;
|
||||
EGADarkgray = 56;
|
||||
EGALightblue = 57;
|
||||
EGALightgreen = 58;
|
||||
EGALightcyan = 59;
|
||||
EGALightred = 60;
|
||||
EGALightmagenta=61;
|
||||
EGAYellow = 62;
|
||||
EGAWhite = 63;
|
||||
|
||||
|
||||
|
||||
{ Line styles for GetLineStyle/SetLineStyle }
|
||||
SolidLn = 0;
|
||||
DottedLn = 1;
|
||||
CenterLn = 2;
|
||||
DashedLn = 3;
|
||||
UserBitLn = 4;
|
||||
|
||||
NormWidth = 1;
|
||||
ThickWidth = 3;
|
||||
|
||||
{ Set/GetTextStyle Konstanten: }
|
||||
DefaultFont = 0;
|
||||
TriplexFont = 1;
|
||||
SmallFont = 2;
|
||||
SansSerifFont = 3;
|
||||
GothicFont = 4;
|
||||
ScriptFont = 5;
|
||||
SimpleFont = 6;
|
||||
TSCRFont = 7;
|
||||
LCOMFont = 8;
|
||||
EuroFont = 9;
|
||||
BoldFont = 10;
|
||||
|
||||
HorizDir = 0;
|
||||
VertDir = 1;
|
||||
|
||||
UserCharSize = 0;
|
||||
|
||||
ClipOn = true;
|
||||
ClipOff = false;
|
||||
|
||||
{ Bar3D constants }
|
||||
TopOn = true;
|
||||
TopOff = false;
|
||||
|
||||
{ fill pattern for Get/SetFillStyle: }
|
||||
EmptyFill = 0;
|
||||
SolidFill = 1;
|
||||
LineFill = 2;
|
||||
LtSlashFill = 3;
|
||||
SlashFill = 4;
|
||||
BkSlashFill = 5;
|
||||
LtBkSlashFill = 6;
|
||||
HatchFill = 7;
|
||||
XHatchFill = 8;
|
||||
InterleaveFill = 9;
|
||||
WideDotFill = 10;
|
||||
CloseDotFill = 11;
|
||||
UserFill = 12;
|
||||
|
||||
{ bitblt operators }
|
||||
NormalPut = 0;
|
||||
CopyPut = 0;
|
||||
XORPut = 1;
|
||||
OrPut = 2;
|
||||
AndPut = 3;
|
||||
NotPut = 4;
|
||||
|
||||
{ SetTextJustify constants }
|
||||
LeftText = 0;
|
||||
CenterText = 1;
|
||||
RightText = 2;
|
||||
|
||||
BottomText = 0;
|
||||
TopText = 2;
|
||||
|
||||
{ graphic drivers }
|
||||
CurrentDriver = -128;
|
||||
Detect = 0;
|
||||
LowRes = 1;
|
||||
HercMono = 7;
|
||||
VGA = 9;
|
||||
VESA = 10;
|
||||
|
||||
{ graph modes }
|
||||
Default = 0;
|
||||
|
||||
{ VGA Driver modes }
|
||||
VGALo = 0;
|
||||
VGAMed = 1;
|
||||
VGAHi = 2;
|
||||
|
||||
{ Hercules mono card }
|
||||
HercMonoHi = 0;
|
||||
|
||||
MaxColors = 255; { Maximum possible colors using a palette }
|
||||
{ otherwise, direct color encoding }
|
||||
|
||||
|
||||
type
|
||||
RGBRec = packed record
|
||||
Red: smallint;
|
||||
Green: smallint;
|
||||
Blue : smallint;
|
||||
end;
|
||||
|
||||
PaletteType = record
|
||||
Size : longint;
|
||||
Colors : array[0..MaxColors] of RGBRec;
|
||||
end;
|
||||
|
||||
LineSettingsType = record
|
||||
linestyle : word;
|
||||
pattern : word;
|
||||
thickness : word;
|
||||
end;
|
||||
|
||||
TextSettingsType = record
|
||||
font : word;
|
||||
direction : word;
|
||||
charsize : word;
|
||||
horiz : word;
|
||||
vert : word;
|
||||
end;
|
||||
|
||||
FillSettingsType = record
|
||||
pattern : word;
|
||||
color : word;
|
||||
end;
|
||||
|
||||
FillPatternType = array[1..8] of byte;
|
||||
|
||||
PointType = record
|
||||
x,y : smallint;
|
||||
end;
|
||||
|
||||
ViewPortType = record
|
||||
x1,y1,x2,y2 : smallint;
|
||||
Clip : boolean;
|
||||
end;
|
||||
|
||||
ArcCoordsType = record
|
||||
x,y : smallint;
|
||||
xstart,ystart : smallint;
|
||||
xend,yend : smallint;
|
||||
end;
|
||||
|
||||
{$IFDEF FPC}
|
||||
graph_int = longint; { platform specific smallint used for indexes;
|
||||
should be 16 bits on TP/BP and 32 bits on every-
|
||||
thing else for speed reasons }
|
||||
graph_float = single; { the platform's preferred floating point size }
|
||||
{$ELSE}
|
||||
graph_int = smallint; { platform specific smallint used for indexes;
|
||||
should be 16 bits on TP/BP and 32 bits on every-
|
||||
thing else for speed reasons }
|
||||
graph_float = real; { the platform's preferred floating point size }
|
||||
{$ENDIF}
|
||||
|
||||
const
|
||||
fillpatternTable : array[0..12] of FillPatternType = (
|
||||
($00,$00,$00,$00,$00,$00,$00,$00), { background color }
|
||||
($ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff), { foreground color }
|
||||
($ff,$ff,$00,$00,$ff,$ff,$00,$00), { horizontal lines }
|
||||
($01,$02,$04,$08,$10,$20,$40,$80), { slashes }
|
||||
($07,$0e,$1c,$38,$70,$e0,$c1,$83), { thick slashes }
|
||||
($07,$83,$c1,$e0,$70,$38,$1c,$0e), { thick backslashes }
|
||||
($5a,$2d,$96,$4b,$a5,$d2,$69,$b4), { backslashes }
|
||||
($ff,$88,$88,$88,$ff,$88,$88,$88), { small boxes }
|
||||
($18,$24,$42,$81,$81,$42,$24,$18), { rhombus }
|
||||
($cc,$33,$cc,$33,$cc,$33,$cc,$33), { wall pattern }
|
||||
($80,$00,$08,$00,$80,$00,$08,$00), { wide points }
|
||||
($88,$00,$22,$00,$88,$00,$22,$00), { dense points }
|
||||
(0,0,0,0,0,0,0,0) { user defined line style }
|
||||
);
|
||||
|
||||
|
||||
|
||||
{ ******************** PROCEDURAL VARIABLES ********************* }
|
||||
{ * These are hooks which have device specific stuff in them, * }
|
||||
{ * therefore to add new modes or to redirect these routines * }
|
||||
{ * then declare variables of these types as shown below. * }
|
||||
{-----------------------------------------------------------------}
|
||||
|
||||
TYPE
|
||||
|
||||
|
||||
{ This is the standard putpixel routine used by all function }
|
||||
{ drawing routines, it will use the viewport settings, as }
|
||||
{ well as clip, and use the current foreground color to plot }
|
||||
{ the desired pixel. }
|
||||
defpixelproc = procedure(X,Y: smallint);
|
||||
|
||||
{ standard plot and get pixel }
|
||||
getpixelproc = function(X,Y: smallint): word;
|
||||
putpixelproc = procedure(X,Y: smallint; Color: Word);
|
||||
|
||||
{ clears the viewport, also used to clear the device }
|
||||
clrviewproc = procedure;
|
||||
|
||||
{ putimage procedure, can be hooked to accomplish transparency }
|
||||
putimageproc = procedure (X,Y: smallint; var Bitmap; BitBlt: Word);
|
||||
getimageproc = procedure(X1,Y1,X2,Y2: smallint; Var Bitmap);
|
||||
imagesizeproc= function (X1,Y1,X2,Y2: smallint): longint;
|
||||
|
||||
graphfreememprc = procedure (var P: Pointer; size: word);
|
||||
graphgetmemprc = procedure (var P: pointer; size: word);
|
||||
|
||||
{ internal routines -- can be hooked for much faster drawing }
|
||||
|
||||
{ draw filled horizontal lines using current color }
|
||||
{ on entry coordinates are already clipped. }
|
||||
hlineproc = procedure (x, x2,y : smallint);
|
||||
{ on entry coordinates are already clipped. }
|
||||
{ draw filled vertical line using current color }
|
||||
vlineproc = procedure (x,y,y2: smallint);
|
||||
|
||||
{ this routine is used to draw filled patterns for all routines }
|
||||
{ that require it. (FillPoly, FloodFill, Sector, etc... }
|
||||
{ clipping is verified, uses current Fill settings for drawing }
|
||||
patternlineproc = procedure (x1,x2,y: smallint);
|
||||
|
||||
{ this routine is used to draw all circles/ellipses/sectors }
|
||||
{ more info... on this later... }
|
||||
ellipseproc = procedure (X,Y: smallint;XRadius: word;
|
||||
YRadius:word; stAngle,EndAngle: word; fp: PatternLineProc);
|
||||
|
||||
{ Line routine - draws lines thick/norm widths with current }
|
||||
{ color and line style - LINE must be clipped here. }
|
||||
lineproc = procedure (X1, Y1, X2, Y2 : smallint);
|
||||
|
||||
{ this routine is used for FloodFill - it returns an entire }
|
||||
{ screen scan line with a word for each pixel in the scanline. }
|
||||
{ Also handy for GetImage, so I added x coords as well (JM) }
|
||||
getscanlineproc = procedure (X1, X2, Y : smallint; var data);
|
||||
|
||||
{ changes the active display screen where we draw to... }
|
||||
setactivepageproc = procedure (page: word);
|
||||
|
||||
{ changes the active display screen which we see ... }
|
||||
setvisualpageproc = procedure (page: word);
|
||||
|
||||
{ this routine actually switches to the desired video mode. }
|
||||
initmodeproc = procedure;
|
||||
|
||||
{ this routine is called to save the sate just before a mode set }
|
||||
savestateproc = procedure;
|
||||
{ this routine is called in closegraph to cleanup... }
|
||||
restorestateproc = procedure;
|
||||
|
||||
{ This routine is a hook for SetRGBPalette }
|
||||
setrgbpaletteproc =
|
||||
procedure(ColorNum, RedValue, GreenValue, BlueValue: smallint);
|
||||
|
||||
{ This routine is a hook for GetRGBPalette }
|
||||
getrgbpaletteproc =
|
||||
procedure(ColorNum: smallint; var
|
||||
RedValue, GreenValue, BlueValue: smallint);
|
||||
|
||||
|
||||
TYPE
|
||||
{-----------------------------------}
|
||||
{ Linked list for mode information }
|
||||
{ This list is set up by one of the }
|
||||
{ following routines: }
|
||||
{ It lists all available resolutions}
|
||||
{ on this display adapter. }
|
||||
{-----------------------------------}
|
||||
{ QueryAdapter() }
|
||||
{ DetectGraph() }
|
||||
{ InitGraph() }
|
||||
{-----------------------------------}
|
||||
PModeInfo = ^TModeInfo;
|
||||
TModeInfo = record
|
||||
DriverNumber: smallint;
|
||||
ModeNumber: smallint;
|
||||
MaxColor: Longint; { Maximum colors on screen }
|
||||
PaletteSize : Longint; { Maximum palette entry we can change }
|
||||
XAspect : word; { XAspect ratio correction factor }
|
||||
YAspect : word; { YAspect ratio correction factor }
|
||||
MaxX: word; { Max-X row }
|
||||
MaxY: word; { Max. column. }
|
||||
DirectColor: boolean; { Is this a direct color mode?? }
|
||||
Hardwarepages: byte; { total number of image pages - 1 }
|
||||
ModeName: String[18];
|
||||
{ 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;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
VAR
|
||||
DirectPutPixel : DefPixelProc;
|
||||
ClearViewPort : ClrViewProc;
|
||||
PutPixel : PutPixelProc;
|
||||
PutImage : PutImageProc;
|
||||
GetImage : GetImageProc;
|
||||
ImageSize : ImageSizeProc;
|
||||
GetPixel : GetPixelProc;
|
||||
SetVisualPage : SetVisualPageProc;
|
||||
SetActivePage : SetActivePageProc;
|
||||
SetRGBPalette : SetRGBPaletteProc;
|
||||
GetRGBPalette : GetRGBPaletteProc;
|
||||
|
||||
GraphFreeMemPtr: graphfreememprc;
|
||||
GraphGetMemPtr : graphgetmemprc;
|
||||
|
||||
GetScanLine : GetScanLineProc;
|
||||
Line : LineProc;
|
||||
InternalEllipse: EllipseProc;
|
||||
PatternLine : PatternLineProc;
|
||||
HLine : HLineProc;
|
||||
VLine : VLineProc;
|
||||
|
||||
SaveVideoState : SaveStateProc;
|
||||
RestoreVideoState: RestoreStateProc;
|
||||
ExitSave: pointer;
|
||||
|
||||
function queryadapterinfo : pmodeinfo;
|
||||
|
||||
Procedure Closegraph;
|
||||
procedure SetLineStyle(LineStyle: word; Pattern: word; Thickness: word);
|
||||
function GraphErrorMsg(ErrorCode: smallint): string;
|
||||
Function GetMaxX: smallint;
|
||||
Function GetMaxY: smallint;
|
||||
Procedure SetViewPort(X1, Y1, X2, Y2: smallint; Clip: Boolean);
|
||||
Function GraphResult: smallint;
|
||||
function GetModeName(ModeNumber: smallint): string;
|
||||
procedure SetGraphMode(Mode: smallint);
|
||||
function GetGraphMode: smallint;
|
||||
function GetMaxMode: word;
|
||||
procedure RestoreCrtMode;
|
||||
procedure GetModeRange(GraphDriver: smallint; var LoMode, HiMode: smallint);
|
||||
Function GetX: smallint;
|
||||
Function GetY: smallint;
|
||||
procedure GraphDefaults;
|
||||
procedure ClearDevice;
|
||||
procedure GetViewSettings(var viewport : ViewPortType);
|
||||
procedure SetWriteMode(WriteMode : smallint);
|
||||
procedure GetFillSettings(var Fillinfo:Fillsettingstype);
|
||||
procedure GetFillPattern(var FillPattern:FillPatternType);
|
||||
procedure GetLineSettings(var ActiveLineInfo : LineSettingsType);
|
||||
procedure InitGraph(var GraphDriver:smallint;var GraphMode:smallint;const PathToDriver:String);
|
||||
procedure DetectGraph(var GraphDriver:smallint;var GraphMode:smallint);
|
||||
function InstallUserDriver(Name: string; AutoDetectPtr: Pointer): smallint;
|
||||
function RegisterBGIDriver(driver: pointer): smallint;
|
||||
procedure SetFillStyle(Pattern : word; Color: word);
|
||||
procedure SetFillPattern(Pattern: FillPatternType; Color: word);
|
||||
Function GetDriverName: string;
|
||||
procedure MoveRel(Dx, Dy: smallint);
|
||||
procedure MoveTo(X,Y: smallint);
|
||||
|
||||
procedure SetDirectVideo(DirectAccess: boolean);
|
||||
function GetDirectVideo: boolean;
|
||||
|
||||
{ -------------------- Color/Palette ------------------------------- }
|
||||
procedure SetBkColor(ColorNum: Word);
|
||||
function GetColor: Word;
|
||||
function GetBkColor: Word;
|
||||
procedure SetColor(Color: Word);
|
||||
function GetMaxColor: word;
|
||||
|
||||
procedure SetAllPalette(var Palette:PaletteType);
|
||||
procedure SetPalette(ColorNum: word; Color: shortint);
|
||||
procedure GetPalette(var Palette: PaletteType);
|
||||
function GetPaletteSize: smallint;
|
||||
procedure GetDefaultPalette(var Palette: PaletteType);
|
||||
|
||||
|
||||
{ -------------------- Shapes/Lines -------------------------------- }
|
||||
procedure Rectangle(x1,y1,x2,y2:smallint);
|
||||
procedure Bar(x1,y1,x2,y2:smallint);
|
||||
procedure Bar3D(x1, y1, x2, y2 : smallint;depth : word;top : boolean);
|
||||
procedure FillPoly(NumPoints: word; Var PolyPoints);
|
||||
procedure DrawPoly(NumPoints : word;var polypoints);
|
||||
procedure LineRel(Dx, Dy: smallint);
|
||||
procedure LineTo(X,Y : smallint);
|
||||
procedure FloodFill(x : smallint; y : smallint; Border: word);
|
||||
|
||||
{ -------------------- Circle related routines --------------------- }
|
||||
procedure GetAspectRatio(var Xasp,Yasp : word);
|
||||
procedure SetAspectRatio(Xasp, Yasp : word);
|
||||
procedure GetArcCoords(var ArcCoords: ArcCoordsType);
|
||||
|
||||
|
||||
procedure Arc(X,Y : smallint; StAngle,EndAngle,Radius: word);
|
||||
procedure PieSlice(X,Y,stangle,endAngle:smallint;Radius: Word);
|
||||
procedure FillEllipse(X, Y: smallint; XRadius, YRadius: Word);
|
||||
procedure Circle(X, Y: smallint; Radius:Word);
|
||||
procedure Sector(x, y: smallint; StAngle,EndAngle, XRadius, YRadius: Word);
|
||||
procedure Ellipse(X,Y : smallint; stAngle, EndAngle: word; XRadius,
|
||||
YRadius: word);
|
||||
|
||||
{ --------------------- Text related routines --------------------- }
|
||||
function InstallUserFont(const FontFileName : string) : smallint;
|
||||
function RegisterBGIfont(font : pointer) : smallint;
|
||||
procedure GetTextSettings(var TextInfo : TextSettingsType);
|
||||
function TextHeight(const TextString : string) : word;
|
||||
function TextWidth(const TextString : string) : word;
|
||||
procedure SetTextJustify(horiz,vert : word);
|
||||
procedure SetTextStyle(font,direction : word;charsize : word);
|
||||
procedure SetUserCharSize(Multx,Divx,Multy,Divy : word);
|
||||
|
||||
procedure OutTextXY(x,y : smallint;const TextString : string);
|
||||
procedure OutText(const TextString : string);
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2000-03-19 11:20:13 peter
|
||||
* graph unit include is now independent and the dependent part
|
||||
is now in graph.pp
|
||||
* ggigraph unit for linux added
|
||||
|
||||
}
|
||||
@ -1 +1 @@
|
||||
GRAPHINCNAMES=fontdata.inc clip.inc fills.inc gtext.inc palette.inc modes.inc
|
||||
GRAPHINCNAMES=graph.inc graphh.inc fontdata.inc clip.inc fills.inc gtext.inc palette.inc modes.inc
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
#
|
||||
# Makefile generated by fpcmake v0.99.13 [2000/02/09]
|
||||
# Makefile generated by fpcmake v0.99.13 [2000/02/24]
|
||||
#
|
||||
|
||||
defaultrule: all
|
||||
@ -202,7 +202,7 @@ endif
|
||||
# Targets
|
||||
|
||||
override LOADEROBJECTS+=prt0 cprt0 gprt0 cprt21 gprt21
|
||||
override UNITOBJECTS+=$(SYSTEMUNIT) objpas strings linux ports initc dos crt objects printer graph sysutils typinfo math cpu mmx getopts heaptrc lineinfo errors sockets gpm ipc
|
||||
override UNITOBJECTS+=$(SYSTEMUNIT) objpas strings linux ports initc dos crt objects printer graph ggigraph sysutils typinfo math cpu mmx getopts heaptrc lineinfo errors sockets gpm ipc
|
||||
|
||||
# Clean
|
||||
|
||||
@ -1202,14 +1202,14 @@ printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMPPU)
|
||||
#
|
||||
include $(GRAPHDIR)/makefile.inc
|
||||
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
|
||||
ifeq ($(USELIBGGI),YES)
|
||||
GRAPHINCDEPS+=ggigraph.inc
|
||||
override COMPILER+=-dUSEGGI -S2
|
||||
else
|
||||
GRAPHINCDEPS+=vgagraph.inc
|
||||
endif
|
||||
graph$(PPUEXT) : $(GRAPHDIR)/graph.pp $(SYSTEMPPU) $(GRAPHINCDEPS) graph.inc
|
||||
$(COMPILER) -I$(GRAPHDIR) $(GRAPHDIR)/graph.pp $(REDIR)
|
||||
|
||||
graph$(PPUEXT) : graph.pp linux$(PPUEXT) $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS) vgagraph16.inc
|
||||
$(COMPILER) -I$(GRAPHDIR) graph.pp $(REDIR)
|
||||
|
||||
ggigraph$(PPUEXT) : ggigraph.pp linux$(PPUEXT) $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS)
|
||||
$(COMPILER) -I$(GRAPHDIR) ggigraph.pp $(REDIR)
|
||||
|
||||
#
|
||||
# Delphi Compatible Units
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
loaders=prt0 cprt0 gprt0 cprt21 gprt21
|
||||
units=$(SYSTEMUNIT) objpas strings \
|
||||
linux ports initc \
|
||||
dos crt objects printer graph \
|
||||
dos crt objects printer graph ggigraph \
|
||||
sysutils typinfo math \
|
||||
cpu mmx getopts heaptrc lineinfo \
|
||||
errors sockets gpm ipc
|
||||
@ -144,14 +144,14 @@ printer$(PPUEXT) : printer.pp $(INC)/textrec.inc linux$(PPUEXT) $(SYSTEMPPU)
|
||||
#
|
||||
include $(GRAPHDIR)/makefile.inc
|
||||
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
|
||||
ifeq ($(USELIBGGI),YES)
|
||||
GRAPHINCDEPS+=ggigraph.inc
|
||||
override COMPILER+=-dUSEGGI -S2
|
||||
else
|
||||
GRAPHINCDEPS+=vgagraph.inc
|
||||
endif
|
||||
graph$(PPUEXT) : $(GRAPHDIR)/graph.pp $(SYSTEMPPU) $(GRAPHINCDEPS) graph.inc
|
||||
$(COMPILER) -I$(GRAPHDIR) $(GRAPHDIR)/graph.pp $(REDIR)
|
||||
|
||||
graph$(PPUEXT) : graph.pp linux$(PPUEXT) $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS) vgagraph16.inc
|
||||
$(COMPILER) -I$(GRAPHDIR) graph.pp $(REDIR)
|
||||
|
||||
ggigraph$(PPUEXT) : ggigraph.pp linux$(PPUEXT) $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS)
|
||||
$(COMPILER) -I$(GRAPHDIR) ggigraph.pp $(REDIR)
|
||||
|
||||
#
|
||||
# Delphi Compatible Units
|
||||
|
||||
@ -1,9 +1,9 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by the Free Pascal development team
|
||||
Copyright (c) 1999-2000 by Florian Klaempfl
|
||||
|
||||
GGI implementation of graph unit.
|
||||
This file implements the linux GGI support for the graph unit
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
for details about the copyright.
|
||||
@ -13,16 +13,94 @@
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
||||
**********************************************************************}
|
||||
unit GGIGraph;
|
||||
interface
|
||||
|
||||
{$LINKLIB c}
|
||||
{$PACKRECORDS C}
|
||||
{ objfpc is needed for array of const support }
|
||||
{$mode objfpc}
|
||||
|
||||
{$i graphh.inc}
|
||||
|
||||
Const
|
||||
{ Supported modes }
|
||||
{(sg) GTEXT deactivated because we need mode #0 as default mode}
|
||||
{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;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
linux;
|
||||
|
||||
const
|
||||
InternalDriverName = 'LinuxGGI';
|
||||
|
||||
{$i graph.inc}
|
||||
|
||||
{ ---------------------------------------------------------------------
|
||||
GGI bindings [(c) 1999 Sebastian Guenther]
|
||||
---------------------------------------------------------------------}
|
||||
{$LINKLIB c}
|
||||
{$PACKRECORDS C}
|
||||
|
||||
const
|
||||
GLASTMODE = 49;
|
||||
ModeNames: array[0..GLastMode] of PChar =
|
||||
@ -430,43 +508,15 @@ begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
InitializeGraph;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.9 2000-02-27 14:41:25 peter
|
||||
* removed warnings/notes
|
||||
Revision 1.1 2000-03-19 11:20:14 peter
|
||||
* graph unit include is now independent and the dependent part
|
||||
is now in graph.pp
|
||||
* ggigraph unit for linux added
|
||||
|
||||
Revision 1.8 2000/01/07 16:41:40 daniel
|
||||
* copyright 2000
|
||||
|
||||
Revision 1.7 1999/12/20 11:22:38 peter
|
||||
* modes moved to interface
|
||||
* integer -> smallint
|
||||
|
||||
Revision 1.6 1999/12/11 23:41:39 jonas
|
||||
* changed definition of getscanlineproc to "getscanline(x1,x2,y:
|
||||
smallint; var data);" so it can be used by getimage too
|
||||
* changed getimage so it uses getscanline
|
||||
* changed floodfill, getscanline16 and definitions in Linux
|
||||
include files so they use this new format
|
||||
+ getscanlineVESA256 for 256 color VESA modes (banked)
|
||||
|
||||
Revision 1.5 1999/11/12 02:13:01 carl
|
||||
* Bugfix if getimage / putimage, format was not standard with FPC
|
||||
graph.
|
||||
|
||||
Revision 1.4 1999/11/10 10:54:24 sg
|
||||
* Fixed a LOT of bugs:
|
||||
* - Default mode should be determined by GGI now
|
||||
* - Colors are working (only the 16 standard VGA colors, though)
|
||||
|
||||
Revision 1.3 1999/11/08 20:04:55 sg
|
||||
* GGI programs must link to libc, or ggiOpen will fail!
|
||||
* Changed max length of ModeNames string from 18 to 20 chars
|
||||
|
||||
Revision 1.2 1999/11/08 00:08:43 michael
|
||||
* Fist working version of svgalib new graph unit
|
||||
* Initial implementation of ggi new graph unit
|
||||
|
||||
Revision 1.1 1999/11/07 16:57:26 michael
|
||||
+ Start of common graph implementation
|
||||
}
|
||||
@ -1,24 +0,0 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by the Free Pascal development team
|
||||
|
||||
Graph include file for linux.
|
||||
|
||||
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}
|
||||
@ -1,9 +1,9 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by the Free Pascal development team
|
||||
Copyright (c) 1999-2000 by Florian Klaempfl
|
||||
|
||||
svgalib implementation of graph unit.
|
||||
This file implements the linux GGI support for the graph unit
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
for details about the copyright.
|
||||
@ -13,10 +13,84 @@
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
||||
**********************************************************************}
|
||||
unit Graph;
|
||||
interface
|
||||
|
||||
const
|
||||
InternalDriverName = 'LinuxVGA';
|
||||
{$i graphh.inc}
|
||||
|
||||
Const
|
||||
{ Supported modes }
|
||||
{(sg) GTEXT deactivated because we need mode #0 as default mode}
|
||||
{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;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
linux;
|
||||
|
||||
const
|
||||
InternalDriverName = 'LinuxVGA';
|
||||
|
||||
{$i graph.inc}
|
||||
|
||||
type
|
||||
PByte = ^Byte;
|
||||
@ -169,10 +243,10 @@ var
|
||||
Required procedures
|
||||
---------------------------------------------------------------------}
|
||||
|
||||
{$INCLUDE vgagraph16.inc} // Include graphic functions for 16 colours modes
|
||||
{$INCLUDE vgagraph16.inc} // Include graphic functions for 16 colours modes
|
||||
|
||||
var
|
||||
LastColor: Integer; {Cache the last set color to improve speed}
|
||||
LastColor: Integer; {Cache the last set color to improve speed}
|
||||
|
||||
procedure SetEGAColor(color: Integer);
|
||||
begin
|
||||
@ -444,24 +518,24 @@ end;
|
||||
PaletteSize := MaxColor;
|
||||
HardwarePages := 0;
|
||||
// necessary hooks ...
|
||||
if (MaxColor = 16) and (LongInt(MaxX) * LongInt(MaxY) < 65536*4*2) then
|
||||
begin
|
||||
// Use optimized graphics routines for 4 bit EGA/VGA modes
|
||||
ScrWidth := MaxX div 8;
|
||||
if (MaxColor = 16) and (LongInt(MaxX) * LongInt(MaxY) < 65536*4*2) then
|
||||
begin
|
||||
// Use optimized graphics routines for 4 bit EGA/VGA modes
|
||||
ScrWidth := MaxX div 8;
|
||||
DirectPutPixel := @DirectPutPixel16;
|
||||
PutPixel := @PutPixel16;
|
||||
GetPixel := @GetPixel16;
|
||||
PutPixel := @PutPixel16;
|
||||
GetPixel := @GetPixel16;
|
||||
HLine := @HLine16;
|
||||
VLine := @VLine16;
|
||||
VLine := @VLine16;
|
||||
GetScanLine := @GetScanLine16;
|
||||
end
|
||||
else
|
||||
begin
|
||||
end
|
||||
else
|
||||
begin
|
||||
DirectPutPixel := @libvga_DirectPixelProc;
|
||||
GetPixel := @libvga_GetPixelProc;
|
||||
PutPixel := @libvga_PutPixelProc;
|
||||
{ May be implemented later:
|
||||
HLine := @libvga_HLineProc;
|
||||
{ May be implemented later:
|
||||
HLine := @libvga_HLineProc;
|
||||
VLine := @libvga_VLineProc;
|
||||
GetScanLine := @libvga_GetScanLineProc;}
|
||||
ClearViewPort := @libvga_ClrViewProc;
|
||||
@ -469,7 +543,7 @@ end;
|
||||
SetRGBPalette := @libvga_SetRGBPaletteProc;
|
||||
GetRGBPalette := @libvga_GetRGBPaletteProc;
|
||||
{ These are not really implemented yet:
|
||||
PutImage := @libvga_PutImageProc;
|
||||
PutImage := @libvga_PutImageProc;
|
||||
GetImage := @libvga_GetImageProc;}
|
||||
ImageSize := @libvga_ImageSizeProc;
|
||||
{ Add later maybe ?
|
||||
@ -486,47 +560,14 @@ end;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
InitializeGraph;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.11 2000-03-18 10:46:16 sg
|
||||
* Fixed ClearViewport for 4 bpp modes
|
||||
Revision 1.12 2000-03-19 11:20:14 peter
|
||||
* graph unit include is now independent and the dependent part
|
||||
is now in graph.pp
|
||||
* ggigraph unit for linux added
|
||||
|
||||
Revision 1.10 2000/03/17 13:30:35 sg
|
||||
* Added accelerated drawing functions for modes with 4 bits per pixel
|
||||
|
||||
Revision 1.9 2000/02/27 14:41:25 peter
|
||||
* removed warnings/notes
|
||||
|
||||
Revision 1.8 2000/02/06 11:26:45 sg
|
||||
* Fixed SetRGBPalette and GetRGBPalette (hopefully; not tested)
|
||||
|
||||
Revision 1.7 2000/02/06 01:48:55 sg
|
||||
* Fixed the default palette. libsvga works with a RGB range from 0-63, not
|
||||
0-255!
|
||||
* PutPixel fixed (pixels didn't get drawn before)
|
||||
|
||||
Revision 1.6 2000/02/03 20:39:58 michael
|
||||
+ Version using only vgalib
|
||||
|
||||
Revision 1.5 2000/01/07 16:41:42 daniel
|
||||
* copyright 2000
|
||||
|
||||
Revision 1.4 1999/12/20 11:22:38 peter
|
||||
* modes moved to interface
|
||||
* integer -> smallint
|
||||
|
||||
Revision 1.3 1999/12/11 23:41:39 jonas
|
||||
* changed definition of getscanlineproc to "getscanline(x1,x2,y:
|
||||
integer; var data);" so it can be used by getimage too
|
||||
* changed getimage so it uses getscanline
|
||||
* changed floodfill, getscanline16 and definitions in Linux
|
||||
include files so they use this new format
|
||||
+ getscanlineVESA256 for 256 color VESA modes (banked)
|
||||
|
||||
Revision 1.2 1999/11/08 00:08:43 michael
|
||||
* Fist working version of svgalib new graph unit
|
||||
* Initial implementation of ggi new graph unit
|
||||
|
||||
Revision 1.1 1999/11/07 16:57:26 michael
|
||||
+ Start of common graph implementation
|
||||
}
|
||||
@ -1,94 +0,0 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by Florian Klaempfl
|
||||
|
||||
Graph include file for linux.
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
|
||||
Const
|
||||
{ Supported modes }
|
||||
{(sg) GTEXT deactivated because we need mode #0 as default mode}
|
||||
{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;
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 2000-01-07 16:41:40 daniel
|
||||
* copyright 2000
|
||||
|
||||
Revision 1.2 1999/12/20 11:22:38 peter
|
||||
* modes moved to interface
|
||||
* integer -> smallint
|
||||
|
||||
Revision 1.1 1999/11/08 15:06:17 peter
|
||||
* needed
|
||||
|
||||
}
|
||||
@ -1,5 +1,5 @@
|
||||
#
|
||||
# Makefile generated by fpcmake v0.99.13 [2000/02/09]
|
||||
# Makefile generated by fpcmake v0.99.13 [2000/02/24]
|
||||
#
|
||||
|
||||
defaultrule: all
|
||||
@ -1200,9 +1200,9 @@ objects$(PPUEXT) : $(INC)/objects.pp objinc.inc $(SYSTEMPPU)
|
||||
include $(GRAPHDIR)/makefile.inc
|
||||
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
|
||||
|
||||
graph$(PPUEXT) : $(GRAPHDIR)/graph.pp $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS) graph.inc graphh.inc
|
||||
$(COMPILER) -I$(GRAPHDIR) $(GRAPHDIR)/graph.pp $(REDIR)
|
||||
graph$(PPUEXT) : graph.pp strings$(PPUEXT) windows$(PPUEXT) $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS)
|
||||
$(COMPILER) -I$(GRAPHDIR) graph.pp $(REDIR)
|
||||
|
||||
|
||||
#
|
||||
|
||||
@ -135,9 +135,9 @@ objects$(PPUEXT) : $(INC)/objects.pp objinc.inc $(SYSTEMPPU)
|
||||
include $(GRAPHDIR)/makefile.inc
|
||||
GRAPHINCDEPS=$(addprefix $(GRAPHDIR)/,$(GRAPHINCNAMES))
|
||||
|
||||
graph$(PPUEXT) : $(GRAPHDIR)/graph.pp $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS) graph.inc graphh.inc
|
||||
$(COMPILER) -I$(GRAPHDIR) $(GRAPHDIR)/graph.pp $(REDIR)
|
||||
graph$(PPUEXT) : graph.pp strings$(PPUEXT) windows$(PPUEXT) $(SYSTEMPPU) \
|
||||
$(GRAPHINCDEPS)
|
||||
$(COMPILER) -I$(GRAPHDIR) graph.pp $(REDIR)
|
||||
|
||||
|
||||
#
|
||||
|
||||
@ -13,7 +13,68 @@
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
||||
**********************************************************************}
|
||||
unit Graph;
|
||||
interface
|
||||
|
||||
uses
|
||||
windows;
|
||||
|
||||
{$i graphh.inc}
|
||||
|
||||
var
|
||||
{ this procedure allows to hook keyboard messages }
|
||||
charmessagehandler : function(Window: hwnd; AMessage, WParam,
|
||||
LParam: Longint): Longint;
|
||||
{ this procedure allows to hook mouse messages }
|
||||
mousemessagehandler : function(Window: hwnd; AMessage, WParam,
|
||||
LParam: Longint): Longint;
|
||||
mainwindow : HWnd;
|
||||
|
||||
const
|
||||
{ predefined window style }
|
||||
{ we shouldn't set CS_DBLCLKS here }
|
||||
{ because most dos applications }
|
||||
{ handle double clicks on it's own }
|
||||
graphwindowstyle : DWord = cs_hRedraw or cs_vRedraw;
|
||||
|
||||
windowtitle : pchar = 'Graph window application';
|
||||
|
||||
CONST
|
||||
|
||||
m640x200x16 = VGALo;
|
||||
m640x400x16 = VGAMed;
|
||||
m640x480x16 = VGAHi;
|
||||
|
||||
{ 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;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
strings;
|
||||
|
||||
{
|
||||
Remarks:
|
||||
@ -28,9 +89,13 @@
|
||||
must be used when doing xor/or/and operations
|
||||
}
|
||||
|
||||
|
||||
const
|
||||
InternalDriverName = 'WIN32GUI';
|
||||
|
||||
{$i graph.inc}
|
||||
|
||||
|
||||
{ used to create a file containing all calls to WM_PAINT
|
||||
WARNING this probably creates HUGE files PM }
|
||||
{ $define DEBUG_WM_PAINT}
|
||||
@ -47,7 +112,7 @@ var
|
||||
bitmapdc : hdc;
|
||||
oldbitmap : hgdiobj;
|
||||
pal : ^rgbrec;
|
||||
SavePtr : pointer; { we don't use that pointer }
|
||||
// SavePtr : pointer; { we don't use that pointer }
|
||||
MessageThreadHandle : Handle;
|
||||
MessageThreadID : DWord;
|
||||
windc : hdc;
|
||||
@ -729,9 +794,17 @@ function queryadapterinfo : pmodeinfo;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
InitializeGraph;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.8 2000-03-17 22:53:20 florian
|
||||
Revision 1.1 2000-03-19 11:20:14 peter
|
||||
* graph unit include is now independent and the dependent part
|
||||
is now in graph.pp
|
||||
* ggigraph unit for linux added
|
||||
|
||||
Revision 1.8 2000/03/17 22:53:20 florian
|
||||
* window class is registered only once => multible init/closegraphs are possible
|
||||
* calling cleardevice when creating the window
|
||||
|
||||
@ -1,84 +0,0 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 1999-2000 by Florian Klaempfl
|
||||
|
||||
This file implements the win32 gui support for the graph unit
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
|
||||
var
|
||||
{ this procedure allows to hook keyboard messages }
|
||||
charmessagehandler : function(Window: hwnd; AMessage, WParam,
|
||||
LParam: Longint): Longint;
|
||||
{ this procedure allows to hook mouse messages }
|
||||
mousemessagehandler : function(Window: hwnd; AMessage, WParam,
|
||||
LParam: Longint): Longint;
|
||||
mainwindow : HWnd;
|
||||
|
||||
const
|
||||
{ predefined window style }
|
||||
{ we shouldn't set CS_DBLCLKS here }
|
||||
{ because most dos applications }
|
||||
{ handle double clicks on it's own }
|
||||
graphwindowstyle : DWord = cs_hRedraw or cs_vRedraw;
|
||||
|
||||
windowtitle : pchar = 'Graph window application';
|
||||
|
||||
CONST
|
||||
|
||||
m640x200x16 = VGALo;
|
||||
m640x400x16 = VGAMed;
|
||||
m640x480x16 = VGAHi;
|
||||
|
||||
{ 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;
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.5 2000-03-05 13:07:04 florian
|
||||
* the title can be user defined
|
||||
|
||||
Revision 1.4 2000/01/07 16:41:52 daniel
|
||||
* copyright 2000
|
||||
|
||||
Revision 1.3 1999/12/08 09:09:34 pierre
|
||||
+ add VESA compatible mode in 16 and 256 colors
|
||||
|
||||
Revision 1.2 1999/11/29 22:03:39 florian
|
||||
* first implementation of winmouse unit
|
||||
|
||||
Revision 1.1 1999/11/08 15:01:39 peter
|
||||
* fpcmake support
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user