summaryrefslogtreecommitdiff
path: root/support/dktools/f2leps.c
diff options
context:
space:
mode:
Diffstat (limited to 'support/dktools/f2leps.c')
-rw-r--r--support/dktools/f2leps.c1883
1 files changed, 0 insertions, 1883 deletions
diff --git a/support/dktools/f2leps.c b/support/dktools/f2leps.c
deleted file mode 100644
index 1229140b13..0000000000
--- a/support/dktools/f2leps.c
+++ /dev/null
@@ -1,1883 +0,0 @@
-/*
-Copyright (C) 2012-2020, Dirk Krause
-SPDX-License-Identifier: BSD-3-Clause
-*/
-
-/*
- WARNING: This file was generated by the dkct program (see
- http://dktools.sourceforge.net/ for details).
- Changes you make here will be lost if dkct is run again!
- You should modify the original source and run dkct on it.
- Original source: f2leps.ctr
-*/
-
-/** @file f2leps.c The f2leps module.
-*/
-
-
-#line 686 "f2leps.ctr"
-
-#include "dk3all.h"
-#include "dk3bezcu.h"
-#include "fig2lat.h"
-#include "f2lud.h"
-#include "f2lsvg.h"
-#include "f2leps.h"
-#include "dk3figto.h"
-#if 0
-#include "dkt-version.h"
-#endif
-#include "dk4vers.h"
-#include "dk3font.h"
-#include "dk3bm.h"
-#include "dk3bmeps.h"
-#include "dk3unused.h"
-
-
-
-
-
-#line 706 "f2leps.ctr"
-
-
-
-/** Drawing-related information for EPS output.
-*/
-typedef struct {
- char const *shortOutFile; /**< Short output file name. */
- dk3_sto_t *sFonts; /**< Fonts and sizes (dk3_fig_font_t). */
- dk3_sto_it_t *iFonts; /**< Fonts storage iterator. */
- int *fonts; /**< 35 flags: Font used. */
- unsigned long nFonts; /**< Number of fonts in sFonts. */
- int havetext; /**< Flag: Text to show as PS text. */
- int alignedright; /**< Flag: Right-aligned text found. */
- int alignedcenter; /**< Flag: Centered text found. */
- int dictsize; /**< Size of dictionary. */
-} f2leps_drawing_info_t;
-
-
-
-#if 0
-/** Font reencoding to write ISO-LATIN-1 encoded strings.
-*/
-static char const * const f2leps_font_reencode_2[] = {
-"/FontReEncode\t\t% originalname encodedname --",
-"{",
-" 5 dict begin /nn exch def /an exch def an findfont dup",
-" length dict /nf exch def",
-" {",
-" 1 index /FID ne",
-" { nf 3 1 roll put }",
-" { pop pop }",
-" ifelse",
-" }",
-" forall",
-" nf /Encoding ISOLatin1Encoding put nn nf end definefont pop",
-"}",
-"def",
-NULL
-
-
-#line 745 "f2leps.ctr"
-};
-#else
-/** Font reencoding to write ISO-LATIN-1 encoded strings.
-*/
-static char const * const f2leps_font_reencode_2[] = {
-"/FontReEncode\t\t\t\t% originalname newname --",
-"{\t\t\t\t\t% on nn",
-" exch\t\t\t\t\t% nn on",
-" findfont\t\t\t\t% nn of",
-" dup\t\t\t\t\t% nn of of",
-" length\t\t\t\t% nn of length",
-" 1 add\t\t\t\t\t% nn of length",
-" dict\t\t\t\t\t% nn of nf",
-" exch\t\t\t\t\t% nn nf of",
-" {\t\t\t\t\t% nn nf key value",
-" 1 index\t\t\t\t% nn nf key value key",
-" /FID eq\t\t\t\t% nn nf key value flag",
-" {\t\t\t\t\t% nn nf key value",
-" pop pop\t\t\t\t% nn nf",
-" }",
-" {\t\t\t\t\t% nn nf key value",
-" 2 index\t\t\t\t% nn nf key value nf",
-" 3 1 roll\t\t\t\t% nn nf nf key value",
-" put\t\t\t\t% nn nf",
-" }",
-" ifelse\t\t\t\t% nn nf",
-" }",
-" forall\t\t\t\t% nn nf",
-" dup\t\t\t\t\t% nn nf nf",
-" /Encoding ISOLatin1Encoding put\t% nn nf",
-" definefont\t\t\t\t% nf",
-" pop\t\t\t\t\t%",
-"}",
-"def",
-NULL
-
-
-#line 781 "f2leps.ctr"
-};
-#endif
-
-#if 0
-
-/** Procedure for right aligned text.
-*/
-static char const * const f2leps_right_aligned_text[] = {
-"/TextAlignedRight \t% text --",
-"{",
-" currentpoint\t\t% text x y",
-" 3 -1 roll\t\t% x y text",
-" dup\t\t\t% x y text text",
-" true charpath\t\t% x y text",
-" flattenpath\t\t% x y text",
-" pathbbox\t\t% x y text x1 y1 x2 y2",
-" pop exch pop\t\t% x y text x1 x2",
-" exch sub abs\t\t% x y text length",
-" newpath 4 -2 roll\t% text length x y",
-" moveto\t\t% text length",
-" 0 exch sub\t\t% text distance",
-" 0 rmoveto\t\t% text",
-" show\t\t\t%",
-"} def",
-NULL
-
-
-#line 807 "f2leps.ctr"
-};
-
-
-
-/** Procedure for centered text.
-*/
-static char const * const f2leps_centered_aligned_text[] = {
-"/TextAlignedCentered \t% text --",
-"{",
-" currentpoint\t\t% text x y",
-" 3 -1 roll\t\t% x y text",
-" dup\t\t\t% x y text text",
-" true charpath\t\t% x y text",
-" flattenpath\t\t% x y text",
-" pathbbox\t\t% x y text x1 y1 x2 y2",
-" pop exch pop\t\t% x y text x1 x2",
-" exch sub abs\t\t% x y text length",
-" newpath 4 -2 roll\t% text length x y",
-" moveto\t\t% text length",
-" 0.5 mul\t\t% text distance",
-" 0 exch sub\t\t% text xshift",
-" 0 rmoveto\t\t% text",
-" show\t\t\t%",
-"} def",
-NULL
-
-
-#line 833 "f2leps.ctr"
-};
-
-#else
-
-/** Procedure for right aligned text.
-*/
-static char const * const f2leps_right_aligned_text[] = {
-"/TextAlignedRight \t% x y text --",
-"{",
-" dup\t\t\t% x y text text",
-" newpath\t\t% x y text text",
-" 0 0 moveto\t\t% x y text text",
-" true charpath\t\t% x y text",
-" pathbbox\t\t% x y text x1 y1 x2 y2",
-" pop\t\t\t% x y text x1 y1 x2",
-" exch\t\t\t% x y text x1 x2 y1",
-" pop\t\t\t% x y text x1 x2",
-" exch\t\t\t% x y text x2 x1",
-" pop\t\t\t% x y text width",
-" newpath\t\t% x y text width",
-" 4 3 roll\t\t% y text width x",
-" exch\t\t\t% y text x width",
-" sub\t\t\t% y text x",
-" 3 2 roll\t\t% text x y",
-" moveto\t\t% text",
-" show\t\t\t% -",
-"} def",
-NULL
-
-
-#line 862 "f2leps.ctr"
-};
-
-
-
-/** Procedure for centered text.
-*/
-static char const * const f2leps_centered_aligned_text[] = {
-"/TextAlignedCentered \t% x y text --",
-"{",
-" dup\t\t\t% x y text text",
-" newpath\t\t% x y text text",
-" 0 0 moveto\t\t% x y text text",
-" true charpath\t\t% x y text",
-" pathbbox\t\t% x y text x1 y1 x2 y2",
-" pop\t\t\t% x y text x1 y1 x2",
-" exch\t\t\t% x y text x1 x2 y1",
-" pop\t\t\t% x y text x1 x2",
-" exch\t\t\t% x y text x2 x1",
-" pop\t\t\t% x y text width",
-" 0.5 mul\t\t% x y text width/2",
-" newpath\t\t% x y text width/2",
-" 4 3 roll\t\t% y text width/2 x",
-" exch\t\t\t% y text x width/2",
-" sub\t\t\t% y text x",
-" 3 2 roll\t\t% text x y",
-" moveto\t\t% text",
-" show\t\t\t% -",
-"} def",
-NULL
-
-
-#line 892 "f2leps.ctr"
-};
-
-#endif
-
-
-
-/** Keywords used by the module.
-*/
-static
-char const * const f2leps_c8_kw[] = {
-/* 0 */
-"\n",
-
-/* 1 */
-" ",
-
-/* 2 */
-"%!PS-Adobe-3.0 EPSF-3.0\n",
-
-/* 3 */
-"%!PS-Adobe-2.0 EPSF-2.0\n",
-
-/* 4 */
-"%%LanguageLevel: 3\n",
-
-/* 5 */
-"%%LanguageLevel: 2\n",
-
-/* 6 */
-"%%BoundingBox: ",
-
-/* 7 */
-"0 0 %ld %ld\n",
-
-/* 8 */
-"%%Creator: http://sourceforge.net/p/dktools/wiki/fig2lat/\n",
-
-/* 9 */
-"%%Title: Converted Fig image\n",
-
-/* 10 */
-"%%Pages: 1\n",
-
-/* 11 */
-"%%PageOrder: Ascend\n",
-
-/* 12 */
-"%%DocumentData: Clean7Bit\n",
-
-/* 13 */
-"%%EndComments\n",
-
-/* 14 */
-"%%Page: 1 1\n",
-
-/* 15 */
-"gsave\n",
-
-/* 16 */
-"grestore\n",
-
-/* 17 */
-"%d dict begin\n",
-
-/* 18 */
-"end\n",
-
-/* 19 */
-"showpage\n",
-
-/* 20 */
-"%%Trailer\n%%EOF\n",
-
-/* 21 */
-"newpath\n",
-
-/* 22 */
-"0 0 moveto %ld 0 lineto %ld %ld lineto 0 %ld lineto 0 0 lineto\n",
-
-/* 23 */
-"closepath clip\n",
-
-/* 24 */
-"/%s /fnt%02d FontReEncode\n",
-
-/* 25 */
-"%g %g moveto\n",
-
-/* 26 */
-"%g %g lineto\n",
-
-/* 27 */
-"%g %g %g %g %g %g curveto\n",
-
-/* 28 */
-"closepath\n",
-
-/* 29 */
-"eofill\n",
-
-/* 30 */
-"eoclip\n",
-
-/* 31 */
-"stroke\n",
-
-/* 32 */
-"%g %g %g setrgbcolor\n",
-
-/* 33 */
-"%g setlinewidth\n",
-
-/* 34 */
-"%d setlinecap\n",
-
-/* 35 */
-"%d setlinejoin\n",
-
-/* 36 */
-"[] 0 setdash\n",
-
-/* 37 */
-"[%g %g] 0 setdash\n",
-
-/* 38 */
-"[%g %g %g %g] 0 setdash\n",
-
-/* 39 */
-"[%g %g %g %g %g %g] 0 setdash\n",
-
-/* 40 */
-"[%g %g %g %g %g %g %g %g] 0 setdash\n",
-
-/* 41 */
-"(",
-
-/* 42 */
-")",
-
-/* 43 */
-"/fnt%02d findfont %g scalefont setfont\n",
-
-/* 44 */
-" show\n",
-
-/* 45 */
-" TextAlignedCentered\n",
-
-/* 46 */
-" TextAlignedRight\n",
-
-/* 47 */
-"%g %g translate\n",
-
-/* 48 */
-"%g rotate\n",
-
-/* 49 */
-"0 0 moveto\n",
-
-/* 50 */
-" 3 -2 roll newpath moveto show\n",
-
-/* 51 */
-"0 0 ",
-
-/* 52 */
-"% ",
-
-NULL
-
-
-#line 1116 "f2leps.ctr"
-};
-
-
-/* ************************************************************************ */
-/* * * */
-/* * Tool functions * */
-/* * * */
-/* ************************************************************************ */
-
-
-#line 1122 "f2leps.ctr"
-
-
-
-/** Destroy drawing info structure.
- @param pdi Structure to destroy.
-*/
-static
-void
-f2leps_drawing_info_delete(
- f2leps_drawing_info_t *pdi
-)
-{
- void *ptr; /* Current text handling information to delete. */
-
- if(pdi) {
- dk3_release(pdi->shortOutFile);
- if(pdi->sFonts) {
- if(pdi->iFonts) {
- dk3sto_it_reset(pdi->iFonts);
- while(NULL != (ptr = dk3sto_it_next(pdi->iFonts))) {
- dk3_delete(ptr);
- }
- dk3sto_it_close(pdi->iFonts);
- }
- dk3sto_close(pdi->sFonts);
- } pdi->sFonts = NULL; pdi->iFonts = NULL;
- dk3_release(pdi->fonts);
- dk3_delete(pdi);
- }
-}
-
-
-
-/** Create drawing information structure.
- @param job Job structure.
- @param withFonts Flag: Gather LaTeX font information.
- This flag is set to 1 for EPS/LaTeX and set to 0 for
- pure EPS.
- @return Pointer to new structure on success, NULL on error.
-*/
-static
-f2leps_drawing_info_t *
-f2leps_drawing_info_new(
- f2l_job_t *job,
- int withFonts
-)
-{
- f2leps_drawing_info_t *back;
- int ok = 0;
- back = dk3_new_app(f2leps_drawing_info_t,1,job->app);
- if(back) {
- back->nFonts = 0UL;
- back->sFonts = NULL;
- back->iFonts = NULL;
- back->fonts = NULL;
- back->havetext = 0;
- back->alignedright = 0;
- back->alignedcenter = 0;
- back->dictsize = 0;
- back->shortOutFile = NULL;
- if(withFonts) {
- back->sFonts = dk3sto_open_app(job->app);
- if(back->sFonts) {
- dk3sto_set_comp(back->sFonts, dk3fig_tool_font_compare, 0);
- back->iFonts = dk3sto_it_open(back->sFonts);
- if(back->iFonts) {
- ok = 1;
- }
- }
- } else {
- back->fonts = dk3_new_app(int,35,job->app);
- if(back->fonts) {
- ok = 1;
- }
- }
- if(!(ok)) {
- f2leps_drawing_info_delete(back);
- back = NULL;
- }
- }
- return back;
-}
-
-
-
-/** Write a text section to the output file.
- @param of Output file.
- @param ta String array to write.
-*/
-static
-void
-f2leps_write_text_section(
- FILE *of,
- char const * const *ta
-)
-{
- char const * const *ptr;
- ptr = ta;
- while(*ptr) {
- fputs(*(ptr++), of);
- fputc('\n', of);
- }
-}
-
-
-
-/** Write EPS file header.
- @param job Job structure.
- @param drw Drawing structure.
- @param of Output file.
- @param pure Flag: Pure EPS (1) or EPS/LaTeX (0).
-*/
-static
-void
-f2leps_file_header(
- f2l_job_t *job,
- dk3_fig_drawing_t *drw,
- FILE *of,
- int pure
-)
-{
- f2leps_drawing_info_t *pdi;
- int i;
- pdi = (f2leps_drawing_info_t *)(drw->dsd);
- /* %!PS-Adobe-3.0 EPSF-3.0 */
- if(2 < job->pslevel) {
- fputs(f2leps_c8_kw[2], of);
- fputs(f2leps_c8_kw[4], of);
- } else {
- fputs(f2leps_c8_kw[3], of);
- fputs(f2leps_c8_kw[5], of);
- }
- /* bounding box */
- fputs(f2leps_c8_kw[6], of);
- fprintf(of, f2leps_c8_kw[7], job->lwidth, job->lheight);
- if(job->dsc) {
- /* Creator */
- fputs(f2leps_c8_kw[8], of);
- /* Title */
- fputs(f2leps_c8_kw[9], of);
- /* Pages */
- fputs(f2leps_c8_kw[10], of);
- /* PageOrder */
- fputs(f2leps_c8_kw[11], of);
- /* DocumentData */
- fputs(f2leps_c8_kw[12], of);
- if(pure) {
- /* ##### HIER WEITER: DocumentNeededFonts */
- }
- /* EndComments */
- fputs(f2leps_c8_kw[13], of);
- /* Page */
- fputs(f2leps_c8_kw[14], of);
- }
- fputs(f2leps_c8_kw[15], of);
- fputs(f2leps_c8_kw[21], of);
- fprintf(
- of, f2leps_c8_kw[22],
- job->lwidth, job->lwidth, job->lheight, job->lheight
- );
- fputs(f2leps_c8_kw[23], of);
- if(pure) {
- /* xxx dict begin */
- fprintf(of, f2leps_c8_kw[17], pdi->dictsize);
- }
- /* Text procedures */
- if(pdi->havetext) {
- f2leps_write_text_section(of, f2leps_font_reencode_2);
- if(pdi->alignedcenter) {
- f2leps_write_text_section(of, f2leps_centered_aligned_text);
- }
- if(pdi->alignedright) {
- f2leps_write_text_section(of, f2leps_right_aligned_text);
- }
- /* Font reencodings */
- for(i = 0; i < 35; i++) {
- if((pdi->fonts)[i]) {
- fprintf(of, f2leps_c8_kw[24], dk3font_get_ps_font_name(i), i);
- }
- }
- }
-}
-
-
-
-/** Write EPS file header.
- @param job Job structure.
- @param drw Drawing structure.
- @param of Output file.
- @param pure Flag: Pure EPS (1) or EPS/LaTeX (0).
-*/
-static
-void
-f2leps_file_footer(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- FILE *of,
- int pure
-)
-{
- DK3_UNUSED_ARG(drw)
- if(pure) {
- /* end */
- fputs(f2leps_c8_kw[18], of);
- }
- /* grestore */
- fputs(f2leps_c8_kw[16], of);
- if(job->showpage) {
- /* showpage */
- fputs(f2leps_c8_kw[19], of);
- }
- if(job->dsc) {
- /* Trailer, EOF */
- fputs(f2leps_c8_kw[20], of);
- }
-}
-
-
-
-/** Check whether a text character is literal.
- @param c Character to check.
- @return 1 to issue character as is, 0 for octal encoding.
-*/
-static
-int
-f2leps_is_literal(char c)
-{
- int back = 0;
- if(('A' <= c) && ('Z' >= c)) {
- back = 1;
- } else {
- if(('a' <= c) && ('z' >= c)) {
- back = 1;
- } else {
- if(('0' <= c) && ('9' >= c)) {
- back = 1;
- } else {
- switch(c) {
- case ' ':
- {
- back = 1;
- } break;
- }
- }
- }
- }
- return back;
-}
-
-
-
-/** Write string PS-encoded to output.
- @param of Output file.
- @param str String to write.
-*/
-static
-void
-f2leps_encode_string(
- FILE *of,
- char const *str
-)
-{
- char buf[32];
- char const *ptr;
- char c;
- unsigned char uc;
- unsigned u;
- ptr = str;
- fputs(f2leps_c8_kw[41], of);
- while(*ptr) {
- c = *(ptr++);
- if(f2leps_is_literal(c)) {
- fputc(c, of);
- } else {
- uc = (unsigned char)c;
- u = (unsigned)uc;
- while(255 < u) { u = u - 256; }
- sprintf(buf, "\\%03o", u);
- fputs(buf, of);
- }
- }
- fputs(f2leps_c8_kw[42], of);
-}
-
-
-
-/** Process an embedded bitmap image.
- @param of Output file.
- @param job Job structure.
- @param drw Drawing structure.
- @param obj Image object.
- @param outbb Destination image area.
- @param drawdir Drawing direction / coordinates origin.
- @param ec Pointer to error code variable.
-*/
-static
-void
-f2leps_image_object(
- FILE *of,
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t *obj,
- dk3_bb_t *outbb,
- int drawdir,
- int *ec
-)
-{
- int res = 0;
- DK3_UNUSED_ARG(drw)
- res = dk3bm_ps_place_object(
- of,outbb,drawdir,(obj->dt).pol.fn,job->app,job->pslevel,ec
- );
- if(!(res)) {
- job->exval = FIG2LAT_EXIT_ERROR_UNKNOWN;
-
-#line 1436 "f2leps.ctr"
- }
-}
-
-
-
-/** Set line style.
- @param of Output file.
- @param job Job structure.
- @param drw Drawing structure.
- @param obj Object using the line style.
- @param ls Line style.
- @param sv Style value (gap length).
- @param lw Line width.
-*/
-static
-void
-f2leps_set_line_style(
- FILE *of,
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- int ls,
- double sv,
- double lw
-)
-{
- double gw; /* Gap width. */
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- gw = f2lto_find_gap_length(job, lw, sv);
- switch(ls) {
- case DK3_FIG_LS_DASHED: {
- fprintf(of, f2leps_c8_kw[37], sv, gw);
- } break;
- case DK3_FIG_LS_DOTTED: {
- fprintf(of, f2leps_c8_kw[37], lw, gw);
- } break;
- case DK3_FIG_LS_DASH_DOTTED: {
- fprintf(of, f2leps_c8_kw[38], sv, gw, lw, gw);
- } break;
- case DK3_FIG_LS_DASH_DOUBLE_DOTTED: {
- fprintf(of, f2leps_c8_kw[39], sv, gw, lw, gw, lw, gw);
- } break;
- case DK3_FIG_LS_DASH_TRIPLE_DOTTED: {
- fprintf(of, f2leps_c8_kw[40], sv, gw, lw, gw, lw, gw, lw, gw);
- } break;
- default: {
- fputs(f2leps_c8_kw[36], of);
- } break;
- }
-}
-
-
-
-/** Write debug line to output.
- @param of Output file.
- @param job Job structure.
- @param msg Message text to write.
-*/
-static
-void
-f2leps_debug(
- FILE *of,
- f2l_job_t *job,
- char const *msg
-)
-{
- if((job) && (msg)) {
- fputs(f2leps_c8_kw[52], of);
- fputs(msg, of);
- fputs(f2leps_c8_kw[0], of);
- }
-}
-
-
-
-/* ************************************************************************ */
-/* * * */
-/* * Driver: EPS with LaTeX * */
-/* * * */
-/* ************************************************************************ */
-
-
-#line 1515 "f2leps.ctr"
-
-
-int
-f2leps_eps_with_tex_initialize(f2l_job_t *job, dk3_fig_drawing_t *drw)
-{
- f2leps_drawing_info_t *pdi;
- dk3_fig_obj_t *pobj;
- dkChar const *oldsourcename = NULL;
- unsigned long oldsourceline = 0UL;
- int back = 0;
- int ff;
-
-
-#line 1527 "f2leps.ctr"
- drw->dsd = (void *)(pdi = f2leps_drawing_info_new(job, 1));
- if(drw->dsd) {
-
-#line 1529 "f2leps.ctr"
- oldsourcename = dk3app_get_source_file(job->app);
- oldsourceline = dk3app_get_source_line(job->app);
- pdi->shortOutFile = dk3fig_tool_short_output_file_name(job->on2, job->app);
- if(pdi->shortOutFile) {
-
-#line 1533 "f2leps.ctr"
- back = 1;
-
-#line 1534 "f2leps.ctr"
- dk3sto_it_reset(drw->iobj);
- while(NULL != (pobj = (dk3_fig_obj_t *)dk3sto_it_next(drw->iobj))) {
-
-
-#line 1537 "f2leps.ctr"
- dk3app_set_source_line(job->app, pobj->li);
- switch(pobj->ot) {
- case DK3_FIG_OBJ_TEXT: {
-
-#line 1540 "f2leps.ctr"
- ff = (pobj->dt).txt.ff;
- if(!(ff & DK3_FIG_FONT_FLAG_HIDDEN)) {
-
-#line 1542 "f2leps.ctr"
- if(!(ff & DK3_FIG_FONT_FLAG_SPECIAL)) {
-
-#line 1543 "f2leps.ctr"
- if(ff & DK3_FIG_FONT_FLAG_PS) {
-
-#line 1544 "f2leps.ctr"
- if(job->ntf) {
-
-#line 1545 "f2leps.ctr"
- pobj->dsd = (void *)f2l_tool_register_font(
- pdi->sFonts, pdi->iFonts, &(pdi->nFonts),
- (pobj->dt).txt.fo, (pobj->dt).txt.fs, job->app
- );
- if(!(pobj->dsd)) {
- back = 0;
- f2l_tool_set_exit_status(job, FIG2LAT_EXIT_ERROR_SYSTEM);
-
-#line 1552 "f2leps.ctr"
- }
- } else {
-
-#line 1554 "f2leps.ctr"
- }
- }
- }
- }
- } break;
- }
- }
- } else {
-
-#line 1562 "f2leps.ctr"
- f2l_tool_set_exit_status(job, FIG2LAT_EXIT_ERROR_SYSTEM);
-
-#line 1563 "f2leps.ctr"
- }
- dk3app_set_source_file(job->app, oldsourcename);
- dk3app_set_source_line(job->app, oldsourceline);
- } else {
-
-#line 1567 "f2leps.ctr"
- f2l_tool_set_exit_status(job, FIG2LAT_EXIT_ERROR_SYSTEM);
-
-#line 1568 "f2leps.ctr"
- }
-
-#line 1569 "f2leps.ctr"
- return back;
-}
-
-
-
-void
-f2leps_eps_with_tex_end(
- f2l_job_t * DK3_SILENCE_ARG_UNUSED(job),
- dk3_fig_drawing_t *drw
-)
-{
-
-
-#line 1581 "f2leps.ctr"
- DK3_UNUSED_ARG(job)
- if(drw->dsd) {
- f2leps_drawing_info_delete((f2leps_drawing_info_t *)(drw->dsd));
- }
-
-
-#line 1586 "f2leps.ctr"
-}
-
-
-
-int
-f2leps_eps_with_tex_open_output_files(f2l_job_t *job)
-{
- int back = 0;
-
-
-#line 1595 "f2leps.ctr"
- job->of1 = dk3sf_fopen_app(job->on1, dkT("w"), job->app);
- if(job->of1) {
- job->of2 = dk3sf_fopen_app(job->on2, dkT("wb"), job->app);
- if(job->of2) {
- back = 1;
- } else {
- f2l_tool_set_exit_status(job, FIG2LAT_EXIT_ERROR_SYSTEM);
-
-#line 1602 "f2leps.ctr"
- }
- } else {
- f2l_tool_set_exit_status(job, FIG2LAT_EXIT_ERROR_SYSTEM);
-
-#line 1605 "f2leps.ctr"
- }
-
-
-#line 1607 "f2leps.ctr"
- return back;
-}
-
-
-
-void
-f2leps_eps_with_tex_close_output_files(f2l_job_t *job)
-{
-
-
-#line 1616 "f2leps.ctr"
- if(job->of2) {
- dk3sf_fclose_app(job->of2, job->app);
- } job->of2 = NULL;
- if(job->of1) {
- dk3sf_fclose_app(job->of1, job->app);
- } job->of1 = NULL;
-
-
-#line 1623 "f2leps.ctr"
-}
-
-
-
-int
-f2leps_eps_with_tex_start_processing(f2l_job_t *job, dk3_fig_drawing_t *drw)
-{
- f2leps_drawing_info_t *pdi;
- int back = 1;
-
-
-#line 1633 "f2leps.ctr"
- pdi = (f2leps_drawing_info_t *)(drw->dsd);
- f2leps_file_header(job, drw, job->of2, 0);
- f2l_tool_start_tex_part(
- job->of1, job, pdi->shortOutFile, pdi->iFonts, pdi->nFonts
- );
-
-
-#line 1639 "f2leps.ctr"
- return back;
-}
-
-
-
-void
-f2leps_eps_with_tex_end_processing(f2l_job_t *job, dk3_fig_drawing_t *drw)
-{
-
-
-#line 1648 "f2leps.ctr"
- f2leps_file_footer(job, drw, job->of2, 0);
- f2l_tool_end_tex_part(job->of1);
-
-
-#line 1651 "f2leps.ctr"
-}
-
-
-
-void
-f2leps_eps_with_tex_text_object(
- f2l_job_t *job,
- dk3_fig_drawing_t *drw,
- dk3_fig_obj_t *obj,
- double x,
- double y
-)
-{
- f2leps_drawing_info_t *pdi;
- pdi = (f2leps_drawing_info_t *)(drw->dsd);
- f2l_tool_text_object(job->of1, job, drw, obj, x, y, pdi->nFonts);
-}
-
-
-
-void
-f2leps_eps_with_tex_image_object(
- f2l_job_t *job,
- dk3_fig_drawing_t *drw,
- dk3_fig_obj_t *obj,
- dk3_bb_t *outbb,
- int drawdir,
- int *ec
-)
-{
- f2leps_image_object(job->of2, job, drw, obj, outbb, drawdir, ec);
-}
-
-
-void
-f2leps_eps_with_tex_newpath(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[21], job->of2);
-}
-
-
-
-void
-f2leps_eps_with_tex_moveto(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- double x,
- double y
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of2, f2leps_c8_kw[25], x, y);
-}
-
-
-
-void
-f2leps_eps_with_tex_lineto(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- double x,
- double y
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of2, f2leps_c8_kw[26], x, y);
-}
-
-
-
-void
-f2leps_eps_with_tex_curveto(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- double xcs,
- double ycs,
- double xce,
- double yce,
- double xe,
- double ye
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of2, f2leps_c8_kw[27], xcs, ycs, xce, yce, xe, ye);
-}
-
-
-
-void
-f2leps_eps_with_tex_closepath(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[28], job->of2);
-}
-
-
-
-void
-f2leps_eps_with_tex_fill(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[29], job->of2);
-}
-
-
-
-void
-f2leps_eps_with_tex_clip(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[30], job->of2);
-}
-
-
-
-void
-f2leps_eps_with_tex_stroke(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[31], job->of2);
-}
-
-
-
-void
-f2leps_eps_with_tex_gsave(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[15], job->of2);
-}
-
-
-
-void
-f2leps_eps_with_tex_grestore(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[16], job->of2);
-}
-
-
-
-void
-f2leps_eps_with_tex_setcolor(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- double r,
- double g,
- double b
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of2, f2leps_c8_kw[32], r, g, b);
-}
-
-
-
-void
-f2leps_eps_with_tex_set_line_width(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- double lw
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of2, f2leps_c8_kw[33], lw);
-}
-
-
-void
-f2leps_eps_with_tex_set_line_style(
- f2l_job_t *job,
- dk3_fig_drawing_t *drw,
- dk3_fig_obj_t *obj,
- int ls,
- double sv,
- double lw
-)
-{
- f2leps_set_line_style(job->of2, job, drw, obj, ls, sv, lw);
-}
-
-
-
-void
-f2leps_eps_with_tex_set_line_end(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- int le
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of2, f2leps_c8_kw[34], le);
-}
-
-
-
-void
-f2leps_eps_with_tex_set_line_join(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- int lj
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of2, f2leps_c8_kw[35], lj);
-}
-
-
-
-void
-f2leps_eps_with_tex_set_color_1(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_rgb_color_t *rgb
-)
-{
- DK3_UNUSED_ARG(drw)
- fprintf(job->of2, f2leps_c8_kw[32], rgb->r, rgb->g, rgb->b);
-}
-
-
-
-void
-f2leps_eps_with_tex_set_color_2(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_rgb_color_t *rgb
-)
-{
- DK3_UNUSED_ARG(drw)
- fprintf(job->of2, f2leps_c8_kw[32], rgb->r, rgb->g, rgb->b);
-}
-
-
-
-void
-f2leps_eps_with_tex_debug(
- f2l_job_t *job,
- char const *msg
-)
-{
- f2leps_debug(job->of2, job, msg);
-}
-
-
-/* ************************************************************************ */
-/* * * */
-/* * Driver: EPS standalone file * */
-/* * * */
-/* ************************************************************************ */
-
-
-#line 1950 "f2leps.ctr"
-
-
-int
-f2leps_eps_pure_initialize(f2l_job_t *job, dk3_fig_drawing_t *drw)
-{
- f2leps_drawing_info_t *pdi;
- dk3_fig_obj_t *pobj;
- int back = 0;
- int fn;
- int i;
- int ff;
- drw->dsd = (void *)(pdi = f2leps_drawing_info_new(job, 0));
- if(drw->dsd) {
- back = 1;
- /* Inspect all elements.
- */
- dk3sto_it_reset(drw->iobj);
- while(NULL != (pobj = (dk3_fig_obj_t *)dk3sto_it_next(drw->iobj))) {
- switch(pobj->ot) {
- case DK3_FIG_OBJ_TEXT: {
- ff = (pobj->dt).txt.ff;
- if(!(ff & DK3_FIG_FONT_FLAG_HIDDEN)) {
- if(!(ff & DK3_FIG_FONT_FLAG_SPECIAL)) {
- pdi->havetext = 1;
- switch(pobj->st) {
- case 1: {
- pdi->alignedcenter = 1;
- } break;
- case 2: {
- pdi->alignedright = 1;
- } break;
- }
- fn = dk3fig_tool_ps_font_number(pobj);
- if(-1 < fn) {
- if(35 > fn) {
- (pdi->fonts)[fn] = 1;
- }
- }
- }
- }
- } break;
- case DK3_FIG_OBJ_ELLIPSE:
- case DK3_FIG_OBJ_POLYLINE:
- case DK3_FIG_OBJ_SPLINE:
- case DK3_FIG_OBJ_ARC: {
- } break;
- }
- }
- /* Calculate dictionary size.
- */
- for(i = 0; i < 35; i++) {
- if((pdi->fonts)[i]) { /* Fonts */
- pdi->dictsize += 1;
- }
- }
- if(pdi->havetext) { /* Font reencode procedure */
- pdi->dictsize += 1;
- }
- if(pdi->alignedcenter) { /* Procedure to show centered text. */
- pdi->dictsize += 1;
- }
- if(pdi->alignedright) { /* Procedure to show right-algigned. */
- pdi->dictsize += 1;
- }
- pdi->dictsize += 5; /* Reserve. */
- } else {
- f2l_tool_set_exit_status(job, FIG2LAT_EXIT_ERROR_SYSTEM);
-
-#line 2017 "f2leps.ctr"
- }
- return back;
-}
-
-
-
-void
-f2leps_eps_pure_end(
- f2l_job_t * DK3_SILENCE_ARG_UNUSED(job),
- dk3_fig_drawing_t *drw
-)
-{
- DK3_UNUSED_ARG(job)
- if(drw->dsd) {
- f2leps_drawing_info_delete((f2leps_drawing_info_t *)(drw->dsd));
- }
-}
-
-
-
-int
-f2leps_eps_pure_open_output_files(f2l_job_t *job)
-{
- int back = 0;
- job->of1 = dk3sf_fopen_app(job->on1, dkT("wb"), job->app);
- if(job->of1) {
- back = 1;
- } else {
- f2l_tool_set_exit_status(job, FIG2LAT_EXIT_ERROR_SYSTEM);
-
-#line 2046 "f2leps.ctr"
- }
- return back;
-}
-
-
-
-void
-f2leps_eps_pure_close_output_files(f2l_job_t *job)
-{
- if(job->of1) {
- dk3sf_fclose_app(job->of1, job->app);
- } job->of1 = NULL;
-}
-
-
-
-int
-f2leps_eps_pure_start_processing(f2l_job_t *job, dk3_fig_drawing_t *drw)
-{
- int back = 1;
- f2leps_file_header(job, drw, job->of1, 1);
- return back;
-}
-
-
-
-void
-f2leps_eps_pure_end_processing(f2l_job_t *job, dk3_fig_drawing_t *drw)
-{
- f2leps_file_footer(job, drw, job->of1, 1);
-}
-
-
-
-void
-f2leps_eps_pure_text_object(
- f2l_job_t *job,
- dk3_fig_drawing_t *drw,
- dk3_fig_obj_t *obj,
- double x,
- double y
-)
-{
- dk3_rgb_color_t rgb;
- double fs;
- int ff;
- int fn;
- int muc;
- ff = (obj->dt).txt.ff;
- if(!(ff & DK3_FIG_FONT_FLAG_HIDDEN)) {
- if(!(ff & DK3_FIG_FONT_FLAG_SPECIAL)) {
- fn = dk3fig_tool_ps_font_number(obj);
- if(-1 < fn) {
- if((obj->dt).txt.st) {
- /* Set color */
- dk3fig_tool_find_color(&rgb, drw, (obj->pc), 20);
- muc = dk3fig_tool_must_set_color(
- (job->gs).hc1, (job->gs).c1.r, (job->gs).c1.g, (job->gs).c1.b,
- rgb.r, rgb.g, rgb.b
- );
- if(muc) {
- fprintf(job->of1, f2leps_c8_kw[32], rgb.r, rgb.g, rgb.b);
- (job->gs).c1.r = rgb.r;
- (job->gs).c1.g = rgb.g;
- (job->gs).c1.b = rgb.b;
- (job->gs).c2.r = rgb.r;
- (job->gs).c2.g = rgb.g;
- (job->gs).c2.b = rgb.b;
- (job->gs).hc1 = 1;
- (job->gs).hc2 = 1;
- }
- /* Set font */
- fs = (obj->dt).txt.fs;
- if(0.0 < job->nts) { fs = fs * job->nts; }
- muc = dk3fig_tool_must_set_font(
- (job->gs).hfn, (job->gs).fn, (job->gs).fs, fn, fs
- );
- if(muc) {
- fprintf(job->of1, f2leps_c8_kw[43], fn, fs);
- (job->gs).hfn = 1;
- (job->gs).fn = fn;
- (job->gs).fs = fs;
- }
- if(1.0e-6 < fabs((obj->dt).txt.an)) { /* rotated */
- /* gsave */
- fputs(f2leps_c8_kw[15], job->of1);
- /* translate */
- fprintf(job->of1, f2leps_c8_kw[47], x, y);
- /* rotate */
- fprintf(
- job->of1, f2leps_c8_kw[48],
- ((180.0 * (obj->dt).txt.an) / M_PI)
- );
-#if 0
- /* newpath */
- fputs(f2leps_c8_kw[21], job->of1);
- /* 0 0 moveto */
- fputs(f2leps_c8_kw[49], job->of1);
- /* string */
- f2leps_encode_string(job->of1, (obj->dt).txt.st);
- /* show/show aligned */
- switch(obj->st) {
- case 2: {
- fputs(f2leps_c8_kw[46], job->of1);
- } break;
- case 1: {
- fputs(f2leps_c8_kw[45], job->of1);
- } break;
- default: {
- fputs(f2leps_c8_kw[44], job->of1);
- } break;
- }
-#else
- fputs(f2leps_c8_kw[51], job->of1);
- /* string */
- f2leps_encode_string(job->of1, (obj->dt).txt.st);
- /* show/show aligned */
- switch(obj->st) {
- case 2: {
- fputs(f2leps_c8_kw[46], job->of1);
- } break;
- case 1: {
- fputs(f2leps_c8_kw[45], job->of1);
- } break;
- default: {
- fputs(f2leps_c8_kw[50], job->of1);
- } break;
- }
-#endif
- /* grestore */
- fputs(f2leps_c8_kw[16], job->of1);
- } else { /* not rotated */
-#if 0
- /* newpath */
- fputs(f2leps_c8_kw[21], job->of1);
- /* moveto */
- fprintf(job->of1, f2leps_c8_kw[25], x, y);
- /* string */
- f2leps_encode_string(job->of1, (obj->dt).txt.st);
- /* show/show aligned */
- switch(obj->st) {
- case 2: {
- fputs(f2leps_c8_kw[46], job->of1);
- } break;
- case 1: {
- fputs(f2leps_c8_kw[45], job->of1);
- } break;
- default: {
- fputs(f2leps_c8_kw[44], job->of1);
- } break;
- }
-#else
- fprintf(job->of1, "%g %g\n", x, y);
- /* string */
- f2leps_encode_string(job->of1, (obj->dt).txt.st);
- /* show/show aligned */
- switch(obj->st) {
- case 2: {
- fputs(f2leps_c8_kw[46], job->of1);
- } break;
- case 1: {
- fputs(f2leps_c8_kw[45], job->of1);
- } break;
- default: {
- fputs(f2leps_c8_kw[50], job->of1);
- } break;
- }
-#endif
- }
- } else {
- /* ##### BUG: No string */
- }
- } else {
- /* ##### BUG: No font number found! */
- }
- } else {
- /* Warning: Skipping special text! */
- dk3app_log_1(job->app, DK3_LL_WARNING, job->msg, 41);
- f2l_tool_set_exit_status(job, FIG2LAT_EXIT_ERROR_SYNTAX);
-
-#line 2225 "f2leps.ctr"
- }
- }
-}
-
-
-
-void
-f2leps_eps_pure_image_object(
- f2l_job_t *job,
- dk3_fig_drawing_t *drw,
- dk3_fig_obj_t *obj,
- dk3_bb_t *outbb,
- int drawdir,
- int *ec
-)
-{
- f2leps_image_object(job->of1, job, drw, obj, outbb, drawdir, ec);
-}
-
-
-void
-f2leps_eps_pure_newpath(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[21], job->of1);
-}
-
-
-
-void
-f2leps_eps_pure_moveto(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- double x,
- double y
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of1, f2leps_c8_kw[25], x, y);
-}
-
-
-
-void
-f2leps_eps_pure_lineto(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- double x,
- double y
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of1, f2leps_c8_kw[26], x, y);
-}
-
-
-
-void
-f2leps_eps_pure_curveto(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- double xcs,
- double ycs,
- double xce,
- double yce,
- double xe,
- double ye
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of1, f2leps_c8_kw[27], xcs, ycs, xce, yce, xe, ye);
-}
-
-
-
-void
-f2leps_eps_pure_closepath(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[28], job->of1);
-}
-
-
-
-void
-f2leps_eps_pure_fill(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[29], job->of1);
-}
-
-
-
-void
-f2leps_eps_pure_clip(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[30], job->of1);
-}
-
-
-
-void
-f2leps_eps_pure_stroke(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[31], job->of1);
-}
-
-
-
-void
-f2leps_eps_pure_gsave(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[15], job->of1);
-}
-
-
-
-void
-f2leps_eps_pure_grestore(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj)
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fputs(f2leps_c8_kw[16], job->of1);
-}
-
-
-
-void
-f2leps_eps_pure_setcolor(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- double r,
- double g,
- double b
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of1, f2leps_c8_kw[32], r, g, b);
-}
-
-
-
-void
-f2leps_eps_pure_set_line_width(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- double lw
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of1, f2leps_c8_kw[33], lw);
-}
-
-
-
-void
-f2leps_eps_pure_set_line_style(
- f2l_job_t *job,
- dk3_fig_drawing_t *drw,
- dk3_fig_obj_t *obj,
- int ls,
- double sv,
- double lw
-)
-{
- f2leps_set_line_style(job->of1, job, drw, obj, ls, sv, lw);
-}
-
-
-
-void
-f2leps_eps_pure_set_line_end(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- int le
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of1, f2leps_c8_kw[34], le);
-}
-
-
-
-void
-f2leps_eps_pure_set_line_join(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_fig_obj_t * DK3_SILENCE_ARG_UNUSED(obj),
- int lj
-)
-{
- DK3_UNUSED_ARG(drw)
- DK3_UNUSED_ARG(obj)
- fprintf(job->of1, f2leps_c8_kw[35], lj);
-}
-
-
-
-void
-f2leps_eps_pure_set_color_1(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_rgb_color_t *rgb
-)
-{
- DK3_UNUSED_ARG(drw)
- fprintf(job->of1, f2leps_c8_kw[32], rgb->r, rgb->g, rgb->b);
-}
-
-
-
-void
-f2leps_eps_pure_set_color_2(
- f2l_job_t *job,
- dk3_fig_drawing_t * DK3_SILENCE_ARG_UNUSED(drw),
- dk3_rgb_color_t *rgb
-)
-{
- DK3_UNUSED_ARG(drw)
- fprintf(job->of1, f2leps_c8_kw[32], rgb->r, rgb->g, rgb->b);
-}
-
-
-
-void
-f2leps_eps_pure_debug(
- f2l_job_t *job,
- char const *msg
-)
-{
- f2leps_debug(job->of1, job, msg);
-}
-