libtpcsvg.h File Reference

Header file for libtpcsvg. More...

#include "tpcclibConfig.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <time.h>

Go to the source code of this file.

Data Structures
struct	svg_viewport_pos
struct	svg_coord
struct	svg_viewports
struct	SVG_LEGEND
struct	SVG_LEGENDS

Macros
#define	SVG_VIEWPORT_WIDTH   10000
#define	SVG_VIEWPORT_HEIGHT   10000
#define	MAX_TICK_NR   12
#define	MAX_TICK_LABEL_LEN   20
#define	MAX_SVG_LEGEND_LEN   30

Enumerations
enum	svgSymbolType {   RECTANGLE , CIRCLE , UPTRIANGLE , DOWNTRIANGLE ,   DIAMOND , LEFTTRIANGLE , RIGHTTRIANGLE }
enum	svgSymbolFill { SYMBOLOPEN , SYMBOLFILLED }
enum	svgColor {   BLACK , RED , BLUE , GREEN ,   PURPLE , OLIVE , AQUA , FUCHSIA ,   GRAY , LIME , MAROON , NAVY ,   SILVER , TEAL , YELLOW }

Functions
int	axis_tick_positions (const double begin, const double end, double *ticks, int *tick_nr, double *scale_factor, int *tick_decimals, int verbose)
void	axis_check_range (double *begin, double *end, int verbose)
void	strRmExpZeroes (char *str)
FILE *	svg_initiate (const char *filename, const double height, const double width, struct svg_viewports *vp, char *errmsg, int verbose)
int	svg_close (FILE *fp, char *errmsg, int verbose)
FILE *	svg_xhtml_initiate (const char *filename, const char *XHTML_title, char *errmsg, int verbose)
int	svg_xhtml_close (FILE *fp, char *errmsg, int verbose)
int	svg_xhtml_svg_open (FILE *fp, const double height, const double width, struct svg_viewports *vp, char *errmsg, int verbose)
int	svg_xhtml_svg_close (FILE *fp, char *errmsg, int verbose)
int	svg_write (FILE *fp, const char *svg_string, char *errmsg, int verbose)
void	svg_init_viewport_pos (struct svg_viewport_pos *p)
void	svg_init_coord (struct svg_coord *p)
void	svg_init_viewports (struct svg_viewports *p)
int	svg_define_viewports (const int main_viewport_width, const int main_viewport_height, const int is_main_title, const int is_yaxis_title, const int is_xaxis_title, const int is_label_area, struct svg_viewports *vp, int verbose)
int	svg_start_plot_viewport (FILE *fp, struct svg_viewports *vp, char *errmsg, int verbose)
int	svg_end_plot_viewport (FILE *fp, char *errmsg, int verbose)
int	svg_start_coordinate_viewport (FILE *fp, struct svg_viewports *vp, char *errmsg, int verbose)
int	svg_end_coordinate_viewport (FILE *fp, char *errmsg, int verbose)
int	svg_calculate_axes (struct svg_viewports *vp, int verbose)
int	svg_write_axes (FILE *fp, struct svg_viewports *vp, char *errmsg, int verbose)
int	svg_write_xticks (FILE *fp, struct svg_viewports *vp, char *errmsg, int verbose)
int	svg_write_yticks (FILE *fp, struct svg_viewports *vp, char *errmsg, int verbose)
int	svg_write_tac (FILE *fp, struct svg_viewports *vp, const int plot_type, const char *tac_id, const char *tac_title, double *x, double *y, const int data_nr, const char *color, const svgSymbolType symbol_type, const svgSymbolFill symbol_fill, char *errmsg, int verbose)
int	get_line_intersection (const double a1x, const double a1y, const double a2x, const double a2y, const double b1x, const double b1y, const double b2x, const double b2y, double *ix, double *iy, int verbose)
int	check_intersection_with_viewport (const double x1, const double y1, const double x2, const double y2, struct svg_viewport_pos *cavp, double *nx1, double *ny1, double *nx2, double *ny2, int verbose)
int	svg_create_main_title (FILE *fp, const char *main_title_text, const char *sub_title_text, struct svg_viewports *vp, char *errmsg, int verbose)
int	svg_create_xaxis_title (FILE *fp, const char *title_text, struct svg_viewports *vp, char *errmsg, int verbose)
int	svg_create_yaxis_title (FILE *fp, const char *title_text, struct svg_viewports *vp, char *errmsg, int verbose)
int	svg_define_symbols (FILE *fp, char *errmsg, int verbose)
char *	svgColorName (const svgColor index)
char *	svgSymbolName (const svgSymbolType index)
void	svg_init_legends (SVG_LEGENDS *legends)
void	svg_legend_empty (SVG_LEGENDS *legends)
int	svg_legend_add (SVG_LEGENDS *legends, const int plot_type, const int symbol_type, const svgSymbolFill symbol_fill, const int color, const char *text)
int	svg_create_legends (FILE *fp, struct svg_viewports *vp, SVG_LEGENDS *legends, char *errmsg, int verbose)
char *	svg_str_encode (const char *s)

Detailed Description

Header file for libtpcsvg.

Author

Vesa Oikonen

Definition in file libtpcsvg.h.

Macro Definition Documentation

MAX_SVG_LEGEND_LEN

#define MAX_SVG_LEGEND_LEN   30

Max length of SVG legend texts

Definition at line 29 of file libtpcsvg.h.

Referenced by svg_legend_add().

MAX_TICK_LABEL_LEN

#define MAX_TICK_LABEL_LEN   20

Max length of axis tick labels

Definition at line 27 of file libtpcsvg.h.

MAX_TICK_NR

#define MAX_TICK_NR   12

Max nr of axis ticks

Definition at line 25 of file libtpcsvg.h.

Referenced by svg_calculate_axes(), and svg_init_coord().

SVG_VIEWPORT_HEIGHT

#define SVG_VIEWPORT_HEIGHT   10000

Height of SVG viewport

Definition at line 23 of file libtpcsvg.h.

Referenced by svg_define_viewports().

SVG_VIEWPORT_WIDTH

#define SVG_VIEWPORT_WIDTH   10000

Width of SVG viewport

Definition at line 21 of file libtpcsvg.h.

Referenced by svg_define_viewports().

Enumeration Type Documentation

svgColor

enum svgColor

SVG plot colour

Definition at line 49 of file libtpcsvg.h.

             {BLACK,RED,BLUE,GREEN,PURPLE,OLIVE,AQUA,FUCHSIA,GRAY,LIME,MAROON,
              NAVY,SILVER,TEAL,YELLOW} svgColor;

svgSymbolFill

enum svgSymbolFill

SVG plot symbol open/filled

Definition at line 47 of file libtpcsvg.h.

{SYMBOLOPEN,SYMBOLFILLED} svgSymbolFill;

svgSymbolType

enum svgSymbolType

SVG plot symbol type

Definition at line 44 of file libtpcsvg.h.

             {RECTANGLE,CIRCLE,UPTRIANGLE,DOWNTRIANGLE,DIAMOND,
              LEFTTRIANGLE,RIGHTTRIANGLE} svgSymbolType;

Function Documentation

axis_check_range()

void axis_check_range	(	double *	begin,
		double *	end,
		int	verbose )

Check and if necessary correct axis range: min must be smaller than max. Also, if the range is close to zero, then make it larger. Also, if the range is relatively large, then change it to start from zero.

See also

axis_tick_positions, svg_calculate_axes

Parameters

begin	axis range minimum
end	axis range maximum
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout

Definition at line 116 of file axis.c.

  {
  double temp;
 
  if(verbose>0) printf("axis_check_range(%g, %g, %d)\n", *begin, *end, verbose);
 
  if(*begin<*end) {
    // fine now
  } else if(*begin>*end) {
    temp=*end; *end=*begin; *begin=temp;
  } else { // this means that begin==end
    if(*begin==0.0) {
      *begin=-1.0; *end=1.0;
    } else if(*begin<0.0) {
      *begin*=2.0; *end=0.0;
    } else {
      *begin=0.0; *end*=2.0;
    }
    if(verbose>2) {
      printf("  new begin := %g\n", *begin);
      printf("  new end := %g\n", *end);
    }
    return;
  }
  /* If range is very small */
  if((*end-*begin)<1.0e-98) {
    if(*begin>=1.0e-98 || *begin<0.0) *begin-=1.0e-98;
    else if(*begin>=0.0) *begin=0.0;
    if(*end<=-1.0e-98 || *end>0.0) *end+=1.0e-98;
    else if(*end<0.0) *end=0.0;
    if(verbose>2) {
      printf("   new begin := %g\n", *begin);
      printf("   new end := %g\n", *end);
    }
    return;
  }
  /* If range is relatively large */
  if(*begin>0.0 && *end>0.0) {
    if((*end-*begin)>3.3*(*begin)) *begin=0.0;
  } else if(*begin<0.0 && *end<0.0) {
    if((*end-*begin)>3.3*(-*end)) *end=0.0;
  }
  /* If data range is relatively small (compared to level) */
  temp=(*end-*begin)*2.0/(fabs(*end)+fabs(*begin));
  if(temp<0.01) {
    temp=0.5*(*end-*begin)*0.01/temp;
    if(*begin<0.0 || *begin>temp) *begin-=temp; else *begin=0.0;
    if(*end>0.0 || *end<-temp) *end+=temp; else *end=0.0;
  }
 
  return;
}

Referenced by svg_calculate_axes().

axis_tick_positions()

int axis_tick_positions	(	const double	begin,
		const double	end,
		double *	ticks,
		int *	tick_nr,
		double *	scale_factor,
		int *	tick_decimals,
		int	verbose )

Define suitable tick positions for XY plot.

Returns

Returns 0 if successful, <>0 in case of error.

See also

axis_check_range, svg_calculate_axes

Parameters

begin	axis range minimum.
end	axis range maximum.
ticks	Pointer to array where tick values will be written. Length must be at least tick_nr.
tick_nr	Input: Max allowed nr of ticks; Output: actual nr of ticks.
scale_factor	Output: Suggested scale factor (x10^sf). NULL, if not needed.
tick_decimals	Output: tick value precision (nr of decimals). NULL, if not needed.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 14 of file axis.c.

  {
  int ti;
  double step, scale;
 
  if(verbose>0)
    printf("axis_tick_positions(%.10E, %.10E, ticks, %d, sf, td, %d)\n", 
      begin, end, *tick_nr, verbose);
 
  /* Check input */
  if(ticks==NULL || *tick_nr<1) return(1);
  //if(verbose>1) printf("  begin:=%.10E\n  end:=%.10E\n", begin, end);
  if(end<=begin) {
    *tick_nr=0;
    if(scale_factor!=NULL) *scale_factor=1.0;
    if(tick_decimals!=NULL) *tick_decimals=0;
    return(0);
  }
  /* Calculate the initial tick step size */
  step=(end-begin)/(double)(*tick_nr);
  if(verbose>1) printf("  tick_nr:=%d\n  step:=%20.10E\n", *tick_nr, step);
 
  /* Calculate a feasible step size and scale */
  scale=1.0;
  while(step<=0.5) {step*=10.0; scale/=10.0;}
  while(step>5.0) {step/=10.0; scale*=10.0;}
  if(verbose>1) printf("  scaled_step:=%.10E\n  scale:=%E\n", step, scale);
  if     (step<1.0) {step=1.0;}
  else if(step<2.0) {step=2.0;}
  else              {step=5.0;}
  if(verbose>1) {
    printf("  feasible step:=%g\n", step);
  }
  ti=0; ticks[ti]=step*scale*ceil(begin/(step*scale));
  while(ticks[ti]<=(end+(end-begin)*0.00001) && ti<*tick_nr) {
    ti++; ticks[ti]=ticks[0]+step*scale*(double)ti;
  }
  *tick_nr=ti;
 
  if(verbose>1) {
    printf("   final tick_nr := %d\n", *tick_nr);
    printf("    ticks: %.10E", ticks[0]);
    for(ti=1; ti<*tick_nr; ti++) printf(", %.10E", ticks[ti]);
    printf("\n");
  }
 
  /* Quit, if user did not like scales etc */
  if(scale_factor==NULL && tick_decimals==NULL) return(0);
 
  /* Calculate step scale */
  double step_scale=log10(scale);
  if(verbose>1) printf("  step_scale=%g\n", step_scale);
 
  /* Find the highest tick label */
  double tick_high;
  int tick_scale, scale_dif;
  if(fabs(ticks[0])>fabs(ticks[*tick_nr-1])) tick_high=ticks[0];
  else tick_high=ticks[*tick_nr-1];
  if(verbose>1) printf("  tick_high := %.10E\n", tick_high);
  tick_scale=0;
  while(fabs(tick_high)<1.0) {tick_high*=10.0; tick_scale--;}
  while(fabs(tick_high)>=10.0) {tick_high/=10.0; tick_scale++;}
  if(verbose>1) printf("  scaled_tick_high := %g\n  tick_scale := %d\n", tick_high, tick_scale);
 
  /* Calculate the difference between tick and step scales */
  scale_dif=tick_scale-step_scale;
  if(verbose>1) printf("  scale_dif := %d\n", scale_dif);
  /* That determines the tick number precision */
  if(tick_decimals!=NULL) {
    *tick_decimals=1+scale_dif;
    if(verbose>1) printf("  tick_decimals := %d\n", *tick_decimals);
  }
 
  /* Calculate the preferred tick scale factor, or quit, if it is not needed */
  if(scale_factor==NULL) return(0);
  *scale_factor=tick_scale;
  if(verbose>1) printf("  scale_factor := %g\n", *scale_factor);
 
  return(0);
}

