/*
Copyright (c) 2004-2005, Dirk Krause
All rights reserved.

Redistribution and use in source and binary forms,
with or without modification, are permitted provided
that the following conditions are met:

* Redistributions of source code must retain the above
  copyright notice, this list of conditions and the
  following disclaimer.
* Redistributions in binary form must reproduce the above 
  opyright notice, this list of conditions and the following
  disclaimer in the documentation and/or other materials
  provided with the distribution.
* Neither the name of the Dirk Krause nor the names of
  its contributors may be used to endorse or promote
  products derived from this software without specific
  prior written permission.

THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED.
IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
DAMAGE.
*/

#define DKFIGMP_C 1
#include "dkfig.h"



$(trace-include)



#define drd(v,o,w) dkfig_tool2_drd(v,o,w)


$!trace-code #define TRACE_DEBUG 1



/* {{{ treace_bezier_point

  Issue debugging output about a Bezier point.

*/
#if TRACE_DEBUG
static void
trace_bezier_point DK_P1(dk_fig_bezier_point *,bp)
{
  FILE *f;
  f = dktrace_file();
  if(f) {
    fprintf(f, "value:    x=%lg y=%lg\n", (bp->value).x, (bp->value).y);
    fprintf(f, "lcontrol: x=%lg y=%lg\n", (bp->lcontrol).x, (bp->lcontrol).y);
    fprintf(f, "rcontrol: x=%lg y=%lg\n", (bp->rcontrol).x, (bp->rcontrol).y);
  }
}
#endif
/* }}} */



#ifndef TR_PTR
#define TR_PTR(x) ((x) ? "PTR" : "(NULL)")
#endif


#define HAVE_LINEWIDTH		 1
#define HAVE_LINECAP		 2
#define HAVE_LINEJOIN		 4
#define HAVE_AHLENGTH		 8
#define HAVE_AHANGLE		16

typedef char *PCHAR;



/* {{{ Keywords for MetaPost output */
static char *keywords[] = {
  /*  0 */ "\n",
  /*  1 */ " ",
  /*  2 */ "(",
  /*  3 */ ")",
  /*  4 */ ";",
  /*  5 */ ",",
  /*  6 */ "--",
  /*  7 */ "..",
  /*  8 */ "+",
  /*  9 */ "-",
  /* 10 */ "0",
  /* 11 */ "1",
  /* 12 */ "=",
  /* 13 */ "prologues",
  /* 14 */ ":",
  /* 15 */ "verbatimtex",
  /* 16 */ "%&latex",
  /* 17 */ "&tex",
  /* 18 */ "etex",
  /* 19 */ "%",
  /* 20 */ "line",
  /* 21 */ "\"",
  /* 22 */ "beginfig",
  /* 23 */ "endfig;",
  /* 24 */ "end",
  /* 25 */ "path",
  /* 26 */ "picture",
  /* 27 */ "p",
  /* 28 */ "q",
  /* 29 */ "btex",
  /* 30 */ "{",
  /* 31 */ "}",
  /* 32 */ "\\mbox",
  /* 33 */ "label",
  /* 34 */ ".",
  /* 35 */ "top",
  /* 36 */ "ulft",
  /* 37 */ "urt",
  /* 38 */ "rotated",
  /* 39 */ "r",
  /* 40 */ "*",
  /* 41 */ "10**",
  /* 42 */ "llcorner",
  /* 43 */ "withcolor",
  /* 44 */ "pair",
  /* 45 */ "s",
  /* 46 */ "xpart",
  /* 47 */ "lrcorner",
  /* 48 */ "infont",
  /* 49 */ "scaled",
  /* 50 */ "pt",
  /* 51 */ "/",
  /* 52 */ "fontsize",
  /* 53 */ "defaultfont",
  /* 54 */ "\\n",
  /* 55 */ "\\\"",
  /* 56 */ "yscaled",
  /* 57 */ "shifted",
  /* 58 */ "fullcircle",
  /* 59 */ "cycle",
  /* 60 */ "down",
  /* 61 */ "right",
  /* 62 */ "up",
  /* 63 */ "left",
  /* 64 */ "controls",
  /* 65 */ "and",
  /* 66 */ "cutafter",
  /* 67 */ "fill",
  /* 68 */ "color",
  /* 69 */ "c",
  /* 70 */ "draw",
  /* 71 */ "pickup",
  /* 72 */ "pencircle",
  /* 73 */ "bp",
  /* 74 */ "linecap",
  /* 75 */ ":=",
  /* 76 */ "2",
  /* 77 */ "linejoin",
  /* 78 */ "a",
  /* 79 */ "arrowhead",
  /* 80 */ "reverse",
  /* 81 */ "white",
  /* 82 */ "ahlength",
  /* 83 */ "ahangle",
  /* 84 */ "nullpicture",
  /* 85 */ "clip",
  /* 86 */ "to",
  /* 87 */ "addto",
  /* 88 */ "currentpicture",
  /* 89 */ "also",
  /* 90 */ "dashed",
  /* 91 */ "dashpattern",
  /* 92 */ "on",
  /* 93 */ "off",
  /* 94 */ "doublepath",
  /* 95 */ "withpen",
  /* 96 */ "o",
  /* 97 */ "pen",
  /* 98 */ "(0,0)",
  /* 99 */ "produced by fig2vect\0, see http://fig2vect.sourceforge.net",
 /* 100 */ "labeloffset:=0;bbmargin:=0;",
 /* 101 */ ".0",
 /* 102 */ "mp",

  NULL
};

static size_t number_of_keywords = sizeof(keywords)/sizeof(PCHAR);
/* }}} */



/* {{{ kw_to_stream

  Write one keyword to output stream.

*/
static void
kw_to_stream DK_P2(dk_stream_t *,strm, size_t,index)
{
  if(index < number_of_keywords) {
    dkstream_puts(strm, keywords[index]);
  }
}
/* }}} */



/* {{{ stream_puts_double

  Write double value to stream, convert for
  MetaPost representation if neccesary.
  (i.e. 3.5e8 -> (3.5*(10**8)) )

*/
static void
stream_puts_double DK_P4(\
  dk_stream_t *,s, double,d, int,\
  iscoord, dk_fig_conversion *,c\
)
{
  char buffer[32], *eptr, *dotptr;
#if DK_HAVE_SNPRINTF
  snprintf(buffer, sizeof(buffer), "%lg", drd(d, c, iscoord));
  buffer[sizeof(buffer)-1] = '\0';
#else
  sprintf(buffer, "%lg", drd(d, c, iscoord));
#endif
  eptr = strchr(buffer, 'e');
  if(!eptr) { eptr = strchr(buffer, 'E'); }
  if(eptr) {
    dotptr = strchr(buffer, '.');
    *(eptr++) = '\0';
    kw_to_stream(s, 2);
    dkstream_puts(s, buffer);
    if(iscoord) {
      if(!dotptr) {
        kw_to_stream(s, 101);
      }
    }
    kw_to_stream(s, 40);
    kw_to_stream(s, 2);
    kw_to_stream(s, 41);
    if(*eptr == '-') {
      kw_to_stream(s, 2);
    }
    dkstream_puts(s, eptr);
    if(*eptr == '-') {
      kw_to_stream(s, 3);
    }
    kw_to_stream(s, 3);
    kw_to_stream(s, 3);
  } else {
    dotptr = strchr(buffer, '.');
    dkstream_puts(s, buffer);
    if(iscoord) {
      if(!dotptr) {
        kw_to_stream(s, 101);
      }
    }
  }
}
/* }}} */



/* {{{ ccd_x

  Convert co-ordinate x from fig to MP.

*/
static double
ccd_x DK_P2(dk_fig_conversion *,c, double,x)
{
  double back = 0.0;
  dk_fig_output_mp *mpo;
  $? "+ ccd_x %lg", x
  mpo = (dk_fig_output_mp *)(c->outds);
  if(mpo) {
    back = mpo->mx * x + mpo->nx;
  } else {
    back = 0.06 * x;
  } $? "- ccd_x %lg", back
  return back;
}
/* }}} */



/* {{{ ccd_y

  Convert co-ordinate y from fig to MP.

*/
static double 
ccd_y DK_P2(dk_fig_conversion *,c, double,y)
{
  double back = 0.0;
  dk_fig_output_mp *mpo;
  $? "+ ccd_y %lg", y
  mpo = (dk_fig_output_mp *)(c->outds);
  if(mpo) {
    back = mpo->my * y + mpo->ny;
  } else {
    back = -0.06 * y;
  } $? "- ccd_y %lg", back
  return back;
}
/* }}} */



/* {{{ cc_x

  Convert co-ordinate x from fig to MP.

*/
static double
cc_x DK_P2(dk_fig_conversion *,c, long,x)
{
  double back = 0.0;
  dk_fig_output_mp *mpo;
  $? "+ cc_x %ld", x
  mpo = (dk_fig_output_mp *)(c->outds);
  if(mpo) {
    back = mpo->mx * dkma_l_to_double(x) + mpo->nx;
  } else {
    back = 0.06 * dkma_l_to_double(x);
  } $? "- cc_x %lg", back
  return back;
}
/* }}} */



/* {{{ cc_radius

  Convert a distance from Fig to MetaPost.

*/
static double
cc_radius DK_P2(dk_fig_conversion *,c, long,x)
{
  double back = 0.0;
  dk_fig_output_mp *mpo;
  $? "+ cc_x %ld", x
  mpo = (dk_fig_output_mp *)(c->outds);
  if(mpo) {
    back = mpo->mx * dkma_l_to_double(x);
  } else {
    back = 0.06 * dkma_l_to_double(x);
  } $? "- cc_x %lg", back
  return back;
}
/* }}} */



/* {{{ ccd_radius

  Convert a distance from Fig to MetaPost.

*/
static double
ccd_radius DK_P2(dk_fig_conversion *,c, double,r)
{
  double back = 0.0;
  dk_fig_output_mp *mpo;
  mpo = (dk_fig_output_mp *)(c->outds);
  if(mpo) {
    back = mpo->mx * r;
  } else {
    back = 0.06 * r;
  }
  return back;
}
/* }}} */



/* {{{ cc_y

  Convert co-ordinate y from fig to MP.

*/
static double 
cc_y DK_P2(dk_fig_conversion *,c, long,y)
{
  double back = 0.0;
  dk_fig_output_mp *mpo;
  $? "+ cc_y %ld", y
  mpo = (dk_fig_output_mp *)(c->outds);
  if(mpo) {
    back = mpo->my * dkma_l_to_double(y) + mpo->ny;
  } else {
    back = -0.06 * dkma_l_to_double(y);
  } $? "- cc_y %lg", back
  return back;
}
/* }}} */



/* {{{ cc_bb

  Convert a bounding box from Fig to MetaPost.

*/
static void
cc_bb DK_P3(dk_fig_conversion *,c, dk_fig_bb *,dst, dk_fig_bb *,src)
{
  $? "+ cc_bb xmin=%lg xmax=%lg ymin=%lg ymax=%lg", src->xmin, src->xmax, src->ymin, src->ymax
  dkfig_tool_bb_reset(dst);
  dkfig_tool_bb_add_x(dst, ccd_x(c, src->xmin));
  dkfig_tool_bb_add_x(dst, ccd_x(c, src->xmax));
  dkfig_tool_bb_add_y(dst, ccd_y(c, src->ymin));
  dkfig_tool_bb_add_y(dst, ccd_y(c, src->ymax));
  $? "- cc_bb xmin=%lg xmax=%lg ymin=%lg ymax=%lg", dst->xmin, dst->xmax, dst->ymin, dst->ymax
}
/* }}} */



/* {{{ cc_noenl_linewidth

  Convert line width from Fig to MetaPost, ignore
  "lighten look" option.

*/
static double 
cc_noenl_linewidth DK_P2(dk_fig_conversion *,c, long,l)
{
  double back = 0.0;
  $? "+ cc_noenl_linewidth %ld", l
  back = dkma_l_to_double(l);
  /* back = (back / 10.0) * 9.0 */
  back = 0.9 * back;
  $? "- cc_noenl_linewidth %lg", back
  return back;
}
/* }}} */



/* {{{ write_noconv_double_point

  Write point given in MetaPost co-ordinates.

*/
static void
write_noconv_double_point DK_P4(\
  dkfig_mp_output_instruction *,oi, double,x, double,y,\
  int,w\
)
{
  $? "+ write_noconv_double_point"
  kw_to_stream(oi->s, 2);
  stream_puts_double(oi->s, x, w, oi->c);
  kw_to_stream(oi->s, 5);
  stream_puts_double(oi->s, y, w, oi->c);
  kw_to_stream(oi->s, 3);
  $? "- write_noconv_double_point"
}
/* }}} */



/* {{{ write_long_point

  Write point data given in Fig co-ordinates.

*/
static void
write_long_point DK_P3(\
  dkfig_mp_output_instruction *,oi, long,x, long,y\
)
{
  $? "+ write_long_point"
  write_noconv_double_point(oi, cc_x(oi->c, x), cc_y(oi->c, y), 1);
  $? "- write_long_point"
}
/* }}} */



/* {{{ write_double_point

  Write point data given in Fig co-ordinates.

*/
static void
write_double_point DK_P4(\
  dkfig_mp_output_instruction *,oi, double,x, double,y,\
  int,w\
)
{
  $? "+ write_double_point"
  write_noconv_double_point(oi, ccd_x(oi->c, x), ccd_y(oi->c, y), w);
  $? "- write_double_point"
}
/* }}} */



/* {{{ write_dcc_data

  Write color cell RGB-triple.

*/
static void
write_dcc_data DK_P3(dk_stream_t *,os, dk_fig_dcc *,dcc, dk_fig_conversion *,c)
{
  kw_to_stream(os, 2);
  stream_puts_double(os, drd(dcc->red, c, 0), 0, c);
  kw_to_stream(os, 5);
  stream_puts_double(os, drd(dcc->green, c, 0), 0, c);
  kw_to_stream(os, 5);
  stream_puts_double(os, drd(dcc->blue, c, 0), 0, c);
  kw_to_stream(os, 3);
}
/* }}} */



