Attachment #2441 for bug #14496

View | Details | Raw Unified | Return to bug 14496
Collapse All | Expand All

Lines 42-48 Link Here

(-)transfig.3.2.3d.orig/doc/fig2dev.1 (-2 / +2 lines)
42	.LP	42	.LP
43	Xfig version 3.2.3 and later saves and allows the user to edit comments	43	Xfig version 3.2.3 and later saves and allows the user to edit comments
44	for each Fig object. These comments are output with several of the output languages,	44	for each Fig object. These comments are output with several of the output languages,
45	such as PostScript, CGM, LaTeX, MetaFont, PicTeX, (as % comments),	45	such as PostScript, CGM, SML, LaTeX, MetaFont, PicTeX, (as % comments),
46	tk (as # comments), and pic (as .\\" comments).	46	tk (as # comments), and pic (as .\\" comments).
47		47
48	.SH GENERAL OPTIONS	48	.SH GENERAL OPTIONS
Lines 52-58 Link Here
52	Valid languages are	52	Valid languages are
53	\fBbox, cgm, epic, eepic, eepicemu, eps, gif, ibmgl, jpeg,	53	\fBbox, cgm, epic, eepic, eepicemu, eps, gif, ibmgl, jpeg,
54	latex, map (HTML image map), mf (MetaFont), mp (MetaPost), mmp (MultiMetaPost),	54	latex, map (HTML image map), mf (MetaFont), mp (MetaPost), mmp (MultiMetaPost),
55	pcx, pdf, pic, pictex, png, ppm, ps,	55	pcx, pdf, pic, pictex, png, ppm, ps, sml, sxd,
56	pstex, pstex_t, sld (AutoCad slide format), textyl, \fR	56	pstex, pstex_t, sld (AutoCad slide format), textyl, \fR
57	tiff, tk (tcl/tk), tpic, xbm and	57	tiff, tk (tcl/tk), tpic, xbm and
58	.B xpm.	58	.B xpm.

Lines 290-295 Link Here

(-)transfig.3.2.3d.orig/fig2dev/Imakefile (+1 lines)
290	InstallScript(fig2ps2tex,$(BINDIR))	290	InstallScript(fig2ps2tex,$(BINDIR))
291	InstallScript(fig2ps2tex.sh,$(BINDIR))	291	InstallScript(fig2ps2tex.sh,$(BINDIR))
292	InstallScript(pic2tpic,$(BINDIR))	292	InstallScript(pic2tpic,$(BINDIR))
		293	InstallScript(fig2sxd,$(BINDIR))
293		294
294	InstallManPage(fig2ps2tex,$(MANDIR))	295	InstallManPage(fig2ps2tex,$(MANDIR))
295	InstallManPage(pic2tpic,$(MANDIR))	296	InstallManPage(pic2tpic,$(MANDIR))

Lines 720-725 Link Here

(-)transfig.3.2.3d.orig/fig2dev/Makefile.noimake (+5 lines)
720	else (set -x; $(MKDIRHIER) $(DESTDIR)$(BINDIR)); fi	720	else (set -x; $(MKDIRHIER) $(DESTDIR)$(BINDIR)); fi
721	$(INSTALL) $(INSTALLFLAGS) $(INSTBINFLAGS) pic2tpic.script $(DESTDIR)$(BINDIR)/pic2tpic	721	$(INSTALL) $(INSTALLFLAGS) $(INSTBINFLAGS) pic2tpic.script $(DESTDIR)$(BINDIR)/pic2tpic
722		722
		723	install:: fig2sxd.sh
		724	@if [ -d $(DESTDIR)$(BINDIR) ]; then set +x; \
		725	else (set -x; $(MKDIRHIER) $(DESTDIR)$(BINDIR)); fi
		726	$(INSTALL) $(INSTALLFLAGS) $(INSTBINFLAGS) fig2sxd.sh $(DESTDIR)$(BINDIR)/fig2sxd.sh
		727
723	install.man:: fig2ps2tex.man	728	install.man:: fig2ps2tex.man
724	@if [ -d $(DESTDIR)$(MANDIR) ]; then set +x; \	729	@if [ -d $(DESTDIR)$(MANDIR) ]; then set +x; \
725	else (set -x; $(MKDIRHIER) $(DESTDIR)$(MANDIR)); fi	730	else (set -x; $(MKDIRHIER) $(DESTDIR)$(MANDIR)); fi




READJPGO=readjpg.o
#endif

SRCS =  genbox.c gencgm.c genepic.c genibmgl.c genlatex.c gensml.c gensxd.c genmap.c genmf.c genpic.c \
	genpictex.c genps.c genpdf.c genpstex.c gentextyl.c gentk.c gentpic.c \
	genbitmaps.c genge.c genmp.c setfigfont.c psencode.c \
	readpics.c readeps.c readgif.c readpcx.c readppm.c \
	readxbm.c readtif.c $(READPNGS) $(READJPGS) $(READXPMS)
LIBOBJS = genbox.o gencgm.o genepic.o genibmgl.o genlatex.o gensml.o gensxd.o genmap.o genmf.o genpic.o \
	genpictex.o genps.o genpdf.o genpstex.o gentextyl.o gentk.o gentpic.o \
	genbitmaps.o genge.o genmp.o setfigfont.o psencode.o \
	readpics.o readeps.o readgif.o readpcx.o readppm.o \

Lines 225-234 Link Here

(-)transfig.3.2.3d.orig/fig2dev/dev/genps.c (-2 / +2 lines)
225	{"TIFF", "MM\000*", 4, read_tif, False},	225	{"TIFF", "MM\000*", 4, read_tif, False},
226	{"XBM", "#define", 7, read_xbm, True},	226	{"XBM", "#define", 7, read_xbm, True},
227	#ifdef USE_PNG	227	#ifdef USE_PNG
228	{"PNG", "\211\120\116\107\015\012\032\012", 8, read_png, True},	228	// {"PNG", "\211\120\116\107\015\012\032\012", 8, read_png, True},
229	#endif	229	#endif
230	#ifdef USE_JPEG	230	#ifdef USE_JPEG
231	{"JPEG", "\377\330\377\340", 4, read_jpg, True},	231	// {"JPEG", "\377\330\377\340", 4, read_jpg, True},
232	#endif	232	#endif
233	#ifdef USE_XPM	233	#ifdef USE_XPM
234	{"XPM", "/* XPM */", 9, read_xpm, False},	234	{"XPM", "/* XPM */", 9, read_xpm, False},






/*
 * TransFig: Facility for Translating Fig code
 * Copyright (c) 1991 by Micah Beck
 * Parts Copyright (c) 1985-1988 by Supoj Sutanthavibul
 * Parts Copyright (c) 1989-1999 by Brian V. Smith
 *
 * Any party obtaining a copy of these files is granted, free of charge, a
 * full and unrestricted irrevocable, world-wide, paid up, royalty-free,
 * nonexclusive right and license to deal in this software and
 * documentation files (the "Software"), including without limitation the
 * rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons who receive
 * copies from any such party to do so, with the only requirement being
 * that this copyright notice remain intact.
 *
 */

/*
 *	gensml.c : Kivio Stencil driver for fig2dev
 *
 *	Author: Peter Korf
 *      Code stolen from genlatex.c
 *
 */
#if defined(hpux) || defined(SYSV) || defined(SVR4)
#include <sys/types.h>
#endif
#include <sys/file.h>
#include "fig2dev.h"
#include "object.h"
#include "texfonts.h"

extern double rad2deg;
extern void unpsfont();

//static put_box();
//static put_arc_box();
//static single_line();
//static start_line();
void end_line();
void setcolor(int,int);


//static put_solidline();
//static put_dashline();
//static put_dotline();
//static put_quarter();

#define rint(a) floor((a)+0.5)     /* close enough? */

#define DESC_NAME	"unknown"
extern char            *from;

#define	SWAP(x,y)	{tmp=x; x=y; y=tmp;}
//#define TRANS(x,y)		(*translate_coordinates)(&x,&y)
//#define TRANS2(x1,y1,x2,y2)	(*translate_coordinates)(&x1,&y1); \
//				(*translate_coordinates)(&x2,&y2)
//#define TRANSD(x,y)		(*translate_coordinates_d)(&x,&y)
#define TRANS(x,y)		translate1(&x,&y)
#define TRANS2(x1,y1,x2,y2)	translate1(&x1,&y1);translate1(&x2,&y2);

#ifndef MIN
#define	MIN(x,y)	(((x) <= (y))? (x): (y))
#endif
#ifndef MAX
#define	MAX(x,y)	(((x) >= (y))? (x): (y))
#endif
#define	ABS(x)		(((x) >= 0)? (x): -(x))
#define round4(x)	((round(10000.0*(x))/10000.0))
#define round6(x)	((round(1000000.0*(x))/1000000.0))
#define MAXCIRCLEDIA	80
#define MAXCIRCLERAD	((MAXCIRCLEDIA-0.5)/(2*72.27))


#define SCALEFAKTOR	300

static char			desc_name[]  = DESC_NAME;
static float			offsetx,offsety,scale=1;
static int			counter=0;

static unsigned int rgbColorVal(int colorIndex);
// static unsigned int setStyle(F_compound	*objects;);


static	int	verbose;//  = 0;
extern double		dash_mag;//  = 1.0;
extern int		thick_width;//  = 2;
extern double		tolerance;//  = 2.0;
extern double		arc_tolerance;//  = 1.0;
extern int		(*translate_coordinates)();//  = NULL;
extern int		(*translate_coordinates_d)();//  = NULL;
extern double		unitlength;
static int	cur_thickness;// 1;
extern double		ldot_diameter;// .0/72.0;
extern char		*dot_cmd;// =tindot;
extern char		*ldot_cmd;// =hin_ldot;
extern double		dot_xoffset;
extern double		dot_yoffset;
extern double		ldot_xoffset;
extern double		ldot_yoffset;


static
translate1(xp, yp)
float	*xp, *yp;
{
if (verbose) fprintf(tfp, "<!-- translate1 %.3f %.3f %.3f-->\n",*xp,offsetx,scale);
	*xp = (float)(*xp-offsetx)/scale;
	*yp = (float)(*yp-offsety)/scale;

//*xp = *xp + 1;
//*yp = *yp + 1;
	}

static
translate2(xp, yp)
float	*xp, *yp;
{
if (verbose) fprintf(tfp, "<!-- translate2 -->\n");

//	*xp /= (double)120;
//	*yp /= (double)120;
	*xp = (*xp-offsetx)/scale;
	*yp = (*yp-offsety)/scale;
//	*xp = *xp + 1;
//	*yp = (double)(TOP - *yp -1);
	}

static translate1_d(xp, yp)
float	*xp, *yp;
{
if (verbose) fprintf(tfp, "<!-- translate1_d -->\n");
//	*xp /= (double)120;
//	*yp /= (double)120;
	*xp = (*xp-offsetx)/scale;
	*yp = (*yp-offsety)/scale;
//	*xp = *xp + 1.0;
//	*yp = *yp + 1.0;
	}
static
translate2_d(xp, yp)
float	*xp, *yp;
{
if (verbose) fprintf(tfp, "<!-- translate2_d -->\n");
//	*xp /= (double)120;
//	*yp /= (double)120;
	*xp = (*xp-offsetx)/scale;
	*yp = (*yp-offsety)/scale;
//	*xp = *xp + 1.0;
//	*yp = (double)TOP - *yp -1.0;
	}

void
gensml_option(opt, optarg)
  char opt, *optarg;
{
    int i;

    switch (opt) {
	case 'a':
	    fprintf(stderr, "warning: latex option -a obsolete");
	    break;

	case 'd':
	    dash_mag = atof(optarg);	/* set dash magnification */
	    break;

	    dash_mag = atof(optarg);	/* set dash magnification */
	    break;


	case 'f':		/* set default text font */
	    for ( i = 1; i <= MAX_FONT; i++ )
		if ( !strcmp(optarg, texfontnames[i]) ) break;

	    if ( i > MAX_FONT)
			{
			  fprintf(stderr,
						 "warning: non-standard font name %s ignored\n", optarg);
			}
		 else
			{
			  texfontnames[0] = texfontnames[i];
#ifdef NFSS
			  texfontfamily[0] = texfontfamily[i];
			  texfontseries[0] = texfontseries[i];
			  texfontshape[0] = texfontshape[i];
#endif
			}
	    break;

	case 'l':		/* set thin/thick line threshold */
	    thick_width = atoi(optarg);
	    break;

	case 'v':
	    verbose = 1;		/* verbose mode */
	    break;

	case 'n':
	    sprintf(desc_name,"%s",optarg);		/* description name (library) */
	    break;

	case 's':
	case 'm':
	case 'L':
	    break;

	    break;

	default:
	    put_msg(Err_badarg, opt, "latex");
	    exit(1);
	}
}

void
gensml_start(objects)
  F_compound	*objects;
{
	int tmp;
	char name1[40]="  ";
	float x1,y1,x2,y2;
	strncpy((char *)name1,from,strlen(from)-4);

//	strncpy((char *)name1,(char *)name1,strlen(name1)-4);
//	memcpy(rindex((const char*)from,'.'),'\0',1);
//	name[strlen((const char*)from)]='\0';
	/* print any whole-figure comments prefixed with "%" */
    fprintf(tfp, "<?xml version=\"1.0\"?>\n");

//	if (objects->comments) {
//	    print_comments("<!-- ",objects->comments, "-->");
//	}

//    fprintf(tfp, "<!-- do not edit ! generated with: fig2dev -L sml %s --->\n",from);
    fprintf(tfp, "<KivioShapeStencil creator=\"fig2dev\">\n" );
    fprintf(tfp, "<KivioSMLStencilSpawnerInfo>\n" );
    fprintf(tfp, "<Author data=\"see README files\"/>\n" );

//    print_comments("<Title data=\"  ",objects->comments, "\"/>");
    fprintf(tfp, "<Id data=\"%s\"/>\n",name1);
 if (objects->comments) {
	    print_comments("<Description data=\"  ",objects->comments, "\"/>");
	    print_comments("<Title data=\"  ",objects->comments, "\"/>");
  } else
  {
    fprintf(tfp, "<Description data=\"%s\"/>\n",name1);
    fprintf(tfp, "<Title data=\"%s\"/>\n",name1);
  }
    fprintf(tfp, "<Version data=\"0.1\"/>\n" );
    fprintf(tfp, "<Web data=\"www.xfig.org\"/>\n" );
    fprintf(tfp, "<Email data=\"peter@niendo.de\"/>\n" );
    fprintf(tfp, "<Copyright data=\"see README files \"/>\n" );
    fprintf(tfp, "<AutoUpdate data=\"off\"/>\n" );
    fprintf(tfp, "</KivioSMLStencilSpawnerInfo>\n" );

	texfontsizes[0] = texfontsizes[1] =
		TEXFONTSIZE(font_size?font_size:DEFAULT_FONT_SIZE);
        mag=1;
        ppi=1;
 	unitlength = mag/ppi;
	dash_mag /= unitlength;

//    fprintf(tfp, "mag: %f,ppi: %f,dashmag; %f\n",mag,ppi,dash_mag);

//    fprintf(tfp, "x1: %d,y1: %d,x2; %d,y2 %d\n",
//      objects->nwcorner.x,
//       objects->nwcorner.y,objects->secorner.x,objects->secorner.y);
	//translate_coordinates = translate2;
	//translate_coordinates_d = translate2_d;
        offsetx=(float)llx;
	offsety=(float)lly;

	x1=(float)llx;
	y1=(float)lly;
	x2=(float)urx;
	y2=(float)ury;
	TRANS2(x1, y1, x2, y2);
	//if (llx > urx) SWAP(llx, urx)
	//if (lly > ury) SWAP(lly, ury)

//	if((urx>300) || (ury>300)) {

	  scale=urx/SCALEFAKTOR;

//	  if (scale<1) scale=1;

//	   urx=(double)urx/6;
//	   ury=(double)ury/6;
      fprintf(tfp, "<Dimensions w=\"%.3f\" h=\"%.3f\" defaultAspect=\"0.75\"/>\n",x2/scale,y2/scale);
      fprintf(tfp, "<KivioShape type=\"TextBox\" name=\"TextBox%d\"  x=\"0.0\" y=\"0.0\" w=\"%.3f\" h=\"%.3f\" />\n",counter++,x2/scale,y2/scale);

//	  TRANS2(llx, lly, urx, ury);
//	} else
//	fprintf(tfp, "<Dimensions w=\"%d\" h=\"%d\" defaultAspect=\"0.75\"/>\n",urx,ury);





	/* LaTeX start */

	/* print any whole-figure comments prefixed with "%" */
//	if (objects->comments) {
//	    fprintf(tfp,"%%\n");
//	    print_comments("% ",objects->comments, "");
//	    fprintf(tfp,"%%\n");
//	}

//	fprintf(tfp, "\\setlength{\\unitlength}{%lisp}%%\n",
//				(long) (round(4736286.72*unitlength)));
	/* define the SetFigFont macro */
//	define_setfigfont(tfp);
//	fprintf(tfp, "\\begin{picture}(%d,%d)(%d,%d)\n",
//	 				 urx-llx, ury-lly, llx, lly);

}

int
gensml_end()
{
	fprintf(tfp, "</KivioShapeStencil>\n");
	/* all ok */
	return 0;
}


void
gensml_line(l)
  F_line	*l;
{
	F_point		*p, *q;
	float		x, y,x1,y1, llx, lly, urx, ury, arrow;
        float           r1,r2;
	int type=0;
	if (verbose)
	fprintf(tfp, "<!--depth: %d, Type: %d, Style: %d, Farbe_fill: %d, Farbe_pen: %d -->\n",l->depth,l->type,l->fill_style,l->fill_color,l->pen_color);

	/* print any comments prefixed with "%" */
	//print_comments("% ",l->comments, "");

//	set_linewidth(l->thickness);
//	setcolor(l->pen_color);
	p = l->points;
	q = p->next;



	if (q == NULL) { /* A single point line */

	    x = p->x; y = p->y;
	    TRANS(x, y);

//	    fprintf(tfp, "\\put(%3d,%3d){\\makebox(%.4f,%.4f){%s}}\n",
//	      x, y, dot_xoffset, dot_yoffset, dot_cmd);
              fprintf(tfp, "<KivioShape type=\"LineArray\" name=\"Point%d\">\n",counter++);

	       fprintf(tfp, "\t<Line x1=\"%.3f\" y1=\"%.3f\" x2=\"%.3f\" y2=\"%.3f\"/>\n",
	          x, y, x+0.001, y+0.001);
	}

	/* a box, perhaps with rounded corners */
	else
	 switch (l->type) {
               case T_BOX:
               case T_ARC_BOX: {
	    x = p->x; y = p->y;
	    TRANS(x, y);
	    llx = urx = x;
	    lly = ury = y;
	    while (q != NULL) {
		x = q->x; y = q->y;
		TRANS(x, y);
		if (x < llx) llx = x;
		if (y < lly) lly = y;
		if (x > urx) urx = x;
		if (y > ury) ury = y;
		q = q->next;
		}

            //if ((l->fill_style != -1) && (l->fill_color !=-1 )) {
	    if (l->type == T_ARC_BOX) {
	      // put_arc_box (llx, lly, urx, ury, l->radius, l->style, l->style_val);
	      r1=l->radius/scale/ppi;
              r2=l->radius/scale/ppi;
//	      //TRANS(r1,r2);
	      	        fprintf(tfp, "<KivioShape type=\"RoundRectangle\" name=\"RoundRectangle%d\" x=\"%.3f\" y=\"%.3f\" w=\"%.3f\" h=\"%.3f\" r1=\"%0.2f\" r2=\"%0.2f\">\n",
			counter++, llx, lly, urx-llx, ury-lly,r1,r2);
		  }
	    else {
              fprintf(tfp, "<KivioShape type=\"Rectangle\" name=\"Rectangle%d\" x=\"%.3f\" y=\"%.3f\" w=\"%.3f\" h=\"%.3f\">\n",
	  counter++, llx, lly, urx-llx, ury-lly);


                }
            /*} else
	    {
	           fprintf(tfp, "<KivioShape type=\"LineArray\" name=\"Rectangle%d\">\n",counter++);
                   fprintf(tfp, "\t<Line x1=\"%.3f\" y1=\"%.3f\" x2=\"%.3f\" y2=\"%.3f\"/>\n",
                                    llx, lly, urx,lly);
                   fprintf(tfp, "\t<Line x1=\"%.3f\" y1=\"%.3f\" x2=\"%.3f\" y2=\"%.3f\"/>\n",
                                    urx,lly, urx,ury);
		fprintf(tfp, "\t<Line x1=\"%.3f\" y1=\"%.3f\" x2=\"%.3f\" y2=\"%.3f\"/>\n",
                                    urx,ury,llx,ury);
		fprintf(tfp, "\t<Line x1=\"%.3f\" y1=\"%.3f\" x2=\"%.3f\" y2=\"%.3f\"/>\n",
                                    llx,ury, llx,lly);
	    }
*/
            break;
	    }
            case T_POLYLINE:
	    case T_POLYGON: {

	      if ( (l->fill_style == -1) && (l->fill_color ==-1 ))
	         {
		    fprintf(tfp, "<KivioShape type=\"Polyline\" name=\"Polyline%d\">\n",counter++);
             type=0;
		 }
             else
	        {
		     fprintf(tfp, "<KivioShape type=\"Polygon\" name=\"Polygon%d\">\n",counter++);


		 type=0;

         	 // fprintf(tfp, "<KivioShape type=\"LineArray\" name=\"LineArray%d\">\n",counter++);
		  //type=1;
              }


//	    if (l->type == T_BOUNDINGBOX)
//        	fprintf(tfp, "<KivioShape type=\"Polygon\" name=\"Lines\">\n");



	while (q != NULL) {
	    //arrow = 0;
	    //if (l->for_arrow  &&  q->next == NULL)
		//arrow = 1;
	    //if (l->back_arrow  &&  p == l->points)
		//arrow = (arrow)? 2: -1;
		  if (type==0) {
	   // if ((l->type == T_POLYGON) && (l->fill_style != UNFILLED)) {
		    	        x = p->x; y = p->y;
		        TRANS(x, y);
		    fprintf(tfp, "\t<KivioPoint x=\"%.3f\" y=\"%.3f\"/>\n",x,y);
                     }
                      else {
		       x=p->x;
		       y=p->y;
		       x1=q->x;
                       y1=q->y;
                       TRANS2(x, y, x1, y1);
                       fprintf(tfp, "\t<Line x1=\"%.3f\" y1=\"%.3f\" x2=\"%.3f\" y2=\"%.3f\"/>\n",
                                    x, y, x1,y1);

        	      // single_line(p->x, p->y, q->x, q->y, arrow, l->style, l->style_val);
		      }

	    p = q;
	    q = q->next;
	    }

	    if (type==0) {

	    	    x = p->x; y = p->y;
		    TRANS(x, y);
		    fprintf(tfp, "\t<KivioPoint x=\"%.3f\" y=\"%.3f\"/>\n",x,y);
            }
		break;
          }
          default: { fprintf(stderr, "Objekt nicht unterstützt\n");
	   }

	  }
	set_linewidth(l->thickness,l->pen_color);
	//if (type==0)
	set_arrow(&(l->for_arrow),&(l->back_arrow));

	setcolor(l->fill_style,l->fill_color);
        end_line();
}

void
gensml_spline(s)
  F_spline	*s;
{
	fprintf(stderr, "Can't generate spline; omitting object\n");
	}

void
gensml_ellipse(e)
  F_ellipse	*e;
{
	float  x, y, d, dx, dy;

	if (verbose)
	if (verbose)
	fprintf(tfp, "<!--depth: %d, Type: %d, Style: %d, Farbe_fill: %d, Farbe_pen: %d -->\n",e->depth,e->type,e->fill_style,e->fill_color,e->pen_color);

	/* print any comments prefixed with "%" */
	print_comments("<!-- ",e->comments, "-->");

	switch (e->style) {
	    case SOLID_LINE:
		break;
	    case DASH_LINE:
		fprintf(stderr, "Dashed circles and elipses not supported\n");
		break;
	    case DOTTED_LINE:
		fprintf(stderr, "Dotted circles and elipses not supported\n");
		break;
	    }

	x = e->center.x;
	y = e->center.y;
	TRANS(x, y);

TRANS(x, y);
 	if ((e->type == T_CIRCLE_BY_RAD || e->type == T_CIRCLE_BY_DIA)
			&& e->radiuses.x*unitlength <= MAXCIRCLERAD) {
	    d = 2 * e->radiuses.x;



	    if (e->fill_style == BLACK_FILL)
//	    	fprintf(tfp, "\\put(%3d,%3d){\\circle*{%d}}\n", x, y, d)
          ;
	    else {
//	      	fprintf(tfp, "\\put(%3d,%3d){\\circle{%d}}\n", x, y, d);
		if (e->fill_style != UNFILLED)
			fprintf(stderr, "Circle area fill not implemented\n");
	    }
             fprintf(tfp, "<!-- -->\n");


	    fprintf(tfp, "<KivioShape type=\"Ellipse\" name=\"Circle%d\" x=\"%.3f\" y=\"%.3f\" w=\"%.3f\"  h=\"%.3f\">\n",
	        counter++,x, y, d, d);

	} else {
	    dx = 2*e->radiuses.x/scale;
	    dy = 2*e->radiuses.y /scale;
            x = e->center.x-e->radiuses.x;
   	    y = e->center.y-e->radiuses.y;

            TRANS(x,y);
            fprintf(tfp, "<KivioShape type=\"Ellipse\" name=\"Ellipse%d\" x=\"%.3f\" y=\"%.3f\" w=\"%.3f\" h=\"%.3f\">\n",
	     counter++,x, y, dx, dy);
	}
	setcolor(e->fill_style,e->fill_color);
	set_linewidth(e->thickness,e->pen_color);
	end_line();
      }

void
gensml_text(t)
  F_text	*t;
{
	float   	x, y;
	char	*tpos;
	unsigned char	*cp;

	if (verbose)
	    fprintf(tfp, "<!-- Fig TEXT object-->\n");

	/* print any comments prefixed with "%" */
	print_comments("<!-- ",t->comments, "-->");

	x = t->base_x;
	y = t->base_y;
	TRANS(x, y);

	switch (t->type) {

	    case T_LEFT_JUSTIFIED:
	    case DEFAULT:
	    	tpos = "0";
		break;

	    case T_CENTER_JUSTIFIED:
	    	tpos = "1";
		break;

	    case T_RIGHT_JUSTIFIED:
	    	tpos = "[rb]";
		break;

	    default:
		fprintf(stderr, "Text incorrectly positioned\n");
	    	tpos = "[lb]";	/* make left in this case */
	    }

	/* smash is used to position text at baseline */
//	unpsfont(t);

fprintf(tfp, "<KivioShape type=\"TextBox\" name=\"TextBox%d\" x=\"%.3f\" y=\"%.3f\" w=\"100\" h=\"100\">\n",counter++,x,y);
fprintf(tfp, " <Position x=\"0\" y=\"0\" />\n");
fprintf(tfp, " <Dimension w=\"100\" h=\"100\" />\n");
setcolor(1,t->color);
fprintf(tfp, " <KivioTextStyle vTextAlign=\"32\" isHtml=\"0\" hTextAlign=\"%d\" text=\"%s\" />\n",t->type,t->cstring);
fprintf(tfp, " <Font fixedPitch=\"0\" size=\"%d\" strikeOut=\"0\" family=\"\" bold=\"0\" underline=\"0\" color=\"#0\"/>\n",t->size);
fprintf(tfp, "</KivioShape>\n");

        { int texsize;
          double baselineskip;

	  texsize = TEXFONTMAG(t);
	  baselineskip = (texsize * 1.2);

	}


}

void
gensml_arc(a)
  F_arc	*a;
{
	F_pos		p1, p2, pq[4];
	double		cx, cy;
	double		v1x, v1y, v2x, v2y;
	double		r, angle1, angle2;
	float		q1, q2 ;
	float		y,x;
	int		p1_arrow, p2_arrow,i;
	static char	*ad1[4] = { " 0,-1", " 1, 0", " 0, 1", "-1, 0" };
	static char	*ad2[4] = { "-1, 0", " 0,-1", " 1, 0", " 0, 1" };

	if (verbose)
	    fprintf(tfp, "<!-- Fig ARC object -->\n");

	/* print any comments prefixed with "%" */
	// print_comments("% ",a->comments, "");

//	set_linewidth(a->thickness);
//		if (a->fill_style != UNFILLED) setcolor(a->pen_color);
//	switch (a->style) {
//	    case SOLID_LINE:
//		break;
//	    case DASH_LINE:
//		fprintf(stderr, "Dashed arcs not supported\n");
//		break;
//	    case DOTTED_LINE:
//		fprintf(stderr, "Dotted arcs not supported\n");
//		break;
//	}
//	if (a->direction == 1) {
//	    p1 = a->point[0];
//	    p2 = a->point[2];
//	    p1_arrow = (a->back_arrow != NULL);
//	    p2_arrow = (a->for_arrow != NULL);
//	} else {
//	    p1 = a->point[2];
//	    p2 = a->point[0];
//	    p1_arrow = (a->for_arrow != NULL);
//	    p2_arrow = (a->back_arrow != NULL);
//	}


       fprintf(tfp, "<KivioShape type=\"Bezier\" name=\"Bezier%d\">\n",counter++);


/*	cx = a->center.x;
	cy = a->center.y;
	TRANS2(p1.x, p1.y, p2.x, p2.y);
	TRANSD(cx, cy);
	/*** compute vectors and angles from arc center to p1, p2 ***/
/*	v1x = (double)p1.x - cx;
	v1y = (double)p1.y - cy;
	v2x = (double)p2.x - cx;
	v2y = (double)p2.y - cy;
	angle1 = atan2(v1y, v1x) * rad2deg;
	angle2 = atan2(v2y, v2x) * rad2deg;
	if (angle1 < 0.0)
	    angle1 += 360.0;
	if (angle2 < 0.0)
	    angle2 += 360.0;
	/* compute arc radius */
//	r = sqrt(v1x*v1x+v1y*v1y);
	/*** compute intersection of arc with x and y axis (origin at cx, cy) */
//	pq[0].x = round(cx);
//	pq[0].y = round(cy + r);
//	pq[1].x = round(cx - r);
//	pq[1].y = round(cy);
//	pq[2].x = round(cx);
//	pq[2].y = round(cy - r);
//	pq[3].x = round(cx + r);
//	pq[3].y = round(cy);


	for(i=0;i<=2;i++) {
          x=a->point[i].x;
          y=a->point[i].y;
          TRANS(x,y);
          fprintf(tfp, "\t<KivioPoint x=\"%.3f\" y=\"%.3f\" type=\"bezier\" />\n",x,y);
	  if (i==1) fprintf(tfp, "\t<KivioPoint x=\"%.3f\" y=\"%.3f\" type=\"bezier\" />\n",x,y);
	   }

	/*** compute in which quadrants p1 and p2 are located ***/
	/*q1 = (int)(angle1/90.0);
	q2 = (int)(angle2/90.0);
	if (fabs(angle1 - 90.0*q1) > arc_tolerance
	 || fabs(angle2 - 90.0*q2) > arc_tolerance)
	    // fprintf(stderr, "Approximating arc by ovals\n");

	/*** Draw arc **
	if (a->type == T_OPEN_ARC && a->thickness != 0 && p1_arrow)
	    // fprintf(tfp, "\\put(%3d,%3d){\\vector(%s){0}}\n", p1.x, p1.y, ad1[q1]);


	while (q1 != q2) {
	    put_quarter(p1, pq[q1], q1);
	    p1 = pq[q1];
	    q1 = (q1 + 1) % 4;
	    }
	put_quarter(p1, p2, q1);
	if (a->type == T_OPEN_ARC && a->thickness != 0 && p2_arrow)
	    // fprintf(tfp, "\\put(%3d,%3d){\\vector(%s){0}}\n", p2.x, p2.y, ad2[q2]);

	if (a->fill_style != UNFILLED)
		fprintf(stderr, "Arc area fill not implemented\n");
//	resetcolor(a->pen_color);
        */
	setcolor(a->fill_style,a->fill_color);
	set_linewidth(a->thickness,a->pen_color);
        end_line();

	}


#define  MAXCOLORS 32

/* need this for communication between color routines. Sorry */
static int lastcolor=-1;

void setcolor(sty,col)
int sty,col;
{
int color,style;

color=rgbColorVal(col);

if(col==7) {
 if(sty==20)
   color=255;
  else
 color=(255/20)*sty;
 color=256*256*color+256*color+color;
 }

if((col==0) || (col==-1)) {
if(sty==20)
   color=0;
  else
  color=255-(255/20)*sty;
  color=256*256*color+256*color+color;
 }

if(sty==-1)
  style=0;
 else
  style=1;

 fprintf(tfp, "\t<KivioFillStyle colorStyle=\"%d\" color=\"#%6.6x\" />\n", style ,color);
return;
}

int
set_linewidth(w,col)
  int	w,col;
{
 float i,x;
 x=1;
 i=w/20;
 fprintf(tfp, "\t<KivioLineStyle width=\"%.3f\" capStyle=\"32\" pattern=\"1\" joinStyle=\"128\" color=\"#%6.6x\" />\n",
  i,rgbColorVal(col) );
}


void end_line()
{
    fprintf(tfp, "</KivioShape>\n");
}

int
set_arrow(F_arrow *for_arrow,F_arrow *back_arrow)
{
int f, f_t, f_ht, f_wid, b, b_t, b_ht, b_wid;

if (verbose) fprintf(tfp, "<!--%d %d -->\n",(for_arrow==NULL),(back_arrow==NULL));

if(((for_arrow==NULL)==0) && ((back_arrow==NULL)==0)) {
 return;
}

  if((for_arrow!=NULL)==0) {
  f_t=for_arrow->type==0 ? 1 : 2;
  f_wid=for_arrow->wid;
  f_ht=for_arrow->ht;
  }
  else
  {
  f_t==0;
  f_wid=0;
  f_ht=0;
  }
  if((back_arrow!=NULL)==0) {
  b_t=back_arrow->type==0 ? 1 : 2;
  b_wid=back_arrow->wid;
  b_ht=back_arrow->ht;
  }
  else
  {
  b_t=0;
  b_wid=0;
  b_ht=0;
  }
   fprintf(tfp, "<KivioArrowHeads>\n");
   fprintf(tfp, "\t<KivioArrowHead w=\"%d\" l=\"%d\" type=\"%d\" cut=\"0\" />\n",f_wid,f_ht,f_t);
   fprintf(tfp, "\t<KivioArrowHead w=\"%d\" l=\"%d\" type=\"%d\" cut=\"0\" />\n",b_wid,b_ht,b_t);
   fprintf(tfp, "</KivioArrowHeads>\n");
   return;
}

static unsigned int
rgbColorVal(int colorIndex)
{
	extern User_color	user_colors[];
	unsigned int	rgb;
	static unsigned int	rgbColors[NUM_STD_COLS] = {
		0x000000, 0x0000ff, 0x00ff00, 0x00ffff, 0xff0000, 0xff00ff,
		0xffff00, 0xffffff, 0x00008f, 0x0000b0, 0x0000d1, 0x87cfff,
		0x008f00, 0x00b000, 0x00d100, 0x008f8f, 0x00b0b0, 0x00d1d1,
		0x8f0000, 0xb00000, 0xd10000, 0x8f008f, 0xb000b0, 0xd100d1,
		0x803000, 0xa14000, 0xb46100, 0xff8080, 0xffa1a1, 0xffbfbf,
		0xffe0e0, 0xffd600
	};

	if (colorIndex == DEFAULT)
		rgb = rgbColors[0];
	else if (colorIndex < NUM_STD_COLS)
		rgb = rgbColors[colorIndex];
	else
		rgb = ((user_colors[colorIndex-NUM_STD_COLS].r & 0xff) << 16)
			| ((user_colors[colorIndex-NUM_STD_COLS].g & 0xff) << 8)
			| (user_colors[colorIndex-NUM_STD_COLS].b & 0xff);
	return rgb;
}


struct driver dev_sml = {
     	gensml_option,
	gensml_start,
	gensml_arc,
	gensml_ellipse,
	gensml_line,
	gensml_spline,
	gensml_text,
	gensml_end,
	EXCLUDE_TEXT
};




/*
 * TransFig: Facility for Translating Fig code
 * Copyright (c) 1991 by Micah Beck
 * Parts Copyright (c) 1985-1988 by Supoj Sutanthavibul
 * Parts Copyright (c) 1989-1999 by Brian V. Smith
 *
 * Any party obtaining a copy of these files is granted, free of charge, a
 * full and unrestricted irrevocable, world-wide, paid up, royalty-free,
 * nonexclusive right and license to deal in this software and
 * documentation files (the "Software"), including without limitation the
 * rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons who receive
 * copies from any such party to do so, with the only requirement being
 * that this copyright notice remain intact.
 *
 */

/*
 *	gensxd.c : ooOffice xml driver for fig2dev
 *
 *	Author: Peter Korf
 *      Code stolen from gensxd.c
 *
 */
#if defined(hpux) || defined(SYSV) || defined(SVR4)
#include <sys/types.h>
#endif
#include <sys/file.h>
#include "fig2dev.h"
#include "object.h"
#include "texfonts.h"

extern double rad2deg;
extern void unpsfont();

#define rint(a) floor((a)+0.5)     /* close enough? */

#define DESC_NAME	"unknown"

#define HEAD_TAG	"\nHEAD"
#define MIDDLE_TAG	"\nMIDDLE"
#define END_TAG		"\nEND"
#define STYLE_TAG	"\nSTYLE"
#define BODY_TAG	"\nBODY"
#define COMMENT_TAG 	"\nCOMMENT"
extern char            *from;

#ifndef MIN
#define	MIN(x,y)	(((x) <= (y))? (x): (y))
#endif
#ifndef MAX
#define	MAX(x,y)	(((x) >= (y))? (x): (y))
#endif
#define	ABS(x)		(((x) >= 0)? (x): -(x))
#define round4(x)	((round(10000.0*(x))/10000.0))
#define round6(x)	((round(1000000.0*(x))/1000000.0))
#define MAXCIRCLEDIA	80
#define MAXCIRCLERAD	((MAXCIRCLEDIA-0.5)/(2*72.27))

#define DISTANCE(x,y)	sqrt(x*x+y*y)

#define SCALEFAKTOR	300

static char			desc_name[]  = DESC_NAME;
static float			offsetx,offsety,scale=1;
static int			counter=0,counter_text=0;


static unsigned int rgbColorVal(int colorIndex);
// static unsigned int setStyle(F_compound	*objects;);


static	int	verbose;//  = 0;
extern double		dash_mag;//  = 1.0;
extern int		thick_width;//  = 2;
extern double		tolerance;//  = 2.0;
extern double		arc_tolerance;//  = 1.0;
extern int		(*translate_coordinates)();//  = NULL;
extern int		(*translate_coordinates_d)();//  = NULL;
extern double		unitlength;
static int	cur_thickness;// 1;
extern double		ldot_diameter;// .0/72.0;
extern char		*dot_cmd;// =tindot;
extern char		*ldot_cmd;// =hin_ldot;
extern double		dot_xoffset;
extern double		dot_yoffset;
extern double		ldot_xoffset;
extern double		ldot_yoffset;


void gensxd_option(opt, optarg)
  char opt, *optarg;
{
    int i;

    switch (opt) {
	case 'a':
	    fprintf(stderr, "warning: latex option -a obsolete");
	    break;

	case 'd':
	    dash_mag = atof(optarg);	/* set dash magnification */
	    break;

	    dash_mag = atof(optarg);	/* set dash magnification */
	    break;


	case 'f':		/* set default text font */
	    for ( i = 1; i <= MAX_FONT; i++ )
		if ( !strcmp(optarg, texfontnames[i]) ) break;

	    if ( i > MAX_FONT)
			{
			  fprintf(stderr,
						 "warning: non-standard font name %s ignored\n", optarg);
			}
		 else
			{
			  texfontnames[0] = texfontnames[i];
#ifdef NFSS
			  texfontfamily[0] = texfontfamily[i];
			  texfontseries[0] = texfontseries[i];
			  texfontshape[0] = texfontshape[i];
#endif
			}
	    break;

	case 'l':		/* set thin/thick line threshold */
	    thick_width = atoi(optarg);
	    break;

	case 'v':
	    verbose = 1;		/* verbose mode */
	    break;

	case 'n':
	    sprintf(desc_name,"%s",optarg);		/* description name (library) */
	    break;

	case 's':
	case 'm':
	case 'L':
	    break;

	    break;

	default:
	    put_msg(Err_badarg, opt, "latex");
	    exit(1);
	}
}

void
gensxd_start(objects)
  F_compound	*objects;
{
	int tmp;
	char name1[40]="  ";
	float x1,y1,x2,y2;
//	strncpy((char *)name1,from,strlen(from)-4);
    fprintf(tfp,COMMENT_TAG "<!-- please use the script fig2sxd to create the sxd file -->");
    fprintf(tfp,HEAD_TAG "<?xml version=\"1.0\" encoding=\"UTF-8\"?>");
    fprintf(tfp,HEAD_TAG "<!DOCTYPE office:document-content PUBLIC \"-//OpenOffice.org//DTD OfficeDocument 1.0//EN\" \"office.dtd\">");
    fprintf(tfp,HEAD_TAG "<office:document-content xmlns:office=\"http://openoffice.org/2000/office\" xmlns:style=\"http://openoffice.org/2000/style\" xmlns:text=\"http://openoffice.org/2000/text\" xmlns:table=\"http://openoffice.org/2000/table\" xmlns:draw=\"http://openoffice.org/2000/drawing\" xmlns:fo=\"http://www.w3.org/1999/XSL/Format\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" xmlns:number=\"http://openoffice.org/2000/datastyle\" xmlns:presentation=\"http://openoffice.org/2000/presentation\" xmlns:svg=\"http://www.w3.org/2000/svg\" xmlns:chart=\"http://openoffice.org/2000/chart\" xmlns:dr3d=\"http://openoffice.org/2000/dr3d\" xmlns:math=\"http://www.w3.org/1998/Math/MathML\" xmlns:form=\"http://openoffice.org/2000/form\" xmlns:script=\"http://openoffice.org/2000/script\" office:class=\"drawing\" office:version=\"1.0\">");
    fprintf(tfp,HEAD_TAG "<office:script/>");
    fprintf(tfp,HEAD_TAG "<office:automatic-styles>");
    fprintf(tfp,HEAD_TAG "<style:style style:name=\"dp1\" style:family=\"drawing-page\"/>");

fprintf(tfp,MIDDLE_TAG "</office:automatic-styles>");
fprintf(tfp,MIDDLE_TAG "<office:body>");
fprintf(tfp,MIDDLE_TAG "<draw:page draw:name=\"page1\" draw:style-name=\"dp1\" draw:master-page-name=\"Standard\">");

}

int gensxd_end()
{
	fprintf(tfp, END_TAG "</draw:page></office:body></office:document-content>");
	fprintf(tfp,COMMENT_TAG "<!-- please use the script fig2sxd to create the sxd file -->");
	/* all ok */
	return 0;
}


void gensxd_line(F_line	*l)
{

        F_point		*p, *q, *r;
	float		x, y,x1,y1, llx, lly, urx, ury, arrow;
        float           r1,r2;
	int type=0;

	p = l->points;
	
fprintf(tfp, COMMENT_TAG " -  Linie %d\n",l->type);
   print_style(l->style,
            l->thickness,
	    l->pen_color,
	    l->fill_color,
	    l->pen,
	    l->fill_style,
	    l->join_style,
	    l->for_arrow,
	    l->back_arrow,
	    	    l->cap_style);

    switch (l->type) {
	case T_POLYLINE:
	    if (p->next == NULL) { 
	    fprintf (tfp, COMMENT_TAG "POINT %d %d", p->x, p->y);
	    }
	     	      /* A single point line */
	      /* Dot ? */
	      if (l->fill_style == -1) {
                  draw_poly(l,"polyline");
	      } else {
	          draw_poly(l,"polygon");
	      }
	    break;
	case T_ARC_BOX:
	case T_BOX:
	    draw_box(l);
	    break;
	case T_POLYGON:
	    draw_poly(l,"polygon");
            break;
	case T_PIC_BOX:
//	    put_pic(l);
            break;
	default:
	     counter++;
      	     fprintf(tfp, COMMENT_TAG "unkown\n");
    }	     

}

void gensxd_spline(F_spline *s)
{
   fprintf(tfp, COMMENT_TAG "Spline\n");

//	fprintf(stderr, "Can't generate spline; omitting object\n");
}

void gensxd_ellipse(F_ellipse *e)
{
fprintf(tfp, COMMENT_TAG "ellipse\n");

  print_style(e->style,
            e->thickness,
	    e->pen_color,
	    e->fill_color,
	    e->pen,
	    e->fill_style,
	    -1,
	    NULL,
	    NULL,
	    -1);

    switch (e->type) {
	case T_CIRCLE_BY_RAD:    
	case T_CIRCLE_BY_DIA:
             draw_round(e,"circle");
	     break;
	case T_ELLIPSE_BY_RAD:    
	case T_ELLIPSE_BY_DIA:
             draw_round(e,"ellipse");
	     break;
	default:     
    };
}    

void gensxd_text(F_text	*t)
{

	float   	x, y;
	char	*tpos;
	unsigned char	*cp;
fprintf(tfp, COMMENT_TAG "Text\n");
	
	  print_style_text(t->type,
	    t->color,
	    t->font,
	    t->size);

	
	start_tag("text-box",t->depth);
	
	if (t->angle != 0) {
           fprintf(tfp, " draw:transform=\"rotate (%G)\" ",t->angle);
	}

	 fprintf(tfp, "draw:auto-grow-width=\"true\" ");
	 fprintf(tfp, "draw:auto-grow-height=\"true\" ");
	
	 fprintf(tfp, "svg:width=\"%G\" ",t->length);
        fprintf(tfp, "svg:height=\"%G\" ",t->height);
 fprintf(tfp, "svg:x=\"%d\" ",t->base_x);
 fprintf(tfp, "svg:y=\"%G\" ",t->base_y-t->height);

        fprintf(tfp, "><text:p text:style-name=\"P1\"><text:span text:style-name=\"T%d\">%s</text:span></text:p></draw:text-box>",counter_text++,t->cstring); 

	if (verbose)
	    fprintf(tfp, "<!-- Fig TEXT object-->\n");

}

void gensxd_arc(F_arc *a)
{
fprintf(tfp, COMMENT_TAG "arc\n");

if (a->direction == 1) {
  print_style(a->style,
            a->thickness,
	    a->pen_color,
	    a->fill_color,
	    a->pen,
	    a->fill_style,
	    -1,
	    a->for_arrow,
	    a->back_arrow,
	    a->cap_style);

} else {

  print_style(a->style,
            a->thickness,
	    a->pen_color,
	    a->fill_color,
	    a->pen,
	    a->fill_style,
	    -1,
	    a->back_arrow,
	    a->for_arrow,
	    a->cap_style);
}	    
	switch (a->type) {

	    case T_OPEN_ARC:
		    draw_arc(a,"arc");
		    break;
           case T_PIE_WEDGE_ARC:   
		    draw_arc(a,"section");
                    break; 		    
	    default:    
        }    	    

}


print_style_text(int type,
                 int color,
		 int font,
                 double size) { 
char *align_names[] = 
{
  "left",
  "center",
  "right",
};

fprintf(tfp,STYLE_TAG "<style:style style:parent-style-name=\"standard\" style:name=\"xfig%d\" style:family=\"graphics\">",counter);
fprintf(tfp,STYLE_TAG "<style:properties draw:textarea-vertical-align=\"middle\" ");

fprintf(tfp, "draw:textarea-horizontal-align=\"%s\" ",align_names[type]); 
//fprintf(tfp, "draw:textarea-horizontal-align=\"%s\" ",align_names[type]); 
   fprintf(tfp, "draw:stroke=\"none\" ");

    fprintf(tfp, "svg:stroke-color=\"#%6.6x\" ",rgbColorVal(color));

      fprintf(tfp, "draw:fill=\"none\" ");
    fprintf(tfp, "draw:fill-color=\"#%6.6x\" ",rgbColorVal(color));

    fprintf(tfp, "/></style:style>");

    fprintf(tfp,STYLE_TAG "<style:style style:parent-style-name=\"standard\" style:name=\"P%d\" style:family=\"paragraph\">",counter_text);
     fprintf(tfp,STYLE_TAG "<style:properties ");
//             fprintf(tfp, " draw:fit-to-size=\"true\" ");


     switch (font) {
	    case ITALIC_FONT:
                 fprintf(tfp, " fo:font-style=\"italic\" ");
	    case BOLD_FONT:
                 fprintf(tfp, " fo:font-weight=\"bold\" ");
      }	    	 

    fprintf(tfp, "fo:color=\"#%6.6x\" ",rgbColorVal(color));
    fprintf(tfp, "fo:font-size=\"%Gpt\" ",size);

    fprintf(tfp, "/></style:style>");


}


print_style(int style,
            int thickness,
	    int pen_color,
	    int fill_color,
	    int pen,
	    int fill_style,
	    int join_style,
	    F_arrow *for_arrow,
	    F_arrow *back_arrow,
	    int cap_style)

{
	int 		color;


char *joinstyle_names[] = {
  "miter",
  "bevel",
  "round"
};

char *dash_names[] = 
{
  "unkown",
  "Fine Dashed",
  "Fine Dotted",
  "Line with Fine Dots"
  "2 Dots 1 Dash",
  "Ultrafine 2 Dots 3 Dashes",
  "unkown",
};

char *hatch_names[] = 
{
  "BLACK 45 Degrees",
};


fprintf(tfp, COMMENT_TAG "<!-- fill_color %d, fill_style %d -->\n",fill_color,fill_style);

fprintf(tfp,STYLE_TAG "<style:style style:parent-style-name=\"standard\" style:name=\"xfig%d\" style:family=\"graphics\">",counter);
fprintf(tfp,STYLE_TAG "<style:properties draw:textarea-vertical-align=\"middle\" ");

if (thickness > 0) {
    switch (style) {
        case SOLID_LINE:
	   fprintf(tfp, "draw:stroke=\"solid\" ");
	    break;
      default:       
        fprintf(tfp, "draw:stroke=\"dash\" ");
        fprintf(tfp, "draw:stroke-dash=\"%s\" ",dash_names[style]);
        break;
    };

    fprintf(tfp, "svg:stroke-width=\"%d\" ",thickness);
    fprintf(tfp, "svg:stroke-color=\"#%6.6x\" ",rgbColorVal(pen_color));
} else {
   fprintf(tfp, "draw:stroke=\"none\" ");
}

print_arrow(for_arrow,"start");
print_arrow(back_arrow,"end");

if (join_style != -1) {
    fprintf(tfp, "svg:stroke-linejoin=\"%s\" ",joinstyle_names[join_style]);
}


switch (fill_color) {
    case -1:
    case 0:
    case 7:
      if (fill_style == -1 ) {
	    fprintf(tfp, "draw:fill=\"none\" ");
      }
      if ((0<=fill_style) && (fill_style<=20)) {
	    fprintf(tfp, "draw:fill=\"solid\" ");      
	    if (fill_color==7) {
                  color=(255/20)*(fill_style);
            } else {
		  color=255-(255/20)*(fill_style);
	    }	    
	    color=256*256*color+256*color+color;
	    fprintf(tfp, "draw:fill-color=\"#%6.6x\" ",color);      
       }
      if ((fill_style>=21) && (fill_style<=40)) {
            fprintf(tfp, "draw:fill=\"not used\" ");   
      }
      if ((fill_style>=41) && (fill_style<=56)) {
            fprintf(tfp, "draw:fill=\"hatch\" ");   
      }
      break;
    default:
      if (fill_style == -1) {
	    fprintf(tfp, "draw:fill=\"none\" ");

      } 
      if (fill_style == 0) {
	    fprintf(tfp, "draw:fill=\"solid\" ");
	    fprintf(tfp, "draw:fill-color=\"#000000\" ");      

	    
      } 
      if (fill_style == 40) {
	    fprintf(tfp, "draw:fill=\"solid\" ");
	    fprintf(tfp, "draw:fill-color=\"#ffffff\" ");      

      } 
      if ((fill_style>0) && (fill_style<40)) {
	    fprintf(tfp, "draw:fill=\"solid\" ");
	    fprintf(tfp, "draw:fill-color=\"#%6.6x\" ",rgbColorVal(fill_color));
      } 
      if ((fill_style>=41) && (fill_style<=56)) {
            fprintf(tfp, "draw:fill=\"hatch\" ");   
	    fprintf(tfp, "draw:fill-hatch-name=\"#%s\" ",hatch_names[0]);

      }
}
//draw:transparency

    fprintf(tfp, "/></style:style>");

}


#define  MAXCOLORS 32

/* need this for communication between color routines. Sorry */
static int lastcolor=-1;


static unsigned int
rgbColorVal(int colorIndex)
{
	extern User_color	user_colors[];
	unsigned int	rgb;
	static unsigned int	rgbColors[NUM_STD_COLS] = {
		0x000000, 0x0000ff, 0x00ff00, 0x00ffff, 0xff0000, 0xff00ff,
		0xffff00, 0xffffff, 0x00008f, 0x0000b0, 0x0000d1, 0x87cfff,
		0x008f00, 0x00b000, 0x00d100, 0x008f8f, 0x00b0b0, 0x00d1d1,
		0x8f0000, 0xb00000, 0xd10000, 0x8f008f, 0xb000b0, 0xd100d1,
		0x803000, 0xa14000, 0xb46100, 0xff8080, 0xffa1a1, 0xffbfbf,
		0xffe0e0, 0xffd600
	};

	if (colorIndex == DEFAULT)
		rgb = rgbColors[0];
	else if (colorIndex < NUM_STD_COLS)
		rgb = rgbColors[colorIndex];
	else
		rgb = ((user_colors[colorIndex-NUM_STD_COLS].r & 0xff) << 16)
			| ((user_colors[colorIndex-NUM_STD_COLS].g & 0xff) << 8)
			| (user_colors[colorIndex-NUM_STD_COLS].b & 0xff);
	return rgb;
}


start_tag(char *name,int depth) {
 fprintf(tfp, BODY_TAG "<draw:%s draw:style-name=\"xfig%d\" draw:text-style-name=\"P0\" draw:layer=\"layout\" ",name,counter++);
 fprintf(tfp, "draw:zindex=\"%d\" ",depth);
};

draw_round(F_ellipse *e,char *name) {
 F_point	*q;
 int		max_x,max_y;
 start_tag(name,e->depth);

// draw:kind (full|section|cut|arc)

 fprintf(tfp, "draw:kind=\"full\" ");
 fprintf(tfp, "svg:width=\"%d\" ",e->radiuses.x*2);
 fprintf(tfp, "svg:height=\"%d\" ",e->radiuses.y*2);
 fprintf(tfp, "svg:x=\"%d\" ",e->center.x - e->radiuses.x);
 fprintf(tfp, "svg:y=\"%d\" ",e->center.y - e->radiuses.y);
 if (e->angle != 0) {
     fprintf(tfp, "draw:transform=\"rotate (%f)\" ",e->angle);
 }
 fprintf(tfp, "/>");
}

draw_arc(F_arc *a,char *name) {
 F_point	*q;
 int		arc,max_x,max_y;
 F_pos           p1, p2, p3, pq[4];
 double		 x1,y1,x2,y2,x3,y3,A,B,C;
 double		 dx,dy,sx,sy,ex,ey;
 double          cx, cy;
 double          v1x, v1y, v2x, v2y;
 double          r, angle1, angle2;
			       
 start_tag("ellipse",a->depth);

// draw:kind (full|section|cut|arc)
// FIXME: math problems
 
if (a->direction == 1) {
return;
          p1 = a->point[2];
          p3 = a->point[0];
//	sx = a->point[0].x; sy = a->point[0].y;
//	ex = a->point[2].x; ey = a->point[2].y;

//          p1_arrow = (a->back_arrow != NULL);
//          p2_arrow = (a->for_arrow != NULL);
      } else {
          p1 = a->point[0];
          p3 = a->point[2];
//	sx = a->point[2].x; sy = a->point[2].y;
//	ex = a->point[0].x; ey = a->point[0].y;

//          p1_arrow = (a->for_arrow != NULL);
//          p2_arrow = (a->back_arrow != NULL);
      }

	sx = a->point[0].x; sy = a->point[0].y;
	ex = a->point[2].x; ey = a->point[2].y;

	cx = a->center.x; cy = a->center.y;

//	direction = a->direction;
	dx = cx - sx;
	dy = cy - sy;
	r = sqrt(dx*dx+dy*dy);
	if (cx==sx)
	    angle1 = (sy-cy > 0? 90.0: -90.0);
	else
	    angle1 = atan2((sy-cy),(sx-cx)) * 180 / M_PI;
	if (cx==ex)
	    angle2 = (ey-cy > 0 ? 90.0: -90.0);
	else
	    angle2 = atan2((ey-cy),(ex-cx)) * 180 /M_PI;



	    angle1 = (angle1 < 0 ? angle1+360: angle1);
	    angle2 = (angle2 < 0 ? angle2+360: angle2);

       if (abs(angle1)>90)
          angle1=180-180-angle1;
         else
          angle1=-angle1;

       if (abs(angle2)>90)
          angle2=180-180-angle2;
         else
          angle2=-angle2;

          

// fprintf(tfp, COMMENT_TAG " %G %G",v1x,v1y);
// fprintf(tfp, COMMENT_TAG " %G %G",v2x,v2y);
// fprintf(tfp, COMMENT_TAG " %d %d",p1.x,p1.y);
// fprintf(tfp, COMMENT_TAG " %d %d",p2.x,p2.y);
// fprintf(tfp, COMMENT_TAG " %d %d",p3.x,p3.y);
// fprintf(tfp, COMMENT_TAG " %G %G\n",a->center.x,a->center.y);
 
 fprintf(tfp, "draw:kind=\"%s\" ",name);
 fprintf(tfp, "svg:x=\"%G\" ",cx-r);
 fprintf(tfp, "svg:y=\"%G\" ",cy-r);
 fprintf(tfp, "svg:width=\"%G\" ",2*r);
 fprintf(tfp, "svg:height=\"%G\" ",2*r);
 fprintf(tfp, "draw:start-angle=\"%.2f\" ",angle2);
 fprintf(tfp, "draw:end-angle=\"%.2f\" "  ,angle1);

 
// if (a->angle != 0) {
//     fprintf(tfp, "draw:transform=\"rotate (%f)\" ",a->angle);
// }
 fprintf(tfp, "/>");
}

draw_poly(F_line *l,char *name) {
 F_point	*q;
 int		max_x,max_y,min_x,min_y;

 fprintf(tfp, COMMENT_TAG " Linie %d\n",l->type);

 start_tag(name,l->depth);
 
 fprintf(tfp, "draw:points=\"");

 q=l->points;
 max_x=q->x;
 max_y=q->y; 
 min_x=q->x;
 min_y=q->y; 
 
 while (q != NULL) {
    max_x=MAX(max_x,q->x);
    max_y=MAX(max_y,q->y);
    min_x=MIN(min_x,q->x);
    min_y=MIN(min_y,q->y);

    fprintf(tfp, "%d,%d ",q->x,q->y);
    q=q->next;
 }

 fprintf(tfp, "\" ");
 fprintf(tfp, "svg:viewBox=\"%d %d %d %d\" ",min_x-1,min_y-1,max_x+1,max_y+1);
 fprintf(tfp, "svg:x=\"%d\" svg:y=\"%d\" svg:width=\"%d\" svg:heigth=\"%d\" ",min_x-1,min_y-1,max_x+1,max_y+1);
 
 fprintf(tfp, "/>");
}

draw_line(F_line *l) {
 start_tag("line",l->depth);
 
 fprintf(tfp, "svg:x1=\"%d\" ",l->points->x);
 fprintf(tfp, "svg:y1=\"%d\" ",l->points->y);
 fprintf(tfp, "svg:x2=\"%d\" ",l->points->next->x);
 fprintf(tfp, "svg:y2=\"%d\" ",l->points->next->y);
 
 fprintf(tfp, "/>");
}

draw_box(F_line *l) {
 F_point         *p, *q;
 int x1,x2,y1,y2;
 p = l->points;
 q = p->next->next;
	
 x1=MIN(p->x,q->x);
 x2=MAX(p->x,q->x);
 y1=MIN(p->y,q->y);
 y2=MAX(p->y,q->y);
 
  
 	 
 start_tag("rect",l->depth);
  fprintf(tfp, "svg:x=\"%d\" ",x1);
  fprintf(tfp, "svg:y=\"%d\" ",y1);
  
  fprintf(tfp, "svg:width =\"%d\" ",x2-x1);
  fprintf(tfp, "svg:height=\"%d\" ",y2-y1);

  if (l->type==T_ARC_BOX) {
    fprintf(tfp, "draw:corner-radius=\"%d\" ",l->radius);
  }
  fprintf(tfp, "/>");

}

print_arrow(F_arrow *arrow,char *name) {
char *arrow_names[] = {
  "Line Arrow",
  "Arrow",
  "Arrow concave",
  "Arrow convex" 
};

if (arrow != NULL) {
  fprintf(tfp, " draw:marker-%s=\"%s\" ",name,arrow_names[arrow->type]);
  fprintf(tfp, " draw:marker-%s-width=\"%G\" ",name,arrow->wid*3);
  fprintf(tfp, " draw:marker-%s-height=\"%G\" ",name,arrow->ht*3);
  fprintf(tfp, " draw:marker-%s-center=\"true\" ",name);
}
}

struct driver dev_sxd = {
     	gensxd_option,
	gensxd_start,
	gensxd_arc,
	gensxd_ellipse,
	gensxd_line,
	gensxd_spline,
	gensxd_text,
	gensxd_end,
	INCLUDE_TEXT
};

Lines 35-40 Link Here

(-)transfig.3.2.3d.orig/fig2dev/drivers.h (+4 lines)
35	extern struct driver dev_ge;	35	extern struct driver dev_ge;
36	extern struct driver dev_bitmaps;	36	extern struct driver dev_bitmaps;
37	extern struct driver dev_map;	37	extern struct driver dev_map;
		38	extern struct driver dev_sml;
		39	extern struct driver dev_sxd;
38		40
39	/* all the bitmap formats use the dev_bitmaps driver */	41	/* all the bitmap formats use the dev_bitmaps driver */
40		42
Lines 65-70 Link Here
65	{"pstex", &dev_pstex},	67	{"pstex", &dev_pstex},
66	{"pstex_t", &dev_pstex_t},	68	{"pstex_t", &dev_pstex_t},
67	{"sld", &dev_bitmaps},	69	{"sld", &dev_bitmaps},
		70	{"sml", &dev_sml},
		71	{"sxd", &dev_sxd},
68	{"textyl", &dev_textyl},	72	{"textyl", &dev_textyl},
69	{"tiff", &dev_bitmaps},	73	{"tiff", &dev_bitmaps},
70	{"tk", &dev_tk},	74	{"tk", &dev_tk},




#!/bin/sh
# script to convert fig to sxd
# email: peter@niendo.de

tempdir=./standard;

if test "$1" != ""; then

mkdir $tempdir

name=`echo $1 | sed s/.fig//`

#cp -R ./standard $name

echo exporting $name.fig to $name.sxd

fig2dev -Lsxd $name.fig >dummy || echo Fehler bei: $name

cat dummy | grep "^HEAD" | sed -e 's/HEAD//' >$tempdir/content.xml
cat dummy | grep "^STYLE" | sed -e 's/STYLE//' >>$tempdir/content.xml
cat dummy | grep "^MIDDLE" | sed -e 's/MIDDLE//' >>$tempdir/content.xml
cat dummy | grep "^BODY" | sed -e 's/BODY//' >>$tempdir/content.xml
cat dummy | grep "^END" | sed -e 's/END//' >>$tempdir/content.xml

cd ./standard
zip -r ../$name.sxd * >/dev/null
cd ..
else

echo "use ./pack <filename.fig>"
echo export filename.fig to filename.sxd
echo
echo you need a directory called $tempdir, which should be 
echo empty or an uncompressed sxd file.
echo
fi

Lines 16-19 Link Here

(-)transfig.3.2.3d.orig/patchlevel.h (-1 / +1 lines)
16	*/	16	*/
17		17
18	#define VERSION "3.2"	18	#define VERSION "3.2"
19	#define PATCHLEVEL "3d"	19	#define PATCHLEVEL "3d-sml-sxd_0.2"

Return to bug 14496

Lines 38-49 Link Here

(-)transfig.3.2.3d.orig/fig2dev/dev/Imakefile (-2 / +2 lines)
38	READJPGO=readjpg.o	38	READJPGO=readjpg.o
39	#endif	39	#endif
40		40
41	SRCS = genbox.c gencgm.c genepic.c genibmgl.c genlatex.c genmap.c genmf.c genpic.c \	41	SRCS = genbox.c gencgm.c genepic.c genibmgl.c genlatex.c gensml.c gensxd.c genmap.c genmf.c genpic.c \
42	genpictex.c genps.c genpdf.c genpstex.c gentextyl.c gentk.c gentpic.c \	42	genpictex.c genps.c genpdf.c genpstex.c gentextyl.c gentk.c gentpic.c \
43	genbitmaps.c genge.c genmp.c setfigfont.c psencode.c \	43	genbitmaps.c genge.c genmp.c setfigfont.c psencode.c \
44	readpics.c readeps.c readgif.c readpcx.c readppm.c \	44	readpics.c readeps.c readgif.c readpcx.c readppm.c \
45	readxbm.c readtif.c $(READPNGS) $(READJPGS) $(READXPMS)	45	readxbm.c readtif.c $(READPNGS) $(READJPGS) $(READXPMS)
46	LIBOBJS = genbox.o gencgm.o genepic.o genibmgl.o genlatex.o genmap.o genmf.o genpic.o \	46	LIBOBJS = genbox.o gencgm.o genepic.o genibmgl.o genlatex.o gensml.o gensxd.o genmap.o genmf.o genpic.o \
47	genpictex.o genps.o genpdf.o genpstex.o gentextyl.o gentk.o gentpic.o \	47	genpictex.o genps.o genpdf.o genpstex.o gentextyl.o gentk.o gentpic.o \
48	genbitmaps.o genge.o genmp.o setfigfont.o psencode.o \	48	genbitmaps.o genge.o genmp.o setfigfont.o psencode.o \
49	readpics.o readeps.o readgif.o readpcx.o readppm.o \	49	readpics.o readeps.o readgif.o readpcx.o readppm.o \

Line 0 Link Here

(-)transfig.3.2.3d.orig/fig2dev/dev/gensxd.c (+764 lines)
		1	/*
		2	* TransFig: Facility for Translating Fig code
		3	* Copyright (c) 1991 by Micah Beck
		4	* Parts Copyright (c) 1985-1988 by Supoj Sutanthavibul
		5	* Parts Copyright (c) 1989-1999 by Brian V. Smith
		6	*
		7	* Any party obtaining a copy of these files is granted, free of charge, a
		8	* full and unrestricted irrevocable, world-wide, paid up, royalty-free,
		9	* nonexclusive right and license to deal in this software and
		10	* documentation files (the "Software"), including without limitation the
		11	* rights to use, copy, modify, merge, publish, distribute, sublicense,
		12	* and/or sell copies of the Software, and to permit persons who receive
		13	* copies from any such party to do so, with the only requirement being
		14	* that this copyright notice remain intact.
		15	*
		16	*/
		17
		18	/*
		19	* gensxd.c : ooOffice xml driver for fig2dev
		20	*
		21	* Author: Peter Korf
		22	* Code stolen from gensxd.c
		23	*
		24	*/
		25	#if defined(hpux) \|\| defined(SYSV) \|\| defined(SVR4)
		26	#include <sys/types.h>
		27	#endif
		28	#include <sys/file.h>
		29	#include "fig2dev.h"
		30	#include "object.h"
		31	#include "texfonts.h"
		32
		33	extern double rad2deg;
		34	extern void unpsfont();
		35
		36	#define rint(a) floor((a)+0.5) /* close enough? */
		37
		38	#define DESC_NAME "unknown"
		39
		40	#define HEAD_TAG "\nHEAD"
		41	#define MIDDLE_TAG "\nMIDDLE"
		42	#define END_TAG "\nEND"
		43	#define STYLE_TAG "\nSTYLE"
		44	#define BODY_TAG "\nBODY"
		45	#define COMMENT_TAG "\nCOMMENT"
		46	extern char *from;
		47
		48	#ifndef MIN
		49	#define MIN(x,y) (((x) <= (y))? (x): (y))
		50	#endif
		51	#ifndef MAX
		52	#define MAX(x,y) (((x) >= (y))? (x): (y))
		53	#endif
		54	#define ABS(x) (((x) >= 0)? (x): -(x))
		55	#define round4(x) ((round(10000.0*(x))/10000.0))
		56	#define round6(x) ((round(1000000.0*(x))/1000000.0))
		57	#define MAXCIRCLEDIA 80
		58	#define MAXCIRCLERAD ((MAXCIRCLEDIA-0.5)/(2*72.27))
		59
		60	#define DISTANCE(x,y) sqrt(xx+yy)
		61
		62	#define SCALEFAKTOR 300
		63
		64	static char desc_name[] = DESC_NAME;
65	static float offsetx,offsety,scale=1;
66	static int counter=0,counter_text=0;
67
68
69	static unsigned int rgbColorVal(int colorIndex);
70	// static unsigned int setStyle(F_compound *objects;);
71
72
73	static int verbose;// = 0;
74	extern double dash_mag;// = 1.0;
75	extern int thick_width;// = 2;
76	extern double tolerance;// = 2.0;
77	extern double arc_tolerance;// = 1.0;
78	extern int (*translate_coordinates)();// = NULL;
79	extern int (*translate_coordinates_d)();// = NULL;
80	extern double unitlength;
81	static int cur_thickness;// 1;
82	extern double ldot_diameter;// .0/72.0;
83	extern char *dot_cmd;// =tindot;
84	extern char *ldot_cmd;// =hin_ldot;
85	extern double dot_xoffset;
86	extern double dot_yoffset;
87	extern double ldot_xoffset;
88	extern double ldot_yoffset;
89
90
91	void gensxd_option(opt, optarg)
92	char opt, *optarg;
93	{
94	int i;
95
96	switch (opt) {
97	case 'a':
98	fprintf(stderr, "warning: latex option -a obsolete");
99	break;
100
101	case 'd':
102	dash_mag = atof(optarg); /* set dash magnification */
103	break;
104
105	dash_mag = atof(optarg); /* set dash magnification */
106	break;
107
108
109	case 'f': /* set default text font */
110	for ( i = 1; i <= MAX_FONT; i++ )
111	if ( !strcmp(optarg, texfontnames[i]) ) break;
112
113	if ( i > MAX_FONT)
114	{
115	fprintf(stderr,
116	"warning: non-standard font name %s ignored\n", optarg);
117	}
118	else
119	{
120	texfontnames[0] = texfontnames[i];
121	#ifdef NFSS
122	texfontfamily[0] = texfontfamily[i];
123	texfontseries[0] = texfontseries[i];
124	texfontshape[0] = texfontshape[i];
125	#endif
126	}
127	break;
128
129	case 'l': /* set thin/thick line threshold */
130	thick_width = atoi(optarg);
131	break;
132
133	case 'v':
134	verbose = 1; /* verbose mode */
135	break;
136
137	case 'n':
138	sprintf(desc_name,"%s",optarg); /* description name (library) */
139	break;
140
141	case 's':
142	case 'm':
143	case 'L':
144	break;
145
146	break;
147
148	default:
149	put_msg(Err_badarg, opt, "latex");
150	exit(1);
151	}
152	}
153
154	void
155	gensxd_start(objects)
156	F_compound *objects;
157	{
158	int tmp;
159	char name1[40]=" ";
160	float x1,y1,x2,y2;
161	// strncpy((char *)name1,from,strlen(from)-4);
162	fprintf(tfp,COMMENT_TAG "<!-- please use the script fig2sxd to create the sxd file -->");
163	fprintf(tfp,HEAD_TAG "<?xml version=\"1.0\" encoding=\"UTF-8\"?>");
164	fprintf(tfp,HEAD_TAG "<!DOCTYPE office:document-content PUBLIC \"-//OpenOffice.org//DTD OfficeDocument 1.0//EN\" \"office.dtd\">");
165	fprintf(tfp,HEAD_TAG "<office:document-content xmlns:office=\"http://openoffice.org/2000/office\" xmlns:style=\"http://openoffice.org/2000/style\" xmlns:text=\"http://openoffice.org/2000/text\" xmlns:table=\"http://openoffice.org/2000/table\" xmlns:draw=\"http://openoffice.org/2000/drawing\" xmlns:fo=\"http://www.w3.org/1999/XSL/Format\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" xmlns:number=\"http://openoffice.org/2000/datastyle\" xmlns:presentation=\"http://openoffice.org/2000/presentation\" xmlns:svg=\"http://www.w3.org/2000/svg\" xmlns:chart=\"http://openoffice.org/2000/chart\" xmlns:dr3d=\"http://openoffice.org/2000/dr3d\" xmlns:math=\"http://www.w3.org/1998/Math/MathML\" xmlns:form=\"http://openoffice.org/2000/form\" xmlns:script=\"http://openoffice.org/2000/script\" office:class=\"drawing\" office:version=\"1.0\">");
166	fprintf(tfp,HEAD_TAG "<office:script/>");
167	fprintf(tfp,HEAD_TAG "<office:automatic-styles>");
168	fprintf(tfp,HEAD_TAG "<style:style style:name=\"dp1\" style:family=\"drawing-page\"/>");
169
170	fprintf(tfp,MIDDLE_TAG "</office:automatic-styles>");
171	fprintf(tfp,MIDDLE_TAG "<office:body>");
172	fprintf(tfp,MIDDLE_TAG "<draw:page draw:name=\"page1\" draw:style-name=\"dp1\" draw:master-page-name=\"Standard\">");
173
174	}
175
176	int gensxd_end()
177	{
178	fprintf(tfp, END_TAG "</draw:page></office:body></office:document-content>");
179	fprintf(tfp,COMMENT_TAG "<!-- please use the script fig2sxd to create the sxd file -->");
180	/* all ok */
181	return 0;
182	}
183
184
185	void gensxd_line(F_line *l)
186	{
187
188	F_point p, q, *r;
189	float x, y,x1,y1, llx, lly, urx, ury, arrow;
190	float r1,r2;
191	int type=0;
192
193	p = l->points;
194
195	fprintf(tfp, COMMENT_TAG " - Linie %d\n",l->type);
196	print_style(l->style,
197	l->thickness,
198	l->pen_color,
199	l->fill_color,
200	l->pen,
201	l->fill_style,
202	l->join_style,
203	l->for_arrow,
204	l->back_arrow,
205	l->cap_style);
206
207	switch (l->type) {
208	case T_POLYLINE:
209	if (p->next == NULL) {
210	fprintf (tfp, COMMENT_TAG "POINT %d %d", p->x, p->y);
211	}
212	/* A single point line */
213	/* Dot ? */
214	if (l->fill_style == -1) {
215	draw_poly(l,"polyline");
216	} else {
217	draw_poly(l,"polygon");
218	}
219	break;
220	case T_ARC_BOX:
221	case T_BOX:
222	draw_box(l);
223	break;
224	case T_POLYGON:
225	draw_poly(l,"polygon");
226	break;
227	case T_PIC_BOX:
228	// put_pic(l);
229	break;
230	default:
231	counter++;
232	fprintf(tfp, COMMENT_TAG "unkown\n");
233	}
234
235	}
236
237	void gensxd_spline(F_spline *s)
238	{
239	fprintf(tfp, COMMENT_TAG "Spline\n");
240
241	// fprintf(stderr, "Can't generate spline; omitting object\n");
242	}
243
244	void gensxd_ellipse(F_ellipse *e)
245	{
246	fprintf(tfp, COMMENT_TAG "ellipse\n");
247
248	print_style(e->style,
249	e->thickness,
250	e->pen_color,
251	e->fill_color,
252	e->pen,
253	e->fill_style,
254	-1,
255	NULL,
256	NULL,
257	-1);
258
259	switch (e->type) {
260	case T_CIRCLE_BY_RAD:
261	case T_CIRCLE_BY_DIA:
262	draw_round(e,"circle");
263	break;
264	case T_ELLIPSE_BY_RAD:
265	case T_ELLIPSE_BY_DIA:
266	draw_round(e,"ellipse");
267	break;
268	default:
269	};
270	}
271
272	void gensxd_text(F_text *t)
273	{
274
275	float x, y;
276	char *tpos;
277	unsigned char *cp;
278	fprintf(tfp, COMMENT_TAG "Text\n");
279
280	print_style_text(t->type,
281	t->color,
282	t->font,
283	t->size);
284
285
286	start_tag("text-box",t->depth);
287
288	if (t->angle != 0) {
289	fprintf(tfp, " draw:transform=\"rotate (%G)\" ",t->angle);
290	}
291
292	fprintf(tfp, "draw:auto-grow-width=\"true\" ");
293	fprintf(tfp, "draw:auto-grow-height=\"true\" ");
294
295	fprintf(tfp, "svg:width=\"%G\" ",t->length);
296	fprintf(tfp, "svg:height=\"%G\" ",t->height);
297	fprintf(tfp, "svg:x=\"%d\" ",t->base_x);
298	fprintf(tfp, "svg:y=\"%G\" ",t->base_y-t->height);
299
300	fprintf(tfp, "><text:p text:style-name=\"P1\"><text:span text:style-name=\"T%d\">%s</text:span></text:p></draw:text-box>",counter_text++,t->cstring);
301
302	if (verbose)
303	fprintf(tfp, "<!-- Fig TEXT object-->\n");
304
305	}
306
307	void gensxd_arc(F_arc *a)
308	{
309	fprintf(tfp, COMMENT_TAG "arc\n");
310
311	if (a->direction == 1) {
312	print_style(a->style,
313	a->thickness,
314	a->pen_color,
315	a->fill_color,
316	a->pen,
317	a->fill_style,
318	-1,
319	a->for_arrow,
320	a->back_arrow,
321	a->cap_style);
322
323	} else {
324
325	print_style(a->style,
326	a->thickness,
327	a->pen_color,
328	a->fill_color,
329	a->pen,
330	a->fill_style,
331	-1,
332	a->back_arrow,
333	a->for_arrow,
334	a->cap_style);
335	}
336	switch (a->type) {
337
338	case T_OPEN_ARC:
339	draw_arc(a,"arc");
340	break;
341	case T_PIE_WEDGE_ARC:
342	draw_arc(a,"section");
343	break;
344	default:
345	}
346
347	}
348
349
350	print_style_text(int type,
351	int color,
352	int font,
353	double size) {
354	char *align_names[] =
355	{
356	"left",
357	"center",
358	"right",
359	};
360
361	fprintf(tfp,STYLE_TAG "<style:style style:parent-style-name=\"standard\" style:name=\"xfig%d\" style:family=\"graphics\">",counter);
362	fprintf(tfp,STYLE_TAG "<style:properties draw:textarea-vertical-align=\"middle\" ");
363
364	fprintf(tfp, "draw:textarea-horizontal-align=\"%s\" ",align_names[type]);
365	//fprintf(tfp, "draw:textarea-horizontal-align=\"%s\" ",align_names[type]);
366	fprintf(tfp, "draw:stroke=\"none\" ");
367
368	fprintf(tfp, "svg:stroke-color=\"#%6.6x\" ",rgbColorVal(color));
369
370	fprintf(tfp, "draw:fill=\"none\" ");
371	fprintf(tfp, "draw:fill-color=\"#%6.6x\" ",rgbColorVal(color));
372
373	fprintf(tfp, "/></style:style>");
374
375	fprintf(tfp,STYLE_TAG "<style:style style:parent-style-name=\"standard\" style:name=\"P%d\" style:family=\"paragraph\">",counter_text);
376	fprintf(tfp,STYLE_TAG "<style:properties ");
377	// fprintf(tfp, " draw:fit-to-size=\"true\" ");
378
379
380	switch (font) {
381	case ITALIC_FONT:
382	fprintf(tfp, " fo:font-style=\"italic\" ");
383	case BOLD_FONT:
384	fprintf(tfp, " fo:font-weight=\"bold\" ");
385	}
386
387	fprintf(tfp, "fo:color=\"#%6.6x\" ",rgbColorVal(color));
388	fprintf(tfp, "fo:font-size=\"%Gpt\" ",size);
389
390	fprintf(tfp, "/></style:style>");
391
392
393	}
394
395
396	print_style(int style,
397	int thickness,
398	int pen_color,
399	int fill_color,
400	int pen,
401	int fill_style,
402	int join_style,
403	F_arrow *for_arrow,
404	F_arrow *back_arrow,
405	int cap_style)
406
407	{
408	int color;
409
410
411	char *joinstyle_names[] = {
412	"miter",
413	"bevel",
414	"round"
415	};
416
417	char *dash_names[] =
418	{
419	"unkown",
420	"Fine Dashed",
421	"Fine Dotted",
422	"Line with Fine Dots"
423	"2 Dots 1 Dash",
424	"Ultrafine 2 Dots 3 Dashes",
425	"unkown",
426	};
427
428	char *hatch_names[] =
429	{
430	"BLACK 45 Degrees",
431	};
432
433
434	fprintf(tfp, COMMENT_TAG "<!-- fill_color %d, fill_style %d -->\n",fill_color,fill_style);
435
436	fprintf(tfp,STYLE_TAG "<style:style style:parent-style-name=\"standard\" style:name=\"xfig%d\" style:family=\"graphics\">",counter);
437	fprintf(tfp,STYLE_TAG "<style:properties draw:textarea-vertical-align=\"middle\" ");
438
439	if (thickness > 0) {
440	switch (style) {
441	case SOLID_LINE:
442	fprintf(tfp, "draw:stroke=\"solid\" ");
443	break;
444	default:
445	fprintf(tfp, "draw:stroke=\"dash\" ");
446	fprintf(tfp, "draw:stroke-dash=\"%s\" ",dash_names[style]);
447	break;
448	};
449
450	fprintf(tfp, "svg:stroke-width=\"%d\" ",thickness);
451	fprintf(tfp, "svg:stroke-color=\"#%6.6x\" ",rgbColorVal(pen_color));
452	} else {
453	fprintf(tfp, "draw:stroke=\"none\" ");
454	}
455
456	print_arrow(for_arrow,"start");
457	print_arrow(back_arrow,"end");
458
459	if (join_style != -1) {
460	fprintf(tfp, "svg:stroke-linejoin=\"%s\" ",joinstyle_names[join_style]);
461	}
462
463
464	switch (fill_color) {
465	case -1:
466	case 0:
467	case 7:
468	if (fill_style == -1 ) {
469	fprintf(tfp, "draw:fill=\"none\" ");
470	}
471	if ((0<=fill_style) && (fill_style<=20)) {
472	fprintf(tfp, "draw:fill=\"solid\" ");
473	if (fill_color==7) {
474	color=(255/20)*(fill_style);
475	} else {
476	color=255-(255/20)*(fill_style);
477	}
478	color=256256color+256*color+color;
479	fprintf(tfp, "draw:fill-color=\"#%6.6x\" ",color);
480	}
481	if ((fill_style>=21) && (fill_style<=40)) {
482	fprintf(tfp, "draw:fill=\"not used\" ");
483	}
484	if ((fill_style>=41) && (fill_style<=56)) {
485	fprintf(tfp, "draw:fill=\"hatch\" ");
486	}
487	break;
488	default:
489	if (fill_style == -1) {
490	fprintf(tfp, "draw:fill=\"none\" ");
491
492	}
493	if (fill_style == 0) {
494	fprintf(tfp, "draw:fill=\"solid\" ");
495	fprintf(tfp, "draw:fill-color=\"#000000\" ");
496
497
498	}
499	if (fill_style == 40) {
500	fprintf(tfp, "draw:fill=\"solid\" ");
501	fprintf(tfp, "draw:fill-color=\"#ffffff\" ");
502
503	}
504	if ((fill_style>0) && (fill_style<40)) {
505	fprintf(tfp, "draw:fill=\"solid\" ");
506	fprintf(tfp, "draw:fill-color=\"#%6.6x\" ",rgbColorVal(fill_color));
507	}
508	if ((fill_style>=41) && (fill_style<=56)) {
509	fprintf(tfp, "draw:fill=\"hatch\" ");
510	fprintf(tfp, "draw:fill-hatch-name=\"#%s\" ",hatch_names[0]);
511
512	}
513	}
514	//draw:transparency
515
516	fprintf(tfp, "/></style:style>");
517
518	}
519
520
521	#define MAXCOLORS 32
522
523	/* need this for communication between color routines. Sorry */
524	static int lastcolor=-1;
525
526
527	static unsigned int
528	rgbColorVal(int colorIndex)
529	{
530	extern User_color user_colors[];
531	unsigned int rgb;
532	static unsigned int rgbColors[NUM_STD_COLS] = {
533	0x000000, 0x0000ff, 0x00ff00, 0x00ffff, 0xff0000, 0xff00ff,
534	0xffff00, 0xffffff, 0x00008f, 0x0000b0, 0x0000d1, 0x87cfff,
535	0x008f00, 0x00b000, 0x00d100, 0x008f8f, 0x00b0b0, 0x00d1d1,
536	0x8f0000, 0xb00000, 0xd10000, 0x8f008f, 0xb000b0, 0xd100d1,
537	0x803000, 0xa14000, 0xb46100, 0xff8080, 0xffa1a1, 0xffbfbf,
538	0xffe0e0, 0xffd600
539	};
540
541	if (colorIndex == DEFAULT)
542	rgb = rgbColors[0];
543	else if (colorIndex < NUM_STD_COLS)
544	rgb = rgbColors[colorIndex];
545	else
546	rgb = ((user_colors[colorIndex-NUM_STD_COLS].r & 0xff) << 16)
547	\| ((user_colors[colorIndex-NUM_STD_COLS].g & 0xff) << 8)
548	\| (user_colors[colorIndex-NUM_STD_COLS].b & 0xff);
549	return rgb;
550	}
551
552
553	start_tag(char *name,int depth) {
554	fprintf(tfp, BODY_TAG "<draw:%s draw:style-name=\"xfig%d\" draw:text-style-name=\"P0\" draw:layer=\"layout\" ",name,counter++);
555	fprintf(tfp, "draw:zindex=\"%d\" ",depth);
556	};
557
558	draw_round(F_ellipse e,char name) {
559	F_point *q;
560	int max_x,max_y;
561	start_tag(name,e->depth);
562
563	// draw:kind (full\|section\|cut\|arc)
564
565	fprintf(tfp, "draw:kind=\"full\" ");
566	fprintf(tfp, "svg:width=\"%d\" ",e->radiuses.x*2);
567	fprintf(tfp, "svg:height=\"%d\" ",e->radiuses.y*2);
568	fprintf(tfp, "svg:x=\"%d\" ",e->center.x - e->radiuses.x);
569	fprintf(tfp, "svg:y=\"%d\" ",e->center.y - e->radiuses.y);
570	if (e->angle != 0) {
571	fprintf(tfp, "draw:transform=\"rotate (%f)\" ",e->angle);
572	}
573	fprintf(tfp, "/>");
574	}
575
576	draw_arc(F_arc a,char name) {
577	F_point *q;
578	int arc,max_x,max_y;
579	F_pos p1, p2, p3, pq[4];
580	double x1,y1,x2,y2,x3,y3,A,B,C;
581	double dx,dy,sx,sy,ex,ey;
582	double cx, cy;
583	double v1x, v1y, v2x, v2y;
584	double r, angle1, angle2;
585
586	start_tag("ellipse",a->depth);
587
588	// draw:kind (full\|section\|cut\|arc)
589	// FIXME: math problems
590
591	if (a->direction == 1) {
592	return;
593	p1 = a->point[2];
594	p3 = a->point[0];
595	// sx = a->point[0].x; sy = a->point[0].y;
596	// ex = a->point[2].x; ey = a->point[2].y;
597
598	// p1_arrow = (a->back_arrow != NULL);
599	// p2_arrow = (a->for_arrow != NULL);
600	} else {
601	p1 = a->point[0];
602	p3 = a->point[2];
603	// sx = a->point[2].x; sy = a->point[2].y;
604	// ex = a->point[0].x; ey = a->point[0].y;
605
606	// p1_arrow = (a->for_arrow != NULL);
607	// p2_arrow = (a->back_arrow != NULL);
608	}
609
610	sx = a->point[0].x; sy = a->point[0].y;
611	ex = a->point[2].x; ey = a->point[2].y;
612
613	cx = a->center.x; cy = a->center.y;
614
615	// direction = a->direction;
616	dx = cx - sx;
617	dy = cy - sy;
618	r = sqrt(dxdx+dydy);
619	if (cx==sx)
620	angle1 = (sy-cy > 0? 90.0: -90.0);
621	else
622	angle1 = atan2((sy-cy),(sx-cx)) * 180 / M_PI;
623	if (cx==ex)
624	angle2 = (ey-cy > 0 ? 90.0: -90.0);
625	else
626	angle2 = atan2((ey-cy),(ex-cx)) * 180 /M_PI;
627
628
629
630	angle1 = (angle1 < 0 ? angle1+360: angle1);
631	angle2 = (angle2 < 0 ? angle2+360: angle2);
632
633	if (abs(angle1)>90)
634	angle1=180-180-angle1;
635	else
636	angle1=-angle1;
637
638	if (abs(angle2)>90)
639	angle2=180-180-angle2;
640	else
641	angle2=-angle2;
642
643
644
645	// fprintf(tfp, COMMENT_TAG " %G %G",v1x,v1y);
646	// fprintf(tfp, COMMENT_TAG " %G %G",v2x,v2y);
647	// fprintf(tfp, COMMENT_TAG " %d %d",p1.x,p1.y);
648	// fprintf(tfp, COMMENT_TAG " %d %d",p2.x,p2.y);
649	// fprintf(tfp, COMMENT_TAG " %d %d",p3.x,p3.y);
650	// fprintf(tfp, COMMENT_TAG " %G %G\n",a->center.x,a->center.y);
651
652	fprintf(tfp, "draw:kind=\"%s\" ",name);
653	fprintf(tfp, "svg:x=\"%G\" ",cx-r);
654	fprintf(tfp, "svg:y=\"%G\" ",cy-r);
655	fprintf(tfp, "svg:width=\"%G\" ",2*r);
656	fprintf(tfp, "svg:height=\"%G\" ",2*r);
657	fprintf(tfp, "draw:start-angle=\"%.2f\" ",angle2);
658	fprintf(tfp, "draw:end-angle=\"%.2f\" " ,angle1);
659
660
661	// if (a->angle != 0) {
662	// fprintf(tfp, "draw:transform=\"rotate (%f)\" ",a->angle);
663	// }
664	fprintf(tfp, "/>");
665	}
666
667	draw_poly(F_line l,char name) {
668	F_point *q;
669	int max_x,max_y,min_x,min_y;
670
671	fprintf(tfp, COMMENT_TAG " Linie %d\n",l->type);
672
673	start_tag(name,l->depth);
674
675	fprintf(tfp, "draw:points=\"");
676
677	q=l->points;
678	max_x=q->x;
679	max_y=q->y;
680	min_x=q->x;
681	min_y=q->y;
682
683	while (q != NULL) {
684	max_x=MAX(max_x,q->x);
685	max_y=MAX(max_y,q->y);
686	min_x=MIN(min_x,q->x);
687	min_y=MIN(min_y,q->y);
688
689	fprintf(tfp, "%d,%d ",q->x,q->y);
690	q=q->next;
691	}
692
693	fprintf(tfp, "\" ");
694	fprintf(tfp, "svg:viewBox=\"%d %d %d %d\" ",min_x-1,min_y-1,max_x+1,max_y+1);
695	fprintf(tfp, "svg:x=\"%d\" svg:y=\"%d\" svg:width=\"%d\" svg:heigth=\"%d\" ",min_x-1,min_y-1,max_x+1,max_y+1);
696
697	fprintf(tfp, "/>");
698	}
699
700	draw_line(F_line *l) {
701	start_tag("line",l->depth);
702
703	fprintf(tfp, "svg:x1=\"%d\" ",l->points->x);
704	fprintf(tfp, "svg:y1=\"%d\" ",l->points->y);
705	fprintf(tfp, "svg:x2=\"%d\" ",l->points->next->x);
706	fprintf(tfp, "svg:y2=\"%d\" ",l->points->next->y);
707
708	fprintf(tfp, "/>");
709	}
710
711	draw_box(F_line *l) {
712	F_point p, q;
713	int x1,x2,y1,y2;
714	p = l->points;
715	q = p->next->next;
716
717	x1=MIN(p->x,q->x);
718	x2=MAX(p->x,q->x);
719	y1=MIN(p->y,q->y);
720	y2=MAX(p->y,q->y);
721
722
723
724	start_tag("rect",l->depth);
725	fprintf(tfp, "svg:x=\"%d\" ",x1);
726	fprintf(tfp, "svg:y=\"%d\" ",y1);
727
728	fprintf(tfp, "svg:width =\"%d\" ",x2-x1);
729	fprintf(tfp, "svg:height=\"%d\" ",y2-y1);
730
731	if (l->type==T_ARC_BOX) {
732	fprintf(tfp, "draw:corner-radius=\"%d\" ",l->radius);
733	}
734	fprintf(tfp, "/>");
735
736	}
737
738	print_arrow(F_arrow arrow,char name) {
739	char *arrow_names[] = {
740	"Line Arrow",
741	"Arrow",
742	"Arrow concave",
743	"Arrow convex"
744	};
745
746	if (arrow != NULL) {
747	fprintf(tfp, " draw:marker-%s=\"%s\" ",name,arrow_names[arrow->type]);
748	fprintf(tfp, " draw:marker-%s-width=\"%G\" ",name,arrow->wid*3);
749	fprintf(tfp, " draw:marker-%s-height=\"%G\" ",name,arrow->ht*3);
750	fprintf(tfp, " draw:marker-%s-center=\"true\" ",name);
751	}
752	}
753
754	struct driver dev_sxd = {
755	gensxd_option,
756	gensxd_start,
757	gensxd_arc,
758	gensxd_ellipse,
759	gensxd_line,
760	gensxd_spline,
761	gensxd_text,
762	gensxd_end,
763	INCLUDE_TEXT
764	};

Line 0 Link Here

(-)transfig.3.2.3d.orig/fig2dev/fig2sxd.script (+36 lines)
	1	#!/bin/sh
	2	# script to convert fig to sxd
	3	# email: peter@niendo.de
	4
	5	tempdir=./standard;
	6
	7	if test "$1" != ""; then
	8
	9	mkdir $tempdir
	10
	11	name=`echo $1 \| sed s/.fig//`
	12
	13	#cp -R ./standard $name
	14
	15	echo exporting $name.fig to $name.sxd
	16
	17	fig2dev -Lsxd $name.fig >dummy \|\| echo Fehler bei: $name
	18
	19	cat dummy \| grep "^HEAD" \| sed -e 's/HEAD//' >$tempdir/content.xml
	20	cat dummy \| grep "^STYLE" \| sed -e 's/STYLE//' >>$tempdir/content.xml
	21	cat dummy \| grep "^MIDDLE" \| sed -e 's/MIDDLE//' >>$tempdir/content.xml
	22	cat dummy \| grep "^BODY" \| sed -e 's/BODY//' >>$tempdir/content.xml
	23	cat dummy \| grep "^END" \| sed -e 's/END//' >>$tempdir/content.xml
	24
	25	cd ./standard
	26	zip -r ../$name.sxd * >/dev/null
	27	cd ..
	28	else
	29
	30	echo "use ./pack <filename.fig>"
	31	echo export filename.fig to filename.sxd
	32	echo
	33	echo you need a directory called $tempdir, which should be
	34	echo empty or an uncompressed sxd file.
	35	echo
	36	fi