paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* out -> _out

Browse Source
This commit is contained in:
peter 2001-04-13 22:24:29 +00:00
parent 451b14c6b5
commit a6d36b284a
1 changed files with 39 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
packages/libgd/gd.pp
View File

@ -1,11 +1,11 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of Copyright (c) 1999-2000 by Michael Van Canneyt, member of
the Free Pascal development team the Free Pascal development team
This file implements an interface to the gd library. This file implements an interface to the gd library.
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -17,7 +17,7 @@
unit gd; unit gd;
interface interface
{$linklib c} {$linklib c}
{$linklib m} {$linklib m}
{$linklib png} {$linklib png}
@ -32,7 +32,7 @@ const
libgd = 'gd'; libgd = 'gd';
libc = 'c'; libc = 'c';
GD_H = 1; GD_H = 1;
DEFAULT_FONTPATH = '/usr/share/fonts/truetype'; DEFAULT_FONTPATH = '/usr/share/fonts/truetype';
PATHSEPARATOR = ':'; PATHSEPARATOR = ':';
@ -40,10 +40,10 @@ const
type type
PByte = ^Byte; PByte = ^Byte;
PPByte = ^PByte; PPByte = ^PByte;
PVoid = Pointer; PVoid = Pointer;
PFile = Pointer; PFile = Pointer;
PGDIMAGESTRUCT = ^gdImage; PGDIMAGESTRUCT = ^gdImage;
gdImage = record gdImage = record
pixels : PPbyte; pixels : PPbyte;
@ -130,7 +130,7 @@ type
free : procedure (_para1:PgdIOCtx); free : procedure (_para1:PgdIOCtx);
end; end;
GDIOCTXPTR = pgdIOCtx; GDIOCTXPTR = pgdIOCtx;
{ Translated from gd_io.h} { Translated from gd_io.h}
function fopen(a,b:pchar):pFile; cdecl;external libc; function fopen(a,b:pchar):pFile; cdecl;external libc;
procedure fclose(a:pFile); cdecl;external libc; procedure fclose(a:pFile); cdecl;external libc;
@ -191,18 +191,18 @@ function gdImageColorResolve(im:gdImagePtr; r:longint; g:longint; b:longint):lon
procedure gdImageColorDeallocate(im:gdImagePtr; color:longint); cdecl; external libgd; procedure gdImageColorDeallocate(im:gdImagePtr; color:longint); cdecl; external libgd;
procedure gdImageColorTransparent(im:gdImagePtr; color:longint); cdecl; external libgd; procedure gdImageColorTransparent(im:gdImagePtr; color:longint); cdecl; external libgd;
procedure gdImagePaletteCopy(dst:gdImagePtr; src:gdImagePtr); cdecl; external libgd; procedure gdImagePaletteCopy(dst:gdImagePtr; src:gdImagePtr); cdecl; external libgd;
procedure gdImagePng(im:gdImagePtr; out:PFILE); cdecl; external libgd; procedure gdImagePng(im:gdImagePtr; _out:PFILE); cdecl; external libgd;
procedure gdImagePngCtx(im:gdImagePtr; out:PgdIOCtx); cdecl; external libgd; procedure gdImagePngCtx(im:gdImagePtr; _out:PgdIOCtx); cdecl; external libgd;
procedure gdImageWBMP(image:gdImagePtr; fg:longint; out:PFILE); cdecl; external libgd; procedure gdImageWBMP(image:gdImagePtr; fg:longint; _out:PFILE); cdecl; external libgd;
procedure gdImageWBMPCtx(image:gdImagePtr; fg:longint; out:PgdIOCtx); cdecl; external libgd; procedure gdImageWBMPCtx(image:gdImagePtr; fg:longint; _out:PgdIOCtx); cdecl; external libgd;
procedure gdFree(m:Pvoid); cdecl; external libgd; procedure gdFree(m:Pvoid); cdecl; external libgd;
function gdImageWBMPPtr(im:gdImagePtr; size:Plongint; fg:longint):pointer; cdecl; external libgd; function gdImageWBMPPtr(im:gdImagePtr; size:Plongint; fg:longint):pointer; cdecl; external libgd;
procedure gdImageJpeg(im:gdImagePtr; out:PFILE; quality:longint); cdecl; external libgd; procedure gdImageJpeg(im:gdImagePtr; _out:PFILE; quality:longint); cdecl; external libgd;
procedure gdImageJpegCtx(im:gdImagePtr; out:PgdIOCtx; quality:longint); cdecl; external libgd; procedure gdImageJpegCtx(im:gdImagePtr; _out:PgdIOCtx; quality:longint); cdecl; external libgd;
function gdImageJpegPtr(im:gdImagePtr; size:Plongint; quality:longint):pointer; cdecl; external libgd; function gdImageJpegPtr(im:gdImagePtr; size:Plongint; quality:longint):pointer; cdecl; external libgd;
procedure gdImagePngToSink(im:gdImagePtr; out:gdSinkPtr); cdecl; external libgd; procedure gdImagePngToSink(im:gdImagePtr; _out:gdSinkPtr); cdecl; external libgd;
procedure gdImageGd(im:gdImagePtr; out:PFILE); cdecl; external libgd; procedure gdImageGd(im:gdImagePtr; _out:PFILE); cdecl; external libgd;
procedure gdImageGd2(im:gdImagePtr; out:PFILE; cs:longint; fmt:longint); cdecl; external libgd; procedure gdImageGd2(im:gdImagePtr; _out:PFILE; cs:longint; fmt:longint); cdecl; external libgd;
function gdImagePngPtr(im:gdImagePtr; size:Plongint):pointer; cdecl; external libgd; function gdImagePngPtr(im:gdImagePtr; size:Plongint):pointer; cdecl; external libgd;
function gdImageGdPtr(im:gdImagePtr; size:Plongint):pointer; cdecl; external libgd; function gdImageGdPtr(im:gdImagePtr; size:Plongint):pointer; cdecl; external libgd;
function gdImageGd2Ptr(im:gdImagePtr; cs:longint; fmt:longint; size:Plongint):pointer; cdecl; external libgd; function gdImageGd2Ptr(im:gdImagePtr; cs:longint; fmt:longint; size:Plongint):pointer; cdecl; external libgd;
@ -217,7 +217,7 @@ procedure gdImageSetBrush(im:gdImagePtr; brush:gdImagePtr); cdecl; external libg
procedure gdImageSetTile(im:gdImagePtr; tile:gdImagePtr); cdecl; external libgd; procedure gdImageSetTile(im:gdImagePtr; tile:gdImagePtr); cdecl; external libgd;
procedure gdImageSetStyle(im:gdImagePtr; style:Plongint; noOfPixels:longint); cdecl; external libgd; procedure gdImageSetStyle(im:gdImagePtr; style:Plongint; noOfPixels:longint); cdecl; external libgd;
procedure gdImageInterlace(im:gdImagePtr; interlaceArg:longint); cdecl; external libgd; procedure gdImageInterlace(im:gdImagePtr; interlaceArg:longint); cdecl; external libgd;
{ Translated macros } { Translated macros }
function gdImageSX(im : pgdimage) : longint; function gdImageSX(im : pgdimage) : longint;
function gdImageSY(im : pgdimage) : longint; function gdImageSY(im : pgdimage) : longint;
@ -230,17 +230,17 @@ function gdImageGetInterlaced(im : pgdimage) : longint;
function gdNewFileCtx(_para1:PFILE):PgdIOCtx; cdecl; external libgd; function gdNewFileCtx(_para1:PFILE):PgdIOCtx; cdecl; external libgd;
function gdNewDynamicCtx(_para1:longint; _para2:pointer):PgdIOCtx; cdecl; external libgd; function gdNewDynamicCtx(_para1:longint; _para2:pointer):PgdIOCtx; cdecl; external libgd;
function gdNewSSCtx(infile:gdSourcePtr; out:gdSinkPtr):PgdIOCtx; cdecl; external libgd; function gdNewSSCtx(infile:gdSourcePtr; _out:gdSinkPtr):PgdIOCtx; cdecl; external libgd;
function gdDPExtractData(ctx:pointer; size:Plongint):pointer; cdecl; external libgd; function gdDPExtractData(ctx:pointer; size:Plongint):pointer; cdecl; external libgd;
{overloaded pascal functions} {overloaded pascal functions}
function fopen(a,b:string):pFile; function fopen(a,b:string):pFile;
procedure gdImageChar(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; c:char; color:longint); procedure gdImageChar(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; c:char; color:longint);
procedure gdImageCharUp(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; c:char; color:longint); procedure gdImageCharUp(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; c:char; color:longint);
procedure gdImageString(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint); procedure gdImageString(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint);
procedure gdImageStringUp(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint); procedure gdImageStringUp(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint);
procedure gdImageString16(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint); procedure gdImageString16(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint);
procedure gdImageStringUp16(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint); procedure gdImageStringUp16(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint);
{$ifdef hasttf} {$ifdef hasttf}
function gdImageStringTTF(im:PgdImage; brect:Plongint; fg:longint; fontlist:string; ptsize:double; angle:double; x:longint; y:longint; astring:string): string; function gdImageStringTTF(im:PgdImage; brect:Plongint; fg:longint; fontlist:string; ptsize:double; angle:double; x:longint; y:longint; astring:string): string;
function gdImageStringFT(im:PgdImage; brect:Plongint; fg:longint; fontlist:string; ptsize:double; angle:double; x:longint; y:longint; astring:string):string; function gdImageStringFT(im:PgdImage; brect:Plongint; fg:longint; fontlist:string; ptsize:double; angle:double; x:longint; y:longint; astring:string):string;
@ -257,7 +257,7 @@ const
GD2_FMT_COMPRESSED = 2; GD2_FMT_COMPRESSED = 2;
function gdImageCompare(im1:gdImagePtr; im2:gdImagePtr):longint;cdecl; external libgd; function gdImageCompare(im1:gdImagePtr; im2:gdImagePtr):longint;cdecl; external libgd;
const const
GD_CMP_IMAGE = 1; GD_CMP_IMAGE = 1;
GD_CMP_NUM_COLORS = 2; GD_CMP_NUM_COLORS = 2;
@ -291,19 +291,19 @@ implementation
begin begin
gdImageGetInterlaced:=im^.interlace; gdImageGetInterlaced:=im^.interlace;
end; end;
function gdImageRed(im : pgdimage; c : longint): longint; function gdImageRed(im : pgdimage; c : longint): longint;
begin begin
gdImageRed:=im^.red[c]; gdImageRed:=im^.red[c];
end; end;
function gdImageGreen(im : pgdimage; c : longint): longint; function gdImageGreen(im : pgdimage; c : longint): longint;
begin begin
gdImageGreen := im^.green[c]; gdImageGreen := im^.green[c];
end; end;
function gdImageBlue(im : pgdimage; c : longint): longint; function gdImageBlue(im : pgdimage; c : longint): longint;
begin begin
@ -316,7 +316,7 @@ begin
{$ifopt h+} {$ifopt h+}
fopen:=fopen(pchar(a),pchar(b)); fopen:=fopen(pchar(a),pchar(b));
{$else} {$else}
a:=a+#0; a:=a+#0;
b:=b+#0; b:=b+#0;
fopen:=fopen(@a[1],@b[1]); fopen:=fopen(@a[1],@b[1]);
{$endif} {$endif}
@ -342,18 +342,18 @@ begin
{$else} {$else}
s:=s+#0; s:=s+#0;
gdImageString(im,f,x,y,@s[1],color); gdImageString(im,f,x,y,@s[1],color);
{$endif} {$endif}
end; end;
procedure gdImageStringUp(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint); procedure gdImageStringUp(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint);
begin begin
{$ifopt h+} {$ifopt h+}
gdImageStringUp(im,f,x,y,pbyte(pchar(s)),color); gdImageStringUp(im,f,x,y,pbyte(pchar(s)),color);
{$else} {$else}
s:=s+#0; s:=s+#0;
gdImageStringUp(im,f,x,y,pbyte(@s[1]),color); gdImageStringUp(im,f,x,y,pbyte(@s[1]),color);
{$endif} {$endif}
end; end;
procedure gdImageString16(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint); procedure gdImageString16(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint);
@ -364,7 +364,7 @@ begin
{$else} {$else}
s:=s+#0; s:=s+#0;
gdImageString16(im,f,x,y,pword(@s[1]),color); gdImageString16(im,f,x,y,pword(@s[1]),color);
{$endif} {$endif}
end; end;
procedure gdImageStringUp16(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint); procedure gdImageStringUp16(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:string; color:longint);
@ -372,10 +372,10 @@ procedure gdImageStringUp16(im:gdImagePtr; f:gdFontPtr; x:longint; y:longint; s:
begin begin
{$ifopt h+} {$ifopt h+}
gdImageStringUp16(im,f,x,y,pword(pchar(s)),color); gdImageStringUp16(im,f,x,y,pword(pchar(s)),color);
{$else} {$else}
s:=s+#0; s:=s+#0;
gdImageStringUp16(im,f,x,y,pword(@s[1]),color); gdImageStringUp16(im,f,x,y,pword(@s[1]),color);
{$endif} {$endif}
end; end;
{$ifdef hasttf} {$ifdef hasttf}
@ -383,9 +383,9 @@ end;
function gdImageStringTTF(im:PgdImage; brect:Plongint; fg:longint; fontlist:string; ptsize:double; angle:double; x:longint; y:longint; astring:string): string; function gdImageStringTTF(im:PgdImage; brect:Plongint; fg:longint; fontlist:string; ptsize:double; angle:double; x:longint; y:longint; astring:string): string;
begin begin
{$ifopt h+} {$ifopt h+}
gdImageStringTTF:=strpas(gdImageStringTTF(im,brect,fg,pchar(fontlist),ptsize,angle,x,y,pchar(astring))); gdImageStringTTF:=strpas(gdImageStringTTF(im,brect,fg,pchar(fontlist),ptsize,angle,x,y,pchar(astring)));
{$else} {$else}
fontlist:=fornlist+#0; fontlist:=fornlist+#0;
astring:=astring+#0; astring:=astring+#0;
gdImageStringTTF:=strpas(gdImageStringTTF(im,brect,fg,@fontlist[1],ptsize,angle,x,y,@astring[1])); gdImageStringTTF:=strpas(gdImageStringTTF(im,brect,fg,@fontlist[1],ptsize,angle,x,y,@astring[1]));
@ -401,8 +401,8 @@ begin
fontlist:=fornlist+#0; fontlist:=fornlist+#0;
astring:=astring+#0; astring:=astring+#0;
gdImageStringFT:=strpas(gdImageStringFT(im,brect,fg,@fontlist[1],ptsize,angle,x,y,@astring[1])); gdImageStringFT:=strpas(gdImageStringFT(im,brect,fg,@fontlist[1],ptsize,angle,x,y,@astring[1]));
{$endif} {$endif}
end; end;
{$endif} {$endif}