/* {{{ encode_text_to_mp

  Output UTF-8 encoded text encoded for mp.

*/
static void
encode_utf8_to_mp DK_P3(dk_fig_conversion *,c, dk_stream_t *,os, char *,t)
{
  dk_udword ucb;
  unsigned char uc;
  int cc;
  char buffer[2];
  size_t max, used, avail, step;
  cc = 1; max = strlen(t); used = 0; avail = max;
  while(cc) {
    cc = 0;
    if(avail > 0) {
      step = 0;
      cc = dkenc_utf82uc(&ucb, (unsigned char *)(&(t[used])), avail, &step);
      if(cc) {
        used = used + step;
	if(avail > step) {
	  avail = avail - step;
	} else {
	  avail = 0;
	}
        if(ucb < 256UL) {
	  uc = (unsigned char)ucb;
	  if(uc == '\n') {
	    kw_to_stream(os, 54);
	  } else {
	    if(uc == '"') {
	      kw_to_stream(os, 55);
	    } else {
	      buffer[0] = uc; buffer[1] = '\0';
	      dkstream_puts(os, buffer);
	    }
	  }
	} else {
	  $? "! ERROR: Character out of range"
	  /* ERROR: Character out of range, use LaTeX text handling */
	  dkfig_tool2_msg1(c, DK_LOG_LEVEL_ERROR, 119);
	}
      }
    }
  }
  /*
  char buffer[16];
  char *ptr = NULL;
  ptr = t; buffer[1] = '\0';
  while(*ptr) {
    switch(*ptr) {
      case '\n': {
        kw_to_stream(os, 54);
      } break;
      case '"': {
        kw_to_stream(os, 55);
      } break;
      default: {
        buffer[0] = *ptr;
	dkstream_puts(os, buffer);
      } break;
    }
    ptr++;
  }
  */
}
/* }}} */



/* {{{ encode_text_to_mp

  Output text encoded for mp.

*/
static void
encode_text_to_mp DK_P2(dk_stream_t *,os, char *,t)
{
  char buffer[16];
  char *ptr = NULL;
  ptr = t; buffer[1] = '\0';
  while(*ptr) {
    switch(*ptr) {
      case '\n': {
        kw_to_stream(os, 54);
      } break;
      case '"': {
        kw_to_stream(os, 55);
      } break;
      default: {
        buffer[0] = *ptr;
	dkstream_puts(os, buffer);
      } break;
    }
    ptr++;
  }
}
/* }}} */



/* {{{ print_text_object

  Write text object.

*/
static int
print_text_object DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int rotation = 0;
  int th;
  dk_fig_text *t;
  dk_fig_dcc dcc;
  dk_fig_fonth_t *fhptr = NULL;
  char *ptr;
  double dv;
  $? "+ print_text_object"
  t = (dk_fig_text *)((oi->o)->data);
  if(t) {
    th = (((t->font_flags) & 2) ? ((oi->c)->special_text) : ((oi->c)->normal_text));
    fhptr = t->font_handling;
    if(fhptr) {
      if(fabs(t->angle) > DKFIG_EPSILON) { rotation = 1; }
      dkfig_tool_fill_dcc(oi->d, &dcc, ((oi->o)->fpd).pc);
      /* path q; path r; numeric s; */
      kw_to_stream(oi->s, 26); kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 28); kw_to_stream(oi->s, 4);
      if(rotation) {
        kw_to_stream(oi->s, 1);
        kw_to_stream(oi->s, 26); kw_to_stream(oi->s, 1);
        kw_to_stream(oi->s, 39); kw_to_stream(oi->s, 4);
	switch(((oi->o)->fpd).st) {
	  case 1:
	  case 2: {
	    kw_to_stream(oi->s, 1);
	    kw_to_stream(oi->s, 44);
	    kw_to_stream(oi->s, 1);
	    kw_to_stream(oi->s, 45);
	    kw_to_stream(oi->s, 4);
	  } break;
	}
      }
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 28); kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 12); 
      switch(fhptr->handling) {
        case 2: case 3: case 4: case 5: {
	  /*
	    text handling by TeX/LaTeX
	  */
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 29); kw_to_stream(oi->s, 1);
	  if(th & DKFIG_TH_MBOX) {
	    kw_to_stream(oi->s, 32);
	  }
	  kw_to_stream(oi->s, 30);
          if(fhptr->handling != 2) {
            dkfig_dt_write_fontname(oi->s, oi->d, fhptr);
	    kw_to_stream(oi->s, 1);
          }
          if((t->font_flags) & 2) {		/* Special text */
            dkstream_puts(oi->s, t->text);
          } else {				/* Non-special text */
	    if(((oi->c)->opt2) & DKFIG_OPT_UTF_8) {
	      /*
	        Handle UTF-8 encoded text
	      */
	      dkfig_tool2_utf8_to_latex(oi->s, oi->c, t->text);
	    } else {
	      /*
	        Handle normal text
	      */
              ptr = t->text;
              while(*ptr) {
                dkstream_puts(oi->s, dk_l2l_encoding(*ptr));
                ptr++;
              }
	    }
          }
	  kw_to_stream(oi->s, 31);
          kw_to_stream(oi->s, 1); kw_to_stream(oi->s, 18);
	} break;
	default: {
	  /*
	    Text handling by MetaPost itself
	  */
	  kw_to_stream(oi->s, 1);
	  kw_to_stream(oi->s, 21);
	  if(((oi->c)->opt2) & DKFIG_OPT_UTF_8) {
	    /*
	      Handle UTF-8 encoded text
	    */
            encode_utf8_to_mp(oi->c, oi->s, t->text);
	  } else {
	    /*
	      Handle normal text
	    */
	    encode_text_to_mp(oi->s, t->text); 
	  }
	  kw_to_stream(oi->s, 21),
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 48);
	  kw_to_stream(oi->s, 1);
	  kw_to_stream(oi->s, 21);
          dkstream_puts(
            oi->s,
	    (
	      (fhptr->handling == 1)
	      ? dkfont_get_ps_name((size_t)(fhptr->fontno))
	      : dkfont_get_tex_name((size_t)(fhptr->fontno))
	    )
          );
	  kw_to_stream(oi->s, 21);
	  kw_to_stream(oi->s, 1);
	  kw_to_stream(oi->s, 49);
	  kw_to_stream(oi->s, 1);
	  kw_to_stream(oi->s, 2);
          stream_puts_double(
	    oi->s,
	    dkma_mul_double_ok(fhptr->fontsize,(oi->c)->fsf,&(oi->me)),
	    1
	  , oi->c);
	  kw_to_stream(oi->s, 50);
	  kw_to_stream(oi->s, 51);
	  kw_to_stream(oi->s, 52);
	  kw_to_stream(oi->s, 1);
	  kw_to_stream(oi->s, 53);
	  kw_to_stream(oi->s, 3);
	} break;
      }
      kw_to_stream(oi->s, 4); kw_to_stream(oi->s, 0);
      if(rotation) {
        kw_to_stream(oi->s, 39); kw_to_stream(oi->s, 1);
	kw_to_stream(oi->s, 12); kw_to_stream(oi->s, 1);
        kw_to_stream(oi->s, 28); kw_to_stream(oi->s, 1);
        kw_to_stream(oi->s, 38); kw_to_stream(oi->s, 1);
        dv = (180.0 * t->angle) / M_PI;
	dv = drd(dv, oi->c, 1);
	stream_puts_double(oi->s, dv, 2, oi->c);
	kw_to_stream(oi->s, 4); kw_to_stream(oi->s, 0);
	switch(((oi->o)->fpd).st) {
	  case 1:
	  case 2: {
	    kw_to_stream(oi->s, 45);
	    kw_to_stream(oi->s, 1);
	    kw_to_stream(oi->s, 12);
	    kw_to_stream(oi->s, 1);
	    kw_to_stream(oi->s, 2);
	    kw_to_stream(oi->s, 46);
	    kw_to_stream(oi->s, 2);
	    kw_to_stream(oi->s, 2);
            kw_to_stream(oi->s, 47);
	    kw_to_stream(oi->s, 1);
	    kw_to_stream(oi->s, 28);
	    kw_to_stream(oi->s, 3);
	    kw_to_stream(oi->s, 9);
	    kw_to_stream(oi->s, 2);
	    kw_to_stream(oi->s, 42);
	    kw_to_stream(oi->s, 1);
	    kw_to_stream(oi->s, 28);
	    kw_to_stream(oi->s, 3);
	    kw_to_stream(oi->s, 3);
	    kw_to_stream(oi->s, 3);
	    kw_to_stream(oi->s, 40);
	    kw_to_stream(oi->s, 2);
	    dv = cos(t->angle);
	    if(((oi->o)->fpd).st == 1) { dv = 0.5 * dv; }
	    /* dv = dkma_double_restrict_digits(dv, 5); */
	    if(fabs(dv) < 1.4693e-5) { dv = 0.0; }
	    stream_puts_double(oi->s, dv, 2, oi->c);
	    kw_to_stream(oi->s, 5);
	    dv = sin(t->angle);
	    if(((oi->o)->fpd).st == 1) { dv = 0.5 * dv; }
	    /* dv = dkma_double_restrict_digits(dv, 5); */
	    if(fabs(dv) < 1.4693e-5) { dv = 0.0; }
	    stream_puts_double(oi->s, dv, 2, oi->c);
	    kw_to_stream(oi->s, 3);
	    kw_to_stream(oi->s, 4);
	    kw_to_stream(oi->s, 0);
	  } break;
	}
      }
      kw_to_stream(oi->s, 33);
      kw_to_stream(oi->s, 34);
      if(rotation) {
        kw_to_stream(oi->s, 37);
      } else {
        switch(((oi->o)->fpd).st) {
	  case 1: {
	    kw_to_stream(oi->s, 35);
	  } break;
	  case 2: {
	    kw_to_stream(oi->s, 36);
	  } break;
	  default: {
	    kw_to_stream(oi->s, 37);
	  } break;
	}
      }
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, (rotation ? 39 : 28));
      kw_to_stream(oi->s, 5);
      kw_to_stream(oi->s, 2);
      write_long_point(oi, t->x, t->y);
      kw_to_stream(oi->s, 8);
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, 42);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, (rotation ? 39 : 28));
      kw_to_stream(oi->s, 3);
      if(rotation) {
        switch(((oi->o)->fpd).st) {
	  case 1: case 2: {
	    kw_to_stream(oi->s, 9);
	    kw_to_stream(oi->s, 45);
	  } break;
	}
      }
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 43);
      kw_to_stream(oi->s, 1);
      write_dcc_data(oi->s, &dcc, oi->c);
      kw_to_stream(oi->s, 4);
      kw_to_stream(oi->s, 0);
    }
  }
  $? "- print_text_object %d", back
  return back;
}
/* }}} */



/* {{{ is_ellipse

  Check whether we have an ellipse (return 1)
  or a circle (return 0).

*/
static int
is_ellipse DK_P1(int, ellipse_sub_type)
{
  int back = 0;
  if((ellipse_sub_type < 3) || (ellipse_sub_type > 4)) {
    back = 1;
  }
  return back;
}
/* }}} */



/* {{{ path_ellipse

  Write path for an ellipse.

*/
static int
path_ellipse DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 0;
  int me = 0;
  dk_fig_ellipse *e = NULL;
  int iselli, rotation;
  $? "+ path_ellipse"
  e = (dk_fig_ellipse *)((oi->o)->data);
  if(e) {	$? ". e ok"
    iselli = rotation = 0;
    back = 1;
    iselli = is_ellipse(((oi->o)->fpd).st);
    if(iselli) {
      if(fabs(e->angle) > DKFIG_EPSILON) { rotation = 1; }
    }
    if(iselli) {
      if(rotation) {
        kw_to_stream(oi->s, 2);
      }
      kw_to_stream(oi->s, 2);
    }	$? ". iselli=%d   rotation=%d", iselli, rotation
    /* (fullcircle scaled ...) */
    kw_to_stream(oi->s, 2);
    kw_to_stream(oi->s, 58);
    kw_to_stream(oi->s, 1);
    kw_to_stream(oi->s, 49);
    kw_to_stream(oi->s, 1);
    stream_puts_double(
      oi->s,
      dkma_mul_double_ok(2.0, fabs(cc_radius(oi->c, e->radiusx)), &me),
      1
    , oi->c);
    kw_to_stream(oi->s, 3);
    if(iselli) {
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 56);
      kw_to_stream(oi->s, 1);
      stream_puts_double(
        oi->s,
	dkma_div_double_ok(
	  fabs(dkma_l_to_double(e->radiusy)),
	  fabs(dkma_l_to_double(e->radiusx)),
	  &me
	),
	1
      , oi->c);
      kw_to_stream(oi->s, 3);
      if(rotation) {
        kw_to_stream(oi->s, 1);
	kw_to_stream(oi->s, 38);
	kw_to_stream(oi->s, 1);
	stream_puts_double(
	  oi->s,
	  drd(dkma_mul_double_ok(
	    180.0,
	    dkma_div_double_ok(e->angle, M_PI, &me),
	    &me
	  ), oi->c, 1),
	  1
	, oi->c);
        kw_to_stream(oi->s, 3);
      }
    }
    /* shifted (...,...) */
    kw_to_stream(oi->s, 1);
    if(rotation) {
      kw_to_stream(oi->s, 0);
    }
    kw_to_stream(oi->s, 57);
    kw_to_stream(oi->s, 1);
    write_long_point(oi, e->centerx, e->centery);
  }
  if(me) { back = 0; oi->me = me; }
  $? "- path_ellipse %d", back
  return back;
}
/* }}} */



