kpriv/freebsd-ports
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Switch from using our own method of figuring out TCL_VER to USES=tcl:84+

Browse source 
PR:		ports/181412

Bump PORTREVISION accordingly. Add STAGE-conformance (grrr..) Get rid of
the short pkg-plist in favor of PLIST_{DIRS,FILES}.

While here, improve the code itself a bit:
	* Use Tcl API more, instead of cooking our own implementations.
	* Add meainingful checks for safe interpreters instead of
	  blindly letting them use the same functionality as the
	  trusted ones.
	* Fix compiler warnings enough for WARNS=3.

Sponsored by:	United Marsupials
This commit is contained in:
Mikhail Teterin 2014-04-29 23:38:30 +00:00
parent 7d496cee61
commit 4f60396235
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=352662
5 changed files with 1384 additions and 617 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
graphics/gdtclft/Makefile
View file

@ -3,34 +3,37 @@
PORTNAME= Gdtclft
PORTVERSION= 2.2.5
PORTREVISION= 11
PORTREVISION= 12
CATEGORIES= graphics tcl
MASTER_SITES= http://www.graphviz.org/pub/
MASTER_SITES=
DISTNAME= ${PORTNAME}${PORTVERSION}
MAINTAINER= mi@aldan.algebra.com
COMMENT= A TCL interface to the Thomas Boutell's Gd library
LIB_DEPENDS= tcl${TCL_DVER}.1:${PORTSDIR}/lang/tcl${TCL_DVER} \
gd:${PORTSDIR}/graphics/gd
LIB_DEPENDS= gd:${PORTSDIR}/graphics/gd
TCL_VER?= 8.4
TCL_DVER= ${TCL_VER:S/.//}
USES= tcl:84+ uidfix
MAKEFILE= ${FILESDIR}/Makefile.bsd
MAKE_ENV= TCL_VER=${TCL_VER} MKDIR="${MKDIR}" \
INSTALL_DATA="${INSTALL_DATA}"
INSTALL_DATA="${INSTALL_DATA}" STAGEDIR="${STAGEDIR}"
ALL_TARGET= all
MANN= gdtclft.n
MANCOMPRESSED= no
GDTCLDIR= lib/tcl${TCL_VER}/gdtclft
PLIST_DIRS= ${GDTCLDIR}
PLIST_FILES= ${GDTCLDIR}/pkgIndex.tcl
PLIST_FILES+= ${GDTCLDIR}/libGdtclft2.so
.if !defined(NO_STAGE)
PLIST_FILES+= ${__MANPAGES}
.endif
NO_STAGE= yes
post-patch:
${REINPLACE_CMD} -Ee 's,[[:space:]]+$$,,' ${WRKSRC}/${MANN}
post-install:
${INSTALL_MAN} ${WRKSRC}/${MANN} ${PREFIX}/man/mann/
${INSTALL_MAN} ${WRKSRC}/${MANN} ${STAGEDIR}${PREFIX}/man/mann/
.include <bsd.port.mk>
PLIST_SUB!= ${SETENV} TCL_VER=${TCL_VER} ${MAKE} -f ${MAKEFILE} env

34
graphics/gdtclft/files/Makefile.bsd
View file

@ -1,27 +1,28 @@
PACKAGE = Gdtclft
VERSION = 2.3
SHLIB_NAME = lib${PACKAGE}2.so.3
SHLIB_NAME = lib${PACKAGE}2.so
SRCS = gdhandle.c gdCmd.c
SRCS = gdCmd.c
LOCALBASE ?=/usr/local
PREFIX ?=/usr/local
TCL_VER ?=8.4
WARNS = 2
WARNS = 3
.if exists(${PREFIX}/lib/tcl${TCL_VER}/tclConfig.sh)
.if exists(${LOCALBASE}/lib/tcl${TCL_VER}/tclConfig.sh)
# If for some reason the file does not exist -- make the best guess. In
# reality, it will exist by the time we are actually doing the build, so
# the quality of the guess does not matter. But we still try well. -mi
TCL_STUB_LIB_SPEC!= . ${PREFIX}/lib/tcl${TCL_VER}/tclConfig.sh; \
TCL_STUB_LIB_SPEC!= . ${LOCALBASE}/lib/tcl${TCL_VER}/tclConfig.sh; \
echo $$TCL_STUB_LIB_SPEC
.else
TCL_STUB_LIB_SPEC= -L${PREFIX}/lib -ltclstub${TCL_VER:S/.//}
TCL_STUB_LIB_SPEC= -L${LOCALBASE}/lib -ltclstub${TCL_VER:S/.//}
.endif
LDADD = -L${PREFIX}/lib -lgd -lpng -lz -lm ${TCL_STUB_LIB_SPEC}
LDADD = -L${LOCALBASE}/lib -lgd -lpng -lz -lm ${TCL_STUB_LIB_SPEC}
CFLAGS +=-I${PREFIX}/include/tcl${TCL_VER} -I${PREFIX}/include/gd
CFLAGS +=-DNDEBUG -Wall -I. -DUSE_TCL_STUBS -I${PREFIX}/include
CFLAGS +=-I${LOCALBASE}/include/tcl${TCL_VER} -I${LOCALBASE}/include/gd
CFLAGS +=-DNDEBUG -Wall -I. -DUSE_TCL_STUBS -I${LOCALBASE}/include
CFLAGS +=-DVERSION=\"${VERSION}\"
all: pkgIndex.tcl
@ -29,17 +30,14 @@ all: pkgIndex.tcl
pkgIndex.tcl:
echo 'package ifneeded $(PACKAGE) $(VERSION) [list load [file join $$dir $(SHLIB_NAME)] $(PACKAGE)]' > pkgIndex.tcl
DIR = lib/tcl${TCL_VER}/gdtclft
DIR = lib/tcl${TCL_VER}/gdtclft
LIBDIR = ${PREFIX}/${DIR}
MANDIR = ${PREFIX}/man/man
MANDIR = ${PREFIX}/man/man
${LIBDIR}:
${MKDIR} ${LIBDIR}
${STAGEDIR}${LIBDIR}:
${MKDIR} $@
env:
@${ECHO} SHLIB_NAME=${SHLIB_NAME} SHLIB_LINK=${SHLIB_LINK} DIR=${DIR}
beforeinstall: ${LIBDIR}
${INSTALL_DATA} pkgIndex.tcl ${LIBDIR}
beforeinstall: ${STAGEDIR}${LIBDIR}
${INSTALL_DATA} pkgIndex.tcl ${STAGEDIR}${LIBDIR}
.include <bsd.lib.mk>

584
graphics/gdtclft/files/patch-gif
View file

@ -1,584 +0,0 @@
This patch adds support for GIF, XPM, WBMP, and JPEG file formats, which
are support by the underlying GD.
GIF, JPEG, and WBMP formats are also added as _output_ formats.
Also, in case of file-opening failure, a useful error string is
returned.
Use freely and get yourself a pademelon...
-mi (http://cafepress.com/buy/pademelon?pid=5934485)
--- gdCmd.c Fri Aug 4 17:11:05 2000
+++ gdCmd.c Mon Dec 4 03:50:17 2006
@@ -19,4 +19,5 @@
*/
+#include <errno.h>
#include <stdio.h>
#include <string.h>
@@ -47,10 +48,10 @@
typedef struct {
- char *cmd;
+ const char *cmd;
int (*f)();
int minargs, maxargs;
int subcmds;
int ishandle;
- char *usage;
+ const char *usage;
} cmdOptions;
@@ -61,16 +62,39 @@
static cmdOptions subcmdVec[] = {
- {"create", tclGdCreateCmd, 2, 2, 0, 0,
- "width height"},
+ {"create", tclGdCreateCmd, 2, 3, 0, 0,
+ "width height ?true?"},
{"createFromPNG", tclGdCreateCmd, 1, 1, 0, 0,
"filehandle"},
+ {"createFromGIF", tclGdCreateCmd, 1, 1, 0, 0,
+ "filehandle"},
{"createFromGD", tclGdCreateCmd, 1, 1, 0, 0,
"filehandle"},
+ {"createFromGD2", tclGdCreateCmd, 1, 1, 0, 0,
+ "filehandle"},
{"createFromXBM", tclGdCreateCmd, 1, 1, 0, 0,
"filehandle"},
+#ifdef NOX11
+ {"createFromXPM-NOT-AVAILABLE", tclGdCreateCmd, 1, 1, 0, 0,
+ "filename"},
+#else
+ {"createFromXPM", tclGdCreateCmd, 1, 1, 0, 0,
+ "filename"},
+#endif
+ {"createFromJPG", tclGdCreateCmd, 1, 1, 0, 0,
+ "filehandle"},
+ {"createFromJPEG", tclGdCreateCmd, 1, 1, 0, 0,
+ "filehandle"},
+ {"createFromWBMP", tclGdCreateCmd, 1, 1, 0, 0,
+ "filehandle"},
{"destroy", tclGdDestroyCmd, 1, 1, 0, 1,
"gdhandle"},
+ {"writeGIF", tclGdWriteCmd, 2, 2, 0, 1,
+ "gdhandle filehandle"},
+ {"writeJPG", tclGdWriteCmd, 2, 3, 0, 1,
+ "gdhandle filehandle ?quality?"},
+ {"writeJPEG", tclGdWriteCmd, 2, 3, 0, 1,
+ "gdhandle filehandle ?quality?"},
{"writePNG", tclGdWriteCmd, 2, 2, 0, 1,
"gdhandle filehandle"},
@@ -79,4 +103,8 @@
{"writeGD", tclGdWriteCmd, 2, 2, 0, 1,
"gdhandle filehandle"},
+ {"writeGD2", tclGdWriteCmd, 2, 2, 0, 1,
+ "gdhandle filehandle"},
+ {"writeWBMP", tclGdWriteCmd, 3, 3, 0, 1,
+ "gdhandle filehandle foreground"},
{"interlace", tclGdInterlaceCmd, 1, 2, 0, 1,
@@ -79,4 +103,8 @@
{"writeGD", tclGdWriteCmd, 2, 2, 0, 1,
"gdhandle filehandle"},
+ {"writeGD2", tclGdWriteCmd, 2, 2, 0, 1,
+ "gdhandle filehandle"},
+ {"writeWBMP", tclGdWriteCmd, 3, 3, 0, 1,
+ "gdhandle filehandle foreground"},
{"interlace", tclGdInterlaceCmd, 1, 2, 0, 1,
@@ -402,9 +430,20 @@
cmd = Tcl_GetString(objv[1]);
if (strcmp(cmd, "create") == 0) {
+ int trueColor = 0;
+
if (Tcl_GetIntFromObj(interp, objv[2], &w) != TCL_OK)
return TCL_ERROR;
if (Tcl_GetIntFromObj(interp, objv[3], &h) != TCL_OK)
return TCL_ERROR;
- im = gdImageCreate(w, h);
+ /* An optional argument may specify true for "TrueColor" */
+ if (argc == 5 && Tcl_GetBooleanFromObj(interp, objv[4],
+ &trueColor) == TCL_ERROR)
+ return TCL_ERROR;
+
+ if (trueColor)
+ im = gdImageCreateTrueColor(w, h);
+ else
+ im = gdImageCreate(w, h);
+
if (im == NULL)
{
@@ -414,30 +453,70 @@
}
} else {
+ char *arg2 = Tcl_GetString(objv[2]);
fileByName = 0; /* first try to get file from open channel */
- if (Tcl_GetOpenFile(interp, Tcl_GetString(objv[2]), 0, 1, &clientdata) == TCL_OK) {
- filePtr = (FILE *)clientdata;
- } else {
- /* Not a channel, or Tcl_GetOpenFile() not supported.
- * See if we can open directly.
- */
- fileByName++;
- if ((filePtr = fopen(Tcl_GetString(objv[2]),"rb")) == NULL) {
+
+ if (cmd[10] == 'X' && cmd[11] == 'P' && cmd[12] == 'M') {
+#ifdef NOX11
+ Tcl_SetResult(interp, "Support for XPM-files not "
+ "compiled in", TCL_STATIC);
+ return TCL_ERROR;
+#else
+ /* gdImageCreateFromXpm() takes fileNAME */
+ im = gdImageCreateFromXpm(arg2);
+#endif
+ } else {
+ if (Tcl_GetOpenFile(interp, arg2, 0, 1, &clientdata)
+ == TCL_OK) {
+ filePtr = (FILE *)clientdata;
+ } else {
+ /* Not a channel, or Tcl_GetOpenFile() not supported.
+ * See if we can open directly.
+ */
+ fileByName++;
+ if ((filePtr = fopen(arg2, "rb")) == NULL) {
+ Tcl_AppendResult(interp,
+ "could not open :", arg2, "': ",
+ strerror(errno), NULL);
+ return TCL_ERROR;
+ }
+ Tcl_ResetResult(interp);
+ }
+
+ /* Read PNG, XBM, or GD file? */
+ switch (cmd[10]) {
+ case 'P':
+ im = gdImageCreateFromPng(filePtr);
+ break;
+ case 'X':
+ im = gdImageCreateFromXbm(filePtr);
+ break;
+ case 'G': /* GIF, GD2, and GD */
+ if (cmd[11] == 'I')
+ im = gdImageCreateFromGif(filePtr);
+ else if (cmd[12] == '2')
+ im = gdImageCreateFromGd2(filePtr);
+ else
+ im = gdImageCreateFromGd(filePtr);
+ break;
+ case 'J':
+ im = gdImageCreateFromJpeg(filePtr);
+ break;
+ case 'W':
+ im = gdImageCreateFromWBMP(filePtr);
+ break;
+ default:
+ Tcl_AppendResult(interp, cmd + 10,
+ "unrecognizable format requested", NULL);
return TCL_ERROR;
}
- Tcl_ResetResult(interp);
- }
- /* Read PNG, XBM, or GD file? */
- if (cmd[10] == 'P') {
- im = gdImageCreateFromPng(filePtr);
- } else if (cmd[10] == 'X') {
- im = gdImageCreateFromXbm(filePtr);
- } else {
- im = gdImageCreateFromGd(filePtr);
- }
- if (fileByName) {
- fclose(filePtr);
+ if (fileByName) {
+ fclose(filePtr);
+ }
}
+
if (im == NULL) {
- Tcl_SetResult(interp,"GD unable to read image file", TCL_STATIC);
+ Tcl_AppendResult(interp,
+ "GD unable to read image file `", arg2, "' as ",
+ cmd + 10, NULL);
return TCL_ERROR;
}
@@ -472,15 +551,41 @@
FILE *filePtr;
ClientData clientdata;
- char *cmd;
+ const char *cmd, *fname;
int fileByName;
+ int arg4;
cmd = Tcl_GetString(objv[1]);
+ if (cmd[5] == 'J' || cmd[5] == 'W') {
+ /* JPEG and WBMP expect an extra (integer) argument */
+ if (argc < 5) {
+ if (cmd[5] == 'J')
+ arg4 = -1; /* default quality-level */
+ else {
+ Tcl_SetResult(interp, "WBMP saving requires"
+ " the foreground pixel value", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ } else if (Tcl_GetIntFromObj(interp, objv[4], &arg4) != TCL_OK)
+ return TCL_ERROR;
+
+ if (cmd[5] == 'J' && argc > 4 && (arg4 > 100 || arg4 < 1)) {
+ Tcl_SetObjResult(interp, objv[4]);
+ Tcl_AppendResult(interp, ": JPEG image quality, if "
+ "specified, must be an integer from 1 to 100, "
+ "or -1 for default", NULL);
+ return TCL_ERROR;
+ }
+ /* XXX no error-checking for the WBMP case here */
+ }
+
/* Get the image pointer. */
im = *(gdImagePtr *)gdHandleXlate(interp, gdData->handleTbl,
Tcl_GetString(objv[2]));
+ fname = Tcl_GetString(objv[3]);
+
/* Get the file reference. */
fileByName = 0; /* first try to get file from open channel */
- if (Tcl_GetOpenFile(interp, Tcl_GetString(objv[3]), 1, 1, &clientdata) == TCL_OK) {
+ if (Tcl_GetOpenFile(interp, fname, 1, 1, &clientdata) == TCL_OK) {
filePtr = (FILE *)clientdata;
} else {
@@ -489,5 +594,7 @@
*/
fileByName++;
- if ((filePtr = fopen(Tcl_GetString(objv[3]),"wb")) == NULL) {
+ if ((filePtr = fopen(fname, "wb")) == NULL) {
+ Tcl_AppendResult(interp, "could not open :", fname,
+ "': ", strerror(errno), NULL);
return TCL_ERROR;
}
@@ -496,8 +603,22 @@
/* Do it. */
- if (cmd[5] == 'P') {
+ switch (cmd[5]) {
+ case 'P':
gdImagePng(im, filePtr);
- } else {
- gdImageGd(im, filePtr);
+ break;
+ case 'G':
+ if (cmd[6] == 'I')
+ gdImageGif(im, filePtr);
+ else if (cmd[7] == '2')
+ gdImageGd2(im, filePtr, GD2_CHUNKSIZE, GD2_FMT_COMPRESSED);
+ else
+ gdImageGd(im, filePtr);
+ break;
+ case 'J':
+ gdImageJpeg(im, filePtr, arg4);
+ break;
+ case 'B':
+ gdImageWBMP(im, arg4, filePtr);
+ break;
}
if (fileByName) {
--- gdtclft.n Fri Aug 4 17:11:41 2000
+++ gdtclft.n Mon Dec 4 03:52:10 2006
@@ -9,98 +9,89 @@
TCL GD EXTENSION
-
+
Thomas Boutell's Gd package provides a convenient way to generate
PNG images with a C program. If you, like me, prefer Tcl for CGI
- applications, you'll want my TCL GD extension. You can get it by
- anonymous FTP from ftp://guraldi.hgp.med.umich.edu/pub/gdtcl.shar.
-
- Here's a quick overview of the package.
- * Overview
- * Installation
- * Reference
- * Examples
- + gdsample -- sample program written in Tcl.
- + Gddemo -- demo program written in Tcl.
- + gdshow -- procedure to display an image.
-
+ applications, you'll want my TCL GD extension.
+
A TCL INTERFACE TO THE GD PACKAGE
-
+
Spencer W. Thomas
Human Genome Center
University of Michigan
Ann Arbor, MI 48109
-
+
spencer.thomas@med.umich.edu
TrueType font support using the FreeType library was added by
- John Ellson (ellson@graphviz.org)
+ John Ellson (ellson@graphviz.org).
- Latest sources available from:
+ FreeBSD port maintained by Mikhail Teterin (mi@aldan.algebra.com).
- http://www.graphviz.org/pub/
-
-
Overview
This package provides a simple Tcl interface to the gd (PNG drawing)
- package, version 1.1. It includes an interface to all the gd functions
+ package. It includes an interface to most of the gd functions
and data structures from Tcl commands.
-
-
-
-Installation
-
- ./configure
- make
- make install
-
+
+
Reference
One Tcl command, 'gd', is added. All gd package actions are
sub-commands (or "options" in Tcl terminology) of this command.
-
+
Each active gd image is referred to with a "handle". The handle is a
name of the form gd# (e.g., gd0) returned by the gd create options.
-
+
Almost all the gd commands take a handle as the first argument (after
the option). All the drawing commands take a color_idx as the next
argument.
-
+
- gd create <width> <height>
+ gd create <width> <height> ?true?
Return a handle to a new gdImage that is width X height.
+ If "true" is specified, the new image is "TrueColor".
-
- gd createFromPNG <filehandle>
-
- gd createFromGD <filehandle>
-
- gd createFromXBM <filehandle>
+
+ gd createFromGD <file>
+ gd createFromGD2 <file>
+ gd createFromGIF <file>
+ gd createFromJPG <file>
+ gd createFromPNG <file>
+ gd createFromWBMP <file>
+ gd createFromXBM <file>
+ gd createFromXPM <filename>
+
Return a handle to a new gdImage created by reading a PNG
- (resp. GD or XBM) image from the file open on filehandle.
-
+ (resp. GD or XBM) image from the <file>, which is either
+ a TCl filehandle, or a filename (except for XPM, which only
+ accepts filenames).
+
gd destroy <gdhandle>
Destroy the gdImage referred to by gdhandle.
-
- gd writePNG <gdhandle> <filehandle>
-
- gd writeGD <gdhandle> <filehandle>
- Write the image in gdhandle to filehandle as a PNG (resp. GD)
- file.
+
+ gd writeGD <gdhandle> <file>
+ gd writeGD2 <gdhandle> <file>
+ gd writeGIF <gdhandle> <file>
+ gd writeJPG <gdhandle> <file> ?quality?
+ gd writePNG <gdhandle> <file>
+ gd writeWBMP <gdhandle> <file> fgpixel
+
+ Write the image in gdhandle to <file> (filehandle or filename)
+ in one of the specified formats.
gd writePNGvar <gdhandle> <varname>
Write the image in gdhandle to Tcl variable "varname" as a binary
coded PNG object.
-
+
gd interlace <gdhandle> <on-off>
Make the output image interlaced (if on-off is true) or not (if
on-off is false).
-
+
gd color new <gdhandle> <red> <green> <blue>
Allocate a new color with the given RGB values. Returns the
color_idx, or -1 on failure (256 colors already allocated).
-
+
gd color exact <gdhandle> <red> <green> <blue>
- Find a color_idx in the image that exactly matches the given RGB
+ Find a color_idx in the image that exactly matches the given RGB
color. Returns the color_idx, or -1 if no exact match.
-
+
gd color closest <gdhandle> <red> <green> <blue>
Find a color in the image that is closest to the given RGB color.
@@ -114,23 +104,23 @@
set idx [gd color closest $gd $r $g $b]
}
- }
-
+ }
+
gd color free <gdhandle> <color_idx>
Free the color at the given color_idx for reuse.
-
+
gd color transparent <gdhandle> [<color_idx>]
Mark the color at <color_idx> as the transparent background color. Or,
return the transparent color_idx if no color_idx specified.
-
+
gd color get <gdhandle> [<color_idx>]
Return the RGB value at <color_idx>, or {} if it is not allocated.
If <color_idx> is not specified, return a list of {color_idx R G B}
values for all allocated colors.
-
+
gd brush <gdhandle> <brushhandle>
Set the brush image to be used for brushed lines. Transparent
pixels in the brush will not change the image when the brush is
applied.
-
+
gd style <gdhandle> <color_idx> ...
Set the line style to the list of color indices. This is
@@ -141,10 +131,10 @@
means not to fill the pixel, and a non-zero value means to
apply the brush.
-
+
gd tile <gdhandle> <tilehandle>
Set the tile image to be used for tiled fills. Transparent
pixels in the tile will not change the underlying image during
tiling.
-
+
In all drawing functions, the color_idx is a number, or may
be one of the strings styled, brushed, tiled, "styled brushed"
@@ -152,56 +142,55 @@
effect will be used. Brushing and styling apply to lines,
tiling to filled areas.
-
+
gd set <gdhandle> <color_idx> <x> <y>
Set the pixel at (x,y) to color <color_idx>.
-
+
gd line <gdhandle> <color_idx> <x1> <y1> <x2> <y2>
-
+
gd rectangle <gdhandle> <color_idx> <x1> <y1> <x2> <y2>
-
+
gd fillrectangle <gdhandle> <color_idx> <x1> <y1> <x2> <y2>
Draw the outline of (resp. fill) a rectangle in color <color_idx>
with corners at (x1,y1) and (x2,y2).
-
+
gd arc <gdhandle> <color_idx> <cx> <cy> <width> <height> <start> <end>
Draw an arc in color <color_idx>, centered at (cx,cy) in a rectangle width
x height, starting at start degrees and ending at end degrees.
start must be > end.
-
+
gd polygon <gdhandle> <color_idx> <x1> <y1> ...
-
+
gd fillpolygon <gdhandle> <color_idx> <x1> <y1> ...
Draw the outline of, or fill, a polygon specified by the x, y
coordinate list. There must be at least 3 points specified.
-
+
gd fill <gdhandle> <color_idx> <x> <y>
-
+
gd fill <gdhandle> <color_idx> <x> <y> <borderindex>
Fill with color <color_idx>, starting from (x,y) within a region of
pixels all the color of the pixel at (x,y) (resp., within a
border colored borderindex).
-
+
gd size <gdhandle>
Returns a list {width height} of the image.
-
- gd text <gdhandle> <color_idx> <fontpath> <size> <angle> <x> <y> <string>
- Draw text using the .ttf font in <fontpath> in color <color_idx>,
- with pointsize <size>, rotation in radians <angle>, with lower left
+
+ gd text <gdhandle> <color_idx> <fontpath> <size> <angle> <x> <y> <string>
+ Draw text using the .ttf font in <fontpath> in color <color_idx>,
+ with pointsize <size>, rotation in radians <angle>, with lower left
corner at (x,y). String may contain UTF8 sequences like: "&#192;"
Returns 4 corner coords of bounding rectangle.
Use gdhandle = {} to get boundary without rendering.
Use negative of color_idx to disable antialiasing.
-
+
gd copy <desthandle> <srchandle> <destx> <desty> <srcx> <srcy> <w> <h>
-
- gd copy <desthandle> <srchandle> <destx> <desty> <srcx> <srcy> \
- <destw> <desth> <srcw> <srch> Copy a subimage from
- srchandle(srcx, srcy) to desthandle(destx, desty), size w x h.
+
+ gd copy <desthandle> <srchandle> <destx> <desty> <srcx> <srcy> \\
+ <destw> <desth> <srcw> <srch>
+ Copy a subimage from srchandle(srcx, srcy) to desthandle(destx,
+ desty), size w x h.
Or, resize the subimage in copying from srcw x srch to destw x
desth.
-
-
-
-Examples
+
+.SH EXAMPLES
The sample program from the gd documentation can be written thusly:
@@ -234,8 +223,8 @@
gd destroy $im
-
-
+
+
GDDEMO
-
+
Here's the gddemo.c program translated to tcl.
@@ -312,8 +301,8 @@
gd destroy $im_out
-
-
+
+
GDSHOW
-
+
A quick Tcl procedure to display a GD image using the xv program.
@@ -331,2 +320,6 @@
}
}
+
+.SH SEE ALSO
+ You will find Thomas Boutell's documentation for the underlying GD
+ library quite useful, especially, if you are dealing with WBMP format.

1354
graphics/gdtclft/files/patch-improve Normal file
View file

File diff suppressed because it is too large Load diff

4
graphics/gdtclft/pkg-plist
View file

@ -1,4 +0,0 @@
%%DIR%%/pkgIndex.tcl
%%DIR%%/%%SHLIB_NAME%%
%%DIR%%/%%SHLIB_LINK%%
@dirrm %%DIR%%