/** hp2xx : A converter of HPGL files into popular raster and vector formats
**
** xx = mf (MetaFont), eps (PostScript), pcl (HP-PCL Level3),
** pre(view), pcx (PaintBrush-Format), img (GEM),
** pic (ATARI bitmap), pbm (Portable Bitmap), ...
**
** (c) 1992, 1993 Heinz W. Werntges and the HP2xx team
**
** Author:
**
** HWW Heinz W. Werntges (werntges@convex.rz.uni-duesseldorf.de)
** Fruchtstr. 2, 40223 Duesseldorf, Germany
**
** New maintainer since version 3.3 and (c) 1999:
** MK Dr. Martin Kroeker (mk@daveg.com,
** martin@ruby.chemie.uni-freiburg.de)
** Zum Markwald 6, D-63165 Muehlheim, Germany
**
** Amiga stuff & PBM & ILBM by:
**
** CHL Claus H. Langhans (Claus_Langhans@wildcat.fido.de)
** Unter den Nussbaeumen 19, 65779 Kelkheim (Ts.), Germany
**
**
** Atari stuff & IMG by:
**
** NM Norbert Meyer (sorry - no email)
** Reinhold-Schneider-Str. 83, 40595 Duesseldorf
**
** AS Andreas Schwab (schwab@ls5.informatik.uni-dortmund.de)
**
** JE Joern Eggers (II040EG@DTHAC11.bitnet)
**
** OS/2 Full-Screen previewer by:
**
** HSz Host Szillat (szillat@iaas-berlin.d400.de)
**
** X11 previewer by:
**
** MSch Michael Schoene (michael@nero.uni-bonn.de)
** Karolinger Str. 81, 40223 Duesseldorf, Germany
**
**
** Many thanks to all the other fine people who supported HP2xx by testing,
** correcting, porting, suggesting improvements, and otherwise spending
** their time on HP2xx, especially:
**
** -- Michael Schmitz
** & Gerhard Steger for their invaluable help with VAX/VMS,
** -- Juergen Gross for access to a HP 9000 machine
** -- Roland Emmerich for proofreading, beta-testing, and his HGC support
** -- Jon Gillian for valuable suggestions
** -- Lawrence Lowe for various improvements and contributions
**-------------------------------------------------------------------------
**/
/** hp2xx.c:
**
** 91/01/12 V 1.00 HWW PC version
** 91/01/17 V 1.01 HWW Disk swapping added
** 91/01/19 V 1.02 HWW Reorganized: mf mode revived, pcx mode added
** 91/01/29 V 1.03 HWW SUN portation; HP-specials added
** 91/01/31 V 1.04 HWW (-F) FF added
** 91/02/01 V 1.05 HWW Flag -S added (Deskjet specials)
** 91/02/15 V 1.06 HWW stdlib.h & VAX_C supported
** 91/02/19 V 2.01 HWW file unchanged, but new package release!
** 91/06/09 V 2.10 HWW (beta) More options; options x & y changed to o & O
** 91/06/15 V 2.11 HWW (beta) VGA option added; PCX bug (on SUN) removed
** 91/06/20 V 2.12 HWW Rotate (-r) option & Copyright added
** 91/06/20 V 2.12b HWW Minor reformatting
** 91/06/29 V 2.13a HWW PostScript support
** 91/08/28 V 2.14 HWW ATARI 32K format added (prelim.)
** 91/10/15 V 2.14c HWW atari & stad formats; hwtools.h eliminated
** 91/10/20 V 2.14d HWW ATARI-->pic (packing removed)
** 91/10/24 V 2.15 HWW ATARI-->pic stable now; "LT;" & "LT0;" supported
** 91/11/22 V 2.16b HWW "SPn;" support
** 92/01/12 V 2.17 HWW HPGL scanner improved, to_ps() debugged, ps --> eps,
** More portabel code (ATARI acknowledged)
** 92/02/06 V 2.18e HWW Better parser, IMG & various previews supported,
** preview control via -h, -w; -W removed!
** 92/02/21 V 2.19d HWW LB etc. supported, PG; (option -P) added
** 92/03/03 V 2.20c HWW Modes added: -m epic,em,pac(ATARI) / LB bugs fixed
** 92/04/15 V 2.20d HWW Width & height treated symmetrically now
** 92/04/28 V 2.20e HWW -m pre: -d, -D effective again, default 75; PBM added
** 92/05/02 V 2.21a HWW -m pre is default now. New opt: -l logfile
** 92/05/19 V 3.00c HWW Color support (VGA preview), multiple input files
** 92/05/25 V 3.00f HWW Color support (more modes)
** 92/06/09 V 3.01d HWW XT,YT,TL,SM supported; ATARI update acknowledged;
** Mode list added for easier expansion; debugged
** 92/10/20 V 3.02a HWW LT now fully supported
** 92/11/08 V 3.02b HWW Page range allowed
** 92/12/10 V 3.02c HWW Mode "cad" added; DJ version: bug fix extended;
** 92/12/12 V 3.02d HWW 2 bug fixes for option -f
** 92/12/16 V 3.03a HWW Option -t (+truesize) added
** 92/12/27 V 3.03b HWW -S int (for Deskjet color support)
** 93/01/02 V 3.10a HWW Source brushed up; ready for distribution
** 93/02/08 V 3.12a HWW Support of Joern Eggers' cs mode added (ATARI only)
** HAS_X11, HAS_SUNVIEW: added/modified
** 93/04/13 V 3.12b HWW UC added (A. Treindl), small changes; CMYK added,
** New previewer selection scheme // NEW RELEASE 3.1.2
** 93/04/25 V 3.12c HWW Minor bug fixes (to_pcl.c, hpgl.c / Eric)
** 93/05/20 V 3.12d HWW LT1 adjustment; '--version' option added (GNU std)
** 93/07/20 V 3.12e HWW SilentWait() modified (UNIX) according to A. Bagge,
** new OS/2 previewer by HSz, TIFF compression for PCL mode
** 93/09/03 V 3.13a HWW Wait() renamed to NormalWait() (name collision on VAX),
** Option -P : Option parser modified; -m hpgl added
** 93/09/22 V 3.13b HWW Fix in autoset_outfile_name()
** 94/01/01 V 3.14a HWW Additions by L. Lowe
** 94/02/14 V 3.20b HWW Re-structured to facilitate multiple user interfaces
** Separate additions to HWW's V 3.20, assembled in this release by MK:
** 94/03/23 EB Mode "gpt", Gnuplot, added by Emmanuel Bigler
** 94/08/08 IMP Mode "xfig" added by Ian MacPhedran
** 97/11/29 MS Mode "png" added by Michael Schmitz
** 99/09/01 V 3.30a MK CA,CS,IW,SA,SS,NP,PC,PW,PE and charsets1-8 added
** 99/09/12 V3.30a2 MK RO,PS,EW added, bugfixes for IW,PC,PW,EA
** 99/10/01 V 3.30 MK RO/PS changes
** 99/12/01 V 3.31 MK fixes for RO,PS,LB,DI,DR, completed PE
** 00/02/06 MK fixes for scaling and PE; allow overriding of PC/PW
** 00/02/12 V 3.32 MK Mode "tiff" added by M.Liberi (changed to use ZIP
** instead of patented LZW compression; needs libtiff)
** 00/02/26 MK Mode "escp" (Epson Esc/P2 printer language)
**/
char *VERS_NO = "3.4.0";
char *VERS_DATE = "01/02/09";
char *VERS_COPYRIGHT = "(c) 1991 - 1994 (V3.20) Heinz W. Werntges";
#if defined(AMIGA)
char *VERS_ADDITIONS =
"\tAmiga additions (V 2.00) by Claus Langhans (92/12/16)\n";
#elif defined (ATARI)
char *VERS_ADDITIONS =
"\tAtari additions (V 2.10) by N. Meyer / J. Eggers / A. Schwab (93/01/xx)\n";
#else
char *VERS_ADDITIONS = " (c) 1999 - 2001 Martin Kroeker\n";
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "bresnham.h"
#include "pendef.h"
#include "hp2xx.h"
/**
** When adding your special mode, add a line here.
** Please note the alphabetical order (and keep it).
** Also see the definition of "hp2xx_mode" in hp2xx.h.
**/
mode_list ModeList[] =
{
{XX_CAD, "cad"}, /* LaTeX: TeXcad compatible output */
#ifdef ATARI
{XX_CS, "cs"}, /* LaTeX using \special{...} for C. Strunk's TeX */
#endif
{XX_EM, "em"}, /* LaTeX using \special{em:...} */
{XX_EPIC, "epic"},/* LaTeX using epic.sty macros */
{XX_EPS, "eps"}, /* Encapulated PostScript */
{XX_FIG, "fig"}, /* FIG 3.1 Drawing Files */
{XX_GPT, "gpt"}, /* gnuplot vector ascii format */
{XX_HPGL, "hpgl"},/* Simplified HP-GL */
#ifdef AMIGA
{XX_ILBM, "ilbm"},/* Special AMIGA format */
#endif
{XX_IMG, "img"}, /* Digital Research IMG raster format */
{XX_MF, "mf"}, /* Metafont source output */
{XX_PBM, "pbm"}, /* Portable Bitmap */
{XX_PCL, "pcl"}, /* HP-PCL Level 5 printer code */
{XX_PCX, "pcx"}, /* Paintbrush's PCX raster format */
#ifdef PIC_PAC
{XX_PAC, "pac"}, /* for ATARI, e.g. used by StaD */
{XX_PIC, "pic"}, /* for ATARI. Try to replace by IMG */
#endif
{XX_RGIP, "rgip"},/* Uniplex RGIP vector format */
#ifdef PNG
{XX_PNG, "png"}, /* Portable Network Graphics */
#endif
{XX_PRE, "pre"}, /* DEFAULT: Preview on screen */
#ifdef TIF
{XX_TIFF, "tiff"}, /* Tagged image file format */
#endif
#ifdef EPSON
{XX_ESC2, "esc2"}, /* Epson Esc/P2 printer language */
#endif
{XX_TERM, ""}, /* Dummy: List terminator */
};
void print_supported_modes(void)
{
int i;
Eprintf ("%s", ModeList[0].modestr);
for (i=1; ModeList[i].mode != XX_TERM; i++)
Eprintf (",%s", ModeList[i].modestr);
Eprintf ("\n");
}
void Send_version(void)
{
Eprintf ("\n%s\tV %s (%s) %s\n%s",
"HP2xx:\tA HPGL converter (xx = mf, eps, pcl, pcx, img ...)\n",
VERS_NO, VERS_DATE, VERS_COPYRIGHT, VERS_ADDITIONS);
#ifdef WIN32
Eprintf("Win32 version\n");
#endif
}
void usage_msg (const GEN_PAR *pg, const IN_PAR *pi, const OUT_PAR *po)
{
if (pg->quiet)
return;
Send_version();
#ifdef ATARI
Eprintf ("Usage:\tdouble-click on HP2XX.TTP, type parameters into\n");
Eprintf ("\tcommand-line with following syntax:\n");
Eprintf ("\t[options] [hpglfile]\n");
Eprintf ("\n\t(if command-line offers not enough space for all parameters\n");
Eprintf ("\tuse a command-line interpreter for starting HP2xx)\n");
#else
Eprintf ("Usage:\thp2xx [options] [file1 [file2 ...]]\n");
#endif /* ATARI */
Eprintf ("\tUnix: Filter usage (.. | hp2xx -q -f- [options] | ..) ok\n");
NormalWait();
Eprintf ("\nOpt fmt defaults\tComment:\n");
Eprintf (
"---------------------------------------------------------------------------\n");
Eprintf ("-m strg %s\t\tMode. Valid mode strings are:\n\t\t\t", pg->mode);
print_supported_modes();
Eprintf ("-n %s\t\tno filling of polygons (ignore FP commands)\n",
FLAGSTATE(pg->nofill));
Eprintf ("-f strg (auto gen.)\tName of output file ('-' = to stdout)\n");
Eprintf ("-l strg (stderr)\tName of log file\n");
Eprintf ("-p strg %d%d%d%d%d%d%d%d\tPensize(s) (in 1/10 mm (mf,ps) or dots (rest)).\n",
pt.width[1], pt.width[2], pt.width[3], pt.width[4],
pt.width[5], pt.width[6], pt.width[7], pt.width[8]);
Eprintf ("\t\t\t\"strg\" must consist of 1 to 8 digits '0'-'9'\n");
Eprintf ("-c strg %d%d%d%d%d%d%d%d\tPen color(s) (see manual for details).\n",
pt.color[1], pt.color[2], pt.color[3], pt.color[4],
pt.color[5], pt.color[6], pt.color[7], pt.color[8]);
Eprintf ("-P n:n %d:%d\t\tPage range (0:0 = all pages).\n",
pi->first_page, pi->last_page);
Eprintf ("-q %s\t\tQuiet mode (no diagnostics)\n",
FLAGSTATE(pg->quiet));
Eprintf ("-r float%5.1f\t\tRotation angle [deg]. -r90 = landscape\n",
pi->rotation);
Eprintf ("-s strg %s\tName of swap file\n", pg->swapfile);
Eprintf ("\nBitmap controls:\n");
Eprintf ("-d int %d\t\tDPI value for x or x&y, if -D unused.\n",
po->dpi_x);
Eprintf ("-D int %d\t\tDPI value for y ONLY\n", po->dpi_x);
/* x, not y! */
NormalWait();
Eprintf ("\nPCL-exclusive options:\n");
Eprintf ("-i %s\tPre-initialize printer\n", FLAGSTATE (po->init_p));
Eprintf ("-F %s\tSend a FormFeed at end\n", FLAGSTATE(po->formfeed));
Eprintf ("-S int %d\tUse Deskjet special commands (0=off, 1=B/W, 3=CMY, 4=CMYK)\n",
po->specials);
Eprintf ("NOTE: \tOnly valid for -d: 300/150/100/75; -D invalid!\n");
Eprintf ("\nPCL / PostScript / Preview options:\n");
Eprintf ("-o float %5.1f\tX offset [mm] of picture\n", pi->xoff);
Eprintf ("-O float %5.1f\tY offset [mm] of picture\n", pi->yoff);
Eprintf ("-C \tFit picture into center of (-a/-h/-w) rectangle\n");
Eprintf ("\nTiff-exclusive options:\n");
Eprintf ("-S int %d\tUse Tiff Compression Format (0/1=None, 2=RLE, 3=G3Fax, 4=G4Fax, 5=LZW, 6=OJpeg, 7=Jpeg, 8=Deflate)\n",
po->specials);
Eprintf ("\nPCX-exclusive options:\n");
Eprintf ("-i %s\tInvert bitmap\n", FLAGSTATE (po->init_p));
Eprintf ("\nSize controls:\n");
Eprintf ("-a float %5.1f\tAspect factor (x/y correction). Valid: > 0.0\n",
pi->aspectfactor);
Eprintf ("-h float %5.1f\tHeight [mm] of picture\n",pi->height);
Eprintf ("-w float %5.1f\tWidth [mm] of picture\n",pi->width );
Eprintf ("-t %s\tShow true HPGL size. Disables -a -h -w !\n",
FLAGSTATE (pi->truesize));
Eprintf ("-x float -\tManual HPGL-coord range presetting: x0\n");
Eprintf ("-X float -\tManual HPGL-coord range presetting: x1\n");
Eprintf ("-y float -\tManual HPGL-coord range presetting: y0\n");
Eprintf ("-Y float -\tManual HPGL-coord range presetting: y1\n");
#ifdef DOS
Eprintf ("\n-V int %d\tVGA mode byte (decimal). Change at own risk!\n",
po->vga_mode);
#endif
NormalWait();
Eprintf ("Corresponding long options:\n\n");
Eprintf ("hp2xx [--mode] [--colors] [--pensizes] [--pages] [--quiet]\n");
Eprintf ("\t[--nofill] [--width] [--height] [--aspectfactor] [--truesize]\n");
Eprintf ("\t[--x0] [--x1] [--y0] [--y1]\n");
Eprintf ("\t[--xoffset] [--yoffset] [--center]\n");
Eprintf ("\t[--DPI] [--DPI_x] [--DPI_y]\n");
Eprintf ("\t[--outfile] [--logfile] [--swapfile]\n");
Eprintf ("\t[--PCL_formfeed] [--PCL_init] [--PCL_Deskjet]\n");
#ifdef DOS
Eprintf ("\t[--VGAmodebyte]");
#endif
Eprintf ("\t[--help] [--version]\n");
#ifdef PURE_C
Eprintf("\nPress RETURN key\n");
getchar();
#endif
}
void reset_par (IN_PAR *pi)
/**
** Reset some parameter struct elements which may have been changed
** by action() to their defaults
**/
{
pi->x0 = 1e10; /* HP7550A's range is about */
pi->x1 = -1e10; /* [-2^24, 2^24], so we're safe */
pi->y0 = 1e10;
pi->y1 = -1e10;
}
void preset_par (GEN_PAR *pg, IN_PAR *pi, OUT_PAR *po)
/**
** Pre-set constant parameter struct elements with reasonable defaults
**/
{
int i;
pi->aspectfactor = 1.0;
pi->center_mode = FALSE;
pi->height = 200.0;
pi->width = 200.0;
pi->xoff = 0.0;
pi->yoff = 0.0;
pi->truesize = FALSE;
pi->hwcolor = FALSE;
pi->hwsize = FALSE;
pi->rotation = 0.0;
pi->in_file = "";
pi->hd = NULL;
pi->first_page= 0;
pi->last_page = 0;
po->init_p = FALSE;
po->formfeed = FALSE;
po->specials = 0;
po->dpi_x = 75;
po->dpi_y = 0;
po->vga_mode = 18; /* 0x12: VGA 640x480, 16 colors */
po->picbuf = NULL;
po->outfile = "";
pg->logfile = "";
pg->swapfile = "hp2xx.swp";
pg->mode = "pre";
pg->td = NULL;
pg->xx_mode = XX_PRE;
pg->nofill = FALSE;
pg->quiet = FALSE;
pg->maxpensize= 1; /* in pixel or 1/10 mm */
pg->maxcolor = 1; /* max. color index */
pg->maxpens=8;
pg->is_color = FALSE;
pt.width[0] = 0; /* in pixel or 1/10 mm */
pt.color[0] = xxBackground;
for (i=1; i<=NUMPENS; i++) {
pt.width[i] = 1; /* in pixel or 1/10 mm */
pt.color[i] = xxForeground;
}
set_color_rgb(xxBackground,255,255,255);
set_color_rgb(xxForeground, 0, 0, 0);
set_color_rgb(xxRed, 255, 0, 0);
set_color_rgb(xxGreen , 0,255, 0);
set_color_rgb(xxBlue , 0, 0,255);
set_color_rgb(xxCyan , 0,255,255);
set_color_rgb(xxMagenta ,255, 0,255);
set_color_rgb(xxYellow ,255,255, 0);
reset_par (pi);
}
void Send_Copyright(void)
/**
** Remnant of older (non-GNU) releases. Leave here if you like
**/
{
static unsigned char msg[] =
{0xaf,0xa8,0xcd,0xd5,0x97,0xdd,0xdd,0x9f,
0x85,0x8d,0xc6,0x8c,0x85,0xed,0x8b,0x85,
0xf2,0xc0,0xd7,0xcb,0xd1,0xc2,0xc0,0xd6,
0xaf,0xa8,0xa5};
unsigned char *p;
p = msg;
while (*p!=0xa5)
Eprintf("%c", (*p++ ^ 0xa5));
exit (COPYNOTE);
}
void autoset_outfile_name(
const char* mode, const char *in_name,
char** outfile)
{
int len, i;
if (**outfile=='-') /* If output explicitly to stdout: */
return; /* then nothing's to do here */
if (isascii(**outfile) && strlen(*outfile) >0){/* If this looks like an output file name: */
return; /* Just accept it! Add validity check later? */
}
if (*in_name == '-') /* If input from stdin */
len = 0;
else
len = strlen(in_name);
if (len == 0) /* If input from stdin: */
{ /* then supply a default file name */
*outfile="hp2xx.out";
return;
}
if (strcmp(mode,"pre") == 0)
return; /* If preview mode: */
/* then output file name is unused */
for (i=len-1; i; i--) /* Search for (last) '.' char in path */
if (in_name[i] == '.')
break;
i++;
/**
** We can assume a valid inp_name file name here.
** If not, the following fopen() in main() will fail
** and no harm will be done by an incorrect output file name.
**/
if ((*outfile = malloc(len+2+strlen(mode))) == NULL)
{
Eprintf("Error: No mem for output file name!\n");
PError ("autoset_outfile_name");
exit (ERROR);
}
strcpy(*outfile, in_name);
if (i==1 || len-i > 3) /* No or non-DOS extension: Add mode string */
{
strcat(*outfile, ".");
strcat(*outfile, mode); /* Mode string is extension! */
}
else
strcpy(*outfile+i, mode); /* Replace extension */
}
/**************************************************************************
**
** cleanup_x ():
**
** Call these functions to close & remove the temp. and input file
** as well as to free the raster picture buffer.
** Calling is ok even if the buffer is already freed or the files
** are already closed, so just call them when in doubt.
**/
void
cleanup_g (GEN_PAR *pg)
{
if (pg != NULL && pg->td != NULL)
{
fclose (pg->td);
pg->td = NULL;
}
#if defined(DOS) && defined (GNU)
/**
** GNU libc.a (DJ's DOS port) bug fix:
**/
unlink ("hp2xx.$$$");
#endif
}
void
cleanup_i (IN_PAR *pi)
{
if (pi != NULL && pi->hd != NULL)
{
if (pi->hd != stdin)
fclose (pi->hd);
pi->hd = NULL;
}
}
void
cleanup_o (OUT_PAR *po)
{
if (po != NULL && po->picbuf != NULL)
{
free_PicBuf (po->picbuf);
po->picbuf = NULL;
}
}
void
cleanup (GEN_PAR *pg, IN_PAR *pi, OUT_PAR *po)
{
cleanup_g (pg);
cleanup_i (pi);
cleanup_o (po);
}
/**************************************************************************
**
** HPGL_to_TMP ():
**
** This call opens a single HP-GL input file, scans and interprets
** its commands, and writes elementary move/draw commands into
** a temporary file.
** The input file is closed after returning, but the temp. file
** is kept open. You may re-use it multiple times. Close it finally!
** Calling this function invalidates later processing stages like
** the picture buffer.
**/
int HPGL_to_TMP (GEN_PAR *pg, IN_PAR *pi) {
/**
** Clean up previous leftovers (if any)
**/
cleanup_g (pg);
cleanup_i (pi);
/**
** Open HP-GL input file. Use stdin if selected.
**/
if (*pi->in_file == '-')
pi->hd = stdin;
else
if ((pi->hd=fopen (pi->in_file, READ_BIN)) == NULL)
{
PError("hp2xx");
return ERROR;
}
/**
** Open temporary intermediate file.
**
** GNU libc.a (DJ's DOS port) bug fix (part 1 of 2):
** tmpfile() does not seem to work!
** See code below for part 2/2 (removing hp2xx.$$$).
** NOTE:
** If program terminates abnormally, delete hp2xx.$$$ manually!!
**/
#if defined(DOS) && defined (GNU)
if ((pg->td = fopen("hp2xx.$$$","w+b")) == NULL)
#elif defined(AMIGA)
if ((pg->td = fopen("t:hp2xx.tmp","w+b")) == NULL)
#else
if ((pg->td = tmpfile()) == NULL)
#endif /** !DOS && GNU **/
{
PError("hp2xx -- opening temporary file");
return ERROR;
}
/**
** Convert HPGL data into compact temporary binary file, and obtain
** scaling data (xmin/xmax/ymin/ymax in plotter coordinates)
**/
read_HPGL (pg, pi);
if (pi->hd != stdin)
{
fclose (pi->hd);
pi->hd = NULL;
}
return 0;
}
/**************************************************************************
**
** TMP_to_VEC ():
**
** Vector mode conversions.
** Call any number of times as long as the temp. file is opened.
**
** Returns:
** ERROR if error
** 1 if mode not found
** 0 if successfully processed
**/
int TMP_to_VEC (const GEN_PAR *pg, const OUT_PAR *po)
{
if (pg->td == NULL)
return ERROR;
rewind (pg->td); /* Rewind temp file for re-reading */
switch (pg->xx_mode)
{
case XX_MF:
to_mftex(pg, po, 0);
return 0;
case XX_EM:
to_mftex(pg, po, 1);
return 0;
case XX_EPIC:
to_mftex(pg, po, 2);
return 0;
case XX_CAD:
to_mftex(pg, po, 3);
return 0;
#ifdef ATARI
case XX_CS:
to_mftex(pg, po, 4);
return 0;
#endif
case XX_GPT:
to_mftex(pg, po, 6);
return 0;
case XX_HPGL:
to_mftex(pg, po, 5);
return 0;
case XX_EPS:
to_eps (pg, po);
return 0;
case XX_RGIP:
to_rgip (pg, po);
return 0;
case XX_FIG:
to_fig (pg, po);
return 0;
default:
return 1;
}
}
/**************************************************************************
**
** TMP_to_BUF ():
**
** Rasterization into a memory buffer
** A pre-requisite for all raster formats. Call any number of times
** as long as the temp. file is opened.
** An internal raster picture buffer is maintained in memory
** by this call.
** The picture buffer is kept allocated after this call so that
** the time-consuming rasterization is needed only once.
** De-allocate at program end or when not needed anymore!
**
** Returns:
** ERROR if error
** 0 if successfully processed
**/
int TMP_to_BUF (const GEN_PAR *pg, OUT_PAR *po) {
DevPt size;
if (pg->td == NULL) return ERROR;
rewind (pg->td); /* Rewind temp file for re-reading */
cleanup_o (po);
/**
** 1) Allocate virtual plotter area
**/
size_PicBuf (pg, po, &size);
po->picbuf=allocate_PicBuf(pg, &size);
if (!po->picbuf) {
Eprintf("Fatal error: cannot allocate %d*%d picture buffer\n",
size.x, size.y);
return ERROR;
}
/**
** Read vectors from temporary file and plot them in memory buffer
**/
tmpfile_to_PicBuf (pg, po);
return 0;
}
/**************************************************************************
**
** BUF_to_RAS ():
**
** Conversion of raster picture buffer into the final output format.
**
** Returns:
** ERROR if error
** 1 if output mode not found
** 0 if successfully processed
**/
int BUF_to_RAS (const GEN_PAR *pg, const OUT_PAR *po)
{
if (po->picbuf == NULL)
return ERROR;
switch (pg->xx_mode)
{
case XX_PCL: /* HP PCL Level 3 */
return PicBuf_to_PCL (pg, po);
case XX_PCX: /* Paintbrush PCX */
return PicBuf_to_PCX (pg, po);
#ifdef PIC_PAC /* To be phased out! */
case XX_PIC: /* ATARI 32K format */
return PicBuf_to_PIC (pg, po);
case XX_PAC: /* ATARI STaD format */
return PicBuf_to_PAC (pg, po);
#endif
#ifdef AMIGA
case XX_ILBM: /* AMIGA IFF-ILBM fmt */
return PicBuf_to_ILBM(pg, po);
#endif
case XX_IMG: /* GEM's IMG format */
return PicBuf_to_IMG (pg, po);
case XX_PBM: /* Portable BitMap fmt */
return PicBuf_to_PBM (pg, po);
#ifdef PNG
case XX_PNG: /* Portable Network fmt */
return PicBuf_to_PNG (pg, po);
#endif
#ifdef TIF
case XX_TIFF: /* Tagged image file fmt */
return PicBuf_to_TIF (pg, po);
#endif
#ifdef EPSON
case XX_ESC2: /* Epson Esc/P2 */
return PicBuf_to_ESCP2 (pg, po);
#endif
/**
** Previewers (depending on hardware platform):
**/
case XX_PRE:
#if defined(HAS_DOS_DJGR)
return PicBuf_to_DJ_GR (pg, po);
#elif defined(HAS_DOS_HGC)
return PicBuf_to_HGC (pg, po);
#elif defined(HAS_DOS_VGA)
return PicBuf_to_VGA (pg, po);
#elif defined(HAS_OS2_EMX)
return PicBuf_to_OS2 (pg, po);
#elif defined(HAS_OS2_PM)
return PicBuf_to_PM (pg, po);
#elif defined(HAS_UNIX_X11)
return PicBuf_to_X11 (pg, po);
#elif defined(HAS_UNIX_SUNVIEW)
return PicBuf_to_Sunview(pg, po);
#elif defined(ATARI)
return PicBuf_to_ATARI (pg, po);
#elif defined(AMIGA)
return PicBuf_to_AMIGA (pg, po);
#elif defined(VAX)
return PicBuf_to_UIS (pg, po);
#elif defined(WIN32)
return 1;
#else
return PicBuf_to_Dummy ();
#endif /* defined(...) */
}
return 1;
}
/**********************************************************************
**
** My intention is to facilitate the implementation of various
** user interfaces including e.g. a Windows front-end.
**
** Note that e.g. in Windows programs there is a "win_main()" function
** instead of "main()", and that waiting for user acknowledgement
** or diagnostic output must not use stdin/out/err...
**
** In a separate file, one of possibly several versions of
** user interface dependend functions + local utility functions
** is supplied. The traditional version can be found in "std_main.c"
**
** Function Tradiditional equivalent
**
** EPrintf(...) fprintf(stderr, ...)
** PError perror
** SilentWait -
** NormalWait -
** ... main
**/
| Vorgefundene Kodierung: UTF-8 | 0
|