/* {{{ path_polyline

  Write path for a polyline.

*/
static int
path_polyline DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 0;
  int me = 0;
  dk_fig_polyline *p;
  dk_fig_bb bbdest;
  long *xptr, *yptr; size_t i;
  double deltax, deltay, radius;
  $? "+ path_polyline"
  p = (dk_fig_polyline *)((oi->o)->data);
  if(p) {
    back = 1;
    switch(((oi->o)->fpd).st) {
      case 5: {		$? "! no image inclusions possible"
        /* WARNING: Skipping included image */
	dkfig_tool2_msg1(oi->c, DK_LOG_LEVEL_WARNING, 53);
      } /* no break, fall-through wanted to draw empty frame */
      case 2: case 4: {	$? ". box / arc box"
	dkfig_tool_bb_reset(&bbdest);
	xptr = p->xvalues; yptr = p->yvalues;
	for(i = 0; i < p->npoints; i++) {
          dkfig_tool_bb_add_x(&bbdest, cc_x(oi->c, *xptr));
	  dkfig_tool_bb_add_y(&bbdest, cc_y(oi->c, *yptr));
	  xptr++; yptr++;
	}
	if(((oi->o)->fpd).st == 4) {
          deltax = dkma_sub_double_ok(bbdest.xmax, bbdest.xmin, &me);
	  deltay = dkma_sub_double_ok(bbdest.ymax, bbdest.ymin, &me);
          radius = 0.9 * dkma_l_to_double(p->radius);
	  if(radius > (0.5 * deltax)) { radius = 0.5 * deltax; }
	  if(radius > (0.5 * deltay)) { radius = 0.5 * deltay; }
	  write_noconv_double_point(oi, bbdest.xmin, (bbdest.ymin + radius), 1);
          kw_to_stream(oi->s, 30);
	  kw_to_stream(oi->s, 60);
	  kw_to_stream(oi->s, 31);
          kw_to_stream(oi->s, 0);
          kw_to_stream(oi->s, 7);
          kw_to_stream(oi->s, 30);
	  kw_to_stream(oi->s, 61);
	  kw_to_stream(oi->s, 31);
	  write_noconv_double_point(oi, (bbdest.xmin + radius), bbdest.ymin, 1);
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 6);
	  write_noconv_double_point(oi, (bbdest.xmax - radius), bbdest.ymin, 1);
	  kw_to_stream(oi->s, 30);
	  kw_to_stream(oi->s, 61);
	  kw_to_stream(oi->s, 31);
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 7);
	  kw_to_stream(oi->s, 30);
	  kw_to_stream(oi->s, 62);
	  kw_to_stream(oi->s, 31);
	  write_noconv_double_point(oi, bbdest.xmax, (bbdest.ymin + radius), 1);
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 6);
	  write_noconv_double_point(oi, bbdest.xmax, (bbdest.ymax - radius), 1);
	  kw_to_stream(oi->s, 30);
	  kw_to_stream(oi->s, 62);
	  kw_to_stream(oi->s, 31);
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 7);
	  kw_to_stream(oi->s, 30);
	  kw_to_stream(oi->s, 63);
	  kw_to_stream(oi->s, 31);
	  write_noconv_double_point(oi, (bbdest.xmax - radius), bbdest.ymax, 1);
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 6);
	  write_noconv_double_point(oi, (bbdest.xmin + radius), bbdest.ymax, 1);
	  kw_to_stream(oi->s, 30);
	  kw_to_stream(oi->s, 63);
	  kw_to_stream(oi->s, 31);
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 7);
	  kw_to_stream(oi->s, 30);
	  kw_to_stream(oi->s, 60);
	  kw_to_stream(oi->s, 31);
	  write_noconv_double_point(oi, bbdest.xmin, (bbdest.ymax - radius), 1);
          kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 6);
	  kw_to_stream(oi->s, 59);
	} else {
	  write_noconv_double_point(oi, bbdest.xmin, bbdest.ymin, 1);
	  kw_to_stream(oi->s, 0);
          kw_to_stream(oi->s, 6);
	  write_noconv_double_point(oi, bbdest.xmax, bbdest.ymin, 1);
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 6);
	  write_noconv_double_point(oi, bbdest.xmax, bbdest.ymax, 1);
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 6);
	  write_noconv_double_point(oi, bbdest.xmin, bbdest.ymax, 1);
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 6);
	  kw_to_stream(oi->s, 59);
	}
      } break;
      default: {	$? ". polyline / polygon"
	xptr = p->xvalues; yptr = p->yvalues;
	if((!(((oi->o)->fpd).cl)) && (((oi->o)->fpd).ar & 2)) {
	  $? ". backward arrowhead"
	  write_double_point(oi, (p->pa).x, (p->pa).y, 2);
	  $? ". decrease=%lg", ((oi->o)->fpd).ahb.decrease
	  $? ". x=%lg y=%lg (x=%ld y=%ld)", (p->pa).x, (p->pa).y, *xptr, *yptr
	} else {
	  $? ". no backward arrowhead"
	  write_long_point(oi, *xptr, *yptr);
	}
	xptr++; yptr++;
	for(i = 1; i < p->npoints; i++) {
	  kw_to_stream(oi->s, 0);
	  kw_to_stream(oi->s, 6);
	  if(i == (p->npoints - 1)) {
	    $? ". last point"
	    if(((oi->o)->fpd).cl) {
	      $? ". closed polygon"
	      kw_to_stream(oi->s, 59);
	    } else {
	      $? ". open polyline"
	      if(((oi->o)->fpd).ar & 1) {
	        $? ". forward arrowhead"
	        write_double_point(oi, (p->pe).x, (p->pe).y, 2);
		$? ". decrease=%lg", ((oi->o)->fpd).ahf.decrease
		$? ". x=%lg y=%lg (x=%ld y=%ld)", (p->pe).x, (p->pe).y, *xptr, *yptr
	      } else {
	        $? ". no forward arrowhead"
	        write_long_point(oi, *xptr, *yptr);
	      }
	    }
	  } else {
	    $? ". not the last point"
	    write_long_point(oi, *xptr, *yptr);
	  }
	  xptr++; yptr++;
	}
      } break;
    }
  }
  if(me) { back = 0; oi->me = me; }
  $? "- path_polyline %d", back
  return back;
}
/* }}} */



/* {{{ path_spline

  Write path for a spline.

*/
static int
path_spline DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 0;
  int me = 0;
  dk_fig_spline *s;
  size_t nsegs, li, ri, maxli;
  dk_fig_bezier_point *bpptr;
  $? "+ path_spline"
  s = (dk_fig_spline *)((oi->o)->data);
  if(s) {
    back = 1;
    nsegs = s->nbpoints - 1;
    if(((oi->o)->fpd).cl) {
      nsegs = s->nbpoints;
    }
    bpptr = s->bpoints;
    if((!(((oi->o)->fpd).cl)) && (((oi->o)->fpd).ar & 2)) {
      /* pa....pa2 */
      $? ". pa"
      $!trace-code trace_bezier_point(&(s->pa));
      $? ". pa2"
      $!trace-code trace_bezier_point(&(s->pa2));
      write_double_point(oi, (s->pa).value.x, (s->pa).value.y, 2);
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 7);
      kw_to_stream(oi->s, 64);
      write_double_point(oi, (s->pa).rcontrol.x, (s->pa).rcontrol.y, 2);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 65);
      write_double_point(oi, (s->pa2).lcontrol.x, (s->pa2).lcontrol.y, 2);
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 7);
      write_double_point(oi, (s->pa2).value.x, (s->pa2).value.y, 2);
      li = s->normals;
    } else {
       write_double_point(oi, bpptr[0].value.x, bpptr[0].value.y, 2);
       li = 0;
    }
    if((s->normale > 0) || (((oi->o)->fpd).cl) || (!((((oi->o)->fpd).ar) & 1))) {
      maxli = s->nbpoints - 2;
      if(((oi->o)->fpd).cl) { maxli = s->nbpoints - 1; }
      if((!(((oi->o)->fpd).cl)) && (((oi->o)->fpd).ar & 1)) {
        maxli = s->normale - 1;
      }
      while(li <= maxli) {
        ri = li + 1;
        if(ri >= s->nbpoints) {
          ri = 0;
        }
	$? ". li"
	$!trace-code trace_bezier_point(&((s->bpoints)[li]));
	$? ". ri"
	$!trace-code trace_bezier_point(&((s->bpoints)[ri]));
        kw_to_stream(oi->s, 0);
        kw_to_stream(oi->s, 7);
        kw_to_stream(oi->s, 64);
        write_double_point(oi, bpptr[li].rcontrol.x, bpptr[li].rcontrol.y, 2);
        kw_to_stream(oi->s, 1);
        kw_to_stream(oi->s, 65);
        write_double_point(oi, bpptr[ri].lcontrol.x, bpptr[ri].lcontrol.y, 2);
        kw_to_stream(oi->s, 0);
        kw_to_stream(oi->s, 7);
	if(ri == 0) {
	  kw_to_stream(oi->s, 59);
	} else {
          write_double_point(oi, bpptr[ri].value.x, bpptr[ri].value.y, 2);
	}
        li++;
      }
    }
    if((!(((oi->o)->fpd).cl)) && (((oi->o)->fpd).ar & 1)) {
      $? ". pe2"
      $!trace-code trace_bezier_point(&(s->pe2));
      $? ". pe"
      $!trace-code trace_bezier_point(&(s->pe));
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 7);
      kw_to_stream(oi->s, 64);
      write_double_point(oi, (s->pe2).rcontrol.x, (s->pe2).rcontrol.y, 2);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 65);
      write_double_point(oi, (s->pe).lcontrol.x, (s->pe).lcontrol.y, 2);
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 7);
      write_double_point(oi, (s->pe).value.x, (s->pe).value.y, 2);
    }
  }
  if(me) { back = 0; oi->me = me; }
  $? "- path_spline %d", back
  return back;
}
/* }}} */



/* {{{ path_arc

  Write path for an arc.

*/
static int
path_arc DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 0;
  int me = 0;
  double ahlgt, rl;
  dk_fig_arc *a;
  $? "+ path_arc"
  a = (dk_fig_arc *)((oi->o)->data);
  if(a) {
    back = 1;
    ahlgt = 0.0;
    if((!(((oi->o)->fpd).cl)) && ((((oi->o)->fpd).ar) & 1)) {
      /* ahlgt = a->lba; */
      ahlgt = a->rba;
    }
    if((!(((oi->o)->fpd).cl)) && ((((oi->o)->fpd).ar) & 2)) {
      /* ahlgt = dkma_add_double_ok(ahlgt, a->rba, &me); */
      ahlgt = dkma_add_double_ok(ahlgt, a->lba, &me);
    } $? ". ahlength=%lg   ahlgt=%lg", (a->calc).alength, ahlgt
    if(ahlgt <= (a->calc).alength) {
      back = 1;
      rl = dkma_sub_double_ok((a->calc).alength, ahlgt, &me);
      $? ". rl=%lg", rl
      if(((oi->o)->fpd).st == 2) {
        kw_to_stream(oi->s, 2);
      }
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, 58);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 66);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 2);
      write_noconv_double_point(oi, 0.0, 0.0, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(
        oi,
	(1.1 * cos(rl)),
	(1.1 * sin(rl))
      , 2);
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 38);
      kw_to_stream(oi->s, 1);
      rl = (a->calc).astart;
      if((!(((oi->o)->fpd).cl)) && ((((oi->o)->fpd).ar) & 2)) {
        rl = dkma_add_double_ok(rl, a->lba, &me);
      }
      rl = dkma_mul_double_ok(
        180.0,
	dkma_div_double_ok(rl, M_PI, &me),
        &me
      );
      rl = drd(rl, oi->c, 2);
      stream_puts_double(oi->s, rl, 2, oi->c);
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 49);
      kw_to_stream(oi->s, 1);
      stream_puts_double(
        oi->s, ccd_radius(oi->c, dkma_mul_double_ok(2.0, (a->calc).ra, &me) ), 1
      , oi->c);
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 57);
      kw_to_stream(oi->s, 1);
      write_double_point(oi, (a->calc).xm, (a->calc).ym, 1);
      if(((oi->o)->fpd).st == 2) {
        kw_to_stream(oi->s, 3);
	kw_to_stream(oi->s, 0);
	kw_to_stream(oi->s, 6);
        write_double_point(oi, (a->calc).xm, (a->calc).ym, 1);
	kw_to_stream(oi->s, 6);
	kw_to_stream(oi->s, 59);
      }
    } else {	$? "! arrowhead removal larger than arrow"
    }
  }
  if(me) { back = 0; oi->me = me; }
  $? "- path_arc %d", back
  return back;
}
/* }}} */



/* {{{ write_color_c

  Write a color cell.

*/
static void
write_color_c DK_P2(\
  dkfig_mp_output_instruction *,oi, dk_fig_dcc *,dcc\
)
{
      kw_to_stream(oi->s, 68);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 69);
      kw_to_stream(oi->s, 4);
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 69);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 12);
      kw_to_stream(oi->s, 1);
      write_dcc_data(oi->s, dcc, oi->c);
      kw_to_stream(oi->s, 4);
      kw_to_stream(oi->s, 0);
}
/* }}} */



/* {{{ set_line_join

  Set new line join (only if it differs from the
  current line join).

*/
static void
set_line_join DK_P2(dkfig_mp_output_instruction *,oi, int,js)
{
  int must_do_it = 1;
  if(((oi->m)->haveflags) & HAVE_LINEJOIN) {
    if((oi->m)->linejoin == js) {
      must_do_it = 0;
    }
  }
  if(must_do_it) {
    (oi->m)->haveflags = (oi->m)->haveflags | HAVE_LINEJOIN;
    (oi->m)->linejoin = js;
    kw_to_stream(oi->s, 77);
    kw_to_stream(oi->s, 75);
    switch(js) {
      case 1:  kw_to_stream(oi->s, 11); break;
      case 2:  kw_to_stream(oi->s, 76); break;
      default: kw_to_stream(oi->s, 10); break;
    }
    kw_to_stream(oi->s, 4);
    kw_to_stream(oi->s, 0);
  }
}
/* }}} */