Referenced by svg_calculate_axes().

check_intersection_with_viewport()

int check_intersection_with_viewport ( const double x1, const double y1, const double x2, const double y2, struct svg_viewport_pos * cavp, double * nx1, double * ny1, double * nx2, double * ny2, int verbose )

extern

Check the intersections between specified line and viewport borders.

Returns

Returns the number (0-2) of crossings.

See also

get_line_intersection

Parameters

x1	x,y coordinates of line at points 1 and 2; x coordinate of point 1.
y1	y coordinate of point 1.
x2	x coordinate of point 2.
y2	y coordinate of point 2.
cavp	Pointer to coordinate area viewport.
nx1	Pointers for (possibly) modified line coordinates; NULL if not needed.
ny1	new y coordinate of point 1.
nx2	new x coordinate of point 2.
ny2	new y coordinate of point 2.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 73 of file svg_plot.c.

  {
  int i=0, n, crossings=0;
  double ix, iy;
  double mx[2], my[2];
 
  if(verbose>0) {
    printf("%s(%g, %g, %g, %g, cavp, nx1, ny1, nx2, ny2, %d)\n",
      __func__, x1, y1, x2, y2, verbose); 
    fflush(stdout);
  }
 
  mx[0]=x1; my[0]=y1; mx[1]=x2; my[1]=y2;
  /* Upper border */
  n=get_line_intersection(x1, y1, x2, y2, 0.0, 0.0, (double)cavp->w, 0.0, &ix, &iy, verbose);
  if(n>0) {
    if(crossings==0) {
      if(y1<iy) i=0; else i=1; // which point was out? change that one
    } else { // both are out, change the other than first time
      if(i==0) i=1; else i=0;
    }
    mx[i]=ix; my[i]=iy; crossings++;
    if(verbose>3)
      printf("line between (%g,%g) and (%g,%g) would cross upper border at (%g,%g)\n",
        x1, y1, x2, y2, ix, iy);
  }
  /* Lower border */
  n=get_line_intersection(x1, y1, x2, y2,
          0.0, (double)cavp->h, (double)cavp->w, (double)cavp->h, &ix, &iy, verbose);
  if(n>0) {
    if(crossings==0) {
      if(y1>iy) i=0; else i=1; // which point was out? change that one
    } else { // both are out, change the other than first time
      if(i==0) i=1; else i=0;
    }
    mx[i]=ix; my[i]=iy; crossings++;
    if(verbose>3)
      printf("line between (%g,%g) and (%g,%g) would cross lower border at (%g,%g)\n",
        x1, y1, x2, y2, ix, iy);
  }
  /* Left border */
  n=get_line_intersection(x1, y1, x2, y2,
          0.0, 0.0, 0.0, cavp->h,
          &ix, &iy, verbose);
  if(n>0) {
    if(crossings==0) {
      if(x1<ix) i=0; else i=1; // which point was out? change that one
    } else { // both are out, change the other than first time
      if(i==0) i=1; else i=0;
    }
    mx[i]=ix; my[i]=iy; crossings++;
    if(verbose>3)
      printf("line between (%g,%g) and (%g,%g) would cross left border at (%g,%g)\n",
        x1, y1, x2, y2, ix, iy);
  }
  /* Right border */
  n=get_line_intersection(x1, y1, x2, y2,
          (double)cavp->w, 0.0, (double)cavp->w, (double)cavp->h,
          &ix, &iy, verbose);
  if(n>0) {
    if(crossings==0) {
      if(x1>ix) i=0; else i=1; // which point was out? change that one
    } else { // both are out, change the other than first time
      if(i==0) i=1; else i=0;
    }
    mx[i]=ix; my[i]=iy; crossings++;
    if(verbose>3)
      printf("line between (%g,%g) and (%g,%g) would cross right border at (%g,%g)\n",
        x1, y1, x2, y2, ix, iy);
  }
  if(verbose>3 && crossings>0) printf("crossings=%d\n", crossings);
 
  if(nx1!=NULL) *nx1=mx[0];
  if(ny1!=NULL) *ny1=my[0];
  if(nx2!=NULL) *nx2=mx[1];
  if(ny2!=NULL) *ny2=my[1];
  if(verbose>2 && crossings>0)
    printf("modified line (%g,%g) -> (%g,%g)\n", mx[0], my[0], mx[1], my[1]);
 
  return(crossings);
}

Referenced by svg_write_tac().

get_line_intersection()

int get_line_intersection ( const double a1x, const double a1y, const double a2x, const double a2y, const double b1x, const double b1y, const double b2x, const double b2y, double * ix, double * iy, int verbose )

extern

Check whether two lines, each drawn between two points, intersect each other.

If either end of lines intersects with the other line, that is NOT counted as intersection.

Returns

Returns 1 in case of intersection, and 0 if they do not cross.

See also

check_intersection_with_viewport

Parameters

a1x	x,y coordinates of line a at points 1 and 2; x coordinate of point 1.
a1y	y coordinate of point 1.
a2x	x coordinate of point 2.
a2y	y coordinate of point 2.
b1x	x,y coordinates of line b at points 1 and 2; x coordinate of point 1.
b1y	y coordinate of point 1.
b2x	x coordinate of point 2.
b2y	y coordinate of point 2.
ix	Pointers for intersection point coordinates; NULL if not needed.
iy	Intersection y coordinate
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 19 of file svg_plot.c.

  {
  double sax, say, sbx, sby, s, t, d;
 
  if(verbose>0) {
    printf("%s(%g, %g, %g, %g, %g, %g, %g, %g, ix, iy, %d)\n",
      __func__, a1x, a1y, a2x, a2y, b1x, b1y, b2x, b2y, verbose);  
    fflush(stdout);
  }
 
  if(a1x==a2x && a1y==a2y) return(0);
  sax=a2x-a1x; say=a2y-a1y;
  sbx=b2x-b1x; sby=b2y-b1y;
  d=-sbx*say+sax*sby; if(d==0.0) return(0);
  s=(-say*(a1x-b1x) + sax*(a1y-b1y)) / d;
  t=(+sbx*(a1y-b1y) - sby*(a1x-b1x)) / d;
//if(s>=0.0 && s<=1.0 && t>=0.0 && t<=1.0) {
  if(s>0.0 && s<1.0 && t>0.0 && t<1.0) {
    if(verbose>3) printf("s=%g t=%g\n", s, t);
    if(ix!=NULL) *ix=a1x+(t*sax);
    if(iy!=NULL) *iy=a1y+(t*say);
    return(1);
  } 
  return(0);
}

Referenced by check_intersection_with_viewport().

strRmExpZeroes()

void strRmExpZeroes

(

char *

str

)

Remove initial exponential zeroes from the exponential part of string representation of values, for example, '1.01E-010' -> '1.01E-10'.

Definition at line 179 of file axis.c.

{
  char *p, *r;
  int i, n;
  
  if(str==NULL || strlen(str)<3) return;
  // search the exp E
  p=strrchr(str, 'E'); if(p==NULL) p=strrchr(str, 'e'); if(p==NULL) return;
  // if only +,- and 0 after it, then remove also E
  r=p+1; if(strspn(r, "0+-")==strlen(r)) {*p=(char)0; return;}
  // remove next '+' or jump over '-'
  p++;
  if(*p=='+') {r=p; while(1) {*r=*(r+1); if(*r==(char)0) break; r++;}}
  else if(*p=='-') p++;
  // count initial zeroes
  n=strspn(p, "0"); if(n==0) return;
  // copy the rest of the string over zeroes
  r=p+n; n=strlen(r);
  for(i=0; i<=n; i++) {*p=*r; p++; r++;}
  return;
}

Referenced by svg_calculate_axes().

svg_calculate_axes()

int svg_calculate_axes ( struct svg_viewports * vp, int verbose )

extern

Calculate the axis tick positions. Before calling this, viewport must be filled with curve min and max values. This routine checks that max>min, changing the values if necessary.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_define_viewports, svg_write_axes, svg_write_xticks, svg_write_yticks, axis_tick_positions

Parameters

