Add pic2fig 1.4, a pic format to fig format converter.

PR:		24388
Submitted by:	Patrick Powell <papowell@astart.com>

9 files changed, 567 insertions, 0 deletions

diff --git a/print/Makefile b/print/Makefile
index 47a3eb0b0039..f0c83d26819c 100644
--- a/print/Makefile
+++ b/print/Makefile
@@ -75,6 +75,7 @@
     SUBDIR += pdflib3
     SUBDIR += pdq
     SUBDIR += perlftlib
+    SUBDIR += pic2fig
     SUBDIR += pips-sc680_777
     SUBDIR += pips2200
     SUBDIR += pips3000
diff --git a/print/pic2fig/Makefile b/print/pic2fig/Makefile
new file mode 100644
index 000000000000..b077d4f7ba6c
--- /dev/null
+++ b/print/pic2fig/Makefile
@@ -0,0 +1,23 @@
+# New ports collection makefile for:    pic2fig
+# Date created:         14 Jan 2001
+# Whom:                 Patrick Powell <papowell@astart.com>
+#
+# $FreeBSD$
+
+PORTNAME=	pic2fig
+PORTVERSION=	1.4
+CATEGORIES=	print
+MASTER_SITES=	${MASTER_SITE_XCONTRIB}
+MASTER_SITE_SUBDIR=	utilities
+EXTRACT_SUFX=	.tar.Z
+
+MAINTAINER=	Patrick Powell <papowell@astart.com>
+
+WRKSRC=		${WRKDIR}/${PORTNAME}
+MAN1=		pic2fig.1
+
+do-install:
+	${INSTALL_PROGRAM} -m 755 ${WRKSRC}/pic2fig ${PREFIX}/bin
+	${INSTALL_MAN} ${WRKSRC}/pic2fig.1 ${PREFIX}/man/man1
+
+.include <bsd.port.mk>
diff --git a/print/pic2fig/distinfo b/print/pic2fig/distinfo
new file mode 100644
index 000000000000..314cd6edf028
--- /dev/null
+++ b/print/pic2fig/distinfo
@@ -0,0 +1 @@
+MD5 (pic2fig-1.4.tar.Z) = 98845b0fc9d9ad7e9484f22ef3057996
diff --git a/print/pic2fig/files/patch-aa b/print/pic2fig/files/patch-aa
new file mode 100644
index 000000000000..0cb342a62424
--- /dev/null
+++ b/print/pic2fig/files/patch-aa
@@ -0,0 +1,21 @@
+--- Makefile.orig	Mon Apr 29 10:11:02 1991
++++ Makefile	Tue Jan 16 08:26:36 2001
+@@ -1,7 +1,7 @@
+ BINDIR	=	/usr/local/bin
+-CFLAGS	=	-O4 -s $(CROSS)
++#CFLAGS	=	-O4 -s $(CROSS)
+ #LDFLAGS=	-zs
+-LDFLAGS=	-z $(CROSS)
++#LDFLAGS=	-z $(CROSS)
+ YFLAGS	=	-d
+ 
+ MOFILES = main.o boxgen.o print.o misc.o symtab.o blockgen.o circgen.o  \
+@@ -29,7 +29,7 @@
+ 	-@echo ""
+ 
+ pic2fig: picy.o picl.o $(OFILES)
+-	cc $(LDFLAGS) -o $@ picy.o picl.o $(OFILES) -lm
++	$(CC) $(LDFLAGS) -o $@ picy.o picl.o $(OFILES) -lm
+ 
+ # The following .o files depend of picy.c, since they really need picy.h
+ picl.o:		picl.c pic.h picy.c
diff --git a/print/pic2fig/files/patch-ab b/print/pic2fig/files/patch-ab
new file mode 100644
index 000000000000..1d39eacfdd04
--- /dev/null
+++ b/print/pic2fig/files/patch-ab
@@ -0,0 +1,490 @@
+--- figd.c.orig	Sat Aug  6 19:52:43 1988
++++ figd.c	Tue Jan 16 08:26:38 2001
+@@ -6,13 +6,16 @@
+  *
+  * Modified by Micah Beck to produce Fig code
+  * Modified by Micah Beck again to produce Fig 1.4 code
++ * Modified by Patrick Powell to produce Fig 3.2 code
+  */
+ 
+ #include <stdio.h>
+ #include <ctype.h>
+ #include "object.h"
+ 
+-#define DEF_PEN_SIZE	8	/* Default pen diameter */
++/* #define DEF_PEN_SIZE	8	/ * Default pen diameter */
++#define DEF_PEN_SIZE	1	/* Default pen diameter */
++#define DEF_FONT_SIZE	12	/* Default pen diameter */
+ #define	MAXPOINTS	300	/* Max number of points in a path */
+ 
+ #define bool int
+@@ -23,6 +26,8 @@
+ #define	P_BLACK		15
+ #define	TEXTURE		3
+ #define ORTEXTURE	7
++#define FONT_HT 12
++#define FONT_WIDTH 8
+ 
+ extern	double	sqrt(), cos(), sin();
+ 
+@@ -31,11 +36,15 @@
+ #define RES			1000.0
+ #define Pix_To_In(x)		(((float) x) / RES)
+ 
+-#define FIGRES			80
++/* #define FIGRES			80 */
++#define FIGRES			1200
+ #define FIGCANV_W		(8*FIGRES)
+ #define FIGCANV_H		(10*FIGRES)
++#define Points_To_Figpix(x)	((int)(FIGRES * (x)/72.0))
+ #define Pix_To_Figpix(x)	((int)(FIGRES * Pix_To_In(x)))
+-#define Pen_to_Figpix(x)	((x*FIGRES + 500) / 1000)
++/* #define Pen_to_Figpix(x)	((x*FIGRES + 500) / 1000) */
++/* pen thickness in 1/80 of inch */
++#define Pen_to_Figpix(x)	((Pix_To_In(x) + 79) / 80)
+ 
+ 
+ extern	int dbg;		/* Non-zero when debugging info wanted */
+@@ -44,7 +53,8 @@
+ static	float xslope,yslope,xbase,ybase;/* Convert Window to Viewport */
+ static	int arraylen;		/* Number of points in current path */
+ static	bool pathsent;		/* True if path has been defined */
+-static	int ipensize;		/* Desired current pen size */
++static	int ipensize = DEF_PEN_SIZE;		/* Desired current pen size */
++static	int ifontsize = DEF_FONT_SIZE;		/* Desired current font size */
+ extern	FILE *TEXFILE;		/* Output file */
+ 
+ 
+@@ -62,7 +72,7 @@
+ 	yslope = RES * (hiypage-loypage) / (hiy-loy);
+ 	ybase  = RES * loypage - loy*yslope;
+ 	if (dbg)
+-	    printf("Coefficients: %10.5f%10.5f%10.5f%10.5f\n",
++	    printf("Coefficients: %10.5f  %10.5f  %10.5f  %10.5f\n",
+ 		xslope,xbase,yslope,ybase);
+ }
+ 
+@@ -70,14 +80,18 @@
+ /*
+  * Set the size of the virtual pen used in drawing
+  */
++static sendpath();
+ pensize(x)
+ int	x;
+ {
+ 	if (x != ipensize) {
+ 	    ipensize = Pen_to_Figpix(x);
++        ifontsize = x;
++		if( ipensize == 0 ) ipensize = 1;
+ 	    if (!pathsent) sendpath();
+ 	    clearpath();
+ 	}
++	if( dbg) printf("pensize %d -> %d\n", x, ipensize );
+ }
+ 
+ 
+@@ -149,24 +163,84 @@
+ float	x, y;
+ int	position;	/* Indicates what part of text is at (x,y) */
+ {
+-    int	    ix, iy, offset;
+-    char    *cp;
++    int	    ix, iy, offset, c;
++    unsigned char    *cp;
+     map(x, y, &ix, &iy, 1);
+ 
+-    for (cp = text; *cp && isspace(*text); cp++);
++    for (cp = (unsigned char *)text; isspace(*cp); cp++);
+     if (!*cp) return;
+ 
+ #ifdef TEXT_LEFT_ONLY
+-    if (position != T_LEFT_JUSTIFIED) offset = strlen(cp)*8;
++    if (position != T_LEFT_JUSTIFIED) offset = strlen(cp)*Points_To_Figpix(ifontsize);
+     if (position == T_CENTER_JUSTIFIED) offset = offset/2;
+     position = T_LEFT_JUSTIFIED;
+ #else
+     offset = 0;
+ #endif TEXT_LEFT_ONLY
+ 
++/* FORMAT 1.4 CODE
+     fprintf(TEXFILE, "%d %d %d %d %d %d %6.3f %d %d %d %d %d %s%c\n",
+-	O_TEXT, position, -1, -1, -1, -1, 0.0, -1, 16, strlen(cp)*8,
++                   4   justification (0,1,2)
++                            font (unused)
++                               fontsize (unused)
++                                  pen (unused)
++                                     color
++                                        depth
++                                          angle (not used)
++                                              height (pixels)
++                                                 length (pixels)
++                                                
++	4, position, -1, -1, -1, -1, 0.0, -1, 16, strlen(cp)*Points_To_Figpix(ifontsize),
+ 	Pix_To_Figpix(ix) - offset, Pix_To_Figpix(iy), cp, '\01');
++Example:
++4 1 -1 -1 -1 -1  0.000 -1 16 24 229 603 FEP^A
++
++FORMAT 3.2 CODE
++    (3.7) TEXT
++    type    name            (brief description)
++    ----    ----            -------------------
++    int object          (always 4)
++    int sub_type        (0: Left justified
++                         1: Center justified
++                         2: Right justified)
++    int color           (enumeration type)
++    int depth           (enumeration type)
++    int pen_style       (enumeration , not used)
++    int font            (enumeration type)
++    float   font_size       (font size in points)
++    float   angle           (radians, the angle of the text)
++    int font_flags      (bit vector)
++    float   height          (Fig units)
++    float   length          (Fig units)
++    int x, y            (Fig units, coordinate of the origin
++                     of the string.  If sub_type = 0, it is
++                     the lower left corner of the string.
++                     If sub_type = 1, it is the lower
++                     center.  Otherwise it is the lower
++                     right corner of the string.)
++    char    string[]        (ASCII characters; starts after a blank
++                     character following the last number and
++                     ends before the sequence '\001'.  This
++                     sequence is not part of the string.
++
++
++Example:
++4 1 -1 0 -1 -1 12 0.0000 4 135 330 3450 9060 FEP\001 
++*/
++    if(dbg) printf("string (%d,%d) '%s'\n", Pix_To_Figpix(ix-offset), Pix_To_Figpix(iy), cp );
++		
++    fprintf(TEXFILE, "%d %d %d %d %d %d %d %6.3f %d %d %d %d %d ",
++	O_TEXT, position,       -1, 0,-1,-1,ifontsize,0.0,   4,Pix_To_Figpix(FONT_HT),Pix_To_Figpix(strlen(cp)*FONT_WIDTH),
++		Pix_To_Figpix(ix-offset), Pix_To_Figpix(iy));
++	while( (c = ((unsigned char *)(cp))[0]) ){
++		if( c == '\\' ){
++			fprintf(TEXFILE, "\\\\");
++		} else if( isprint(c) || isspace(c) ){
++			fprintf(TEXFILE, "%c", c);
++		}
++		++cp;
++	}
++	fprintf(TEXFILE, "\\001\n");
+ }
+ 
+ 
+@@ -208,16 +282,54 @@
+ {
+ 	register int i;
+ 
+-	if (dbg) printf("Sending path ...%d\n", arraylen);
++	if (dbg) printf("Sendpath [%d], ipensize %d\n", arraylen, ipensize);
+ 	if (arraylen > 1) {
+ 
++	/*
+ 	    fprintf(TEXFILE, "%d %d %d %d %d %d %d %d %d %d %d\n",
+ 		O_POLYLINE, T_POLYLINE, SOLID_LINE,
+ 		ipensize, -1, -1, -1, -1, -1, 0, 0);
+-	    for (i=1; i<=arraylen; i++)
+-		fprintf(TEXFILE, "%d %d ",
++
++Example:
++        2 1 0 1 -1 -1 -1 -1 -1 0 0
++        19 149  19 9  179 9  179 149  19 149  9999 9999
++
++New format:
++       2 1 0 1 -1 -1 0 -1 -1 -1.000 0 0 -1 0 0 5
++       code     pen_color
++         type      fill_color
++           line style 
++                     depth
++                       pen_style
++                             style_value
++                                   join_style
++                                      cap_style
++                                          radius
++                                             forward_arrow
++                                                count
++             thickness (1/80 inch)
++           -1 = Default
++            0 = Solid
++            1 = Dashed
++            2 = Dotted
++            3 = Dash-dotted
++            4 = Dash-double-dotted
++            5 = Dash-triple-dotted
++
++       300 2250 300 150 2700 150 2700 2250 300 2250
++
++
++	*/
++	    fprintf(TEXFILE, "%d %d %d %d -1 -1 0 -1 -1 -1.000 0 0 -1 0 0 %d\n  ",
++		2, T_POLYLINE, SOLID_LINE, ipensize, arraylen );
++	    for (i=1; i<=arraylen; i++){
++			if (dbg) printf(" (%d,%d)", Pix_To_Figpix(xx[i]), Pix_To_Figpix(yy[i]));
++			fprintf(TEXFILE, "%d %d ",
+ 			Pix_To_Figpix(xx[i]), Pix_To_Figpix(yy[i]));
+-	    fprintf(TEXFILE, "9999 9999\n");
++		}
++		if (dbg) printf("\n", Pix_To_Figpix(xx[i]), Pix_To_Figpix(yy[i]));
++	    /* fprintf(TEXFILE, "9999 9999\n"); */
++	    fprintf(TEXFILE, "\n");
+ 	}
+ 
+ 	pathsent = TRUE;
+@@ -234,17 +346,22 @@
+ {
+ 	register int i;
+ 
+-	if (dbg) printf("Sending path ...%d\n", arraylen);
++	if (dbg) printf("Send_dashed_path ...%d\n", arraylen);
+ 	if (arraylen < 2) return;
+ 	else {
++/*
+ 	    fprintf(TEXFILE, "%d %d %d %d %d %d %d %d %d %d %d\n",
+ 		O_POLYLINE, T_POLYLINE,
+ 		(dotted ? DOTTED_LINE : DASH_LINE), ipensize,
+ 		-1, -1, -1, -1, -1, 0, 0);
+-	    for (i=1; i<=arraylen; i++)
++ */
++	    fprintf(TEXFILE, "%d %d %d %d -1 -1 0 -1 -1 -1.000 0 0 -1 0 0 %d\n  ",
++		2, T_POLYLINE, (dotted? DOTTED_LINE: DASH_LINE), ipensize, arraylen );
++	    for (i=1; i<=arraylen; i++){
+ 		fprintf(TEXFILE, "%d %d ",
+ 			Pix_To_Figpix(xx[i]), Pix_To_Figpix(yy[i]));
+-	    fprintf(TEXFILE, "9999 9999\n");
++		}
++	    /* fprintf(TEXFILE, "9999 9999\n"); */
+ 	}
+ 
+ 	pathsent = TRUE;
+@@ -294,7 +411,7 @@
+ fig_arc(xcenter, ycenter, xradius, yradius, start, stop)
+ float	xcenter, ycenter, xradius, yradius, start, stop;
+ {
+-    int X0, Y0, xrad, yrad, xend, yend;
++    int X0, Y0, xrad, yrad, xend, yend, xstart, ystart;
+     extern double cos(), sin();
+ 
+     map(xcenter, ycenter, &X0, &Y0, FALSE);
+@@ -304,18 +421,85 @@
+     if (is_onarc(PI/2, start, stop)) ckbounds(X0, Y0+yrad);
+     if (is_onarc(PI, start, stop)) ckbounds(X0-xrad, Y0);
+     if (is_onarc(1.5*PI, start, stop)) ckbounds(X0, Y0-yrad);
+-    xend = X0 + xrad * cos(start) + 0.5;
+-    yend = Y0 + yrad * sin(start) + 0.5;
+-    ckbounds(xend, yend);
++    xstart = X0 + xrad * cos(start) + 0.5;
++    ystart = Y0 + yrad * sin(start) + 0.5;
++    ckbounds(xstart, ystart);
+     xend = X0 + xrad * cos(stop);
+     yend = Y0 + yrad * sin(stop);
+     ckbounds(xend, yend);
++	if(dbg) printf("Ellipse: X0 %d, Y0 %d, xrad %d, yrad %d, xstart %d, ystart %d, xend %d, yend %d\n",
++		Pix_To_Figpix(X0), Pix_To_Figpix(Y0),
++		Pix_To_Figpix(xrad), Pix_To_Figpix(yrad),
++		Pix_To_Figpix(xstart), Pix_To_Figpix(ystart),
++		Pix_To_Figpix(xend), Pix_To_Figpix(yend));
++
++/*
++    int object_code     (always 1)
++    int sub_type        (1 : ellipse defined by radiuses
++                     2 : ellipse defined by diameters
++                     3 : circle defined by radius
++                     4 : circle defined by diameter)
++    int line_style      (See the end of this section)
++    int thickness       (pixels, not used)
++    int color           (not used)
++    int depth           (not used)
++    int pen         (not used)
++    int area_fill       (not used)
++    float   style_val       (pixels, not used)
++    int direction       (always 1)
++    float   angle           (radian, the angle of the x-axis)
++    int center_x, center_y  (pixels)
++    int radius_x, radius_y  (pixels)
++    int start_x, start_y    (pixels; the 1st point entered)
++    int end_x, end_y        (pixels; the last point entered)
++
++Example:
++  1 1 0 1 -1, -1 -1 -1 -1 1 0  0.000  0.000  0.000  0.000  0.000  0.000
+ 
+     fprintf(TEXFILE, "%d %d %d %d %d, %d %d %d %d %d %d %6.3f %6.3f %6.3f %6.3f %6.3f %6.3f\n",
+ 		O_ELLIPSE, T_ELLIPSE_BY_RAD,
+ 	        SOLID_LINE, ipensize, -1, -1, -1, -1, -1, 1, 0.0,
+ 		Pix_To_Figpix(X0), Pix_To_Figpix(Y0),
+ 		Pix_To_Figpix(xrad), Pix_To_Figpix(yrad), 0.0, 0.0, 0.0, 0.0);
++
++
++    int object_code     (always 1)
++    int sub_type        (1: ellipse defined by radii
++                     2: ellipse defined by diameters
++                     3: circle defined by radius
++                     4: circle defined by diameter)
++    int line_style      (enumeration type)
++    int thickness       (1/80 inch)
++   --
++    int pen_color       (enumeration type, pen color)
++    int fill_color      (enumeration type, fill color)
++    int depth           (enumeration type)
++    int pen_style       (pen style, not used)
++    int area_fill       (enumeration type, -1 = no fill)
++    float   style_val       (1/80 inch)
++    int direction       (always 1)
++    float   angle           (radians, the angle of the x-axis)
++    int center_x, center_y  (Fig units)
++    int radius_x, radius_y  (Fig units)
++    int start_x, start_y    (Fig units; the 1st point entered)
++    int end_x, end_y        (Fig units; the last point entered)
++
++Example:
++   1 1 0 1 0 7 50 0 -1 0.000 1 0.0000 1125 975 675 375 1125 975 1800 1350
++           pen      areafill
++             fill      styleval
++               depth
++                  pen_style
++*/
++
++
++    fprintf(TEXFILE, "%d %d %d %d", O_ELLIPSE, T_ELLIPSE_BY_RAD, SOLID_LINE, ipensize );
++	fprintf(TEXFILE, " 0 7 50 0 -1 0.0 1 0.0" );
++	fprintf(TEXFILE, " %d %d %d %d %d %d %d %d\n",
++		Pix_To_Figpix(X0), Pix_To_Figpix(Y0),
++		Pix_To_Figpix(xrad), Pix_To_Figpix(yrad),
++		Pix_To_Figpix(xstart), Pix_To_Figpix(ystart),
++		Pix_To_Figpix(xend), Pix_To_Figpix(yend));
+ }
+ 
+ 
+@@ -347,14 +531,56 @@
+  */
+ fig_begin_drawing()
+ {
+-  	fprintf(TEXFILE, "#FIG 1.4\n%d %d\n", FIGRES, 2);
++
++/*
++(1) The very first line is a comment line containing the name and version:
++    #FIG 3.2
++(2) The first non-comment line consists of the following:
++
++    string  orientation     ("Landscape" or "Portrait")
++    string  justification       ("Center" or "Flush Left")
++    string  units           ("Metric" or "Inches")
++    string  papersize       ("Letter", "Legal", "Ledger", "Tabloid",
++                     "A", "B", "C", "D", "E",
++                     "A4",   "A3", "A2", "A1", "A0" and "B5")
++    float   magnification       (export and print magnification, %)
++    string  multiple-page       ("Single" or "Multiple" pages)
++    int transparent color   (color number for transparent color for GIF
++                     export. -3=background, -2=None, -1=Default,
++                     0-31 for standard colors or 32- for user colors)
++    # optional comment      (An optional set of comments may be here,
++                     which are associated with the whole figure)
++    int resolution coord_system (Fig units/inch and coordinate system:
++                       1: origin at lower left corner (NOT USED)
++                       2: upper left)
++Example:
++   #FIG 3.2
++   Landscape
++   Center
++   Inches
++   Letter
++   100.00
++   Single
++   -2
++   1200 2
++
++*/
++  	fprintf(TEXFILE, "#FIG 3.2\n");
++  	fprintf(TEXFILE, "Landscape\n");
++  	fprintf(TEXFILE, "Center\n");
++  	fprintf(TEXFILE, "Inches\n");
++  	fprintf(TEXFILE, "Letter\n");
++  	fprintf(TEXFILE, "100.00\n");
++  	fprintf(TEXFILE, "Single\n");
++  	fprintf(TEXFILE, "-2\n");
++  	fprintf(TEXFILE, "%d %d\n", FIGRES, 2 );
+ 
+ 	fig_window(0.0, 0.0, 10.0, 10.0, 0.0, 0.0, 3.0, 3.0);
+ 	xmin = 30000;	xmax = -30000;
+ 	ymin = 30000;	ymax = -30000;
+ 	arraylen = 0;
+ 	pathsent = FALSE;
+-	ipensize = Pen_to_Figpix(DEF_PEN_SIZE);
++	pensize(DEF_PEN_SIZE);
+ }
+ 
+ 
+@@ -392,15 +618,67 @@
+ 	clearpath();
+     }
+ 
++/*
+     fprintf(TEXFILE, "%d %d %d %d %d %d %d %d %d %d %d\n",
+ 	O_SPLINE, T_OPEN_NORMAL,
+ 	SOLID_LINE, ipensize, -1, -1, -1, -1, -1, 0, 0);
++    fprintf(TEXFILE, "9999 9999\n");
++
++New format:
++    int object_code     (always 3)
++    int sub_type        (0: open approximated spline
++                         1: closed approximated spline
++                         2: open   interpolated spline
++                         3: closed interpolated spline
++                         4: open   x-spline
++                         5: closed x-spline)
++    int line_style      (See the end of this section)
++    int thickness       (1/80 inch)
++    int pen_color       (enumeration type, pen color)
++    int fill_color      (enumeration type, fill color)
++    int depth           (enumeration type)
++    int pen_style       (pen style, not used)
++    int area_fill       (enumeration type, -1 = no fill)
++    float   style_val       (1/80 inch)
++    int cap_style       (enumeration type, only used for open splines)
++    int forward_arrow       (0: off, 1: on)
++    int backward_arrow      (0: off, 1: on)
++    int npoints         (number of control points in spline)
++
++    Forward arrow line: same as ARC object
++
++    Backward arrow line: same as ARC object
++
++    Points line: same as POLYLINE object
++
++    Control points line :
++
++    There is one shape factor for each point. The value of this factor
++    must be between -1 (which means that the spline is interpolated at
++    this point) and 1 (which means that the spline is approximated at
++    this point). The spline is always smooth in the neighbourhood of a
++    control point, except when the value of the factor is 0 for which
++    there is a first-order discontinuity (i.e. angular point).
++
++Example:
++    3 2 0 1 0 7 50 0 -1 0.000 0 0 0 3
++     975 1950 1875 1500 2550 1950
++     0.000 -1.000 0.000
++
++*/
++    fprintf(TEXFILE, "%d %d %d %d", 3, 2, SOLID_LINE, ipensize );
++	fprintf(TEXFILE, " 0 7 50 0 -1 0.000 0 0 0 %d\n  ", N-1 );
+     for (i=1; i<N; i++) {
+-	ckbounds(xx[i], yy[i]);
+-	fprintf(TEXFILE, "%d %d ",
+-		Pix_To_Figpix(xx[i]), Pix_To_Figpix(yy[i]));
+-      }
+-    fprintf(TEXFILE, "9999 9999\n");	
++		ckbounds(xx[i], yy[i]);
++		fprintf(TEXFILE, " %d %d",
++			Pix_To_Figpix(xx[i]), Pix_To_Figpix(yy[i]));
++	}
++    fprintf(TEXFILE, "\n  ");
++    fprintf(TEXFILE, " 0.0");
++    for (i=2; i<N-1; i++) {
++		fprintf(TEXFILE, " -1.0");
++	}
++    fprintf(TEXFILE, " 0.0\n");
+ }
+ 
+ 
diff --git a/print/pic2fig/files/patch-ac b/print/pic2fig/files/patch-ac
new file mode 100644
index 000000000000..23986aa3f6b3
--- /dev/null
+++ b/print/pic2fig/files/patch-ac
@@ -0,0 +1,14 @@
+--- main.c.orig	Mon Feb  8 06:21:12 1988
++++ main.c	Tue Jan 16 08:26:39 2001
+@@ -1,10 +1,10 @@
+ #include	<stdio.h>
+ #include	<ctype.h>
++#include	<strings.h>
+ #include	"pic.h"
+ #include	"picy.h"
+ 
+ static reset();
+-extern char *sprintf(), *strcpy();
+ 
+ struct	obj	*objlist[MAXOBJ];	/* store the elements here */
+ int	nobj	= 0;
diff --git a/print/pic2fig/pkg-comment b/print/pic2fig/pkg-comment
new file mode 100644
index 000000000000..ae6299550a00
--- /dev/null
+++ b/print/pic2fig/pkg-comment
@@ -0,0 +1 @@
+Pic format to fig format converter
diff --git a/print/pic2fig/pkg-descr b/print/pic2fig/pkg-descr
new file mode 100644
index 000000000000..4d4f8be11e1d
--- /dev/null
+++ b/print/pic2fig/pkg-descr
@@ -0,0 +1,15 @@
+Pic2fig is a pic(l) preprocessor for drawing simple figures in Fig code.
+The basic objects are box, line, arrow, circle, ellipse, arc and text.
+
+When  pic2fig  is  executed, it produces an output file in the
+current directory.  The name is constructed  from  the input  file's
+name.  If the input filename ends with .pic, then that extension
+will be replaced by .fig.   Otherwise, .fig  is appended to the input
+filename.  If file does not exist, then pic2fig tries appending .pic
+to the name.
+
+Updated to produce FIG 3.2 format by Patrick Powell <papowell@astart.com>
+
+Web Site: ftp://ftp.x.org/contrib/utilities/
+
+Note:  this version does not support the groff/pic 'thickness' attribute.
diff --git a/print/pic2fig/pkg-plist b/print/pic2fig/pkg-plist
new file mode 100644
index 000000000000..048903243470
--- /dev/null
+++ b/print/pic2fig/pkg-plist
@@ -0,0 +1 @@
+bin/pic2fig