/* {{{ set_ahlength

  Set new arrowhead length (only if it differs from
  the current arrowhead length).

*/
static void
set_ahlength DK_P2(dkfig_mp_output_instruction *,oi, double,h)
{
  double newv, d, m;
  int me = 0;
  int must_do_it = 1;
  newv = dkma_mul_double_ok(
    72.0,
    dkma_div_double_ok(fabs(h), (oi->d)->fres, &me),
    &me
  );
  if(((oi->m)->haveflags) & HAVE_AHLENGTH) {
    d = fabs(newv - (oi->m)->ahlength);
    if(newv < (oi->m)->ahlength) {
      m = newv;
    } else {
      m = (oi->m)->ahlength;
    }
    if((d < DKFIG_EPSILON) && (d < m)) {
      must_do_it = 0;
    }
  }
  if(must_do_it && (!me)) {
    kw_to_stream(oi->s, 82);
    kw_to_stream(oi->s, 75);
    stream_puts_double(oi->s, newv, 1, oi->c);
    kw_to_stream(oi->s, 4);
    kw_to_stream(oi->s, 0);
    (oi->m)->haveflags = (oi->m)->haveflags | HAVE_AHLENGTH;
    (oi->m)->ahlength = newv;
  }
}
/* }}} */



/* {{{ set_ahangle

  Set a new arrowhead angle (only if it differs from the
  current arrowhead angle).

*/
static void
set_ahangle DK_P3(\
  dkfig_mp_output_instruction *,oi, double,w, double,h\
)
{
  double newv, d, m;
  int must_do_it = 1;
  newv = dkma_atan2((0.5*w), h);
  newv = 360.0 * newv / M_PI;
  newv = drd(newv, oi->c, 1);
  if(((oi->m)->haveflags) & HAVE_AHANGLE) {
    d = fabs(newv - (oi->m)->ahangle);
    if(fabs((oi->m)->ahangle) < fabs(newv)) {
      m = DKFIG_EPSILON * fabs((oi->m)->ahangle);
    } else {
      m = DKFIG_EPSILON * fabs(newv);
    }
    if((d < DKFIG_EPSILON) && (d < m)) {
      must_do_it = 0;
    }
  }
  if(must_do_it) {
    kw_to_stream(oi->s, 83);
    kw_to_stream(oi->s, 75);
    stream_puts_double(oi->s, newv, 1, oi->c);
    kw_to_stream(oi->s, 4);
    kw_to_stream(oi->s, 0);
    (oi->m)->haveflags = (oi->m)->haveflags | HAVE_AHANGLE;
    (oi->m)->ahangle = newv;
  }
}
/* }}} */



/* {{{ set_line_cap

  Set a new line cap (only if it differs from
  the current line cap).

*/
static void
set_line_cap DK_P2(dkfig_mp_output_instruction *,oi, int,cs)
{
  int must_do_it = 1;
  if(((oi->m)->haveflags) & HAVE_LINECAP) {
    if((oi->m)->linecap == cs) {
      must_do_it = 0;
    }
  }
  if(must_do_it) {
    (oi->m)->haveflags = (oi->m)->haveflags | HAVE_LINECAP;
    (oi->m)->linecap = cs;
    kw_to_stream(oi->s, 74);
    kw_to_stream(oi->s, 75);
    switch(cs) {
      case 1:  kw_to_stream(oi->s, 11); break;
      case 2:  kw_to_stream(oi->s, 76); break;
      default: kw_to_stream(oi->s, 10); break;
    }
    kw_to_stream(oi->s, 4);
    kw_to_stream(oi->s, 0);
  }
}
/* }}} */



/* {{{ set_line_width

  Set a new line width (only if the new line width
  differs from the current line width.

*/
static void
set_line_width DK_P2(\
  dkfig_mp_output_instruction *,oi, long,lt\
)
{
  int me = 0;
  int must_do_it = 1;
  double newlw;
  double d, m;
  newlw = 0.9 * dkma_l_to_double(lt);
  if(((oi->c)->opt1) & DKFIG_OPT_ENLIGHTEN_LOOK) {
    newlw = 0.5 * newlw;
  }
  if(((oi->m)->haveflags) & HAVE_LINEWIDTH) {
    d = fabs((oi->m)->linewidth - newlw);
    if(fabs(newlw) < fabs((oi->m)->linewidth)) {
      m = DKFIG_EPSILON * fabs(newlw);
    } else {
      m = DKFIG_EPSILON * fabs((oi->m)->linewidth);
    }
    if((d < m) && (d < DKFIG_EPSILON)) {
      must_do_it = 0;
    }
  }
  if(must_do_it && (!me)) {
    kw_to_stream(oi->s, 71);
    kw_to_stream(oi->s, 1);
    kw_to_stream(oi->s, 72);
    kw_to_stream(oi->s, 1);
    kw_to_stream(oi->s, 49);
    kw_to_stream(oi->s, 1);
    stream_puts_double(oi->s, newlw, 1, oi->c);
    /* kw_to_stream(oi->s, 73); */
    kw_to_stream(oi->s, 4);
    kw_to_stream(oi->s, 0);
    (oi->m)->haveflags = (oi->m)->haveflags | HAVE_LINEWIDTH;
    (oi->m)->linewidth = newlw;
  }
}
/* }}} */



/* {{{ arrowhead_path

  Write path for arrowhead.

*/
static void
arrowhead_path DK_P2(\
  dkfig_mp_output_instruction *,oi, int,rev\
)
{
  kw_to_stream(oi->s, 25);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 78);
  kw_to_stream(oi->s, 4);
  kw_to_stream(oi->s, 0);
  if(((oi->c)->opt1) & DKFIG_OPT_METAPOST_ARROWHEADS) {
    set_ahangle(oi, (oi->a)->w, (oi->a)->h);
    set_ahlength(oi, (oi->a)->h);
    kw_to_stream(oi->s, 78); kw_to_stream(oi->s, 1);
    kw_to_stream(oi->s, 12); kw_to_stream(oi->s, 1);
    kw_to_stream(oi->s, 79); kw_to_stream(oi->s, 1);
    if(rev) {
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, 80);
      kw_to_stream(oi->s, 1);
    }
    kw_to_stream(oi->s, 27);
    if(rev) {
      kw_to_stream(oi->s, 3);
    }
    kw_to_stream(oi->s, 4); kw_to_stream(oi->s, 0);
  } else {
    kw_to_stream(oi->s, 78); kw_to_stream(oi->s, 1);
    kw_to_stream(oi->s, 12); kw_to_stream(oi->s, 1);
    write_double_point(oi, ((oi->a)->p1).x, ((oi->a)->p1).y, 1);
    kw_to_stream(oi->s, 6);
    write_double_point(oi, ((oi->a)->p2).x, ((oi->a)->p2).y, 1);
    kw_to_stream(oi->s, 6);
    write_double_point(oi, ((oi->a)->p3).x, ((oi->a)->p3).y, 1);
    kw_to_stream(oi->s, 0);
    if((oi->a)->type > 0) {
      if((oi->a)->type > 1) {
        kw_to_stream(oi->s, 6);
	write_double_point(oi, ((oi->a)->p4).x, ((oi->a)->p4).y, 1);
      }
      kw_to_stream(oi->s, 6);
      kw_to_stream(oi->s, 59);
    }
    kw_to_stream(oi->s, 4); kw_to_stream(oi->s, 0);
  }
}
/* }}} */



/* {{{ arrowhead_fd

  Write instructions to draw arrowhead.

*/
static void
arrowhead_fd DK_P3(\
  dkfig_mp_output_instruction *,oi,\
  dk_fig_dcc *,dcc, int,hc\
)
{
  set_line_join(oi, (oi->d)->ahlj);
  if((oi->a)->type > 0) {
    kw_to_stream(oi->s, 67); kw_to_stream(oi->s, 1);
    kw_to_stream(oi->s, 78); kw_to_stream(oi->s, 1);
    kw_to_stream(oi->s, 43); kw_to_stream(oi->s, 1);
    if((oi->a)->style > 0) {
      if(hc) {
        kw_to_stream(oi->s, 69);
      } else {
        write_dcc_data(oi->s, dcc, oi->c);
      }
    } else {
      kw_to_stream(oi->s, 81);
    }
    kw_to_stream(oi->s, 4); kw_to_stream(oi->s, 0);
  }
  kw_to_stream(oi->s, 70); kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 78); kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 43); kw_to_stream(oi->s, 1);
  if(hc) {
    kw_to_stream(oi->s, 69);
  } else {
    write_dcc_data(oi->s, dcc, oi->c);
  }
  kw_to_stream(oi->s, 4); kw_to_stream(oi->s, 0);
}
/* }}} */



/* {{{ start_addto
  
  Write start of addto ... instruction.

*/
static void
start_addto DK_P1(dkfig_mp_output_instruction *,oi)
{
  kw_to_stream(oi->s, 87);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 28);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 94);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 2);
  kw_to_stream(oi->s, 0);
}
/* }}} */



/* {{{ end_addto

  Write end of addto ... instruction.

*/
static void
end_addto DK_P1(dkfig_mp_output_instruction *,oi)
{
  kw_to_stream(oi->s, 0);
  kw_to_stream(oi->s, 3);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 43);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 69);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 95);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 96);
  kw_to_stream(oi->s, 4);
  kw_to_stream(oi->s, 0);
}
/* }}} */



/* {{{ diagonal_left_30

  Fill pattern 30 degree lines to the left.

*/
static int
diagonal_left_30 DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, xend, ystart, yend, y0, y1, deltay, y;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltay = fabs(oi->patrp);
  deltay = dkma_div_double_ok(deltay, sqrt(0.75), &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    y0 = dkma_add_double_ok(
      ystart,
      dkma_mul_double_ok(0.5, xstart, &me),
      &me
    );
    y0 = dkma_div_double_ok(y0, deltay, &me);
    y1 = floor(y0);
    y0 = dkma_sub_double_ok(y0, y1, &me);
    y0 = dkma_mul_double_ok(y0, deltay, &me);
    ystart = dkma_sub_double_ok(ystart, y0, &me);
  }
  y1 = dkma_sub_double_ok(xend, xstart, &me);
  y1 = dkma_mul_double_ok(0.5, y1, &me);
  yend = dkma_add_double_ok(yend, y1, &me);
  y = ystart;
  while(y <= yend) {
    start_addto(oi);
    write_noconv_double_point(oi, xstart, y, 2);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, xend, dkma_sub_double_ok(y,y1,&me), 2);
    end_addto(oi);
    y = dkma_add_double_ok(y, deltay, &me);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ diagonal_right_30

  Fill pattern 30 degree lines to the right.

*/
static int
diagonal_right_30 DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, xend, ystart, yend, y0, y1, deltay, y;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltay = fabs(oi->patrp);
  deltay = dkma_div_double_ok(deltay, sqrt(0.75), &me);
  y1 = dkma_sub_double_ok(xend, xstart, &me);
  y1 = dkma_mul_double_ok(0.5, y1, &me);
  ystart = dkma_sub_double_ok(ystart, y1, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    y0 = dkma_sub_double_ok(
      ystart,
      dkma_mul_double_ok(0.5, xstart, &me),
      &me
    );
    y0 = dkma_div_double_ok(y0, deltay, &me);
    y1 = floor(y0);
    y0 = dkma_sub_double_ok(y0, y1, &me);
    y0 = dkma_mul_double_ok(y0, deltay, &me);
    ystart = dkma_sub_double_ok(ystart, y0, &me);
  }
  y1 = dkma_sub_double_ok(xend, xstart, &me);
  y1 = dkma_mul_double_ok(0.5, y1, &me);
  y = ystart;
  while(y <= yend) {
    start_addto(oi);
    write_noconv_double_point(oi, xstart, y, 2);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, xend, dkma_add_double_ok(y,y1,&me), 2);
    end_addto(oi);
    y = dkma_add_double_ok(y, deltay, &me);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ crosshatch_30

  Fill pattern 30 degree crosshatch.

*/
static int
crosshatch_30 DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  if(!diagonal_left_30(oi)) { back = 0; }
  if(!diagonal_right_30(oi)) { back = 0; }
  return back;
}
/* }}} */



/* {{{ diagonal_left_45

  Fill pattern 45 degree lines to the left.

*/
static int
diagonal_left_45 DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, xend, ystart, yend, y0, y1, deltay, y;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltay = fabs(oi->patrp);
  deltay = dkma_div_double_ok(deltay, sqrt(0.5), &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    y0 = dkma_add_double_ok(
      ystart,
      xstart,
      &me
    );
    y0 = dkma_div_double_ok(y0, deltay, &me);
    y1 = floor(y0);
    y0 = dkma_sub_double_ok(y0, y1, &me);
    y0 = dkma_mul_double_ok(y0, deltay, &me);
    ystart = dkma_sub_double_ok(ystart, y0, &me);
  }
  y1 = dkma_sub_double_ok(xend, xstart, &me);
  /* y1 = dkma_mul_double_ok(sqrt(0.5), y1, &me); */
  yend = dkma_add_double_ok(yend, y1, &me);
  y = ystart;
  while(y <= yend) {
    start_addto(oi);
    write_noconv_double_point(oi, xstart, y, 2);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, xend, dkma_sub_double_ok(y,y1,&me), 2);
    end_addto(oi);
    y = dkma_add_double_ok(y, deltay, &me);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ diagonal_right_45

  Fill pattern 45 degree lines to the right.