vp	Struct containing the viewport sizes.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 364 of file svg_plot.c.

  {
  int ret, ti, prec;
  double orig_min, orig_max;
 
  if(verbose>0) {
    printf("%s(vp, %d)\n", __func__, verbose);
    fflush(stdout);
  }
 
  /* x axis */
  orig_min=vp->x.min; orig_max=vp->x.max;
  axis_check_range(&vp->x.min, &vp->x.max, verbose);
  if(vp->x.fixed_min) vp->x.min=orig_min;
  if(vp->x.fixed_max) vp->x.max=orig_max;
  if(verbose>1) printf("x-range %g - %g -> %g - %g\n", orig_min, orig_max, vp->x.min, vp->x.max);
  vp->x.tick_nr=MAX_TICK_NR;
  if((fabs(vp->x.max)<0.1 || fabs(vp->x.max)>10000) && vp->x.tick_nr>8) vp->x.tick_nr=8; // Only few long tick labels can fit on x axis
  if((fabs(vp->x.max)<0.01 || fabs(vp->x.max)>100000) && vp->x.tick_nr>6) vp->x.tick_nr=5; // even fewer tick labels can fit on x axis
  if(vp->label_area_viewport.is) vp->x.tick_nr=1+vp->x.tick_nr/2; // Legends reduce the width of x axis
  ret=axis_tick_positions(
    vp->x.min, vp->x.max, vp->x.tick, &vp->x.tick_nr, &vp->x.tickscale,
    &vp->x.tick_decimals, verbose);
  if(ret!=0) return(ret+100);
 
  /* create tick labels to be written later */
  prec=vp->x.tick_decimals-1-(int)vp->x.tickscale; if(prec<0) prec=0;
  for(ti=0; ti<vp->x.tick_nr; ti++) {
    if(vp->x.tickscale<-2 || vp->x.tickscale>3) {
      sprintf(vp->x.tick_label[ti], "%.*E", vp->x.tick_decimals-1, vp->x.tick[ti]);
      strRmExpZeroes(vp->x.tick_label[ti]);
    } else if(vp->x.tickscale<=0)
      sprintf(vp->x.tick_label[ti], "%.*f", prec, vp->x.tick[ti]);
    else
      sprintf(vp->x.tick_label[ti], "%.*f", prec, vp->x.tick[ti]);
  }
 
  /* y axis */
  orig_min=vp->y.min; orig_max=vp->y.max;
  axis_check_range(&vp->y.min, &vp->y.max, verbose);
  if(vp->y.fixed_min) vp->y.min=orig_min;
  if(vp->y.fixed_max) vp->y.max=orig_max;
  if(verbose>1) printf("y-range %g - %g -> %g - %g\n", orig_min, orig_max, vp->y.min, vp->y.max);
  vp->y.tick_nr=MAX_TICK_NR; // 10
  ret=axis_tick_positions(
    vp->y.min, vp->y.max, vp->y.tick, &vp->y.tick_nr, &vp->y.tickscale,
    &vp->y.tick_decimals, verbose);
  if(ret!=0) return(ret+200);
  /* create tick labels to be written later */
  prec=vp->y.tick_decimals-1-(int)vp->y.tickscale; if(prec<0) prec=0;
  for(ti=0; ti<vp->y.tick_nr; ti++) {
    if(vp->y.tickscale<-2 || vp->y.tickscale>3) {
      sprintf(vp->y.tick_label[ti], "%.*E", vp->y.tick_decimals-1, vp->y.tick[ti]);
      strRmExpZeroes(vp->y.tick_label[ti]);
    } else if(vp->y.tickscale<=0)
      sprintf(vp->y.tick_label[ti], "%.*f", prec, vp->y.tick[ti]);
    else
      sprintf(vp->y.tick_label[ti], "%.*f", prec, vp->y.tick[ti]);
  }
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_close()

int svg_close ( FILE * fp, char * errmsg, int verbose )

extern

Close SVG graphics file.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_initiate

Parameters

fp	SVG graphics file pointer.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 107 of file svg_file.c.

  {
  if(verbose>0) printf("%s(fp, errmsg, %d)\n", __func__, verbose);
 
  if(svg_write(fp, "</svg>\n", errmsg, verbose-5)!=0) {fclose(fp); return(1);}
  fflush(fp); fclose(fp);
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_create_legends()

int svg_create_legends ( FILE * fp, struct svg_viewports * vp, SVG_LEGENDS * legends, char * errmsg, int verbose )

extern

Create SVG plot legends.

Returns

Returns 0 if successful, <>0 in case of error.

Parameters

fp	SVG graphics file pointer.
vp	Struct containing the viewport sizes.
legends	Pointer to struct containing legends.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 76 of file svg_legend.c.

  {
  char tmp[1024], line[128], ilc[9];
  double xpos, ypos, ygap, size=100.0, trgsize=140.0, circsize=120.0;
  int ti, len, maxlen, text_space;
  const int defNr=24;
//  const double hrratio=1.80; // average character height/width 
  const double hrratio=1.20; // average character height/width 
 
  if(verbose>0) printf("%s(fp, vp, legends, errmsg, %d)\n", __func__, verbose);
 
  /* Check the input */
  if(vp->label_area_viewport.is==0) return(0);
  if(legends==NULL || legends->n<1) return(0);
  if(fp==NULL) {
    if(errmsg!=NULL) sprintf(errmsg, "file was closed too early");
    return(1);
  }
 
  if(SVG_INLINE) strcpy(ilc, "svg:"); else strcpy(ilc, "");
 
  /* Create a new viewport for plot legends */
  strcpy(tmp, "\n  <!-- Legends viewport -->\n");
  sprintf(line, "  <%ssvg x=\"%dpx\" y=\"%dpx\" width=\"%dpx\" height=\"%d\"",
    ilc, vp->label_area_viewport.x, vp->label_area_viewport.y,
    vp->label_area_viewport.w, vp->label_area_viewport.h); strcat(tmp, line);
  sprintf(line, "\n      viewBox=\"0 0 %d %d\"",
    vp->label_area_viewport.w, vp->label_area_viewport.h); strcat(tmp, line);
  strcat(tmp, "\n      preserveAspectRatio=\"xMidYMid meet\"");
  strcat(tmp, ">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(4);}
 
 
#if(0) // during testing show the vieport with background color
  sprintf(tmp, "    <%srect width=\"%dpx\" height=\"%dpx\" stroke=\"none\" fill=\"red\" fill-opacity=\"0.3\" />\n",
    ilc, vp->label_area_viewport.w, vp->label_area_viewport.h);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(99);}
#endif
 
  /* Set the space for legend text */
  text_space=(8*vp->label_area_viewport.w)/10;
 
  /* Determine font size for legends */
  /* first, based on legend nr */
  ti=legends->n; if(ti<defNr) ti=defNr;
  vp->label_area_viewport.chr_size=
    (double)vp->label_area_viewport.h/(double)(ti+1);
  //printf("vp->label_area_viewport.chr_size := %d\n", vp->label_area_viewport.chr_size);
  /* then, make smaller based on max length, if necessary */
  ti=0; maxlen=len=strlen(legends->l[ti].text);
  for(ti=1; ti<legends->n; ti++) {
    len=strlen(legends->l[ti].text); if(len>maxlen) maxlen=len;}
  //printf("legend max length := %d\n", maxlen);
  if(vp->label_area_viewport.chr_size*maxlen>hrratio*(double)text_space)
    vp->label_area_viewport.chr_size=hrratio*(double)text_space/(double)maxlen;
  //printf("vp->label_area_viewport.chr_size := %d\n", vp->label_area_viewport.chr_size);
  /* Set line gap, if there is space for that */
  ygap=0; if(legends->n<=2*defNr/3) ygap=vp->label_area_viewport.chr_size/3;
 
  /* Write legend texts as a group */
  xpos=(double)(vp->label_area_viewport.w - text_space);
  ypos=1.5*(double)vp->label_area_viewport.chr_size;
  sprintf(tmp, "    <%sg", ilc);
  sprintf(line, " font-family=\"Sans-serif\""); strcat(tmp, line);
  sprintf(line, " text-anchor=\"Start\""); strcat(tmp, line);
  sprintf(line, " font-size=\"%d\"", vp->label_area_viewport.chr_size); strcat(tmp, line);
  sprintf(line, " fill=\"black\""); strcat(tmp, line);
  strcat(tmp, ">\n"); 
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(8);}
  /* Write one legend text at a time */
  for(ti=0; ti<legends->n; ti++) {
    //printf("ti=%d text='%s'\n", ti, legends->l[ti].text);
    sprintf(tmp, "      <%s", ilc);
    sprintf(line, "text x=\"%g\" y=\"%g\"", xpos, ypos); strcat(tmp, line);
    sprintf(line, ">"); strcat(tmp, line);
    char *senc=svg_str_encode(legends->l[ti].text);
    if(senc==NULL) strcat(tmp, legends->l[ti].text); else {strcat(tmp, senc); free(senc);}
    strcat(tmp, "</"); strcat(tmp, ilc); strcat(tmp, "text>\n");
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(9);}
    ypos+=ygap+(double)vp->label_area_viewport.chr_size;
  }
  sprintf(tmp, "    </%sg>\n", ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(10);}
 
  /* Write legend symbols */
  xpos=0.5*(double)(vp->label_area_viewport.w - text_space);
  ypos=1.25*(double)vp->label_area_viewport.chr_size;
  for(ti=0; ti<legends->n; ti++) {
    sprintf(tmp, "    <%sg", ilc);
    sprintf(line, " stroke=\"%s\"", svgColorName(legends->l[ti].color)); strcat(tmp, line);
    sprintf(line, " fill=\"%s\"", svgColorName(legends->l[ti].color)); strcat(tmp, line);
    if(legends->l[ti].symbol_fill==SYMBOLOPEN) sprintf(line, " fill-opacity=\"0.02\"");
    else sprintf(line, " fill-opacity=\"0.92\"");
    strcat(tmp, line);
    sprintf(line, " stroke-width=\"25\""); strcat(tmp, line);
    strcat(tmp, ">\n"); 
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(8);}
 
    /* Line */
    if(legends->l[ti].plot_type==0 || legends->l[ti].plot_type==1) {
      sprintf(tmp, "      <%sline", ilc);
      sprintf(line, " x1=\"%g\"", 0.25*xpos); strcat(tmp, line);
      sprintf(line, " y1=\"%g\"", ypos); strcat(tmp, line);
      sprintf(line, " x2=\"%g\"", 1.75*xpos); strcat(tmp, line);
      sprintf(line, " y2=\"%g\"", ypos); strcat(tmp, line);
      strcat(tmp, " />\n");
      if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(18);}
    }
 
    /* Symbol */
    if(legends->l[ti].plot_type==0 || legends->l[ti].plot_type==2) {
      sprintf(tmp, "      <%suse ", ilc);
      switch(legends->l[ti].symbol_type) {
        case RECTANGLE:
          sprintf(line, "xlink:href=\"#sym-rect\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            xpos-0.5*size, ypos-0.5*size, size, size);
          break;
        case UPTRIANGLE:
          sprintf(line, "xlink:href=\"#sym-uptr\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            xpos-0.5*trgsize, ypos-0.5*trgsize, trgsize, trgsize);
          break;
        case DOWNTRIANGLE:
          sprintf(line, "xlink:href=\"#sym-dotr\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            xpos-0.5*trgsize, ypos-0.5*trgsize, trgsize, trgsize);
          break;
        case DIAMOND:
          sprintf(line, "xlink:href=\"#sym-diam\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            xpos-0.5*trgsize, ypos-0.5*trgsize, trgsize, trgsize);
          break;
        case LEFTTRIANGLE:
          sprintf(line, "xlink:href=\"#sym-letr\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            xpos-0.5*trgsize, ypos-0.5*trgsize, trgsize, trgsize);
          break;
        case RIGHTTRIANGLE:
          sprintf(line, "xlink:href=\"#sym-ritr\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            xpos-0.5*trgsize, ypos-0.5*trgsize, trgsize, trgsize);
          break;
        case CIRCLE:
        default:
          sprintf(line, "xlink:href=\"#sym-circ\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            xpos-0.5*circsize, ypos-0.5*circsize, circsize, circsize);
          break;
      }
      strcat(tmp, line);
      strcat(tmp, " />\n");
      if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(18);}
    }
 
 
    sprintf(tmp, "    </%sg>\n", ilc);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(10);}
    ypos+=ygap+(double)vp->label_area_viewport.chr_size;
  } // next legend
 
  /* Close the view port */
  sprintf(tmp, "  </%ssvg>\n", ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(9);}
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_create_main_title()

int svg_create_main_title ( FILE * fp, const char * main_title_text, const char * sub_title_text, struct svg_viewports * vp, char * errmsg, int verbose )

extern

Create SVG plot main title.

See also

svg_create_xaxis_title, svg_create_yaxis_title

Returns

Returns 0 if successful, <>0 in case of error.

Parameters

fp	SVG graphics file pointer.
main_title_text	Text for main title.
sub_title_text	Text for sub title.
vp	Struct containing the viewport sizes.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 17 of file svg_title.c.

  {
  char tmp[1024], line[128], ilc[9];
  double main_pos, sub_pos;
 
  if(verbose>0) printf("%s(fp, mtt, stt, vp, errmsg, %d)\n", __func__, verbose);
  if(verbose>1) {
    printf("main_title_text := '%s'\n", main_title_text);
    printf("sub_title_text := '%s'\n", sub_title_text);
  }
 
  /* Check the input */
  if(vp->main_title_viewport.is==0) return(0);
  if(fp==NULL) {
    if(errmsg!=NULL) sprintf(errmsg, "file was closed too early");
    return(1);
  }
 
  if(SVG_INLINE) strcpy(ilc, "svg:"); else strcpy(ilc, "");
 
  /* Set title of the SVG document */
  sprintf(tmp, "\n  <%stitle>%s</%stitle>\n", ilc, main_title_text, ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(4);}
 
  /* Create a new viewport for main title */
  strcpy(tmp, "\n  <!-- Main title viewport -->\n");
  sprintf(line, "  <%ssvg x=\"%dpx\" y=\"%dpx\" width=\"%dpx\" height=\"%d\"",
    ilc, vp->main_title_viewport.x, vp->main_title_viewport.y,
    vp->main_title_viewport.w, vp->main_title_viewport.h); strcat(tmp, line);
  sprintf(line, "\n      viewBox=\"0 0 %d %d\"",
    vp->main_title_viewport.w, vp->main_title_viewport.h); strcat(tmp, line);
  strcat(tmp, "\n      preserveAspectRatio=\"xMidYMid meet\"");
  strcat(tmp, ">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(4);}
 
 
#if(0)
  sprintf(tmp, "    <rect width=\"%dpx\" height=\"%dpx\" stroke=\"none\" fill=\"lime\" fill-opacity=\"0.3\" />\n",
    vp->main_title_viewport.w, vp->main_title_viewport.h);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(99);}
#endif
 
  /* Determine the y positions for titles */
  if(strlen(main_title_text)>0) { /* main title exists */
    if(strlen(sub_title_text)==0) { /* no subtitle */
      main_pos=0.75*(double)vp->main_title_viewport.h;
      sub_pos=vp->main_title_viewport.h;
    } else { /* also subtitle */
      main_pos=0.52*(double)vp->main_title_viewport.h;
      sub_pos=0.9*(double)vp->main_title_viewport.h;
    }
  } else { /* no main title */
    if(strlen(sub_title_text)==0) { /* no subtitle either */
      main_pos=0.5*(double)vp->main_title_viewport.h;
      sub_pos=vp->main_title_viewport.h;
    } else { /* only subtitle */
      main_pos=0.0;
      sub_pos=0.4*(double)vp->main_title_viewport.h;
    }
  }
 
  /* Set main title text */
  sprintf(tmp, "    <%stext x=\"%d\" y=\"%g\"\n", ilc, vp->main_title_viewport.w/2, main_pos);
  sprintf(line, "        font-family=\"Sans-serif\""); strcat(tmp, line);
  sprintf(line, " text-anchor=\"middle\""); strcat(tmp, line);
  sprintf(line, " font-size=\"%d\"", vp->main_title_viewport.chr_size); strcat(tmp, line);
  sprintf(line, " fill=\"black\""); strcat(tmp, line);
  sprintf(line, ">\n"); strcat(tmp, line);
  sprintf(line, "      %s\n", main_title_text); strcat(tmp, line);
  sprintf(line, "    </%stext>\n", ilc); strcat(tmp, line);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(6);}
 
  /* Set sub title text */
  sprintf(tmp, "    <%stext x=\"%d\" y=\"%g\"\n", ilc, vp->main_title_viewport.w/2, sub_pos);
  sprintf(line, "        font-family=\"Sans-serif\""); strcat(tmp, line);
  sprintf(line, " text-anchor=\"middle\""); strcat(tmp, line);
  sprintf(line, " font-size=\"%d\"", 2*vp->main_title_viewport.chr_size/3); strcat(tmp, line);
  sprintf(line, " fill=\"black\""); strcat(tmp, line);
  sprintf(line, ">\n"); strcat(tmp, line);
  sprintf(line, "      %s\n", sub_title_text); strcat(tmp, line);
  sprintf(line, "    </%stext>\n", ilc); strcat(tmp, line);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(8);}
 
  /* Close the view port */
  sprintf(tmp, "  </%ssvg>\n", ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(9);}
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_create_xaxis_title()

int svg_create_xaxis_title ( FILE * fp, const char * title_text, struct svg_viewports * vp, char * errmsg, int verbose )

extern

Create SVG plot x axis title.

See also

svg_create_main_title, svg_create_yaxis_title

Returns

Returns 0 if successful, <>0 in case of error.

Parameters

fp	SVG graphics file pointer.
title_text	Text for x axis title.
vp	Struct containing the viewport sizes.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 126 of file svg_title.c.

  {
  char tmp[1024], line[128], ilc[9];
 
  if(verbose>0) printf("%s(fp, tt, vp, errmsg, %d)\n", __func__, verbose);
  if(verbose>1) printf("title_text := '%s'\n", title_text);
 
  /* Check the input */
  if(vp->xaxis_title_viewport.is==0) return(0);
  if(fp==NULL) {
    if(errmsg!=NULL) sprintf(errmsg, "file was closed too early");
    return(1);
  }
 
  if(SVG_INLINE) strcpy(ilc, "svg:"); else strcpy(ilc, "");
 
  /* Create a new viewport for x axis title */
  strcpy(tmp, "\n  <!-- X axis title viewport -->\n");
  sprintf(line, "  <%ssvg x=\"%dpx\" y=\"%dpx\" width=\"%dpx\" height=\"%d\"",
    ilc, vp->xaxis_title_viewport.x, vp->xaxis_title_viewport.y,
    vp->xaxis_title_viewport.w, vp->xaxis_title_viewport.h); strcat(tmp, line);
  sprintf(line, "\n      viewBox=\"0 0 %d %d\"",
    vp->xaxis_title_viewport.w, vp->xaxis_title_viewport.h); strcat(tmp, line);
  strcat(tmp, "\n      preserveAspectRatio=\"xMidYMid meet\"");
  strcat(tmp, ">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(4);}
 
 
#if(0)
  sprintf(tmp, "    <rect width=\"%dpx\" height=\"%dpx\" stroke=\"none\" fill=\"green\" fill-opacity=\"0.3\" />\n",
    vp->xaxis_title_viewport.w, vp->xaxis_title_viewport.h);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(99);}
#endif
 
 
  /* Set the text contents */
  sprintf(tmp, "    <%stext x=\"%d\" y=\"%g\"\n",
    ilc, vp->xaxis_title_viewport.w/2, 0.75*(double)vp->xaxis_title_viewport.h);
  sprintf(line, "        font-family=\"Sans-serif\""); strcat(tmp, line);
  sprintf(line, " text-anchor=\"middle\""); strcat(tmp, line);
  sprintf(line, " font-size=\"%d\"", vp->xaxis_title_viewport.chr_size); strcat(tmp, line);
  sprintf(line, " fill=\"black\""); strcat(tmp, line);
  sprintf(line, ">\n"); strcat(tmp, line);
  sprintf(line, "      %s\n", title_text); strcat(tmp, line);
  sprintf(line, "    </%stext>\n", ilc); strcat(tmp, line);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(6);}
 
  /* Close the view port */
  sprintf(tmp, "  </%ssvg>\n", ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(9);}
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_create_yaxis_title()

int svg_create_yaxis_title ( FILE * fp, const char * title_text, struct svg_viewports * vp, char * errmsg, int verbose )

extern

Create SVG plot y axis title.

See also

svg_create_main_title, svg_create_xaxis_title

Returns

Returns 0 if successful, <>0 in case of error.

Parameters

fp	SVG graphics file pointer.
title_text	Text for y axis title.
vp	Struct containing the viewport sizes.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 197 of file svg_title.c.

  {
  char tmp[1024], line[128], ilc[9];
  double xpos, ypos;
 
  if(verbose>0) printf("%s(fp, tt, vp, errmsg, %d)\n", __func__, verbose);
  if(verbose>1) printf("title_text := '%s'\n", title_text);
 
  /* Check the input */
  if(vp->yaxis_title_viewport.is==0) return(0);
  if(fp==NULL) {
    if(errmsg!=NULL) sprintf(errmsg, "file was closed too early");
    return(1);
  }
 
  if(SVG_INLINE) strcpy(ilc, "svg:"); else strcpy(ilc, "");
 
  /* Create a new viewport for y axis title */
  strcpy(tmp, "\n  <!-- Y axis title viewport -->\n");
  sprintf(line, "  <%ssvg x=\"%dpx\" y=\"%dpx\" width=\"%dpx\" height=\"%d\"",
    ilc, vp->yaxis_title_viewport.x, vp->yaxis_title_viewport.y,
    vp->yaxis_title_viewport.w, vp->yaxis_title_viewport.h); strcat(tmp, line);
  sprintf(line, "\n      viewBox=\"0 0 %d %d\"",
    vp->yaxis_title_viewport.w, vp->yaxis_title_viewport.h); strcat(tmp, line);
  strcat(tmp, "\n      preserveAspectRatio=\"xMidYMid meet\"");
  strcat(tmp, ">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(4);}
 
 
#if(0)
  sprintf(tmp, "    <rect width=\"%dpx\" height=\"%dpx\" stroke=\"none\" fill=\"red\" fill-opacity=\"0.3\" />\n",
    vp->yaxis_title_viewport.w, vp->yaxis_title_viewport.h);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(99);}
#endif
 
  /* Set the text contents */
  xpos=0.75*(double)vp->yaxis_title_viewport.w;
  ypos=0.5*(double)vp->yaxis_title_viewport.h;
  sprintf(tmp, "    <%stext x=\"%g\" y=\"%g\"\n", ilc, xpos, ypos);
  sprintf(line, "        font-family=\"Sans-serif\""); strcat(tmp, line);
  sprintf(line, " text-anchor=\"middle\""); strcat(tmp, line);
  sprintf(line, " font-size=\"%d\"", vp->yaxis_title_viewport.chr_size); strcat(tmp, line);
  sprintf(line, " fill=\"black\""); strcat(tmp, line);
  sprintf(line, " transform=\"rotate(270,%g,%g)\"", xpos, ypos); strcat(tmp, line);
  sprintf(line, ">\n"); strcat(tmp, line);
  sprintf(line, "      %s\n", title_text); strcat(tmp, line);
  sprintf(line, "    </%stext>\n", ilc); strcat(tmp, line);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(6);}
 
  /* Close the view port */
  sprintf(tmp, "  </%ssvg>\n", ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(9);}
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_define_symbols()

int svg_define_symbols ( FILE * fp, char * errmsg, int verbose )

extern

Define the curve symbols for SVG graphics file.

See also

svgSymbolName, svgColorName

Returns

Returns 0 if successful, <>0 in case of error.

Parameters

fp	SVG graphics file pointer.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 83 of file svg_defs.c.

  {
  char tmp[2048], ilc[9], line[256], allsame[128];
 
  if(verbose>0) printf("svg_define_symbols(fp, errmsg, %d)\n", verbose);
 
  if(SVG_INLINE) strcpy(ilc, "svg:"); else strcpy(ilc, "");
  strcpy(allsame, "viewBox=\"0 0 120 120\" preserveAspectRatio=\"xMinYMin meet\"");
 
  strcpy(tmp, "");
  sprintf(line, "  <%sdefs>\n", ilc); strcat(tmp, line);
 
  sprintf(line, "    <%ssymbol id=\"sym-rect\" %s >\n", ilc, allsame);
  strcat(tmp, line);
  //sprintf(line, "      <%srect x=\"2\" y=\"2\" width=\"116\" height=\"116\" style=\"stroke-width:40\" />\n", ilc);
  sprintf(line, "      <%spolygon points=\"13 13, 13 107, 107 107, 107 13\" />\n", ilc);
  strcat(tmp, line);
  sprintf(line, "    </%ssymbol>\n", ilc); strcat(tmp, line);
 
  sprintf(line, "    <%ssymbol id=\"sym-circ\" %s >\n", ilc, allsame);
  strcat(tmp, line);
//  sprintf(line, "      <%scircle cx=\"60\" cy=\"60\" r=\"50\" />\n", ilc);
  sprintf(line, "      <%scircle cx=\"60\" cy=\"60\" r=\"46\" />\n", ilc);
  strcat(tmp, line);
  sprintf(line, "    </%ssymbol>\n", ilc); strcat(tmp, line);
 
  sprintf(line, "    <%ssymbol id=\"sym-uptr\" %s >\n", ilc, allsame);
  strcat(tmp, line);
//  sprintf(line, "      <%spolygon points=\" 10 17, 110 17, 60 103 \" />\n", ilc);
  sprintf(line, "      <%spolygon points=\" 14 14, 106 14, 60 106 \" />\n", ilc);
  strcat(tmp, line);
  sprintf(line, "    </%ssymbol>\n", ilc); strcat(tmp, line);
 
  sprintf(line, "    <%ssymbol id=\"sym-dotr\" %s >\n", ilc, allsame);
  strcat(tmp, line);
//  sprintf(line, "      <%spolygon points=\" 10 103, 110 103, 60 17 \" />\n", ilc);
  sprintf(line, "      <%spolygon points=\" 14 106, 106 106, 60 14 \" />\n", ilc);
  strcat(tmp, line);
  sprintf(line, "    </%ssymbol>\n", ilc); strcat(tmp, line);
 
  sprintf(line, "    <%ssymbol id=\"sym-letr\" %s >\n", ilc, allsame);
  strcat(tmp, line);
//  sprintf(line, "      <%spolygon points=\" 103 10, 103 110, 17 60 \" />\n", ilc);
  sprintf(line, "      <%spolygon points=\" 106 14, 106 106, 14 60 \" />\n", ilc);
  strcat(tmp, line);
  sprintf(line, "    </%ssymbol>\n", ilc); strcat(tmp, line);
 
  sprintf(line, "    <%ssymbol id=\"sym-ritr\" %s >\n", ilc, allsame);
  strcat(tmp, line);
//  sprintf(line, "      <%spolygon points=\" 17 10, 17 110, 103 60 \" />\n", ilc);
  sprintf(line, "      <%spolygon points=\" 14 14, 14 106, 106 60 \" />\n", ilc);
  strcat(tmp, line);
  sprintf(line, "    </%ssymbol>\n", ilc); strcat(tmp, line);
 
  sprintf(line, "    <%ssymbol id=\"sym-diam\" %s >\n", ilc, allsame);
  strcat(tmp, line);
//  sprintf(line, "      <%spolygon points=\" 60 10, 110 60, 60 110, 10 60 \" />\n", ilc);
  sprintf(line, "      <%spolygon points=\" 60 14, 106 60, 60 106, 14 60 \" />\n", ilc);
  strcat(tmp, line);
  sprintf(line, "    </%ssymbol>\n", ilc); strcat(tmp, line);
 
  sprintf(line, "  </%sdefs>\n", ilc); strcat(tmp, line);
 
  return(svg_write(fp, tmp, errmsg, verbose-5));
}

Referenced by svg_initiate(), svg_start_plot_viewport(), and svg_xhtml_initiate().

svg_define_viewports()

int svg_define_viewports ( const int main_viewport_width, const int main_viewport_height, const int is_main_title, const int is_yaxis_title, const int is_xaxis_title, const int is_label_area, struct svg_viewports * vp, int verbose )

extern

Define the viewport positions for further use. All measures are in pixels.

Axis tick labels (y axis at least) should be set before calling this, so that enough room for the labels can be reserved.

Returns

Returns pointer to the file if successful and NULL in case of an error.

Parameters

main_viewport_width	Main viewport width (zero if default is used)
main_viewport_height	Main viewport height (zero if default is used)
is_main_title	Is there main title? no=0, yes<>0
is_yaxis_title	Is there y axis title? no=0, yes<>0
is_xaxis_title	Is there x axis title? no=0, yes<>0
is_label_area	Is there label area? no=0, yes<>0
vp	Pointer to structure which will be filled with viewport positions and sizes
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout

Definition at line 65 of file svg_vport.c.

  {
  int ti, m, n;
 
  if(verbose>0)
    printf("%s(%d, %d, %d, %d, %d, %d, vp, %d)\n", __func__,
      main_viewport_width, main_viewport_height, is_main_title, is_yaxis_title,
      is_xaxis_title, is_label_area, verbose);
 
  if(vp==NULL) return(1);
  /* Set main viewport */
  vp->main_viewport.is=1; vp->main_viewport.x=vp->main_viewport.y=0;
  if(main_viewport_width<1) vp->main_viewport.w=SVG_VIEWPORT_WIDTH;
  if(main_viewport_height<1) vp->main_viewport.h=SVG_VIEWPORT_HEIGHT;
  /* Set viewport for main title(s) */
  if(is_main_title==0) {
    vp->main_title_viewport.is=0;
    vp->main_title_viewport.x=vp->main_title_viewport.y=0;
    vp->main_title_viewport.w=vp->main_title_viewport.h=0;
    vp->main_title_viewport.chr_size=0;
  } else {
    vp->main_title_viewport.is=1;
    vp->main_title_viewport.x=vp->main_title_viewport.y=0;
    vp->main_title_viewport.w=vp->main_viewport.w;
    vp->main_title_viewport.h=vp->main_viewport.w/12;
    vp->main_title_viewport.chr_size=5*vp->main_title_viewport.h/10;
  }
  /* Set viewport for x axis title */
  if(is_xaxis_title==0) {
    vp->xaxis_title_viewport.is=0;
    vp->xaxis_title_viewport.x=0;
    vp->xaxis_title_viewport.y=vp->main_title_viewport.h;
    vp->xaxis_title_viewport.w=vp->main_title_viewport.w;
    vp->xaxis_title_viewport.h=0;
    vp->xaxis_title_viewport.chr_size=0;
  } else {
    vp->xaxis_title_viewport.is=1;
    vp->xaxis_title_viewport.x=0;
    vp->xaxis_title_viewport.w=vp->main_viewport.w;
    vp->xaxis_title_viewport.h=vp->main_viewport.h/18;
    vp->xaxis_title_viewport.y=vp->main_viewport.h-vp->xaxis_title_viewport.h;
    vp->xaxis_title_viewport.chr_size=7*vp->xaxis_title_viewport.h/10;
  }
  /* Set viewport for y axis title */
  if(is_yaxis_title==0) {
    vp->yaxis_title_viewport.is=0;
    vp->yaxis_title_viewport.x=0;
    vp->yaxis_title_viewport.y=vp->main_title_viewport.h;
    vp->yaxis_title_viewport.w=0;
    vp->yaxis_title_viewport.h=vp->main_viewport.h-vp->main_title_viewport.h-vp->xaxis_title_viewport.h;
    vp->yaxis_title_viewport.chr_size=0;
  } else {
    vp->yaxis_title_viewport.is=1;
    vp->yaxis_title_viewport.x=0;
    vp->yaxis_title_viewport.y=vp->main_title_viewport.h;
    vp->yaxis_title_viewport.w=vp->main_viewport.w/18;
    vp->yaxis_title_viewport.h=vp->main_viewport.h-vp->main_title_viewport.h-vp->xaxis_title_viewport.h;
    if(vp->xaxis_title_viewport.is)
      vp->yaxis_title_viewport.chr_size=vp->xaxis_title_viewport.chr_size;
    else
      vp->yaxis_title_viewport.chr_size=7*vp->yaxis_title_viewport.w/10;
  }
  /* Set viewport for label area */
  if(is_label_area==0) {
    vp->label_area_viewport.is=0;
    vp->label_area_viewport.x=vp->main_viewport.w;
    vp->label_area_viewport.y=vp->main_title_viewport.h;
    vp->label_area_viewport.w=0;
    vp->label_area_viewport.h=vp->main_viewport.h-vp->main_title_viewport.h-vp->xaxis_title_viewport.h;
  } else {
    vp->label_area_viewport.is=1;
    vp->label_area_viewport.x=3*vp->main_viewport.w/4;
    vp->label_area_viewport.y=vp->main_title_viewport.h;
    vp->label_area_viewport.w=vp->main_viewport.w-vp->label_area_viewport.x;
    vp->label_area_viewport.h=vp->main_viewport.h-vp->main_title_viewport.h-vp->xaxis_title_viewport.h;
  }
  /* Set viewport for plot area */
  vp->plot_area_viewport.is=1;
  vp->plot_area_viewport.x=vp->yaxis_title_viewport.w;
  vp->plot_area_viewport.y=vp->main_title_viewport.h;
  vp->plot_area_viewport.w=vp->main_viewport.w-vp->yaxis_title_viewport.w-vp->label_area_viewport.w;
  vp->plot_area_viewport.h=vp->main_viewport.h-vp->main_title_viewport.h-vp->xaxis_title_viewport.h;
  /* Set plot area contents (inside plot area) */
  vp->coordinate_area_viewport.is=1;
  for(ti=m=0; ti<vp->y.tick_nr; ti++) {n=strlen(vp->y.tick_label[ti]); if(n>m) m=n;}
  if(verbose>2) printf("max_yaxis_label_len=%d\n", m);
  if(m<3) vp->coordinate_area_viewport.x=vp->plot_area_viewport.w/14;
  else if(m<5) vp->coordinate_area_viewport.x=vp->plot_area_viewport.w/10;
  else if(m<7) vp->coordinate_area_viewport.x=vp->plot_area_viewport.w/7; // prev 8
  else vp->coordinate_area_viewport.x=vp->plot_area_viewport.w/4; // prev 5
  vp->coordinate_area_viewport.y=0;
  vp->coordinate_area_viewport.w=vp->plot_area_viewport.w-vp->coordinate_area_viewport.x;
  vp->coordinate_area_viewport.h=19*vp->plot_area_viewport.h/20;
  /* Calculate the character size for tick labels etc */
  vp->plot_area_viewport.chr_size=vp->coordinate_area_viewport.chr_size=
    ceil(0.62*(double)(vp->plot_area_viewport.h-vp->coordinate_area_viewport.h)); // prev 0.67
 
  if(verbose>3) printf("coordinate_area_viewport.h := %d\n", vp->coordinate_area_viewport.h);
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_end_coordinate_viewport()

int svg_end_coordinate_viewport ( FILE * fp, char * errmsg, int verbose )

extern

End coordinate area viewport.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_start_coordinate_viewport

Parameters

fp	SVG graphics file pointer.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 327 of file svg_plot.c.

  {
  char tmp[1024];
 
  if(verbose>0) {
    printf("%s(fp, errmsg, %d)\n", __func__, verbose);
    fflush(stdout);
  }
 
  /* Check the input */
  if(fp==NULL) {
    if(errmsg!=NULL) sprintf(errmsg, "file was closed too early");
    return(1);
  }
 
  if(SVG_INLINE) strcpy(tmp, "  </svg:svg>\n\n");
  else strcpy(tmp, "  </svg>\n\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(2);}
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_end_plot_viewport()

int svg_end_plot_viewport ( FILE * fp, char * errmsg, int verbose )

extern

End plot viewport.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_start_plot_viewport

Parameters

fp	SVG graphics file pointer.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 238 of file svg_plot.c.

  {
  char tmp[1024];
 
  if(verbose>0) {
    printf("%s(fp, vp, errmsg, %d)\n", __func__, verbose);
    fflush(stdout);
  }
 
  /* Check the input */
  if(fp==NULL) {
    if(errmsg!=NULL) sprintf(errmsg, "file was closed too early");
    return(1);
  }
 
  /* Write the end tag */
  if(SVG_INLINE) strcpy(tmp, "  </svg:svg>\n"); else strcpy(tmp, "  </svg>\n");
 
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(2);}
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_init_coord()

void svg_init_coord ( struct svg_coord * p )

extern

Initiate struct svg_coord contents to all-zeroes before use.

Definition at line 26 of file svg_vport.c.

  {
  p->min=0;
  p->max=0;
  p->scale=0.0;
  p->origo=0.0;
  p->tick_nr=0;
  for(int i=0; i<MAX_TICK_NR; i++) p->tick[i]=0.0;
  p->tickscale=0.0;
  p->tick_decimals=0.0;
  for(int i=0; i<MAX_TICK_NR; i++) p->tick_label[i][0]=(char)0;
  p->upper_margin=0;
  p->fixed_min=0;
  p->fixed_max=0;
}

Referenced by svg_init_viewports().

svg_init_legends()

void svg_init_legends ( SVG_LEGENDS * legends )

extern

Initiate SVG plot legends struct contents; call this once before usage

Parameters

legends

Pointer to legends struct

Definition at line 14 of file svg_legend.c.

  {
  legends->_init=1;
  legends->n=0;
  legends->l=NULL;
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_init_viewport_pos()

void svg_init_viewport_pos ( struct svg_viewport_pos * p )

extern

Initiate struct svg_viewport_pos contents to all-zeroes before use.

Definition at line 15 of file svg_vport.c.

  {
  p->is=0;
  p->x=0;
  p->y=0;
  p->w=0;
  p->h=0;
  p->chr_size=0;
}

Referenced by svg_init_viewports().

svg_init_viewports()

void svg_init_viewports ( struct svg_viewports * p )

extern

Initiate struct svg_viewports contents to all-zeroes before use.

Definition at line 43 of file svg_vport.c.

  {
  svg_init_viewport_pos(&p->main_viewport);
  svg_init_viewport_pos(&p->main_title_viewport);
  svg_init_viewport_pos(&p->yaxis_title_viewport);
  svg_init_viewport_pos(&p->xaxis_title_viewport);
  svg_init_viewport_pos(&p->label_area_viewport);
  svg_init_viewport_pos(&p->plot_area_viewport);
  svg_init_viewport_pos(&p->coordinate_area_viewport);
  svg_init_coord(&p->x);
  svg_init_coord(&p->y);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_initiate()

FILE * svg_initiate ( const char * filename, const double height, const double width, struct svg_viewports * vp, char * errmsg, int verbose )

extern

Initiate a new SVG graphics file.

If file with same name exists, it is overwritten without backup.

Returns

Returns pointer to the file if successful and NULL in case of an error.

See also

svg_close, svg_xhtml_initiate

Parameters

filename	File name for SVG graphics.
height	Plot height in cm; 0, if not predefined.
width	Plot width in cm; 0, if not predefined.
vp	Struct containing the viewport sizes.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 22 of file svg_file.c.

  {
  FILE *fp;
  char tmp[1024], *cptr;
 
  if(verbose>0)
    printf("%s(%s, %g, %g, vp, errmsg, %d)\n", __func__, filename, height, width, verbose);
 
  /* Check input */
  if(filename==NULL || vp==NULL) return(NULL);
  if(vp->main_viewport.w<3 || vp->main_viewport.h<3) return(NULL);
 
  /* Open file for write */
  fp=fopen(filename, "w");
  if(fp==NULL) {
    if(errmsg!=NULL) strcpy(errmsg, "cannot open file for write");
    return(fp);
  }
 
  strcpy(tmp, "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n");
  //strcat(tmp, "<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\"\n");
  //strcat(tmp, " \"https://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">\n");
  strcat(tmp, "<svg version=\"1.1\" baseProfile=\"full\"\n");
  strcat(tmp, "     xmlns=\"https://www.w3.org/2000/svg\"\n");
  strcat(tmp, "     xmlns:xlink=\"https://www.w3.org/1999/xlink\"\n");
  strcat(tmp, "     xmlns:ev=\"https://www.w3.org/2001/xml-events\"");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
    fclose(fp); remove(filename); return(NULL);}
 
  sprintf(tmp, "\n    viewBox=\"0 0 %d %d\"",
    vp->main_viewport.w, vp->main_viewport.h);
  strcat(tmp,  "\n    preserveAspectRatio=\"xMinYMin meet\"");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
    fclose(fp); remove(filename); return(NULL);}
 
  if(width>0.0) {
    sprintf(tmp, "\n     width=\"%gcm\"", width);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
      fclose(fp); remove(filename); return(NULL);}
  }
  if(height>0.0) {
    sprintf(tmp, "\n     height=\"%gcm\"", height);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
      fclose(fp); remove(filename); return(NULL);}
  }
 
  strcpy(tmp, ">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
    fclose(fp); remove(filename); return(NULL);}
 
  /* Write file name as title element */
  cptr=strrchr(filename, '/'); if(cptr==NULL) cptr=strrchr(filename, '\\');
  if(cptr!=NULL) cptr++; else cptr=(char*)filename;
  if(cptr!=NULL) {
    sprintf(tmp, "  <title>%s</title>\n", cptr);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
      fclose(fp); remove(filename); return(NULL);}
  }
 
  /* Create plot symbols for possible later use */
  if(svg_define_symbols(fp, errmsg, verbose)!=0) {
    fclose(fp); remove(filename); return(NULL);}
 
  return(fp);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_legend_add()

int svg_legend_add ( SVG_LEGENDS * legends, const int plot_type, const int symbol_type, const svgSymbolFill symbol_fill, const int color, const char * text )

extern

Add information of one legend item to legends struct.

Memory will be allocated here.

Returns

Returns 0 when successful, otherwise <>0.

Parameters

legends	Pointer to legends structure.
plot_type	Plot type: 1=line, 2=symbols, 0=both line and symbols.
symbol_type	Symbol type: RECTANGLE, CIRCLE, UPTRIANGLE, DOWNTRIANGLE, DIAMOND, LEFTTRIANGLE, RIGHTTRIANGLE
symbol_fill	Symbol filling: SYMBOLOPEN, SYMBOLFILLED
color	SVG color index.
text	Pointer to Legend text.

Definition at line 43 of file svg_legend.c.

  {
  if(legends==NULL || legends->_init!=1) return 1;
  if(legends->n==0) legends->l=malloc((legends->n+1)*sizeof(SVG_LEGEND));
  else legends->l=realloc(legends->l, (legends->n+1)*sizeof(SVG_LEGEND));
  if(legends->l==NULL) {legends->n=0; return 2;}
  legends->n++;
  legends->l[legends->n-1].plot_type=plot_type;
  legends->l[legends->n-1].symbol_type=symbol_type;
  legends->l[legends->n-1].symbol_fill=symbol_fill;
  legends->l[legends->n-1].color=color;
  strncpy(legends->l[legends->n-1].text, text, MAX_SVG_LEGEND_LEN);
  legends->l[legends->n-1].text[MAX_SVG_LEGEND_LEN]=(char)0;
  return 0;
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_legend_empty()

void svg_legend_empty ( SVG_LEGENDS * legends )

extern

Empty the legends struct contents and free the allocated memory.

Parameters

legends

Pointer to legends struct

Definition at line 26 of file svg_legend.c.

  {
  if(legends==NULL) return;
  if(legends->_init==0 || legends->n<1) return;
  free(legends->l);
  legends->n=0;
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_start_coordinate_viewport()

int svg_start_coordinate_viewport ( FILE * fp, struct svg_viewports * vp, char * errmsg, int verbose )

extern

Start coordinate area viewport.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_end_coordinate_viewport, svg_define_viewports

Parameters

fp	SVG graphics file pointer.
vp	Struct containing the viewport sizes.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 276 of file svg_plot.c.

  {
  char tmp[1024], line[128];
 
  if(verbose>0) {
    printf("%s(fp, vp, errmsg, %d)\n", __func__, verbose);
    fflush(stdout);
  }
 
  /* Check the input */
  if(fp==NULL) {
    if(errmsg!=NULL) sprintf(errmsg, "file was closed too early");
    return(1);
  }
 
  /* Create a new viewport for plot area */
  strcpy(tmp, "\n  <!-- Coordinate area viewport -->\n");
  if(SVG_INLINE) strcat(tmp, "  <svg:"); else strcat(tmp, "  <");
  sprintf(line, "svg x=\"%dpx\" y=\"%dpx\" width=\"%dpx\" height=\"%d\"",
    vp->coordinate_area_viewport.x, vp->coordinate_area_viewport.y,
    vp->coordinate_area_viewport.w, vp->coordinate_area_viewport.h); strcat(tmp, line);
  sprintf(line, "\n      viewBox=\"0 0 %d %d\"",
    vp->coordinate_area_viewport.w, vp->coordinate_area_viewport.h); strcat(tmp, line);
  strcat(tmp, "\n      preserveAspectRatio=\"xMidYMid meet\"");
  strcat(tmp, ">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(4);}
 
#if(0)
  sprintf(tmp, "    <rect width=\"%dpx\" height=\"%dpx\" stroke=\"none\" fill=\"silver\" fill-opacity=\"0.3\" />\n",
    vp->coordinate_area_viewport.w, vp->coordinate_area_viewport.h);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(99);}
#endif
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_start_plot_viewport()

int svg_start_plot_viewport ( FILE * fp, struct svg_viewports * vp, char * errmsg, int verbose )

extern

Start plot area viewport.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_end_plot_viewport, svg_define_viewports

Parameters

fp	SVG graphics file pointer.
vp	Struct containing the viewport sizes.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 181 of file svg_plot.c.

  {
  char tmp[1024], line[128], ilc[9];
 
  if(verbose>0) {
    printf("%s(fp, vp, errmsg, %d)\n", __func__, verbose);
    fflush(stdout);
  }
 
  /* Check the input */
  if(fp==NULL) {
    if(errmsg!=NULL) sprintf(errmsg, "file was closed too early");
    return(1);
  }
  if(SVG_INLINE) strcpy(ilc, "svg:"); else strcpy(ilc, "");
 
  /* Create a new viewport for plot area */
  strcpy(tmp, "\n  <!-- Plot area viewport -->\n");
  strcat(tmp, "  <"); strcat(tmp, ilc); strcat(tmp, "svg");
  sprintf(line, " x=\"%dpx\" y=\"%dpx\" width=\"%dpx\" height=\"%d\"",
    vp->plot_area_viewport.x, vp->plot_area_viewport.y,
    vp->plot_area_viewport.w, vp->plot_area_viewport.h); strcat(tmp, line);
  sprintf(line, "\n      viewBox=\"0 0 %d %d\"",
    vp->plot_area_viewport.w, vp->plot_area_viewport.h); strcat(tmp, line);
  strcat(tmp, "\n      preserveAspectRatio=\"xMidYMid meet\"");
  strcat(tmp, ">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(4);}
 
#if(0)
  sprintf(tmp, "    <%srect width=\"%dpx\" height=\"%dpx\" stroke=\"none\" fill=\"yellow\" fill-opacity=\"0.1\" />\n",
    ilc, vp->plot_area_viewport.w, vp->plot_area_viewport.h);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(99);}
#endif
 
#if(0) // moved elsewhere
  /* Create symbols for later use */
  if(svg_define_symbols(fp, errmsg)!=0) {return(6);}
#endif
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_str_encode()

char * svg_str_encode ( const char * s )

extern

Encode special characters for XML, including SVG.

Postcondition

Free the memory of returned string pointer.

Returns

Returns pointer to encoded string. NULL is returned in case of an error, or if encoding is not necessary.

See also

strEncodeForXML

Parameters

s	Pointer to the string to be encoded.

Definition at line 256 of file svg_legend.c.

  {
  if(s==NULL) return(NULL);
  /* Count the characters needing encoding */
  int n=0;
  for(size_t i=0; i<strlen(s); i++) {
    if(s[i]=='&') {n++; continue;}
    if(s[i]=='\'') {n++; continue;}
    if(s[i]=='\"') {n++; continue;}
    if(s[i]=='<') {n++; continue;}
    if(s[i]=='>') {n++; continue;}
  }
  if(n==0) return(NULL);
  /* Allocate memory for new string (one char to max 6 chars) */
  n*=5; n+=strlen(s);
  char *ns=(char*)malloc(n*sizeof(char));
  if(ns==NULL) return(NULL);
  /* Process the string */
  for(int i=0; i<n; i++) ns[i]=(char)0;
  for(size_t i=0; i<strlen(s); i++) {
    if(s[i]=='&') {strcat(ns, "&amp;"); continue;}
    if(s[i]=='\'') {strcat(ns, "&apos;"); continue;}
    if(s[i]=='\"') {strcat(ns, "&quot;"); continue;}
    if(s[i]=='<') {strcat(ns, "&lt;"); continue;}
    if(s[i]=='>') {strcat(ns, "&gt;"); continue;}
    ns[strlen(ns)]=s[i];
  }
  return(ns);
}

Referenced by svg_create_legends(), and svg_write_tac().

svg_write()

int svg_write ( FILE * fp, const char * svg_string, char * errmsg, int verbose )

extern

Write given string into open SVG file

Returns

Returns 0 if successful, <>0 in case of an error.

See also

svg_initiate, svg_xhtml_initiate, svg_xhtml_svg_open

Parameters

fp	SVG graphics file pointer.
svg_string	Char pointer to NULL terminated string to be written into file.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 304 of file svg_file.c.

  {
  int pnr, len;
 
  if(verbose>0) printf("%s(fp, svg_string, errmsg, %d)\n", __func__, verbose);
  if(verbose>1) printf("svg_string := %s\n", svg_string);
 
  len=strlen(svg_string); if(len<1) return(0);
  if(fp==NULL) {
    if(errmsg!=NULL) sprintf(errmsg, "file was closed too early");
    return(1);
  }
  pnr=fprintf(fp, "%s", svg_string);
  if(pnr<len) {
    if(errmsg!=NULL) sprintf(errmsg, "cannot write into file");
    return(2);
  }
  return(0);
}

Referenced by svg_close(), svg_create_legends(), svg_create_main_title(), svg_create_xaxis_title(), svg_create_yaxis_title(), svg_define_symbols(), svg_end_coordinate_viewport(), svg_end_plot_viewport(), svg_initiate(), svg_start_coordinate_viewport(), svg_start_plot_viewport(), svg_write_axes(), svg_write_tac(), svg_write_xticks(), svg_write_yticks(), svg_xhtml_close(), svg_xhtml_initiate(), svg_xhtml_svg_close(), and svg_xhtml_svg_open().

svg_write_axes()

int svg_write_axes ( FILE * fp, struct svg_viewports * vp, char * errmsg, int verbose )

extern

Draw the axes into SVG plot coordinate area.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_define_viewports, svg_calculate_axes, svg_write_xticks, svg_write_yticks, axis_tick_positions

Parameters

fp	SVG graphics file pointer.
vp	Struct containing the viewport sizes.
errmsg	Pointer to string where error message is written; NULL if not needed.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 437 of file svg_plot.c.

  {
  int linew=20, coordw=10;
  char tmp[1024], line[128], ilc[9];
  double f;
 
  if(verbose>0) {
    printf("%s(fp, vp, errmsg, %d)\n", __func__, verbose);
    fflush(stdout);
  }
 
  /* Check the input */
  if(fp==NULL) {
    if(errmsg!=NULL) sprintf(errmsg, "file was closed too early");
    return(1);
  }
  if(vp->x.min>=vp->x.max || vp->y.min>=vp->y.max) {
    if(errmsg!=NULL) sprintf(errmsg, "invalid plot range");
    if(verbose>1) {
      printf("vp->x.min=%g vp->x.max=%g\n", vp->x.min, vp->x.max);
      printf("vp->y.min=%g vp->y.max=%g\n", vp->y.min, vp->y.max);
    }
    return(2);
  }
 
  if(SVG_INLINE) strcpy(ilc, "svg:"); else strcpy(ilc, "");
 
  /* Draw the lines around the plot */
  sprintf(tmp, "    <%s", ilc);
  sprintf(line, "polyline fill=\"none\" stroke=\"%s\" stroke-width=\"%d\"\n", "black", linew);
  strcat(tmp, line);
#if(0)
  sprintf(line, "      points=\"%d,%d %d,%d %d,%d %d,%d %d,%d\" />\n",
    linew/2, linew/2,
    linew/2, vp->coordinate_area_viewport.h-linew,
    vp->coordinate_area_viewport.w-linew/2, vp->coordinate_area_viewport.h-linew,
    vp->coordinate_area_viewport.w-linew/2, linew/2,
    linew/2, linew/2);
  strcat(tmp, line);
#else
  sprintf(line, "      points=\"%d,%d %d,%d %d,%d %d,%d %d,%d\" />\n",
    linew/2, linew/2,
    linew/2, vp->coordinate_area_viewport.h-linew/2,
    vp->coordinate_area_viewport.w-linew/2, vp->coordinate_area_viewport.h-linew/2,
    vp->coordinate_area_viewport.w-linew/2, linew/2,
    linew/2, linew/2);
  strcat(tmp, line);
#endif
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(4);}
 
  /* Set the upper margins for both axes */
  vp->y.upper_margin=0.04*(double)vp->coordinate_area_viewport.h;
#if(1)
  if(vp->label_area_viewport.is)
    vp->x.upper_margin=0.02*(double)vp->coordinate_area_viewport.w;
  else // If no legends, then more room may be needed to fit x tick labels
    vp->x.upper_margin=0.08*(double)vp->coordinate_area_viewport.w;
#else
  vp->x.upper_margin=0.08*(double)vp->coordinate_area_viewport.w;
#endif
 
  /* Calculate the scale factors */
  f=vp->coordinate_area_viewport.w-vp->x.upper_margin;
  vp->x.scale=f/(vp->x.max-vp->x.min);
  if(verbose>0) printf("xscalef:=%g (%g vs %g-%g)\n", vp->x.scale, f, vp->x.min, vp->x.max);
  f=vp->coordinate_area_viewport.h-vp->y.upper_margin;
  vp->y.scale=f/(vp->y.max-vp->y.min);
  if(verbose>1) printf("yscalef:=%g (%g vs %g-%g)\n", vp->y.scale, f, vp->y.min, vp->y.max);
 
  /* Calculate the origo in plot coordinates */
  vp->x.origo=-vp->x.scale*vp->x.min;
  if(verbose>1) printf("x.origo := %g\n", vp->x.origo);
  vp->y.origo=-vp->y.scale*vp->y.min;
  if(verbose>1) printf("y.origo := %g\n", vp->y.origo);
 
  /* Draw the x=0 line, if necessary */
  if(vp->x.origo>0 && vp->x.origo<vp->coordinate_area_viewport.w/*-vp->x.upper_margin*/) {
    if(verbose>1) printf("drawing x=0 line\n");
    sprintf(tmp, "    <%s", ilc);
    sprintf(line, "line fill=\"none\" stroke=\"%s\" stroke-width=\"%d\"\n", "black", coordw);
    strcat(tmp, line);
    sprintf(line, "      x1=\"%g\" x2=\"%g\" y1=\"%d\" y2=\"%d\" />\n",
            vp->x.origo, vp->x.origo, 0, vp->coordinate_area_viewport.h);
    strcat(tmp, line);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(6);}
  }
 
  /* Draw the y=0 line, if necessary */
  if(vp->y.origo>0 && vp->y.origo<vp->coordinate_area_viewport.h /*- vp->y.upper_margin*/) {
    if(verbose>1) printf("drawing y=0 line\n");
    sprintf(tmp, "    <%s", ilc);
    sprintf(line, "line fill=\"none\" stroke=\"%s\" stroke-width=\"%d\"\n", "black", coordw);
    strcat(tmp, line);
    sprintf(line, "      x1=\"%d\" x2=\"%d\" y1=\"%g\" y2=\"%g\" />\n",
      0, vp->coordinate_area_viewport.w,
      vp->coordinate_area_viewport.h-vp->y.origo,
      vp->coordinate_area_viewport.h-vp->y.origo);
    strcat(tmp, line);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(7);}
  }
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_write_tac()

int svg_write_tac ( FILE * fp, struct svg_viewports * vp, const int plot_type, const char * tac_id, const char * tac_title, double * x, double * y, const int data_nr, const char * color, const svgSymbolType symbol_type, const svgSymbolFill symbol_fill, char * errmsg, int verbose )

extern

Draw sample curve in an SVG file.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_initiate, svg_write, svg_define_viewports

Parameters

fp	SVG graphics file pointer.
vp	Struct containing the viewport sizes.
plot_type	Plot type: 1=line, 2=symbols, 0=both line and symbols.
tac_id	Unique ID for the curve.
tac_title	Title of the curve, which may be shown in the graph.
x	Pointer to the polyline data x array (original quantities).
y	Pointer to the polyline data y array (original quantities).
data_nr	Nr of data points in the array (half of array length).
color	SVG color name as a string, e.g. aqua,black,blue,fuchsia,gray, green,lime,maroon,navy,olive,purple,red,silver,teal,yellow. Note that this string is not tested.
symbol_type	Symbol type: RECTANGLE,CIRCLE,UPTRIANGLE,DOWNTRIANGLE,DIAMOND, LEFTTRIANGLE, RIGHTTRIANGLE
symbol_fill	Symbol filling: SYMBOLOPEN, SYMBOLFILLED
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 746 of file svg_plot.c.

  {
  char tmp[1024], line[128], ilc[9];
  int i, j;
  double px, py, size=100.0, trgsize=140.0, circsize=120.0;
 
  if(verbose>0) {
    printf("%s(fp, vp, %d, %s, %s, x, y, %d, %s, %d, %d, errmsg, %d)\n", __func__,
      plot_type, tac_id, tac_title, data_nr, color, (int)symbol_type, (int)symbol_fill, verbose);
    fflush(stdout);
  }
 
  /* Check the input */
  if(data_nr<1) return(0);
  if(fp==NULL) {if(errmsg!=NULL) sprintf(errmsg, "file was closed too early"); return(1);}
  if(color==NULL || strlen(color)<2) {
    if(errmsg!=NULL) sprintf(errmsg, "invalid color");
    return(1);
  }
 
  if(SVG_INLINE) strcpy(ilc, "svg:"); else strcpy(ilc, "");
 
  /* Initiate the curve object group */
  sprintf(tmp, "\n    <!-- %s : %s -->\n    <%sg", tac_id, tac_title, ilc);
  sprintf(line, " stroke=\"%s\"", color); strcat(tmp, line);
  sprintf(line, " stroke-width=\"%g\"", 0.25*size); strcat(tmp, line);
  sprintf(line, " fill=\"%s\"", color); strcat(tmp, line);
  if(symbol_fill==SYMBOLOPEN) sprintf(line, " fill-opacity=\"0.02\"");
  else sprintf(line, " fill-opacity=\"0.92\"");
  strcat(tmp, line); strcat(tmp, ">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(11);}
  /* Set the curve title */
  sprintf(tmp, "      <%s", ilc);
  sprintf(line, "title>"); strcat(tmp, line);
  char *senc=svg_str_encode(tac_title);
  if(senc==NULL) strcat(tmp, tac_title); else {strcat(tmp, senc); free(senc);}
  strcat(tmp, "</"); strcat(tmp, ilc); strcat(tmp, "title>\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(12);}
 
  /* Plot the line, if required */
  strcpy(tmp, ""); strcpy(line, "");
  if(plot_type==0 || plot_type==1) {
    int lineon=0, path_started=0, prev_exists=0, cross_nr;
    double prev_px=-1, prev_py=-1, nx1, ny1, nx2, ny2;
    /* Start a new print line */
    strcpy(line, "\n       ");
    /* Write line coordinates */
    for(i=j=0; i<data_nr; i++) {
      if(isnan(x[i]) || isnan(y[i])) {lineon=0; continue;}
      /* Print recent line coordinates in file */
      if(j>=5) { /* line end */
        if(path_started==0) {
          sprintf(tmp, "      <%spath fill=\"none\" d=\"", ilc);
          if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(14);}
          path_started=1;
        }
        if(svg_write(fp, line, errmsg, verbose-5)!=0) {return(15);}
        /* Start a new line */
        j=0; strcpy(line, "\n       ");
      }
      /* Compute the point coordinates in viewport */
      if(verbose>3) printf("x[%d]=%g y[%d]=%g\n", i, x[i], i, y[i]);
      px=vp->x.origo+x[i]*vp->x.scale;
      py=vp->coordinate_area_viewport.h-(vp->y.origo+vp->y.scale*y[i]);
      /* Make sure that prev point exists */
      if(prev_exists==0) {prev_px=px; prev_py=py; prev_exists=1;}
      /* Check if line would cross viewport border(s) */
      cross_nr=check_intersection_with_viewport(prev_px, prev_py, px, py,
                &vp->coordinate_area_viewport, &nx1, &ny1, &nx2, &ny2, verbose);
      if(verbose>2 &&cross_nr>0)
        printf("new line coordinates (%g,%g) -> (%g,%g)\n", nx1, ny1, nx2, ny2);
      if(cross_nr==2) {
        // Move to nx1,ny1 and draw line from nx1,ny1 to nx2,ny2
        if(j>0) strcat(line, " ");
        sprintf(tmp, "M%.0f %.0f L%.0f %.0f", nx1, ny1, nx2, ny2);
        if(verbose>4) printf("  write %s\n", tmp);
        strcat(line, tmp); j+=2;
        lineon=0; 
        // Proceed to next sample 
        prev_px=px; prev_py=py;
        continue;
      } else if(cross_nr==1) {
        if(nx1!=prev_px || ny1!=prev_py) lineon=0;
        // Draw line from nx1,ny1 to nx2,ny2
        if(j>0) strcat(line, " ");
        if(lineon==0) {sprintf(tmp, "M%.0f %.0f L%.0f %.0f", nx1, ny1, nx2, ny2); j+=2;}
        else if(lineon==1) {sprintf(tmp, "L%.0f %.0f", nx2, ny2); j++;}
        else {sprintf(tmp, "%.0f %.0f", nx2, ny2); j++;}
        if(verbose>4) printf("  write %s\n", tmp);
        strcat(line, tmp);
        if(nx2!=px || ny2!=py) lineon=0; else lineon++;
        // Proceed to next sample 
        prev_px=px; prev_py=py;
        continue;
      } else {
        nx1=prev_px; ny1=prev_py; nx2=px; ny2=py;
      }
      /* Draw line if coordinates are within viewport */
      if(nx1>=0 && nx1<=vp->coordinate_area_viewport.w+1 &&
         nx2>=0 && nx2<=vp->coordinate_area_viewport.w+1 &&
         ny1>=0 && ny1<=vp->coordinate_area_viewport.h+1 &&
         ny2>=0 && ny2<=vp->coordinate_area_viewport.h+1)
      {
        if(j>0) strcat(line, " ");
        if(lineon==0) {
          if(nx1!=nx2 && ny1!=ny2) sprintf(tmp, "M%.0f %.0f L%.0f %.0f", nx1, ny1, nx2, ny2); 
          else sprintf(tmp, "M%.0f %.0f", nx2, ny2); 
          j+=2;
        }
        else if(lineon==1) {sprintf(tmp, "L%.0f %.0f", nx2, ny2); j++;}
        else {sprintf(tmp, "%.0f %.0f", nx2, ny2); j++;}
        if(verbose>4) printf("  write %s\n", tmp);
        strcat(line, tmp);
        lineon++;
      } else {
        lineon=0;
      }
      prev_px=px; prev_py=py;
    }
    /* Write into file the remaining (if any) points */
    if(j>0) {
      if(path_started==0) {
        sprintf(tmp, "      <%spath fill=\"none\" d=\"", ilc);
        if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(14);}
      }
      if(svg_write(fp, line, errmsg, verbose-5)!=0) {return(16);}
    }
    /* Close line */
    strcpy(tmp, "\" />\n");
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(17);}
  }
 
  /* Plot the symbols, if required */
  strcpy(tmp, "");
  if(plot_type==0 || plot_type==2) {
    int prev_px=-1, prev_py=-1;
    for(i=0; i<data_nr; i++) {
      if(isnan(x[i]) || isnan(y[i])) continue;
      px=vp->x.origo+x[i]*vp->x.scale;
      py=vp->coordinate_area_viewport.h-(vp->y.origo+vp->y.scale*y[i]);
      /* Do not plot points outside viewport */
      if(px<0 || py<0) continue;
      if(px>vp->coordinate_area_viewport.w+1 || py>vp->coordinate_area_viewport.h+1) continue;
      /* Do not plot 2nd time the same point */
      if(px==prev_px && py==prev_py) continue;
      prev_px=px; prev_py=py;
      /* Draw the symbol */
      sprintf(tmp, "      <%suse ", ilc);
      switch(symbol_type) {
        case RECTANGLE:
          sprintf(line, "xlink:href=\"#sym-rect\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            px-0.5*size, py-0.5*size, size, size);
          break;
        case UPTRIANGLE:
          sprintf(line, "xlink:href=\"#sym-uptr\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            px-0.5*trgsize, py-0.5*trgsize, trgsize, trgsize);
          break;
        case DOWNTRIANGLE:
          sprintf(line, "xlink:href=\"#sym-dotr\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            px-0.5*trgsize, py-0.5*trgsize, trgsize, trgsize);
          break;
        case DIAMOND:
          sprintf(line, "xlink:href=\"#sym-diam\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            px-0.5*trgsize, py-0.5*trgsize, trgsize, trgsize);
          break;
        case LEFTTRIANGLE:
          sprintf(line, "xlink:href=\"#sym-letr\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            px-0.5*trgsize, py-0.5*trgsize, trgsize, trgsize);
          break;
        case RIGHTTRIANGLE:
          sprintf(line, "xlink:href=\"#sym-ritr\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            px-0.5*trgsize, py-0.5*trgsize, trgsize, trgsize);
          break;
        case CIRCLE:
        default:
          sprintf(line, "xlink:href=\"#sym-circ\" x=\"%g\" y=\"%g\" width=\"%g\" height=\"%g\"",
            px-0.5*circsize, py-0.5*circsize, circsize, circsize);
          break;
      }
      strcat(tmp, line);
      strcat(tmp, " />\n");
      if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(18);}
    }
  }
 
  /* Close the curve object group */
  sprintf(tmp, "    </%sg>\n", ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(19);}
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_write_xticks()

int svg_write_xticks ( FILE * fp, struct svg_viewports * vp, char * errmsg, int verbose )

extern

Create SVG plot x axis ticks.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_define_viewports, svg_write_axes, svg_write_yticks, svg_calculate_axes

Parameters

fp	SVG graphics file pointer.
vp	Struct containing the viewport sizes.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 555 of file svg_plot.c.

  {
  char tmp[1024], line[128], ilc[9];
  int ti;
  double pos, ypos, yheight;
 
  if(verbose>0) {printf("%s(fp, vp, errmsg, %d)\n", __func__, verbose); fflush(stdout);}
 
  /* Check the input */
  if(vp->x.tick_nr<1 || vp->plot_area_viewport.h==vp->coordinate_area_viewport.h) return(0);
  if(fp==NULL) {if(errmsg!=NULL) sprintf(errmsg, "file was closed too early"); return(1);}
 
  if(SVG_INLINE) strcpy(ilc, "svg:"); else strcpy(ilc, "");
 
  yheight=vp->plot_area_viewport.h-vp->coordinate_area_viewport.h;
  ypos=vp->coordinate_area_viewport.h;
 
  strcpy(tmp, "\n    <!-- X axis ticks inside plot area -->\n");
#if(0)
  sprintf(tmp, "      <%srect x=\"0px\" y=\"%dpx\" width=\"%dpx\" height=\"%gpx\" stroke=\"none\" fill=\"aqua\" fill-opacity=\"0.3\" />\n",
    ilc, vp->coordinate_area_viewport.h, vp->plot_area_viewport.w, yheight);
#endif
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(99);}
 
  /* Write ticks */
  sprintf(tmp, "    <%sg", ilc);
  sprintf(line, " stroke=\"%s\"", "black"); strcat(tmp, line);
  sprintf(line, " stroke-width=\"%g\"", 20.); strcat(tmp, line);
  sprintf(line, " fill=\"%s\"", "none"); strcat(tmp, line);
  strcat(tmp, ">\n"); 
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(5);}
 
  if(verbose>9) {
    printf("vp->plot_area_viewport.w := %d\n", vp->plot_area_viewport.w);
    printf("vp->coordinate_area_viewport.w := %d\n", vp->coordinate_area_viewport.w);
  }
  for(ti=0; ti<vp->x.tick_nr; ti++) {
    pos=vp->x.origo+vp->x.scale*vp->x.tick[ti];
    pos += vp->plot_area_viewport.w-vp->coordinate_area_viewport.w;
    if(verbose>1) printf("ti=%d: x tick pos=%g\n", ti, pos);
    sprintf(tmp, "      <%s", ilc);
    sprintf(line, "line x1=\"%g\" x2=\"%g\" y1=\"%g\" y2=\"%g\" />\n",
            pos, pos, ypos, ypos+yheight/8);
    strcat(tmp, line);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(6);}
  }
  // try to write one extra tick, if there is space
  pos=vp->x.origo+vp->x.scale*(2.0*vp->x.tick[vp->x.tick_nr-1] - vp->x.tick[vp->x.tick_nr-2]);
  pos += vp->plot_area_viewport.w-vp->coordinate_area_viewport.w;
  if(pos<vp->plot_area_viewport.w) {
    if(verbose>1) printf("extra ti=%d: x tick pos=%g\n", ti, pos);
    sprintf(tmp, "      <%s", ilc);
    sprintf(line, "line x1=\"%g\" x2=\"%g\" y1=\"%g\" y2=\"%g\" />\n",
            pos, pos, ypos, ypos+yheight/8);
    strcat(tmp, line);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(6);}
  }
  sprintf(tmp, "    </%sg>\n", ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(7);}
 
  /* Write ticks labels */
  sprintf(tmp, "    <%sg", ilc);
  sprintf(line, " font-family=\"Sans-serif\""); strcat(tmp, line);
  sprintf(line, " text-anchor=\"middle\""); strcat(tmp, line);
  sprintf(line, " font-size=\"%d\"", vp->coordinate_area_viewport.chr_size); strcat(tmp, line);
  sprintf(line, " fill=\"black\""); strcat(tmp, line);
  strcat(tmp, ">\n"); 
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(8);}
  for(ti=0; ti<vp->x.tick_nr; ti++) {
    pos=vp->x.origo+vp->x.scale*vp->x.tick[ti];
    pos += vp->plot_area_viewport.w-vp->coordinate_area_viewport.w;
    if(verbose>1) printf("ti=%d: x tick pos=%g\n", ti, pos);
    sprintf(tmp, "      <%s", ilc);
    sprintf(line, "text x=\"%g\" y=\"%g\"", pos, ypos+0.92*(double)yheight); strcat(tmp, line);
    sprintf(line, ">"); strcat(tmp, line);
    strcat(tmp, vp->x.tick_label[ti]);
    strcat(tmp, "</"); strcat(tmp, ilc); strcat(tmp, "text>\n");
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(9);}
  }
  sprintf(tmp, "    </%sg>\n", ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(10);}
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_write_yticks()

int svg_write_yticks ( FILE * fp, struct svg_viewports * vp, char * errmsg, int verbose )

extern

Create SVG plot y axis ticks.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_define_viewports, svg_write_axes, svg_write_xticks, svg_calculate_axes, axis_tick_positions

Parameters

fp	SVG graphics file pointer.
vp	Struct containing the viewport sizes.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 655 of file svg_plot.c.

  {
  char tmp[1024], line[128], ilc[9];
  int ti;
  double pos, xwidth;
 
  if(verbose>0) {printf("%s(fp, vp, errmsg, %d)\n", __func__, verbose); fflush(stdout);}
 
  /* Check the input */
  if(vp->y.tick_nr<1 || vp->plot_area_viewport.w==vp->coordinate_area_viewport.w) return(0);
  if(fp==NULL) {if(errmsg!=NULL) sprintf(errmsg, "file was closed too early"); return(1);}
 
  if(SVG_INLINE) strcpy(ilc, "svg:"); else strcpy(ilc, "");
 
  xwidth=vp->plot_area_viewport.w-vp->coordinate_area_viewport.w;
 
  strcpy(tmp, "\n    <!-- Y axis ticks inside plot area -->\n");
#if(0)
  sprintf(tmp,
    "      <%srect width=\"%gpx\" height=\"%dpx\" stroke=\"none\" fill=\"aqua\" fill-opacity=\"0.3\" />\n",
    ilc, xwidth, vp->plot_area_viewport.h);
#endif
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(99);}
 
  if(verbose>0) {
    printf("vp->y.tick_nr=%d\n", vp->y.tick_nr);
    printf("vp->y.tickscale=%g\n", vp->y.tickscale);
    printf("vp->y.tick_decimals=%d\n", vp->y.tick_decimals);
  }
 
  /* Write ticks */
  sprintf(tmp, "    <%sg", ilc);
  sprintf(line, " stroke=\"%s\"", "black"); strcat(tmp, line);
  sprintf(line, " stroke-width=\"%g\"", 20.); strcat(tmp, line);
  sprintf(line, " fill=\"%s\"", "none"); strcat(tmp, line);
  strcat(tmp, ">\n"); 
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(5);}
  for(ti=0; ti<vp->y.tick_nr; ti++) {
    pos=vp->coordinate_area_viewport.h-(vp->y.origo+vp->y.scale*vp->y.tick[ti]);
    if(verbose>1) printf("ti=%d: y tick pos=%g\n", ti, pos);
    sprintf(tmp, "      <%s", ilc);
    sprintf(line, "line x1=\"%g\" x2=\"%g\" y1=\"%g\" y2=\"%g\" />\n",
      xwidth,
      xwidth-(double)vp->coordinate_area_viewport.chr_size/8.0,
      pos, pos); strcat(tmp, line);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(6);}
  }
  sprintf(tmp, "    </%sg>\n", ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(7);}
 
  /* Write ticks labels */
  sprintf(tmp, "    <%sg", ilc);
  sprintf(line, " font-family=\"Sans-serif\""); strcat(tmp, line);
  sprintf(line, " text-anchor=\"end\""); strcat(tmp, line);
  sprintf(line, " font-size=\"%d\"", vp->coordinate_area_viewport.chr_size); strcat(tmp, line);
  sprintf(line, " fill=\"black\""); strcat(tmp, line);
  strcat(tmp, ">\n"); 
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(8);}
  for(ti=0; ti<vp->y.tick_nr; ti++) {
    pos=vp->coordinate_area_viewport.h-(vp->y.origo+vp->y.scale*vp->y.tick[ti]);
    if(verbose>1) printf("ti=%d: y tick pos=%g\n", ti, pos);
    sprintf(tmp, "      <%s", ilc);
    sprintf(line, "text x=\"%g\" y=\"%g\"",
      0.92*xwidth, pos+0.4*(double)vp->coordinate_area_viewport.chr_size);
    strcat(tmp, line);
    sprintf(line, ">"); strcat(tmp, line);
    strcat(tmp, vp->y.tick_label[ti]);
    strcat(tmp, "</"); strcat(tmp, ilc); strcat(tmp, "text>\n");
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(9);}
  }
  sprintf(tmp, "    </%sg>\n", ilc);
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {return(10);}
 
  return(0);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().

svg_xhtml_close()

int svg_xhtml_close ( FILE * fp, char * errmsg, int verbose )

extern

Close XHTML file containing inline SVG.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_xhtml_initiate

Parameters

fp	SVG graphics file pointer.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 206 of file svg_file.c.

  {
  if(verbose>0) printf("%s(fp, errmsg, %d)\n", __func__, verbose);
 
  if(svg_write(fp, "</body>\n</html>\n", errmsg, verbose-5)!=0) {fclose(fp); return(1);}
  fflush(fp); fclose(fp);
 
  SVG_INLINE = 0;
 
  return(0);
}

svg_xhtml_initiate()

FILE * svg_xhtml_initiate ( const char * filename, const char * XHTML_title, char * errmsg, int verbose )

extern

Initiate a new XHTML file for one or more inline SVG graphics files.

If file with same name exists, it is overwritten without backup.

Returns

Returns pointer to the file if successful and NULL in case of an error.

See also

svg_initiate, svg_xhtml_close, svg_xhtml_svg_open

Parameters

filename	File name for SVG graphics.
XHTML_title	XHTML title; if NULL, then file name is used.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 131 of file svg_file.c.

  {
  FILE *fp;
  char tmp[2048], line[256];
 
  if(verbose>0)
    printf("%s(%s, %s, errmsg, %d)\n", __func__, filename, XHTML_title, verbose);
 
  SVG_INLINE = 1;
 
  /* Check input */
  if(filename==NULL) return(NULL);
  if(XHTML_title==NULL) XHTML_title=filename;
 
  /* Open file for write */
  fp=fopen(filename, "w");
  if(fp==NULL) {
    if(errmsg!=NULL) strcpy(errmsg, "cannot open file for write");
    return(fp);
  }
 
  strcpy(tmp, "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
    fclose(fp); remove(filename); return(NULL);}
 
  strcpy(tmp, "<!DOCTYPE html PUBLIC\n");
  strcat(tmp, "     \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n");
  strcat(tmp, "     \"https://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
    fclose(fp); remove(filename); return(NULL);}
 
  strcpy(tmp, "<html xmlns=\"https://www.w3.org/1999/xhtml\"\n");
  strcat(tmp, "     xmlns:svg=\"https://www.w3.org/2000/svg\"\n");
  strcat(tmp, "     xmlns:xlink=\"https://www.w3.org/1999/xlink\"\n");
  strcat(tmp, "     xmlns:ev=\"https://www.w3.org/2001/xml-events\"\n");
  strcat(tmp, "     xml:lang=\"en\" lang=\"en\">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
    fclose(fp); remove(filename); return(NULL);}
 
  strcpy(tmp,   "<head>\n");
  sprintf(line, "  <title>%s</title>\n", XHTML_title); strcat(tmp, line);
  sprintf(line, "  <meta http-equiv=\"content-type\" content=\"text/html; charset=iso-8859-1\" />\n"); strcat(tmp, line);
  sprintf(line, "  <meta http-equiv=\"content-language\" content=\"en-gb\" />\n"); strcat(tmp, line);
  strcat(tmp,   "  <object id=\"AdobeSVG\" classid=\"clsid:78156a80-c6a1-4bbf-8e6a-3cd390eeb4e2\"> </object>\n");
  strcat(tmp,   "  <?import namespace=\"svg\" urn=\"https://www.w3.org/2000/svg\" implementation=\"#AdobeSVG\"?>\n");
  strcat(tmp,   "</head>\n\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
    fclose(fp); remove(filename); return(NULL);}
 
  strcpy(tmp, "<body>\n\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) {
    fclose(fp); remove(filename); return(NULL);}
 
  /* Create plot symbols for possible later use */
  if(svg_define_symbols(fp, errmsg, verbose)!=0) {
    fclose(fp); remove(filename); return(NULL);}
 
  return(fp);
}

svg_xhtml_svg_close()

int svg_xhtml_svg_close ( FILE * fp, char * errmsg, int verbose )

extern

Close SVG graphics inline in XHTML file. Leaves the file open.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_xhtml_svg_open, svg_write

Parameters

fp	SVG graphics file pointer.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 283 of file svg_file.c.

  {
  if(verbose>0) printf("%s(fp, errmsg, %d)\n", __func__, verbose);
 
  if(svg_write(fp, "</svg:svg>\n", errmsg, verbose-5)!=0) return(1);
  return(0);
}

svg_xhtml_svg_open()

int svg_xhtml_svg_open ( FILE * fp, const double height, const double width, struct svg_viewports * vp, char * errmsg, int verbose )

extern

Open a new SVG inline XHTML file.

Returns

Returns 0 if successful, <>0 in case of error.

See also

svg_xhtml_svg_close, svg_xhtml_initiate

Parameters

fp	SVG graphics file pointer.
height	Plot height in cm; 0, if not predefined.
width	Plot width in cm; 0, if not predefined.
vp	Struct containing the viewport sizes.
errmsg	Char pointer to string (at least of length 128) where possible error description is copied; set to NULL if not necessary.
verbose	Verbose level; if zero, then nothing is printed to stderr or stdout.

Definition at line 231 of file svg_file.c.

  {
  char tmp[1024];
 
  if(verbose>0)
    printf("%s(fp, %g, %g, vp, errmsg, %d)\n", __func__, height, width, verbose);
 
  /* Check input */
  if(fp==NULL || vp==NULL) return(1);
  if(vp->main_viewport.w<3 || vp->main_viewport.h<3) return(1);
 
  strcpy(tmp, "<svg:svg version=\"1.1\" baseProfile=\"full\"");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) return(2);
 
  sprintf(tmp, "\n    viewBox=\"0 0 %d %d\"", vp->main_viewport.w, vp->main_viewport.h);
  strcat(tmp,  "\n    preserveAspectRatio=\"xMinYMin meet\"");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) return(3);
 
  if(width>0.0) {
    sprintf(tmp, "\n     width=\"%gcm\"", width);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) return(4);
  }
  if(height>0.0) {
    sprintf(tmp, "\n     height=\"%gcm\"", height);
    if(svg_write(fp, tmp, errmsg, verbose-5)!=0) return(5);
  }
 
  strcpy(tmp, ">\n");
  if(svg_write(fp, tmp, errmsg, verbose-5)!=0) return(6);
 
  return(0);
}

svgColorName()

char * svgColorName ( const svgColor i )

extern

Return pointer to string describing the color, or NULL if outside of limits.

See also

svgSymbolName

Parameters

i	index of color

Definition at line 38 of file svg_defs.c.

  {
  unsigned int n=0;
  while(svgcolor[n]!=0) n++;
  if(/*i<0 ||*/ i>n-1) return(NULL); //return(svgcolor[BLACK]);
  else return(svgcolor[i]);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), plot_svg(), and svg_create_legends().

svgSymbolName()

char * svgSymbolName ( const svgSymbolType i )

extern

Return pointer to string describing the symbol, or NULL if outside of limits.

See also

svgColorName, svg_define_symbols

Parameters

i	index of symbol

Definition at line 67 of file svg_defs.c.

  {
  unsigned int n=0;
  while(svgsymbol[n]!=0) n++;
  if(/*i<0 ||*/ i>n-1) return(NULL);
  else return(svgsymbol[i]);
}

Referenced by plot_fit_svg(), plot_fitrange_svg(), and plot_svg().