void
plD_init_imp(PLStream *pls)
{
PLDev *dev;
/* Initialize family file info */
plFamInit(pls);
/* Prompt for a file name if not already set */
plOpenFile(pls);
/* Allocate and initialize device-specific data */
dev = plAllocDev(pls);
dev->xold = PL_UNDEFINED;
dev->yold = PL_UNDEFINED;
dev->xmin = 0;
dev->ymin = 0;
dev->xmax = IMPX;
dev->ymax = IMPY;
dev->xlen = dev->xmax - dev->xmin;
dev->ylen = dev->ymax - dev->ymin;
plP_setpxl((PLFLT) 11.81, (PLFLT) 11.81);
plP_setphy(dev->xmin, dev->xmax, dev->ymin, dev->ymax);
LineBuff = (short *) malloc(BUFFLENG * sizeof(short));
if (LineBuff == NULL) {
plexit("Error in memory alloc in plD_init_imp().");
}
fprintf(pls->OutFile, "@Document(Language ImPress, jobheader off)");
fprintf(pls->OutFile, "%c%c", SET_HV_SYSTEM, OPBYTE1);
fprintf(pls->OutFile, "%c%c%c", SET_ABS_H, OPWORDH1, OPWORDH2);
fprintf(pls->OutFile, "%c%c%c", SET_ABS_V, OPWORDV1, OPWORDV2);
fprintf(pls->OutFile, "%c%c", SET_HV_SYSTEM, OPBYTE2);
}
void
plD_init_xfig(PLStream *pls)
{
PLDev *dev;
plParseDrvOpts(xfig_options);
if (text)
pls->dev_text = 1; /* want to draw text */
/* Initialize family file info */
plFamInit(pls);
/* Prompt for a file name if not already set */
plOpenFile(pls);
/* Allocate and initialize device-specific data */
dev = plAllocDev(pls);
dev->xold = PL_UNDEFINED;
dev->yold = PL_UNDEFINED;
dev->xmin = 0;
dev->xmax = FIGX;
dev->ymin = 0;
dev->ymax = FIGY;
dev->xscale_dev = DPI/25.4;
dev->yscale_dev = DPI/25.4;
offset_inc = dev->ymax * (PLINT)dev->yscale_dev;
offset = - offset_inc;
pls->dev_fill0 = 1; /* Handle solid fills */
if (!pls->colorset)
pls->color = 1; /* Is a color device */
plP_setpxl(dev->xscale_dev, dev->xscale_dev); /* dpmm -- dots per mm */
plP_setphy(0, FIGX * dev->xscale_dev, 0, FIGY * dev->yscale_dev); /* physical dimension in mm */
/* Write out header */
fprintf(pls->OutFile, "#FIG 3.2\n");
fprintf(pls->OutFile, "Landscape\n");
fprintf(pls->OutFile, "Center\n");
fprintf(pls->OutFile, "Metric\n");
fprintf(pls->OutFile, "A4\n");
fprintf(pls->OutFile, "100.0\n");
fprintf(pls->OutFile, "Single\n");
fprintf(pls->OutFile, "-2\n");
fprintf(pls->OutFile, "%d 2\n", DPI);
/* user defined colors, for colormap0 */
cmap0_ncol = 2 * pls->ncol0; /* allow for a maximum of 2x the default cmap0 entries */
cmap0_pos = ftell(pls->OutFile);
stcmap0(pls);
/* user defined colors, for colormap1 */
cmap1_ncol = 2 * pls->ncol1; /* allow for a maximum of 2x the default cmap1 entries */
cmap1_pos = ftell(pls->OutFile);
stcmap1(pls);
bufflen = 2 * BSIZE;
buffptr = (short *) malloc(sizeof(short) * bufflen);
if (buffptr == NULL)
plexit("Out of memory!");
}
void
plD_init_ljii(PLStream *pls)
{
PLDev *dev;
/* Initialize family file info */
plFamInit(pls);
/* Prompt for a file name if not already set */
plOpenFile(pls);
/* Allocate and initialize device-specific data */
dev = plAllocDev(pls);
dev->xold = PL_UNDEFINED;
dev->yold = PL_UNDEFINED;
dev->xmin = 0;
dev->ymin = 0;
plP_setpxl((PLFLT) 5.905, (PLFLT) 5.905);
/* Rotate by 90 degrees since portrait mode addressing is used */
dev->xmin = 0;
dev->ymin = 0;
dev->xmax = JETY;
dev->ymax = JETX;
dev->xlen = dev->xmax - dev->xmin;
dev->ylen = dev->ymax - dev->ymin;
plP_setphy(dev->xmin, dev->xmax, dev->ymin, dev->ymax);
/* If portrait mode is specified, then set up an additional rotation
* transformation with aspect ratio allowed to adjust via freeaspect.
* Default orientation is landscape (ORIENTATION == 3 or 90 deg rotation
* counter-clockwise from portrait). (Legacy PLplot used seascape
* which was equivalent to ORIENTATION == 1 or 90 deg clockwise rotation
* from portrait.) */
if (pls->portrait) {
plsdiori((PLFLT)(4 - ORIENTATION));
pls->freeaspect = 1;
}
/* Allocate storage for bit map matrix */
#ifdef MSDOS
if ((bitmap = (char _HUGE *) halloc((long) NBYTES, sizeof(char))) == NULL)
plexit("Out of memory in call to calloc");
#else
if ((bitmap = (void *) calloc(NBYTES, sizeof(char))) == NULL)
plexit("Out of memory in call to calloc");
#endif
/* Reset Printer */
fprintf(OF, "%cE", ESC);
}