*/
static int
diagonal_right_45 DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, xend, ystart, yend, y0, y1, deltay, y;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltay = fabs(oi->patrp);
  deltay = dkma_div_double_ok(deltay, sqrt(0.5), &me);
  y1 = dkma_sub_double_ok(xend, xstart, &me);
  /* y1 = dkma_mul_double_ok(0.5, y1, &me); */
  ystart = dkma_sub_double_ok(ystart, y1, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    y0 = dkma_sub_double_ok(
      ystart,
      xstart,
      &me
    );
    y0 = dkma_div_double_ok(y0, deltay, &me);
    y1 = floor(y0);
    y0 = dkma_sub_double_ok(y0, y1, &me);
    y0 = dkma_mul_double_ok(y0, deltay, &me);
    ystart = dkma_sub_double_ok(ystart, y0, &me);
  }
  y1 = dkma_sub_double_ok(xend, xstart, &me);
  /* y1 = dkma_mul_double_ok(sqrt(0.5), y1, &me); */
  y = ystart;
  while(y <= yend) {
    start_addto(oi);
    write_noconv_double_point(oi, xstart, y, 2);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, xend, dkma_add_double_ok(y,y1,&me), 2);
    end_addto(oi);
    y = dkma_add_double_ok(y, deltay, &me);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ crosshatch_45

  Fill pattern 45 degree crosshatch.

*/
static int
crosshatch_45 DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  if(!diagonal_left_45(oi)) { back = 0; }
  if(!diagonal_right_45(oi)) { back = 0; }
  return back;
}
/* }}} */



/* {{{ horizontal_bricks

  Fill pattern horizontal bricks.

*/
static int
horizontal_bricks DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  int inslevel = 0;
  double xstart, ystart, xend, yend, deltay, y, x;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltay = fabs(oi->patrp);
  deltay = dkma_mul_double_ok(2.0, deltay, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    ystart = floor(dkma_div_double_ok(ystart, deltay, &me));
    if((dkma_double_to_l(ystart)) % 2L) {
      inslevel = 1;
    }
    ystart = dkma_mul_double_ok(deltay, ystart, &me);
    xstart = dkma_sub_double_ok(xstart, deltay, &me);
    xstart = floor(dkma_div_double_ok(xstart,dkma_mul_double_ok(2.0,deltay,&me),&me));
    xstart = dkma_mul_double_ok(xstart,dkma_mul_double_ok(2.0,deltay,&me),&me);
  }
  y = ystart;
  while(y <= yend) {
    start_addto(oi);
    write_noconv_double_point(oi, xstart, y, 1);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, xend, y, 1);
    end_addto(oi);
    x = xstart;
    if(inslevel) { x = dkma_add_double_ok(x, deltay, &me); }
    while(x <= xend) {
      start_addto(oi);
      write_noconv_double_point(oi, x, y, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x, dkma_add_double_ok(y, deltay, &me), 1);
      end_addto(oi);
      x = dkma_add_double_ok(x,dkma_mul_double_ok(2.0,deltay,&me),&me);
    }
    y = dkma_add_double_ok(y, deltay, &me);
    inslevel = (inslevel ? 0: 1);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ vertical_bricks
 
  Fill pattern vertical bricks.

*/
static int
vertical_bricks DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  int inslevel = 0;
  double xstart, ystart, xend, yend, deltax, x, y;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltax = fabs(dkma_mul_double_ok(2.0,oi->patrp,&me));
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    xstart = floor(dkma_div_double_ok(xstart, deltax, &me));
    if(dkma_double_to_l(xstart) % 2L) {
      inslevel = 1;
    }
    xstart = dkma_mul_double_ok(deltax, xstart, &me);
    ystart = dkma_sub_double_ok(ystart, deltax, &me);
    ystart = floor(dkma_div_double_ok(ystart,dkma_mul_double_ok(2.0,deltax,&me),&me));
    ystart = dkma_mul_double_ok(ystart,dkma_mul_double_ok(2.0,deltax,&me),&me);
  }
  x = xstart;
  while(x <= xend) {
    start_addto(oi);
    write_noconv_double_point(oi, x, ystart, 1);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, x, yend, 1);
    end_addto(oi);
    y = ystart;
    if(inslevel) { y = dkma_add_double_ok(y,deltax,&me); }
    while(y <= yend) {
      start_addto(oi);
      write_noconv_double_point(oi, x, y, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, dkma_add_double_ok(x,deltax,&me), y, 1);
      end_addto(oi);
      y = dkma_add_double_ok(y,dkma_mul_double_ok(2.0,deltax,&me),&me);
    }
    x = dkma_add_double_ok(x, deltax, &me);
    inslevel = (inslevel ? 0 : 1);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ horizontal_lines

  Fill pattern horizontal lines.

*/
static int
horizontal_lines DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, ystart, xend, yend, deltay, y;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltay = fabs(oi->patrp);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    ystart = dkma_mul_double_ok(
      deltay,
      floor(dkma_div_double_ok(ystart, deltay, &me)),
      &me
    );
  }
  y = ystart;
  while(y <= yend) {
    start_addto(oi);
    write_noconv_double_point(oi, xstart, y, 1);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, xend, y, 1);
    end_addto(oi);
    y = dkma_add_double_ok(y, deltay, &me);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ vertical_lines

  Fill pattern vertical lines.

*/
static int
vertical_lines DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, ystart, xend, yend, deltax, x;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltax = fabs(oi->patrp);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    xstart = dkma_mul_double_ok(
      deltax,
      floor(dkma_div_double_ok(xstart, deltax, &me)),
      &me
    );
  }
  x = xstart;
  while(x <= xend) {
    start_addto(oi);
    write_noconv_double_point(oi, x, ystart, 1);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, x, yend, 1);
    end_addto(oi);
    x = dkma_add_double_ok(x, deltax, &me);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ crosshatch

  Fill pattern crosshatch.

*/
static int
crosshatch DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  if(!horizontal_lines(oi)) { back = 0; }
  if(!vertical_lines(oi)) { back = 0; }
  return back;
}
/* }}} */



/* {{{ horiz_shingles_right

  Fill pattern horizontal shingles skewed to
  the right.

*/
static int
horiz_shingles_right DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  int inslevel = 0;
  double xstart, ystart, xend, yend, deltay, y, x, deltax;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltax = deltay = fabs(oi->patrp);
  deltay = dkma_mul_double_ok(2.0, deltay, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    ystart = floor(dkma_div_double_ok(ystart,deltay,&me));
    inslevel = (int)(dkma_double_to_l(ystart) % 4L);
    ystart = dkma_mul_double_ok(deltay,ystart,&me);
    xstart = dkma_sub_double_ok(xstart, deltay, &me);
    xstart = floor(dkma_div_double_ok(xstart,dkma_mul_double_ok(2.0,deltay,&me),&me));
    xstart = dkma_mul_double_ok(xstart,dkma_mul_double_ok(2.0,deltay,&me),&me);
  }
  y = ystart;
  while(y <= yend) {
    start_addto(oi);
    write_noconv_double_point(oi, xstart, y, 1);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, xend, y, 1);
    end_addto(oi);
    /*
    x = xstart;
    if(inslevel) { x = dkma_add_double_ok(x, deltay, &me); }
    */
    switch(inslevel) {
      case 3: {
        x = dkma_add_double_ok(xstart,deltax,&me);
      } break;
      case 2: {
        x = dkma_add_double_ok(xstart,deltay,&me);
      } break;
      case 1: {
        x = dkma_add_double_ok(xstart,dkma_mul_double_ok(1.5,deltay,&me),&me);
      } break;
      default: {
        x = xstart;
      } break;
    }
    while(x <= xend) {
      start_addto(oi);
      write_noconv_double_point(oi, x, y, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, dkma_add_double_ok(x,deltax,&me), dkma_add_double_ok(y, deltay, &me), 1);
      end_addto(oi);
      x = dkma_add_double_ok(x,dkma_mul_double_ok(2.0,deltay,&me),&me);
    }
    y = dkma_add_double_ok(y, deltay, &me);
    inslevel++;
    if(inslevel >= 4) { inslevel = 0; }
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ horiz_shingles_left

  Fill pattern horizontal shingles skewed to
  the left.

*/
static int
horiz_shingles_left DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  int inslevel = 0;
  double xstart, ystart, xend, yend, deltay, y, x, deltax;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltax = deltay = fabs(oi->patrp);
  deltay = dkma_mul_double_ok(2.0, deltay, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    ystart = floor(dkma_div_double_ok(ystart,deltay,&me));
    inslevel = (int)(dkma_double_to_l(ystart) % 4L);
    ystart = dkma_mul_double_ok(deltay,ystart,&me);
    xstart = dkma_sub_double_ok(xstart, deltay, &me);
    xstart = floor(dkma_div_double_ok(xstart,dkma_mul_double_ok(2.0,deltay,&me),&me));
    xstart = dkma_mul_double_ok(xstart,dkma_mul_double_ok(2.0,deltay,&me),&me);
  }
  y = ystart;
  while(y <= yend) {
    start_addto(oi);
    write_noconv_double_point(oi, xstart, y, 1);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, xend, y, 1);
    end_addto(oi);
    /*
    x = xstart;
    if(inslevel) { x = dkma_add_double_ok(x, deltay, &me); }
    */
    switch(inslevel) {
      case 3: {
        x = dkma_add_double_ok(xstart,dkma_add_double_ok(deltax,deltay,&me),&me);
      } break;
      case 2: {
        x = dkma_add_double_ok(xstart,deltay,&me);
      } break;
      case 1: {
        x = dkma_add_double_ok(xstart,deltax,&me);
      } break;
      default: {
        x = xstart;
      } break;
    }
    while(x <= xend) {
      start_addto(oi);
      write_noconv_double_point(oi, dkma_add_double_ok(x,deltax,&me), y, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x, dkma_add_double_ok(y, deltay, &me), 1);
      end_addto(oi);
      x = dkma_add_double_ok(x,dkma_mul_double_ok(2.0,deltay,&me),&me);
    }
    y = dkma_add_double_ok(y, deltay, &me);
    inslevel++;
    if(inslevel >= 4) { inslevel = 0; }
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ vert_shingles_one

  Fill pattern vertical shingles 1.

*/
static int
vert_shingles_one DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  int inslevel = 0;
  double xstart, ystart, xend, yend, deltay, deltax, x, y;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltay = deltax = fabs(oi->patrp);
  deltax = dkma_mul_double_ok(2.0, deltax, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    xstart = floor(dkma_div_double_ok(xstart, deltax, &me));
    inslevel = (int)(dkma_double_to_l(xstart) % 4L);
    xstart = dkma_mul_double_ok(deltax, xstart, &me);
    ystart = floor(dkma_div_double_ok(ystart,dkma_mul_double_ok(2.0,deltax,&me),&me));
    ystart = dkma_mul_double_ok(ystart,dkma_mul_double_ok(2.0,deltax,&me),&me);
  }
  x = xstart;
  while(x <= xend) {
    start_addto(oi);
    write_noconv_double_point(oi, x, ystart, 1);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, x, yend, 1);
    end_addto(oi);
    switch(inslevel) {
      case 3: {
        y = dkma_add_double_ok(ystart,dkma_add_double_ok(deltax,deltay,&me),&me);
      } break;
      case 2: {
        y = dkma_add_double_ok(ystart,deltax,&me);
      } break;
      case 1: {
        y = dkma_add_double_ok(ystart,deltay,&me);
      } break;
      default: {
        y = ystart;
      } break;
    }
    while(y <= yend) {
      start_addto(oi);
      write_noconv_double_point(oi, x, dkma_add_double_ok(y,deltay,&me), 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, dkma_add_double_ok(x,deltax,&me), y, 1);
      end_addto(oi);
      y = dkma_add_double_ok(y,dkma_mul_double_ok(2.0,deltax,&me),&me);
    }
    x = dkma_add_double_ok(x, deltax, &me); inslevel++;
    if(inslevel >= 4) { inslevel = 0; }
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ vert_shingles_two

  Fill pattern vertical shingles 2.

*/
static int
vert_shingles_two DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  int inslevel = 0;
  double xstart, ystart, xend, yend, deltay, deltax, x, y;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltay = deltax = fabs(oi->patrp);
  deltax = dkma_mul_double_ok(2.0, deltax, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    xstart = floor(dkma_div_double_ok(xstart, deltax, &me));
    inslevel = (int)(dkma_double_to_l(xstart) % 4L);
    xstart = dkma_mul_double_ok(deltax, xstart, &me);
    ystart = floor(dkma_div_double_ok(ystart,dkma_mul_double_ok(2.0,deltax,&me),&me));
    ystart = dkma_mul_double_ok(ystart,dkma_mul_double_ok(2.0,deltax,&me),&me);
  }
  x = xstart;
  while(x <= xend) {
    start_addto(oi);
    write_noconv_double_point(oi, x, ystart, 1);
    kw_to_stream(oi->s, 6);
    write_noconv_double_point(oi, x, yend, 1);
    end_addto(oi);
    switch(inslevel) {
      case 3: {
        y = dkma_add_double_ok(ystart,deltay,&me);
      } break;
      case 2: {
        y = dkma_add_double_ok(ystart,deltax,&me);
      } break;
      case 1: {
        y = dkma_add_double_ok(ystart,dkma_add_double_ok(deltax,deltay,&me),&me);
      } break;
      default: {
        y = ystart;
      } break;
    }
    while(y <= yend) {
      start_addto(oi);
      write_noconv_double_point(oi, x, y, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(
        oi,
	dkma_add_double_ok(x,deltax,&me),
	dkma_add_double_ok(y,deltay,&me)
      , 1);
      end_addto(oi);
      y = dkma_add_double_ok(y,dkma_mul_double_ok(2.0,deltax,&me),&me);
    }
    x = dkma_add_double_ok(x, deltax, &me); inslevel++;
    if(inslevel >= 4) { inslevel = 0; }
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ do_fish_scales

  Create fish scale fill patterns.

*/
static int
do_fish_scales DK_P3(\
  dkfig_mp_output_instruction *,oi,\
  double,ar, double,phi\
)
{
  int back = 1;
  int me = 0;
  int inslevel = 0;
  double radius, xstart, ystart, xend, yend, deltax, dxh, deltay;
  double x, y, xm, ym;
  double cutx, cuty, rot, cuts;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  radius = dkma_mul_double_ok(2.0, fabs(oi->patrp), &me);
  radius = dkma_mul_double_ok(ar, radius, &me);
  deltax = dkma_mul_double_ok(2.0, dkma_mul_double_ok(radius, sin(phi/2.0), &me), &me);
  deltax = drd(deltax, oi->c, 2);
  dxh = 0.5 * deltax;
  deltay = dkma_mul_double_ok(radius,dkma_sub_double_ok(1.0,cos(phi/2.0),&me),&me);
  deltay = drd(deltay, oi->c, 2);
  rot = 1.5 * M_PI - 0.5 * phi;
  rot = dkma_sub_double_ok(
    dkma_mul_double_ok(1.5, M_PI, &me),
    dkma_mul_double_ok(0.5, phi, &me),
    &me
  );
  rot = dkma_div_double_ok(
    dkma_mul_double_ok(180.0, rot, &me),
    M_PI,
    &me
  );
  rot = drd(rot, oi->c, 2);
  xstart = dkma_sub_double_ok(xstart, dxh, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    xstart = floor(dkma_div_double_ok(xstart, deltax, &me));
    if(dkma_double_to_l(xstart) % 2L) {
      inslevel = 1;
    }
    xstart = dkma_mul_double_ok(deltax, xstart, &me);
    ystart = floor(dkma_div_double_ok(ystart, deltay, &me));
    ystart = dkma_mul_double_ok(deltay, ystart, &me);
  }
  cutx = 1.25 * cos(phi);
  cuty = 1.25 * sin(phi);
  cuts = dkma_mul_double_ok(2.0, radius, &me);
  y = ystart;
  while(y <= yend) {
    ym = dkma_add_double_ok(y, radius, &me);
    x = xstart;
    if(inslevel) {
      x = dkma_add_double_ok(x, dxh, &me);
    }
    while(x <= xend) {
      xm = dkma_add_double_ok(x, dxh, &me);
      start_addto(oi);
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, 58);	/* fullcircle */
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 66);	/* cutafter */
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, 98);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, cutx, cuty, 2);
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 38);
      kw_to_stream(oi->s, 1);
      stream_puts_double(oi->s, rot, 2, oi->c);
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 49);
      kw_to_stream(oi->s, 1);
      stream_puts_double(oi->s, cuts, 2, oi->c);
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 57);
      kw_to_stream(oi->s, 1);
      write_noconv_double_point(oi, xm, ym, 2);
      end_addto(oi);
      x = dkma_add_double_ok(x, deltax, &me);
    }
    y = dkma_add_double_ok(y, deltay, &me);
    inslevel = (inslevel ? 0 : 1);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ large_fish_scales

  Fill pattern large fish scales.

