diff options
Diffstat (limited to 'dvi/mdvi-lib/sp-epsf.c')
| -rw-r--r-- | dvi/mdvi-lib/sp-epsf.c | 257 |
1 files changed, 0 insertions, 257 deletions
diff --git a/dvi/mdvi-lib/sp-epsf.c b/dvi/mdvi-lib/sp-epsf.c deleted file mode 100644 index ca13c86..0000000 --- a/dvi/mdvi-lib/sp-epsf.c +++ /dev/null @@ -1,257 +0,0 @@ -/* - * Copyright (C) 2000, Matias Atria - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - */ - -/* postscript specials */ - -#include <stdlib.h> -#include <string.h> - -#include "mdvi.h" -#include "private.h" - -typedef struct { - double ox; - double oy; - double bw; - double bh; - double angle; -} EpsfBox; - -#define LLX 0 -#define LLY 1 -#define URX 2 -#define URY 3 -#define RWI 4 -#define RHI 5 -#define HOFF 6 -#define VOFF 7 -#define HSIZE 8 -#define VSIZE 9 -#define HSCALE 10 -#define VSCALE 11 -#define ANGLE 12 -#define CLIP 13 - -void epsf_special __PROTO((DviContext *dvi, char *prefix, char *arg)); - -/* Note: the given strings are modified in place */ -static char *parse_epsf_special(EpsfBox *box, char **ret, - char *prefix, char *arg) -{ - static struct { - char *name; - int has_arg; - char *value; - } keys[] = { - {"llx", 1, "0"}, - {"lly", 1, "0"}, - {"urx", 1, "0"}, - {"ury", 1, "0"}, - {"rwi", 1, "0"}, - {"rhi", 1, "0"}, - {"hoffset", 1, "0"}, - {"voffset", 1, "0"}, - {"hsize", 1, "612"}, - {"vsize", 1, "792"}, - {"hscale", 1, "100"}, - {"vscale", 1, "100"}, - {"angle", 1, "0"}, - {"clip", 0, "0"} - }; -#define NKEYS (sizeof(keys) / sizeof(keys[0])) - char *ptr; - char *filename; - int quoted; - double value[NKEYS]; - Uchar present[NKEYS]; - Buffer buffer; - char *name; - int i; - double originx; - double originy; - double hsize; - double vsize; - double hscale; - double vscale; - - /* this special has the form - * ["]file.ps["] [key=valye]* - */ - - /* scan the filename */ - while(*arg == ' ' || *arg == '\t') - arg++; - - /* make a copy of the string */ - ptr = arg; - - if(*ptr == '"') - for(name = ++ptr; *ptr && *ptr != '"'; ptr++); - else - for(name = ptr; *ptr && *ptr != ' ' && *ptr != '\t'; ptr++); - if(ptr == name) - return NULL; - *ptr++ = 0; - filename = name; - - /* reset values to defaults */ - for(i = 0; i < NKEYS; i++) { - value[i] = atof(keys[i].value); - present[i] = 0; - } - - buff_init(&buffer); - buff_add(&buffer, "@beginspecial ", 0); - - quoted = 0; - while(*ptr) { - const char *keyname; - char *val; - char *p; - - while(*ptr == ' ' || *ptr == '\t') - ptr++; - keyname = ptr; - - /* get the whole key=value pair */ - for(; *ptr && *ptr != ' ' && *ptr != '\t'; ptr++); - - if(*ptr) *ptr++ = 0; - /* now we shouldn't touch `ptr' anymore */ - - /* now work on this pair */ - p = strchr(keyname, '='); - if(p == NULL) - val = NULL; - else { - *p++ = 0; - if(*p == '"') { - val = ++p; - /* skip until closing quote */ - while(*p && *p != '"') - p++; - if(*p != '"') - warning( - _("%s: malformed value for key `%s'\n"), - filename, keyname); - } else - val = p; - } - - /* lookup the key */ - for(i = 0; i < NKEYS; i++) - if(STRCEQ(keys[i].name, keyname)) - break; - if(i == NKEYS) { - warning(_("%s: unknown key `%s' ignored\n"), - filename, keyname); - continue; - } - if(keys[i].has_arg && val == NULL) { - warning(_("%s: no argument for key `%s', using defaults\n"), - filename, keyname); - val = keys[i].value; - } else if(!keys[i].has_arg && val) { - warning(_("%s: argument `%s' ignored for key `%s'\n"), - filename, val, keyname); - val = NULL; - } - if(val) - value[i] = atof(val); - - /* put the argument */ - buff_add(&buffer, val, 0); - buff_add(&buffer, " @", 2); - buff_add(&buffer, keyname, 0); - buff_add(&buffer, " ", 1); - - /* remember that this option was given */ - present[i] = 0xff; - } - buff_add(&buffer, " @setspecial", 0); - - /* now compute the bounding box (code comes from dvips) */ - originx = 0; - originy = 0; - hscale = 1; - vscale = 1; - hsize = 0; - vsize = 0; - - if(present[HSIZE]) - hsize = value[HSIZE]; - if(present[VSIZE]) - vsize = value[VSIZE]; - if(present[HOFF]) - originx = value[HOFF]; - if(present[VOFF]) - originy = value[VOFF]; - if(present[HSCALE]) - hscale = value[HSCALE] / 100.0; - if(present[VSCALE]) - vscale = value[VSCALE] / 100.0; - if(present[URX] && present[LLX]) - hsize = value[URX] - value[LLX]; - if(present[URY] && present[LLY]) - vsize = value[URY] - value[LLY]; - if(present[RWI] || present[RHI]) { - if(present[RWI] && !present[RHI]) - hscale = vscale = value[RWI] / (10.0 * hsize); - else if(present[RHI] && !present[RWI]) - hscale = vscale = value[RHI] / (10.0 * vsize); - else { - hscale = value[RWI] / (10.0 * hsize); - vscale = value[RHI] / (10.0 * vsize); - } - } - - box->ox = originx; - box->oy = originy; - box->bw = hsize * hscale; - box->bh = vsize * vscale; - box->angle = value[ANGLE]; - - *ret = buffer.data; - - return filename; -} - -void epsf_special(DviContext *dvi, char *prefix, char *arg) -{ - char *file; - char *special; - EpsfBox box = {0, 0, 0, 0}; - int x, y; - int w, h; - double xf, vf; - - file = parse_epsf_special(&box, &special, prefix, arg); - if(file != NULL) - mdvi_free(special); - /* - * draw the bounding box. Notice that it is in PostScript units, - * so we have to convert it into pixels - */ - xf = dvi->params.dpi * dvi->params.mag / (72.0 * dvi->params.hshrink); - vf = dvi->params.vdpi * dvi->params.mag / (72.0 * dvi->params.vshrink); - x = FROUND(box.ox * xf); - y = FROUND(box.oy * vf); - w = FROUND(box.bw * xf); - h = FROUND(box.bh * vf); - dvi->device.draw_rule(dvi, dvi->pos.hh + x, dvi->pos.vv + y - h + 1, w, h, 0); -} |