*/
static int
large_fish_scales DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  back = do_fish_scales(oi, 1.25, 1.881618);
  return back;
}
/* }}} */



/* {{{ small_fish_scales

  Fill pattern small fish scales.

*/
static int
small_fish_scales DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  back = do_fish_scales(oi, 0.5, M_PI);
  return back;
}
/* }}} */



/* {{{ circles

  Fill pattern circles.

*/
static int
circles DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, ystart, xend, yend, deltay, deltax, x, y, r, xm;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  r = dkma_mul_double_ok(2.0, fabs(oi->patrp), &me);
  deltay = deltax = dkma_mul_double_ok(2.0, r, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    xstart = floor(dkma_div_double_ok(xstart, deltax, &me));
    xstart = dkma_mul_double_ok(deltax, xstart, &me);
    ystart = floor(dkma_div_double_ok(ystart, deltay, &me));
    ystart = dkma_mul_double_ok(deltay, ystart, &me);
  }
  x = xstart;
  while(x <= xend) {
    y = ystart;
    xm = dkma_add_double_ok(x, r, &me);
    while(y <= yend) {
      start_addto(oi);
      kw_to_stream(oi->s, 2);
      kw_to_stream(oi->s, 58);	/* fullcircle */
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 49);	/* scaled */
      kw_to_stream(oi->s, 1);
      stream_puts_double(oi->s, deltay, 1, oi->c);
      kw_to_stream(oi->s, 73);	/* bp */
      kw_to_stream(oi->s, 3);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 57);
      kw_to_stream(oi->s, 1);
      write_noconv_double_point(
        oi,
	xm,
	dkma_add_double_ok(y, r, &me)
      , 1);
      end_addto(oi);
      y = dkma_add_double_ok(y, deltay, &me);
    }
    x = dkma_add_double_ok(x, deltax, &me);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{

  Fill pattern hexagons.

*/
static int
hexagons DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, ystart, xend, yend, deltay, deltax, x, y, r;
  double x1, x2, x3, x4, y1, y2;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  r = dkma_mul_double_ok(2.0, fabs(oi->patrp), &me);
  deltay = deltax = dkma_mul_double_ok(2.0, r, &me);
  r = dkma_div_double_ok(deltay, sqrt(3.0), &me);
  deltax = dkma_mul_double_ok(3.0, r, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    xstart = floor(dkma_div_double_ok(xstart, deltax, &me));
    xstart = dkma_mul_double_ok(deltax, xstart, &me);
    ystart = floor(dkma_div_double_ok(ystart, deltay, &me));
    ystart = dkma_mul_double_ok(deltay, ystart, &me);
  }
  x = xstart;
  while(x <= xend) {
    x1 = dkma_add_double_ok(x, dkma_mul_double_ok(0.5, r, &me), &me);
    x2 = dkma_add_double_ok(x, dkma_mul_double_ok(1.5, r, &me), &me);
    x3 = dkma_add_double_ok(x, dkma_mul_double_ok(2.0, r, &me), &me);
    x4 = dkma_add_double_ok(x, dkma_mul_double_ok(3.0, r, &me), &me);
    y = ystart;
    while(y <= yend) {
      y1 = dkma_add_double_ok(y, dkma_mul_double_ok(0.5, deltay, &me), &me);
      y2 = dkma_add_double_ok(y, deltay, &me);
      start_addto(oi);
      write_noconv_double_point(oi, x, y1, 2);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x1, y, 2);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x2, y, 2);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x3, y1, 2);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x2, y2, 2);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x1, y2, 2);
      kw_to_stream(oi->s, 6);
      kw_to_stream(oi->s, 59);
      end_addto(oi);
      start_addto(oi);
      write_noconv_double_point(oi, x3, y1, 2);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x4, y1, 2);
      end_addto(oi);
      y  = y2;
    }
    x = dkma_add_double_ok(x, deltax, &me);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ octagons
  
  Fill pattern octagons.

*/
static int
octagons DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, ystart, xend, yend, deltay, deltax, x, y, r;
  double x1, x2, x3, y1, y2, y3;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  r = dkma_mul_double_ok(2.0, fabs(oi->patrp), &me);
  deltay = deltax = dkma_mul_double_ok(2.0, r, &me);
  r = dkma_div_double_ok(
    deltay, dkma_add_double_ok(2.0,sqrt(2.0),&me), &me
  ); r = drd(r, oi->c, 1);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    xstart = floor(dkma_div_double_ok(xstart, deltax, &me));
    xstart = dkma_mul_double_ok(deltax, xstart, &me);
    ystart = floor(dkma_div_double_ok(ystart, deltay, &me));
    ystart = dkma_mul_double_ok(deltay, ystart, &me);
  }
  x = xstart;
  while(x <= xend) {
    y = ystart;
    x1 = dkma_add_double_ok(x, r, &me);
    x3 = dkma_add_double_ok(x, deltax, &me);
    x2 = dkma_sub_double_ok(x3, r, &me);
    while(y <= yend) {
      y1 = dkma_add_double_ok(y, r, &me);
      y3 = dkma_add_double_ok(y, deltay, &me);
      y2 = dkma_sub_double_ok(y3, r, &me);
      start_addto(oi);
      write_noconv_double_point(oi, x1, y, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x2, y, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x3, y1, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x3, y2, 1);
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x2, y3, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x1, y3, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x, y2, 1);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi, x, y1, 1);
      kw_to_stream(oi->s, 6);
      kw_to_stream(oi->s, 59);
      end_addto(oi);
      y = dkma_add_double_ok(y, deltay, &me);
    }
    x = dkma_add_double_ok(x, deltax, &me);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ horiz_tires

  Fill pattern horizontal tires

*/
static int
horiz_tires DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, ystart, xend, yend, deltax, deltay, x, y, y1;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltax =  fabs(oi->patrp);
  deltay = dkma_mul_double_ok(2.0, deltax, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    ystart = dkma_mul_double_ok(
      deltay,
      floor(dkma_div_double_ok(ystart, deltay, &me)),
      &me
    );
    xstart = dkma_mul_double_ok(
      deltay,
      floor(dkma_div_double_ok(xstart, deltay, &me)),
      &me
    );
  }
  y = ystart;
  while(y <= yend) {
    y1 = dkma_add_double_ok(y, deltax, &me);
    start_addto(oi);
    x = xstart;
    write_noconv_double_point(oi,x,y, 1);
    while(x <= xend) {
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 6);
      x = dkma_add_double_ok(x, deltax, &me);
      write_noconv_double_point(oi,x,y1, 1);
      kw_to_stream(oi->s, 6);
      x = dkma_add_double_ok(x, deltax, &me);
      write_noconv_double_point(oi,x,y, 1);
    }
    end_addto(oi);
    y = dkma_add_double_ok(y, deltay, &me);
  }
  if(me) { oi->me = me; back = 0; }
  return back;
}
/* }}} */



/* {{{ vert_tires

  Fill pattern vertical tires.

*/
static int
vert_tires DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int me = 0;
  double xstart, ystart, xend, yend, deltax, deltay, x, y, x1;
  ystart = (oi->obb).ymin; yend = (oi->obb).ymax;
  xstart = (oi->obb).xmin; xend = (oi->obb).xmax;
  deltay =  fabs(oi->patrp);
  deltax = dkma_mul_double_ok(2.0, deltay, &me);
  if(((oi->c)->opt1) & DKFIG_OPT_FILL_CONTIGOUS) {
    ystart = dkma_mul_double_ok(
      deltax,
      floor(dkma_div_double_ok(ystart, deltax, &me)),
      &me
    );
    xstart = dkma_mul_double_ok(
      deltax,
      floor(dkma_div_double_ok(xstart, deltax, &me)),
      &me
    );
  }
  x = xstart;
  while(x <= xend) {
    x1 = dkma_add_double_ok(x, deltay, &me);
    y = ystart;
    start_addto(oi);
    write_noconv_double_point(oi,x,y, 1);
    while(y <= yend) {
      y = dkma_add_double_ok(y, deltay, &me);
      kw_to_stream(oi->s, 0);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi,x1,y, 1);
      y = dkma_add_double_ok(y, deltay, &me);
      kw_to_stream(oi->s, 6);
      write_noconv_double_point(oi,x,y, 1);
    }
    end_addto(oi);
    x = dkma_add_double_ok(x, deltax, &me);
  }
  return back;
}
/* }}} */



/* {{{ add_dash_pattern

  Write dash pattern for dashed lines.

*/
static int
add_dash_pattern DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  double x;
  int i;
  if(((oi->o)->fpd).sv > DKFIG_EPSILON) {
    x = 0.9 * ((oi->o)->fpd).sv;
  } else {
    x = 0.9;
  }
  kw_to_stream(oi->s, 0);
  kw_to_stream(oi->s, 90);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 91);
  kw_to_stream(oi->s, 2);
  switch(((oi->o)->fpd).ls) {
    case 1: case 3: case 4: case 5: {	/* dashed or dash-x-dotted */
      kw_to_stream(oi->s, 92);
      kw_to_stream(oi->s, 1);
      stream_puts_double(oi->s, (0.5*x), 1, oi->c);
      kw_to_stream(oi->s, 73);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 93);
      kw_to_stream(oi->s, 1);
      stream_puts_double(oi->s, x, 1, oi->c);
      kw_to_stream(oi->s, 73);
      kw_to_stream(oi->s, 1);
      if(((oi->o)->fpd).ls > 1) {
        i = ((oi->o)->fpd).ls - 2;
	while(i-- > 0) {
          kw_to_stream(oi->s, 92);
          kw_to_stream(oi->s, 1);
	  if(((oi->c)->opt1) & DKFIG_OPT_DP_DOT_LW) {
	    dkstream_puts_double(oi->s, (oi->m)->linewidth);
	  } else {
            dkstream_puts_long(oi->s, 0L);
	  }
          kw_to_stream(oi->s, 73);
          kw_to_stream(oi->s, 1);
          kw_to_stream(oi->s, 93);
          kw_to_stream(oi->s, 1);
          stream_puts_double(oi->s, x, 1, oi->c);
          kw_to_stream(oi->s, 73);
          kw_to_stream(oi->s, 0);
	}
      }
      kw_to_stream(oi->s, 92);
      kw_to_stream(oi->s, 1);
      stream_puts_double(oi->s, (0.5*x), 1, oi->c);
      kw_to_stream(oi->s, 73);
    } break;
    case 2: {	/* dotted */
      kw_to_stream(oi->s, 92);
      kw_to_stream(oi->s, 1);
      if(((oi->c)->opt1) & DKFIG_OPT_DP_DOT_LW) {
        dkstream_puts_double(oi->s, (oi->m)->linewidth);
      } else {
        dkstream_puts_long(oi->s, 0L);
      }
      kw_to_stream(oi->s, 73);
      kw_to_stream(oi->s, 1);
      kw_to_stream(oi->s, 93);
      kw_to_stream(oi->s, 1);
      stream_puts_double(oi->s, x, 1, oi->c);
      kw_to_stream(oi->s, 73);
    } break;
  }
  kw_to_stream(oi->s, 3);
  return back;
}
/* }}} */



/* {{{ print_path_object

  Print one non-text object.
*/
static int
print_path_object DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 0;
  int have_color_c = 0;
  dk_fig_dcc dcc;
  int must_draw = 1;
  $? "+ print_path_object"
  oi->me = 0;
  /* path p */
  kw_to_stream(oi->s, 25);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 27);
  kw_to_stream(oi->s, 4);
  kw_to_stream(oi->s, 0);
  /* p = */
  kw_to_stream(oi->s, 27);
  kw_to_stream(oi->s, 1);
  kw_to_stream(oi->s, 12);
  kw_to_stream(oi->s, 1);
  /* create path variable contents */
  switch((oi->o)->objtype) {
    case DK_FIG_OBJ_ELLIPSE: {
      back = path_ellipse(oi);
    } break;
    case DK_FIG_OBJ_POLYLINE: {
      back = path_polyline(oi);
    } break;
    case DK_FIG_OBJ_SPLINE: {
      back = path_spline(oi);
    } break;
    case DK_FIG_OBJ_ARC: {
      back = path_arc(oi);
    } break;
  }
  kw_to_stream(oi->s, 4);
  kw_to_stream(oi->s, 0);
  if(((oi->o)->fpd).cl) {
    /* fill */
    if(dkfig_tool_must_fill(((oi->o)->fpd).af, (oi->c)->opt1)
       || dkfig_tool_must_pattern(((oi->o)->fpd).af, (oi->c)->opt1))
    {
      must_draw = 1;
      if((oi->o)->objtype == DK_FIG_OBJ_POLYLINE) {
        if((oi->o)->subtype == 5) {
	  if(!(((oi->c)->opt1) & DKFIG_OPT_FILL_BITMAP_AREA)) {
	    must_draw = 0;
	  }
        }
      }
      if(must_draw) {
        if(((oi->o)->fpd).fc != (oi->d)->transparent) {
          dkfig_tool_fill_dcc(oi->d, &dcc, ((oi->o)->fpd).fc);
          dkfig_tool_correct_dcc(&dcc, ((oi->o)->fpd).fc, ((oi->o)->fpd).af);
          kw_to_stream(oi->s, 67);
          kw_to_stream(oi->s, 1);
          kw_to_stream(oi->s, 27);
          kw_to_stream(oi->s, 1);
          kw_to_stream(oi->s, 43);
          kw_to_stream(oi->s, 1);
          write_dcc_data(oi->s, &dcc, oi->c);
          kw_to_stream(oi->s, 4);
          kw_to_stream(oi->s, 0);
        }
        /* add pattern */
        if(dkfig_tool_must_pattern(((oi->o)->fpd).af, (oi->c)->opt1)) {
          if(((oi->o)->fpd).pc != (oi->d)->transparent) {
            /* set_line_width(oi, ((((oi->o)->fpd).lt) ? ((oi->o)->fpd).lt : 1L)); */
            cc_bb(oi->c, &(oi->obb), &((oi->o)->dbb));
            oi->patrp  = cc_noenl_linewidth(
  	      oi->c, (((oi->c)->patrp) ? ((oi->c)->patrp) : 4L)
  	    );
  	    set_line_width(oi, 1L);
  	    kw_to_stream(oi->s, 97);
  	    kw_to_stream(oi->s, 1);
  	    kw_to_stream(oi->s, 96);
  	    kw_to_stream(oi->s, 4);
  	    kw_to_stream(oi->s, 0);
  	    kw_to_stream(oi->s, 96);
  	    kw_to_stream(oi->s, 1);
  	    kw_to_stream(oi->s, 12);
  	    kw_to_stream(oi->s, 1);
  	    kw_to_stream(oi->s, 72);
  	    kw_to_stream(oi->s, 1);
  	    kw_to_stream(oi->s, 49);
  	    kw_to_stream(oi->s, 1);
            if(((oi->c)->opt1) & DKFIG_OPT_ENLIGHTEN_LOOK) {
  	      stream_puts_double(oi->s, 0.45, 1, oi->c);
            } else {
              stream_puts_double(oi->s, 0.9, 1, oi->c);
  	    }
  	    kw_to_stream(oi->s, 73);
  	    kw_to_stream(oi->s, 4);
  	    kw_to_stream(oi->s, 0);
            set_line_cap(oi, 0);
  	    set_line_join(oi, 0);
            dkfig_tool_fill_dcc(oi->d, &dcc, ((oi->o)->fpd).pc);
            write_color_c(oi, &dcc);
            have_color_c = 1;
  	    kw_to_stream(oi->s, 26);
  	    kw_to_stream(oi->s, 1);
  	    kw_to_stream(oi->s, 28);
  	    kw_to_stream(oi->s, 4);
  	    kw_to_stream(oi->s, 0);
            kw_to_stream(oi->s, 28);
            kw_to_stream(oi->s, 75);
            kw_to_stream(oi->s, 84);
            kw_to_stream(oi->s, 4);
            kw_to_stream(oi->s, 0);
  	    switch(((oi->o)->fpd).af) {
  	      case 41: { if(!diagonal_left_30(oi)) back = 0; } break;
  	      case 42: { if(!diagonal_right_30(oi)) back = 0; } break;
  	      case 43: { if(!crosshatch_30(oi)) back = 0; } break;
  	      case 44: { if(!diagonal_left_45(oi)) back = 0;} break;
  	      case 45: { if(!diagonal_right_45(oi)) back = 0; } break;
  	      case 46: { if(!crosshatch_45(oi)) back = 0; } break;
  	      case 47: { if(!horizontal_bricks(oi)) back = 0; } break;
  	      case 48: { if(!vertical_bricks(oi)) back = 0; } break;
  	      case 49: { if(!horizontal_lines(oi)) back = 0; } break;
  	      case 50: { if(!vertical_lines(oi)) back = 0; } break;
  	      case 51: { if(!crosshatch(oi)) back = 0; } break;
  	      case 52: { if(!horiz_shingles_right(oi)) back = 0; } break;
  	      case 53: { if(!horiz_shingles_left(oi)) back = 0; } break;
  	      case 54: { if(!vert_shingles_one(oi)) back = 0; } break;
  	      case 55: { if(!vert_shingles_two(oi)) back = 0; } break;
  	      case 56: { if(!large_fish_scales(oi)) back = 0; } break;
  	      case 57: { if(!small_fish_scales(oi)) back = 0; } break;
  	      case 58: { if(!circles(oi)) back = 0; } break;
  	      case 59: { if(!hexagons(oi)) back = 0; } break;
  	      case 60: { if(!octagons(oi)) back = 0; } break;
  	      case 61: { if(!horiz_tires(oi)) back = 0; } break;
  	      case 62: { if(!vert_tires(oi)) back = 0; } break;
  	    }
  	    /* wieder einfuegen, nur zu Testzwecken draussen */
            kw_to_stream(oi->s, 85);
            kw_to_stream(oi->s, 1);
            kw_to_stream(oi->s, 28);
            kw_to_stream(oi->s, 1);
            kw_to_stream(oi->s, 86);
            kw_to_stream(oi->s, 1);
            kw_to_stream(oi->s, 27);
            kw_to_stream(oi->s, 4);
            kw_to_stream(oi->s, 0);
  	    /* bis hierher zu Testzwecken geloescht */
            kw_to_stream(oi->s, 87);
            kw_to_stream(oi->s, 1);
            kw_to_stream(oi->s, 88);
            kw_to_stream(oi->s, 1);
            kw_to_stream(oi->s, 89);
            kw_to_stream(oi->s, 1);
            kw_to_stream(oi->s, 28);
            kw_to_stream(oi->s, 4);
            kw_to_stream(oi->s, 0);
          }
        }
      }
    }
  }
  /* add stroke */
  must_draw = 1;
  if((oi->o)->objtype == DK_FIG_OBJ_POLYLINE) {
    if((oi->o)->subtype == 5) {
      if(((oi->c)->opt1) & DKFIG_OPT_REMOVE_BITMAP_BORDER) {
        must_draw = 0;
      }
    }
  }
  if(((oi->c)->opt1) & DKFIG_OPT_REMOVE_THIN_BORDERS) {
    if(((oi->o)->fpd).lt == 0L) {
      if(((oi->o)->fpd).cl) {
        if(dkfig_tool_must_fill(((oi->o)->fpd).af, (oi->c)->opt1)) {
	  must_draw = 0;
	}
	if(dkfig_tool_must_pattern(((oi->o)->fpd).af, (oi->c)->opt1)) {
	  must_draw = 0;
	}
	if((oi->o)->objtype == DK_FIG_OBJ_POLYLINE) {
	  if((oi->o)->subtype == 5) {
	    must_draw = 0;
	  }
	}
      }
    }
  }
  if(((oi->o)->fpd).pc == (oi->d)->transparent) {
    must_draw = 0;
  }
  if(((oi->c)->opt1) & DKFIG_OPT_REMOVE_BG_RECTANGLE) {
    int wbgr = 0;
    if(((oi->c)->opt2) & DKFIG_OPT_WHITE_BGRECT) {
      wbgr = 1;
    }
    if(dkfig_tool2_obj_is_bg_rect(oi->o, wbgr)) { must_draw = 0; }
  }
  if(must_draw) {
    dkfig_tool_fill_dcc(oi->d, &dcc, ((oi->o)->fpd).pc);
    if(!(((oi->o)->fpd).cl)) {
      if((((oi->o)->fpd).ar) & 3) {
        if(!have_color_c) {
	  write_color_c(oi, &dcc);
	  have_color_c = 1;
	}
      }
    }
    set_line_cap(oi, ((oi->o)->fpd).cs);
    set_line_join(oi, ((oi->o)->fpd).js);
    set_line_width(oi, ((oi->o)->fpd).lt);
    kw_to_stream(oi->s, 70);
    kw_to_stream(oi->s, 1);
    kw_to_stream(oi->s, 27);
    kw_to_stream(oi->s, 1);
    kw_to_stream(oi->s, 43);
    kw_to_stream(oi->s, 1);
    if(have_color_c) {
      kw_to_stream(oi->s, 69);
    } else {
      write_dcc_data(oi->s, &dcc, oi->c);
    }
    if(((oi->o)->fpd).ls > 0) {
      add_dash_pattern(oi);
    }
    kw_to_stream(oi->s, 4);
    kw_to_stream(oi->s, 0);
    /* add arrowheads */
    if((((oi->o)->fpd).ar) & 1) {
      oi->a = &(((oi->o)->fpd).ahf);
      arrowhead_path(oi, 0);
      arrowhead_fd(oi, &dcc, have_color_c);
    }
    if((((oi->o)->fpd).ar) & 2) {
      oi->a = &(((oi->o)->fpd).ahb);
      arrowhead_path(oi, 1);
      arrowhead_fd(oi, &dcc, have_color_c);
    }
  }
  if(oi->me) {
    /* WARNING: math problem in object */
    dkfig_tool2_msg1(oi->c, DK_LOG_LEVEL_ERROR, 13);
    back = 0;
  }
  $? "- print_path_object %d", back
  return back;
}
/* }}} */



/* {{{ print_object

  Draw one object. Use the functions above
  to do the real work.

*/
static int
print_object DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 0;
  $? "+ print_object"
  if(((oi->c)->opt1) & DKFIG_OPT_VERBOSE_OUTPUT) {
    kw_to_stream(oi->s, 19); kw_to_stream(oi->s, 1);
    dkstream_puts_ul(oi->s, (oi->o)->lineno);
    kw_to_stream(oi->s, 0);
  }
  $? ". lineno=%lu type=%d", (oi->o)->lineno, (oi->o)->objtype
  switch((oi->o)->objtype) {
    case DK_FIG_OBJ_TEXT: {
      back = print_text_object(oi);
    } break;
    case DK_FIG_OBJ_ELLIPSE:
    case DK_FIG_OBJ_POLYLINE:
    case DK_FIG_OBJ_SPLINE:
    case DK_FIG_OBJ_ARC: {
      back = print_path_object(oi);
    } break;
    default: {		$? "! unknown object"
    } break;
  }
  $? "- print_object %d", back
  return back;
}
/* }}} */



/* {{{ do_preamble

  Write the MetaPost preamble (which includes the
  LaTeX preamble).

*/
static int
do_preamble DK_P1(dkfig_mp_output_instruction *,oi)
{
  int back = 1;
  int need_latex = 0;
  $? "+ do_preamble"
  need_latex = dkfig_dt_need_tex_file(oi->c);
  kw_to_stream(oi->s, 19);
  kw_to_stream(oi->s,  1);
  kw_to_stream(oi->s, 99);
  kw_to_stream(oi->s,  0);
  kw_to_stream(oi->s, 13);
  kw_to_stream(oi->s, 14);
  kw_to_stream(oi->s, 12);
  kw_to_stream(oi->s, ((((oi->c)->opt1) & DKFIG_OPT_NO_EMBEDDED_FONTS) ? 10 : 11));
  kw_to_stream(oi->s,  4);
  kw_to_stream(oi->s,  0);
  kw_to_stream(oi->s, 100); kw_to_stream(oi->s, 0);
  if(need_latex) {
    kw_to_stream(oi->s, 15); kw_to_stream(oi->s, 0);
    if(((oi->c)->opt1) & DKFIG_OPT_WR_TEX_COMMAND) {
      kw_to_stream(oi->s, ((((oi->c)->opt1) & DKFIG_OPT_OLD_TEX) ? 17 : 16));
      kw_to_stream(oi->s, 0);
    }
    /* LaTeX preamble */
    if(!dkfig_dt_tex_preamble(oi->c, oi->s)) {
      back = 0;
    }
    /* begin document */
    dkfig_dt_begin_document(oi->c, oi->s);
    /* font setup */
    if(!dkfig_dt_font_defs(oi->c, oi->s)) {
      back = 0;
    }
    kw_to_stream(oi->s, 18); kw_to_stream(oi->s, 0);
  }
  $? "- do_preamble"
  return back;
}
/* }}} */



/* {{{ end_file

  End mp output by writing the "end" line.

*/
static void
end_file DK_P1(dk_stream_t *,os)
{
  kw_to_stream(os, 24); kw_to_stream(os, 0);
}
/* }}} */



/* {{{ end_image

  End the current image.

*/
static
void
end_image DK_P1(dk_stream_t *,os)
{
  kw_to_stream(os, 23); kw_to_stream(os, 0);
}
/* }}} */



/* {{{ do_not_have_anything

  All settings empty at beginning of an image.

*/
static void
do_not_have_anything DK_P1(dk_fig_output_mp *,mpo)
{
  mpo->haveflags = 0 ;
  mpo->linewidth = 0L;
  mpo->linecap   = 0 ;
  mpo->linejoin  = 0 ;
}
/* }}} */



/* {{{ begin_image

  Begin a new image.
  Write the beginfig line and increase the
  image number.

*/
static
void
begin_image DK_P2(\
  dk_stream_t *,os,dk_fig_output_mp *,mpo\
)
{
  kw_to_stream(os, 22);
  kw_to_stream(os,  2);
  dkstream_puts_ul(os, mpo->currentimage);
  kw_to_stream(os,  3);
  kw_to_stream(os,  0);
  mpo->currentimage += 1UL;
  do_not_have_anything(mpo);
}
/* }}} */



/* {{{ next_image

  For the mmp driver: end the current image
  and start a new one.

*/
static
void
next_image DK_P2(\
  dk_stream_t *,os, dk_fig_output_mp *,mpo\
)
{
  end_image(os);
  begin_image(os, mpo);
}
/* }}} */



/* {{{ handle_special_comments
*/
static void
handle_special_comments DK_P2(\
  dkfig_mp_output_instruction *,oi, dk_fig_object *,o\
)
{
    int i;
    if((o->osc) && (o->osci)) {
      dk_fig_opt *speccom;
      $? ". processing special comments for object"
      dksto_it_reset(o->osci);
      while((speccom = (dk_fig_opt *)dksto_it_next(o->osci)) != NULL) {
        $? ". speccom = \"%s\"", speccom->name
        i = dkfig_opt_process_special_comment(
	  oi->c, speccom->name, keywords[102], 0
	);
	dkfig_tool2_report_special_comment(oi->c, speccom, i);
      }
    }
} /* }}} */



/* {{{

  Output pass.

*/
static
int
output_pass DK_P1(dk_fig_conversion *,c)
{
  int back = 0;
  int must_restart;
  dkfig_mp_output_instruction oi;
  dk_fig_object      *o;
  int error_type;		/* 0=internal, 1=handled */
  unsigned long backupopt1;
  $? "+ output_pass"
  oi.c = c; error_type = 0;
  o = (dk_fig_object *)(c->drwng);
  if(c->app) { dkapp_set_source_lineno(c->app, 0UL); }
  if(o) {
    oi.d = (dk_fig_drawing *)(o->data);
    if(oi.d) {
      oi.m = (dk_fig_output_mp *)(c->outds);
      if(oi.m) {
        oi.o = NULL;
	oi.s = c->ostrm;
	if(oi.s) {
	  error_type = back = 1;
	  if(!do_preamble(&oi)) {
	    back = 0; /* message handled in do_pramble() */
	  }
	  if(c->app) { dkapp_set_source_lineno(c->app, 0UL); }
          (oi.m)->currentdepth = 0L; (oi.m)->havecd = 0;
          begin_image(oi.s, oi.m);
          dksto_it_reset((oi.m)->it);
          while((o = (dk_fig_object *)dksto_it_next((oi.m)->it)) != NULL) {
	    backupopt1 = c->opt1;
            handle_special_comments(&oi,o);
	    if(c->app) { dkapp_set_source_lineno(c->app, o->lineno); }
	    oi.o = o;
	    must_restart = 0;
            if((oi.m)->multi) {
              if((oi.m)->havecd) {
                if(o->layer < ((oi.m)->currentdepth - 1L)) {
	          must_restart = 1;
	        }
              }
            }
	    if(must_restart) {
              /* DEBUG: Start of next output figure */
	      dkfig_tool2_msg1(oi.c, DK_LOG_LEVEL_DEBUG, 54);
              (oi.m)->currentdepth = o->layer;
              (oi.m)->havecd = 1;
              dksto_it_reset((oi.m)->it);
              next_image(oi.s, oi.m);
	    } else {
	      /*
	        save current layer only if there is no layer saved yet
	        or the current layer is smaller than the saved one
	      */
	      if((oi.m)->havecd) {
	        if(o->layer < (oi.m)->currentdepth) {
		  (oi.m)->currentdepth = o->layer;
		}
	      } else {
	        (oi.m)->currentdepth = o->layer;
	      }
	      (oi.m)->havecd = 1;
	      /*
	        print the object
	      */
	      if(!print_object(&oi)) {
	        back = 0; /* message handled in print_object */
	      }
	    }
	    c->opt1 = backupopt1;
	  }
          end_image(oi.s);
          end_file(oi.s);
	}
      }
    }
  }
  if(!back) {
    switch(error_type) {
      case 0: {
        /* ERROR: internal setup error */
	dkfig_tool2_msg1(oi.c, DK_LOG_LEVEL_ERROR, 44);
      } break;
    }
  }
  $? "- output_pass %d", back
  return back;
}
/* }}} */



/* {{{

  Initialize output data structure

*/
static
void
null_outds DK_P1(dk_fig_output_mp *,o)
{
  o->multi = 0;
  o->flatlist = NULL;
  o->it = NULL;
  o->currentimage = 0UL;
  o->sf = o->mx = 3.0 / 50.0;
  o->my = 0.0 - o->mx;
  o->nx = o->ny = 0.0;
  o->ahlength = 0.0;
  o->ahangle  = 0.0;
  do_not_have_anything(o);
}
/* }}} */



/* {{{

  Cleaning up is necessary in all cases.

*/
static
void
cleanup_pass DK_P1(dk_fig_conversion *,c)
{
  dk_fig_output_mp *outds;
  $? "+ cleanup_pass"
  if(c->outds) {
    outds = (dk_fig_output_mp *)(c->outds);
    if(outds->it) { dksto_it_close(outds->it); }
    if(outds->flatlist) { dksto_close(outds->flatlist); }
    null_outds(outds);
    dk_delete(outds);
    c->outds = NULL;
  }
  $? "- cleanup_pass"
}
/* }}} */



/* {{{ outds_coord_transform

  Set up co-ordinates transformation according
  to the bounding box.

*/
static int
outds_coord_transform DK_P2(\
  dk_fig_output_mp *,mpo, dk_fig_object *,o\
)
{
  int back = 0, matherr = 0;
  dk_fig_drawing *d;
  double min, max, omin, omax;
  $? "+ outds_coord_transform"
  if(mpo && o) {
    d = (dk_fig_drawing *)(o->data);
    if(d) {
      if(d->fres > DKFIG_EPSILON) {
        if(dkfig_tool_invert_y(d)) {
          mpo->sf = dkma_div_double_ok(72.0, d->fres, &matherr);
	  mpo->mx = mpo->sf;
	  mpo->my = 0.0 - mpo->mx;
	  mpo->nx = mpo->ny = 0.0;
	  if( (d->dbb).flags & 0x01 ) {
	    omin = dkma_mul_double_ok(mpo->mx, (d->dbb).xmin, &matherr);
	    omax = dkma_mul_double_ok(mpo->mx, (d->dbb).xmax, &matherr);
	    mpo->nx = 0.0 - omin;
	    omax = dkma_sub_double_ok(omax, omin, &matherr);
	    min  = 0.0;
	    max  = ceil(omax);
	    mpo->nx = dkma_add_double_ok(
	      mpo->nx,
	      dkma_div_double_ok(
	        dkma_sub_double_ok(max, omax, &matherr),
	        2.0,
	        &matherr
	      ),
	      &matherr
	    );
	  }
	  if( (d->dbb).flags & 0x02 ) {
	    omin = dkma_mul_double_ok(mpo->my, (d->dbb).ymax, &matherr);
	    omax = dkma_mul_double_ok(mpo->my, (d->dbb).ymin, &matherr);
	    mpo->ny = 0.0 - omin;
	    omax = dkma_sub_double_ok(omax, omin, &matherr);
	    min = 0.0;
	    max = ceil(omax);
	    mpo->ny = dkma_add_double_ok(
	      mpo->ny,
	      dkma_div_double_ok(
	        dkma_sub_double_ok(max, omax, &matherr),
	        2.0,
	        &matherr
	      ),
	      &matherr
	    );
	  }
	  if(!matherr) {
	    back = 1;
	  }
	} else {	$? ". NO y MIRRORING"
          mpo->sf = dkma_div_double_ok(72.0, d->fres, &matherr);
	  mpo->mx = mpo->sf;
	  mpo->my = mpo->mx;
	  mpo->nx = mpo->ny = 0.0;
	  if( (d->dbb).flags & 0x01 ) {
	    omin = dkma_mul_double_ok(mpo->mx, (d->dbb).xmin, &matherr);
	    omax = dkma_mul_double_ok(mpo->mx, (d->dbb).xmax, &matherr);
	    mpo->nx = 0.0 - omin;
	    omax = dkma_sub_double_ok(omax, omin, &matherr);
	    min  = 0.0;
	    max  = ceil(omax);
	    mpo->nx = dkma_add_double_ok(
	      mpo->nx,
	      dkma_div_double_ok(
	        dkma_sub_double_ok(max, omax, &matherr),
	        2.0,
	        &matherr
	      ),
	      &matherr
	    );
	  }
	  if( (d->dbb).flags & 0x02 ) {
	    omin = dkma_mul_double_ok(mpo->my, (d->dbb).ymin, &matherr);
	    omax = dkma_mul_double_ok(mpo->my, (d->dbb).ymax, &matherr);
	    mpo->ny = 0.0 - omin;
	    omax = dkma_sub_double_ok(omax, omin, &matherr);
	    min = 0.0;
	    max = ceil(omax);
	    mpo->ny = dkma_add_double_ok(
	      mpo->ny,
	      dkma_div_double_ok(
	        dkma_sub_double_ok(max, omax, &matherr),
	        2.0,
	        &matherr
	      ),
	      &matherr
	    );
	  }
	  if(!matherr) {
	    back = 1;
	  }
	}
      }
    }
    $? ". dbb  xmin=%8.5lg  xmax=%8.5lg  ymin=%8.5lg  ymax=%8.5lg", (d->dbb).xmin, (d->dbb).xmax, (d->dbb).ymin, (d->dbb).ymax
    $? ".  sf  xmin=%8.5lg  xmax=%8.5lg  ymin=%8.5lg  ymax=%8.5lg", (mpo->mx * (d->dbb).xmin), (mpo->mx * (d->dbb).xmax), (mpo->my * (d->dbb).ymin), (mpo->my * (d->dbb).ymax)
    $? ". res    mx=%8.5lg    nx=%8.5lg    my=%8.5lg    ny=%8.5lg", mpo->mx, mpo->nx, mpo->my, mpo->ny
  } $? "- outds_coord_transform %d", back
  return back;
}
/* }}} */



/* {{{ preparation_pass

  Prepare before writing.

*/
static
int
preparation_pass DK_P1(dk_fig_conversion *,c)
{
  int back = 0;
  dk_fig_output_mp *outds;
  $? "+ preparation_pass"
  if(c->app) {
    dkapp_set_source_lineno(c->app, 0UL);
  }
  outds = (dk_fig_output_mp *)dk_new(dk_fig_output_mp,1);
  if(outds) {
    c->outds = (void *)outds;
    null_outds(outds);
    outds_coord_transform(outds, c->drwng);
    outds->flatlist = dkfig_flat_list(c, c->drwng);
    if(outds->flatlist) {
      outds->it = dksto_it_open(outds->flatlist);
      if(outds->it) {
        back = 1;
      } else {
        if(c->app) {
          dkapp_err_memory(c->app, sizeof(dk_storage_iterator_t), 1);
	}
      }
    }
  } else {
    if(c->app) {
      dkapp_err_memory(c->app, sizeof(dk_fig_output_mp), 1);
    }
  }
  dkfig_tool2_report_unused_options(c);
  $? "- preparation_pass %d", back
  return back;
}
/* }}} */



/* {{{ dkfig_output_mmp

  Output multi metapost.

*/
int
dkfig_output_mmp DK_P1(dk_fig_conversion *,c)
{
  int back = 0;
  $? "+ dkfig_output_mmp"
  if(c) {
    /* PROGRESS: Gathering font information */
    dkfig_tool2_msg1(c, DK_LOG_LEVEL_PROGRESS, 55);
    if(preparation_pass(c)) {
      ((dk_fig_output_mp *)(c->outds))->multi = 1;	/* enable mmp */
      /* PROGRESS: Starting output */
      dkfig_tool2_msg1(c, DK_LOG_LEVEL_PROGRESS, 56);
      back = output_pass(c);
      /* PROGRESS: Output finished */
      dkfig_tool2_msg1(c, DK_LOG_LEVEL_PROGRESS, 57);
    }
    cleanup_pass(c);
  }
  $? "- dkfig_output_mmp %d", back
  return back;
}
/* }}} */



/* {{{ dkfig_output_mp

  Write MetaPost output.

*/
int
dkfig_output_mp DK_P1(dk_fig_conversion *,c)
{
  int back = 0;
  $? "+ dkfig_output_mp %s", TR_PTR(c)
  if(c) {
    /* PROGRESS: Gathering font information */
    dkfig_tool2_msg1(c, DK_LOG_LEVEL_PROGRESS, 55);
    if(preparation_pass(c)) {
      ((dk_fig_output_mp *)(c->outds))->multi = 0;	/* disable mmp */
      /* PROGRESS: Starting output */
      dkfig_tool2_msg1(c, DK_LOG_LEVEL_PROGRESS, 56);
      back = output_pass(c);
      /* PROGRESS: Output finished */
      dkfig_tool2_msg1(c, DK_LOG_LEVEL_PROGRESS, 57);
    }
    cleanup_pass(c);
  }
  $? "- dkfig_output_mp %d", back
  return back;
}
/* }}} */



/* {{{ SCCS ID */
#ifndef LINT
static char sccs_id[] = {
"@(#)dkfigmp.ctr 1.111 02/19/08\t(krause) - fig2vect"
};
#endif
/* }}} */