prepare for the release of rrdtool-1.2.9
[rrdtool.git] / src / rrd_gfx.c
index 5fd0060..d01b904 100644 (file)
@@ -1,5 +1,5 @@
 /****************************************************************************
- * RRDtool 1.1.x  Copyright Tobias Oetiker, 1997 - 2002
+ * RRDtool 1.2.9  Copyright by Tobi Oetiker, 1997-2005
  ****************************************************************************
  * rrd_gfx.c  graphics wrapper for rrdtool
   **************************************************************************/
@@ -7,21 +7,54 @@
 /* #define DEBUG */
 
 #ifdef DEBUG
-# define DPRINT(x)    (void)(printf x, printf("\n"))
+# define DPRINTF(x,...)  fprintf(stderr, x, ## __VA_ARGS__);
 #else
-# define DPRINT(x)
+# define DPRINTF(x,...)
 #endif
 #include "rrd_tool.h"
 #include <png.h>
 #include <ft2build.h>
 #include FT_FREETYPE_H
+#include FT_GLYPH_H
 
 #include "rrd_gfx.h"
 #include "rrd_afm.h"
+#include "unused.h"
 
 /* lines are better drawn on the pixle than between pixles */
 #define LINEOFFSET 0.5
 
+#define USE_PDF_FAKE_ALPHA 1
+#define USE_EPS_FAKE_ALPHA 1
+
+typedef struct gfx_char_s *gfx_char;
+struct gfx_char_s {
+  FT_UInt     index;    /* glyph index */
+  FT_Vector   pos;      /* location from baseline in 26.6 */
+  FT_Glyph    image;    /* glyph bitmap */
+};
+
+typedef struct gfx_string_s *gfx_string;
+struct gfx_string_s {
+  unsigned int    width;
+  unsigned int    height;
+  int            count;  /* number of characters */
+  gfx_char        glyphs;
+  size_t          num_glyphs;
+  FT_BBox         bbox;
+  FT_Matrix       transform;
+};
+
+/* compute string bbox */
+static void compute_string_bbox(gfx_string string);
+
+/* create a freetype glyph string */
+gfx_string gfx_string_create ( gfx_canvas_t *canvas, FT_Face face,
+                               const char *text, int rotation, double tabwidth, double size);
+
+/* create a freetype glyph string */
+static void gfx_string_destroy ( gfx_string string );
+
 static
 gfx_node_t *gfx_new_node( gfx_canvas_t *canvas,enum gfx_en type){
   gfx_node_t *node = art_new(gfx_node_t,1);
@@ -33,7 +66,6 @@ gfx_node_t *gfx_new_node( gfx_canvas_t *canvas,enum gfx_en type){
   node->points = 0;
   node->points_max =0;
   node->closed_path = 0;
-  node->svp = NULL;         /* svp */
   node->filename = NULL;             /* font or image filename */
   node->text = NULL;
   node->x = 0.0;
@@ -60,7 +92,9 @@ gfx_canvas_t *gfx_new_canvas (void) {
     canvas->imgformat = IF_PNG; /* we default to PNG output */
     canvas->interlaced = 0;
     canvas->zoom = 1.0;
-    return canvas;    
+    canvas->font_aa_threshold = -1.0;
+    canvas->aa_type = AA_NORMAL;
+    return canvas;
 }
 
 /* create a new line */
@@ -85,7 +119,7 @@ gfx_node_t  *gfx_new_dashed_line(gfx_canvas_t *canvas,
   if (vec == NULL) return NULL;
   vec[0].code = ART_MOVETO_OPEN; vec[0].x=X0+LINEOFFSET; vec[0].y=Y0+LINEOFFSET;
   vec[1].code = ART_LINETO; vec[1].x=X1+LINEOFFSET; vec[1].y=Y1+LINEOFFSET;
-  vec[2].code = ART_END;
+  vec[2].code = ART_END; vec[2].x=0;vec[2].y=0;
   
   node->points = 3;
   node->points_max = 3;
@@ -114,7 +148,7 @@ gfx_node_t   *gfx_new_area   (gfx_canvas_t *canvas,
   vec[1].code = ART_LINETO; vec[1].x=X1; vec[1].y=Y1;
   vec[2].code = ART_LINETO; vec[2].x=X2; vec[2].y=Y2;
   vec[3].code = ART_LINETO; vec[3].x=X0; vec[3].y=Y0;
-  vec[4].code = ART_END;
+  vec[4].code = ART_END; vec[4].x=0; vec[4].y=0;
   
   node->points = 5;
   node->points_max = 5;
@@ -169,6 +203,8 @@ int           gfx_add_point  (gfx_node_t *node,
 
 void           gfx_close_path  (gfx_node_t *node) {
     node->closed_path = 1;
+    if (node->path[0].code == ART_MOVETO_OPEN)
+       node->path[0].code = ART_MOVETO;
 }
 
 /* create a text node */
@@ -180,10 +216,6 @@ gfx_node_t   *gfx_new_text   (gfx_canvas_t *canvas,
                              enum gfx_v_align_en v_align,
                               char* text){
    gfx_node_t *node = gfx_new_node(canvas,GFX_TEXT);
-   if (angle != 0.0){
-       /* currently we only support 0 and 270 */
-       angle = 270.0;
-   }
    
    node->text = strdup(text);
    node->size = size;
@@ -196,9 +228,22 @@ gfx_node_t   *gfx_new_text   (gfx_canvas_t *canvas,
    node->halign = h_align;
    node->valign = v_align;
 #if 0
-  /* debugging: show text anchor */
-   gfx_new_line(canvas, x - 3, y + 0, x, y, 0.2, 0x00FF0000);
-   gfx_new_line(canvas, x - 0, y + 3, x, y, 0.2, 0x00FF0000);
+  /* debugging: show text anchor
+     green is along x-axis, red is downward y-axis */
+   if (1) {
+     double a = 2 * M_PI * -node->angle / 360.0;
+     double cos_a = cos(a);
+     double sin_a = sin(a);
+     double len = 3;
+     gfx_new_line(canvas,
+        x, y,
+        x + len * cos_a, y - len * sin_a,
+        0.2, 0x00FF0000);
+     gfx_new_line(canvas,
+        x, y,
+        x + len * sin_a, y + len * cos_a,
+        0.2, 0xFF000000);
+   }
 #endif
    return node;
 }
@@ -213,76 +258,262 @@ int           gfx_render(gfx_canvas_t *canvas,
     return gfx_render_svg (canvas, width, height, background, fp);
   case IF_EPS:
     return gfx_render_eps (canvas, width, height, background, fp);
+  case IF_PDF:
+    return gfx_render_pdf (canvas, width, height, background, fp);
   default:
     return -1;
   }
 }
 
+static void gfx_string_destroy ( gfx_string string ) {
+  unsigned int n;
+  if (string->glyphs) {
+    for (n=0; n<string->num_glyphs; ++n)
+      FT_Done_Glyph (string->glyphs[n].image);
+    free (string->glyphs);
+  }
+  free (string);
+}
+
+
 double gfx_get_text_width ( gfx_canvas_t *canvas,
                            double start, char* font, double size,
-                           double tabwidth, char* text){
+                           double tabwidth, char* text, int rotation){
   switch (canvas->imgformat) {
   case IF_PNG: 
-    return gfx_get_text_width_libart (canvas, start, font, size, tabwidth, text);
+    return gfx_get_text_width_libart (canvas, start, font, size, tabwidth, text, rotation);
   case IF_SVG: /* fall through */ 
   case IF_EPS:
+  case IF_PDF:
     return afm_get_text_width(start, font, size, tabwidth, text);
   default:
     return size * strlen(text);
   }
 }
 
-double gfx_get_text_width_libart ( gfx_canvas_t *canvas,
-                           double start, char* font, double size,
-                           double tabwidth, char* text){
+double gfx_get_text_width_libart (
+                           gfx_canvas_t *canvas, double UNUSED(start), char* font, double size,
+                           double tabwidth, char* text, int rotation ){
 
-  FT_GlyphSlot  slot;
-  FT_UInt       previous=0;
-  FT_UInt       glyph_index=0;
-  FT_Bool       use_kerning;
   int           error;
+  double        text_width=0;
   FT_Face       face;
   FT_Library    library=NULL;  
-  double        text_width=0;
+  gfx_string    string;
+
   FT_Init_FreeType( &library );
   error = FT_New_Face( library, font, 0, &face );
   if ( error ) return -1;
   error = FT_Set_Char_Size(face,  size*64,size*64,  100,100);
   if ( error ) return -1;
 
+  string = gfx_string_create( canvas, face, text, rotation, tabwidth, size );
+  text_width = string->width;
+  gfx_string_destroy(string);
+  FT_Done_FreeType(library);
+  return text_width/64;
+}
+
+static void gfx_libart_close_path(gfx_node_t *node, ArtVpath **vec)
+{
+    /* libart must have end==start for closed paths,
+       even if using ART_MOVETO and not ART_MOVETO_OPEN
+       so add extra point which is the same as the starting point */
+    int points_max = node->points; /* scaled array has exact size */
+    int points = node->points - 1;
+    art_vpath_add_point (vec, &points, &points_max, ART_LINETO,
+           (**vec).x, (**vec).y);
+    art_vpath_add_point (vec, &points, &points_max, ART_END, 0, 0);
+}
+
+
+/* find bbox of a string */
+static void compute_string_bbox(gfx_string string) {
+    unsigned int n;
+    FT_BBox bbox;
+
+    bbox.xMin = bbox.yMin = 32000;
+    bbox.xMax = bbox.yMax = -32000;
+    for ( n = 0; n < string->num_glyphs; n++ ) {
+      FT_BBox glyph_bbox;
+      FT_Glyph_Get_CBox( string->glyphs[n].image, ft_glyph_bbox_gridfit,
+       &glyph_bbox );
+      if (glyph_bbox.xMin < bbox.xMin) {
+         bbox.xMin = glyph_bbox.xMin;
+      }
+      if (glyph_bbox.yMin < bbox.yMin) {
+        bbox.yMin = glyph_bbox.yMin;
+      }
+      if (glyph_bbox.xMax > bbox.xMax) {
+         bbox.xMax = glyph_bbox.xMax;
+      }
+      if (glyph_bbox.yMax > bbox.yMax) {
+         bbox.yMax = glyph_bbox.yMax;
+      }
+    }
+    if ( bbox.xMin > bbox.xMax ) { 
+      bbox.xMin = 0;
+      bbox.yMin = 0;
+      bbox.xMax = 0;
+      bbox.yMax = 0;
+    }
+    string->bbox.xMin = bbox.xMin;
+    string->bbox.xMax = bbox.xMax;
+    string->bbox.yMin = bbox.yMin;
+    string->bbox.yMax = bbox.yMax;
+} 
+
+/* create a free type glyph string */
+gfx_string gfx_string_create(gfx_canvas_t *canvas, FT_Face face,const char *text,
+        int rotation, double tabwidth, double size )
+{
+
+  FT_GlyphSlot  slot = face->glyph;  /* a small shortcut */
+  FT_Bool       use_kerning;
+  FT_UInt       previous;
+  FT_Vector     ft_pen;
+
+  gfx_string    string = (gfx_string) malloc (sizeof(struct gfx_string_s));
+
+  gfx_char      glyph;          /* current glyph in table */
+  int          n;
+  int           error;
+  int        gottab = 0;    
+
+#ifdef HAVE_MBSTOWCS
+  wchar_t      *cstr;
+  size_t       clen = strlen(text)+1;
+  cstr = malloc(sizeof(wchar_t) * clen); /* yes we are allocating probably too much here, I know */
+  string->count=mbstowcs(cstr,text,clen);
+  if ( string->count == -1){
+       string->count=mbstowcs(cstr,"Enc-Err",6);
+  }
+#else
+  char         *cstr = strdup(text);
+  string->count = strlen (text);
+#endif
+
+  ft_pen.x = 0;   /* start at (0,0) !! */
+  ft_pen.y = 0;
+
+
+  string->width = 0;
+  string->height = 0;
+  string->glyphs = (gfx_char) calloc (string->count,sizeof(struct gfx_char_s));
+  string->num_glyphs = 0;
+  string->transform.xx = (FT_Fixed)( cos(M_PI*(rotation)/180.0)*0x10000);
+  string->transform.xy = (FT_Fixed)(-sin(M_PI*(rotation)/180.0)*0x10000);
+  string->transform.yx = (FT_Fixed)( sin(M_PI*(rotation)/180.0)*0x10000);
+  string->transform.yy = (FT_Fixed)( cos(M_PI*(rotation)/180.0)*0x10000);
+
   use_kerning = FT_HAS_KERNING(face);
-  slot = face->glyph;
-  for(;*text;text++) { 
-    previous = glyph_index;
-    glyph_index = FT_Get_Char_Index( face, *text);
-    
-    if (use_kerning && previous && glyph_index){
-      FT_Vector  delta;
-      FT_Get_Kerning( face, previous, glyph_index,
-                     0, &delta );
-      text_width += (double)delta.x / 64.0;
-      
+  previous    = 0;
+  glyph = string->glyphs;
+  for (n=0; n<string->count;glyph++,n++) {
+    FT_Vector   vec;
+    /* handle the tabs ...
+       have a witespace glyph inserted, but set its width such that the distance
+    of the new right edge is x times tabwidth from 0,0 where x is an integer. */    
+    unsigned int letter = cstr[n];
+          
+    gottab = 0;
+    if (letter == '\\' && n+1 < string->count && cstr[n+1] == 't'){
+            /* we have a tab here so skip the backslash and
+               set t to ' ' so that we get a white space */
+            gottab = 1;
+            n++;
+            letter  = ' ';            
+    }            
+    if (letter == '\t'){
+       letter = ' ';
+        gottab = 1 ;
+    }            
+    /* initialize each struct gfx_char_s */
+    glyph->index = 0;
+    glyph->pos.x = 0;
+    glyph->pos.y = 0;
+    glyph->image = NULL;
+    glyph->index = FT_Get_Char_Index( face, letter );
+
+    /* compute glyph origin */
+    if ( use_kerning && previous && glyph->index ) {
+      FT_Vector kerning;
+      FT_Get_Kerning (face, previous, glyph->index,
+          ft_kerning_default, &kerning);
+      ft_pen.x += kerning.x;
+      ft_pen.y += kerning.y;
     }
-    error = FT_Load_Glyph( face, glyph_index, 0 );
-    if ( error ) {
-      FT_Done_FreeType(library);
-      return -1;
+
+    /* load the glyph image (in its native format) */
+    /* for now, we take a monochrome glyph bitmap */
+    error = FT_Load_Glyph (face, glyph->index, size > canvas->font_aa_threshold ?
+                            canvas->aa_type == AA_NORMAL ? FT_LOAD_TARGET_NORMAL :
+                            canvas->aa_type == AA_LIGHT ? FT_LOAD_TARGET_LIGHT :
+                            FT_LOAD_TARGET_MONO : FT_LOAD_TARGET_MONO);
+    if (error) {
+      DPRINTF("couldn't load glyph:  %c\n", letter)
+      continue;
+    }
+    error = FT_Get_Glyph (slot, &glyph->image);
+    if (error) {
+      DPRINTF("couldn't get glyph %c from slot %d\n", letter, (int)slot)
+      continue;
     }
-    if (! previous) {
-      text_width -= (double)slot->metrics.horiBearingX / 64.0; /* add just char width */       
+    /* if we are in tabbing mode, we replace the tab with a space and shift the position
+       of the space so that its left edge is where the tab was supposed to land us */
+    if (gottab){
+       /* we are in gridfitting mode so the calculations happen in 1/64 pixles */
+        ft_pen.x = tabwidth*64.0 * (float)(1 + (long)(ft_pen.x / (tabwidth * 64.0))) - slot->advance.x;
     }
-    text_width += (double)slot->metrics.horiAdvance / 64.0;
+    /* store current pen position */
+    glyph->pos.x = ft_pen.x;
+    glyph->pos.y = ft_pen.y;
+
+
+    ft_pen.x   += slot->advance.x;    
+    ft_pen.y   += slot->advance.y;
+
+    /* rotate glyph */
+    vec = glyph->pos;
+    FT_Vector_Transform (&vec, &string->transform);
+    error = FT_Glyph_Transform (glyph->image, &string->transform, &vec);
+    if (error) {
+      DPRINTF("couldn't transform glyph id %d\n", letter)
+      continue;
+    }
+
+    /* convert to a bitmap - destroy native image */
+    error = FT_Glyph_To_Bitmap (&glyph->image, size > canvas->font_aa_threshold ?
+                            canvas->aa_type == AA_NORMAL ? FT_RENDER_MODE_NORMAL :
+                            canvas->aa_type == AA_LIGHT ? FT_RENDER_MODE_LIGHT :
+                            FT_RENDER_MODE_MONO : FT_RENDER_MODE_MONO, 0, 1);
+    if (error) {
+      DPRINTF("couldn't convert glyph id %d to bitmap\n", letter)
+      continue;
+    }
+
+    /* increment number of glyphs */
+    previous = glyph->index;
+    string->num_glyphs++;
   }
-  text_width -= (double)slot->metrics.horiAdvance / 64.0; /* remove last step */
-  text_width += (double)slot->metrics.width / 64.0; /* add just char width */
-  text_width += (double)slot->metrics.horiBearingX / 64.0; /* add just char width */
-  FT_Done_FreeType(library);
-  return text_width;
+  free(cstr);
+/*  printf ("number of glyphs = %d\n", string->num_glyphs);*/
+  compute_string_bbox( string );
+  /* the last character was a tab */  
+  /* if (gottab) { */
+      string->width = ft_pen.x;
+  /* } else {
+      string->width = string->bbox.xMax - string->bbox.xMin;
+  } */
+  string->height = string->bbox.yMax - string->bbox.yMin;
+  return string;
 }
+
+
 static int gfx_save_png (art_u8 *buffer, FILE *fp,
                      long width, long height, long bytes_per_pixel);
 /* render grafics into png image */
+
 int           gfx_render_png (gfx_canvas_t *canvas, 
                              art_u32 width, art_u32 height, 
                              gfx_color_t background, FILE *fp){
@@ -290,14 +521,23 @@ int           gfx_render_png (gfx_canvas_t *canvas,
     
     FT_Library    library;
     gfx_node_t *node = canvas->firstnode;    
+    /*
     art_u8 red = background >> 24, green = (background >> 16) & 0xff;
     art_u8 blue = (background >> 8) & 0xff, alpha = ( background & 0xff );
+    */
     unsigned long pys_width = width * canvas->zoom;
     unsigned long pys_height = height * canvas->zoom;
-    const int bytes_per_pixel = 3;
+    const int bytes_per_pixel = 4;
     unsigned long rowstride = pys_width*bytes_per_pixel; /* bytes per pixel */
-    art_u8 *buffer = art_new (art_u8, rowstride*pys_height);
-    art_rgb_run_alpha (buffer, red, green, blue, alpha, pys_width*pys_height);
+    
+    /* fill that buffer with out background color */
+    gfx_color_t *buffp = art_new (gfx_color_t, pys_width*pys_height);
+    art_u8 *buffer = (art_u8 *)buffp;
+    unsigned long i;
+    for (i=0;i<pys_width*pys_height;
+        i++){
+       *(buffp++)=background;
+    }
     FT_Init_FreeType( &library );
     while(node){
         switch (node->type) {
@@ -306,40 +546,46 @@ int           gfx_render_png (gfx_canvas_t *canvas,
             ArtVpath *vec;
             double dst[6];     
             ArtSVP *svp;
-           if (node->closed_path) { 
-               /* libart uses end==start for closed as indicator of closed path */
-               gfx_add_point(node, node->path[0].x, node->path[0].y);
-               node->closed_path = 0;
-           }
             art_affine_scale(dst,canvas->zoom,canvas->zoom);
             vec = art_vpath_affine_transform(node->path,dst);
+           if (node->closed_path)
+               gfx_libart_close_path(node, &vec);
+           /* gfx_round_scaled_coordinates(vec); */
+            /* pvec = art_vpath_perturb(vec);
+              art_free(vec); */
             if(node->type == GFX_LINE){
                 svp = art_svp_vpath_stroke ( vec, ART_PATH_STROKE_JOIN_ROUND,
                                              ART_PATH_STROKE_CAP_ROUND,
-                                             node->size*canvas->zoom,1,1);
+                                             node->size*canvas->zoom,4,0.25);
             } else {
-                svp = art_svp_from_vpath ( vec );
+                svp  = art_svp_from_vpath ( vec );
+               /* this takes time and is unnecessary since we make
+                  sure elsewhere that the areas are going clock-whise */
+               /*  svpt = art_svp_uncross( svp );
+                    art_svp_free(svp);
+                   svp  = art_svp_rewind_uncrossed(svpt,ART_WIND_RULE_NONZERO); 
+                    art_svp_free(svpt);
+                 */
             }
             art_free(vec);
-            art_rgb_svp_alpha (svp ,0,0, pys_width, pys_height,
-                               node->color, buffer, rowstride, NULL);
-            art_free(svp);
+           /* this is from gnome since libart does not have this yet */
+            gnome_print_art_rgba_svp_alpha (svp ,0,0, pys_width, pys_height,
+                                node->color, buffer, rowstride, NULL);
+            art_svp_free(svp);
             break;
         }
         case GFX_TEXT: {
+            unsigned int  n;
             int  error;
-            float text_width=0.0, text_height = 0.0;
-            unsigned char *text;
-            art_u8 fcolor[3],falpha;
+            art_u8 fcolor[4],falpha;
             FT_Face       face;
-            FT_GlyphSlot  slot;
-            FT_UInt       previous=0;
-            FT_UInt       glyph_index=0;
-           FT_Bool       use_kerning;
+            gfx_char      glyph;
+            gfx_string    string;
+            FT_Vector     vec;  /* 26.6 */
 
             float pen_x = 0.0 , pen_y = 0.0;
             /* double x,y; */
-            long   ix,iy,iz;
+            long   ix,iy;
             
             fcolor[0] = node->color >> 24;
             fcolor[1] = (node->color >> 16) & 0xff;
@@ -349,9 +595,10 @@ int           gfx_render_png (gfx_canvas_t *canvas,
                                  (char *)node->filename,
                                  0,
                                  &face );
-           if ( error ) break;
-            use_kerning = FT_HAS_KERNING(face);
-
+           if ( error ) {
+               rrd_set_error("failed to load %s",node->filename);
+               break;
+           }
             error = FT_Set_Char_Size(face,   /* handle to face object            */
                                      (long)(node->size*64),
                                      (long)(node->size*64),
@@ -360,75 +607,126 @@ int           gfx_render_png (gfx_canvas_t *canvas,
             if ( error ) break;
             pen_x = node->x * canvas->zoom;
             pen_y = node->y * canvas->zoom;
-            slot = face->glyph;
-
-            for(text=(unsigned char *)node->text;*text;text++) {       
-                previous = glyph_index;
-                glyph_index = FT_Get_Char_Index( face, *text);
-                
-                if (use_kerning && previous && glyph_index){
-                    FT_Vector  delta;
-                    FT_Get_Kerning( face, previous, glyph_index,
-                                    0, &delta );
-                    text_width += (double)delta.x / 64.0;
-                    
-                }
-                error = FT_Load_Glyph( face, glyph_index, 0 );
-                if ( error ) break;
-               if (previous == 0){
-                 pen_x -= (double)slot->metrics.horiBearingX / 64.0; /* adjust pos for first char */   
-                 text_width -= (double)slot->metrics.horiBearingX / 64.0; /* add just char width */    
-                }
-               if ( text_height < (double)slot->metrics.horiBearingY / 64.0 ) {
-                 text_height = (double)slot->metrics.horiBearingY / 64.0;
-               }
-                text_width += (double)slot->metrics.horiAdvance / 64.0;
-            }
-            text_width -= (double)slot->metrics.horiAdvance / 64.0; /* remove last step */
-            text_width += (double)slot->metrics.width / 64.0; /* add just char width */
-            text_width += (double)slot->metrics.horiBearingX / 64.0; /* add just char width */
-            
+
+            string = gfx_string_create (canvas, face, node->text, node->angle, node->tabwidth, node->size);
             switch(node->halign){
-            case GFX_H_RIGHT:  pen_x -= text_width; break;
-            case GFX_H_CENTER: pen_x -= text_width / 2.0; break;          
-            case GFX_H_LEFT: break;          
-            case GFX_H_NULL: break;          
+            case GFX_H_RIGHT:  vec.x = -string->bbox.xMax;
+                               break;          
+            case GFX_H_CENTER: vec.x = abs(string->bbox.xMax) >= abs(string->bbox.xMin) ?
+                                       -string->bbox.xMax/2:-string->bbox.xMin/2;
+                               break;          
+            case GFX_H_LEFT:   vec.x = -string->bbox.xMin;
+                              break;
+            case GFX_H_NULL:   vec.x = 0;
+                               break;          
             }
 
             switch(node->valign){
-            case GFX_V_TOP:    pen_y += text_height; break;
-            case GFX_V_CENTER: pen_y += text_height / 2.0; break;          
-            case GFX_V_BOTTOM: break;          
-            case GFX_V_NULL: break;          
+            case GFX_V_TOP:    vec.y = string->bbox.yMax;
+                               break;
+            case GFX_V_CENTER: vec.y = abs(string->bbox.yMax) >= abs(string->bbox.yMin) ?
+                                       string->bbox.yMax/2:string->bbox.yMin/2;
+                               break;
+            case GFX_V_BOTTOM: vec.y = 0;
+                               break;
+            case GFX_V_NULL:   vec.y = 0;
+                               break;
             }
+           pen_x += vec.x/64;
+           pen_y += vec.y/64;
+            glyph = string->glyphs;
+            for(n=0; n<string->num_glyphs; n++, glyph++) {
+                int gr;
+                FT_Glyph        image;
+                FT_BitmapGlyph  bit;
+               /* long buf_x,comp_n; */
+               /* make copy to transform */
+                if (! glyph->image) {
+                  DPRINTF("no image\n")
+                  continue;
+                }
+                error = FT_Glyph_Copy (glyph->image, &image);
+                if (error) {
+                  DPRINTF("couldn't copy image\n")
+                  continue;
+                }
 
-            glyph_index=0;
-            for(text=(unsigned char *)node->text;*text;text++) {
-                int gr;          
-                previous = glyph_index;
-                glyph_index = FT_Get_Char_Index( face, *text);
-                
-                if (use_kerning && previous && glyph_index){
-                    FT_Vector  delta;
-                    FT_Get_Kerning( face, previous, glyph_index,
-                                    0, &delta );
-                    pen_x += (double)delta.x / 64.0;
-                    
+                /* transform it */
+                vec = glyph->pos;
+                FT_Vector_Transform (&vec, &string->transform);
+
+                bit = (FT_BitmapGlyph) image;
+                gr = bit->bitmap.num_grays -1;
+/* 
+               buf_x = (pen_x + 0.5) + (double)bit->left;
+               comp_n = buf_x + bit->bitmap.width > pys_width ? pys_width - buf_x : bit->bitmap.width;
+                if (buf_x < 0 || buf_x >= (long)pys_width) continue;
+               buf_x *=  bytes_per_pixel ;
+               for (iy=0; iy < bit->bitmap.rows; iy++){                    
+                   long buf_y = iy+(pen_y+0.5)-(double)bit->top;
+                   if (buf_y < 0 || buf_y >= (long)pys_height) continue;
+                    buf_y *= rowstride;
+                   for (ix=0;ix < bit->bitmap.width;ix++){             
+                       *(letter + (ix*bytes_per_pixel+3)) = *(bit->bitmap.buffer + iy * bit->bitmap.width + ix);
+                   }
+                   art_rgba_rgba_composite(buffer + buf_y + buf_x ,letter,comp_n);
+                }
+                art_free(letter);
+*/
+                switch ( bit->bitmap.pixel_mode ) {
+                    case FT_PIXEL_MODE_GRAY:
+                        for (iy=0; iy < bit->bitmap.rows; iy++){
+                            long buf_y = iy+(pen_y+0.5)-bit->top;
+                            if (buf_y < 0 || buf_y >= (long)pys_height) continue;
+                            buf_y *= rowstride;
+                            for (ix=0;ix < bit->bitmap.width;ix++){
+                                long buf_x = ix + (pen_x + 0.5) + (double)bit->left ;
+                                art_u8 font_alpha;
+
+                                if (buf_x < 0 || buf_x >= (long)pys_width) continue;
+                                buf_x *=  bytes_per_pixel ;
+                                font_alpha =  *(bit->bitmap.buffer + iy * bit->bitmap.pitch + ix);
+                    if (font_alpha > 0){
+                                    fcolor[3] =  (art_u8)((double)font_alpha / gr * falpha);
+                        art_rgba_rgba_composite(buffer + buf_y + buf_x ,fcolor,1);
+                                }
+                            }
+                        }
+                        break;
+
+                    case FT_PIXEL_MODE_MONO:
+                        for (iy=0; iy < bit->bitmap.rows; iy++){
+                            long buf_y = iy+(pen_y+0.5)-bit->top;
+                            if (buf_y < 0 || buf_y >= (long)pys_height) continue;
+                            buf_y *= rowstride;
+                            for (ix=0;ix < bit->bitmap.width;ix++){
+                                long buf_x = ix + (pen_x + 0.5) + (double)bit->left ;
+
+                                if (buf_x < 0 || buf_x >= (long)pys_width) continue;
+                                buf_x *=  bytes_per_pixel ;
+                                if ( (fcolor[3] = falpha * ((*(bit->bitmap.buffer + iy * bit->bitmap.pitch + ix/8) >> (7 - (ix % 8))) & 1)) > 0 )
+                                    art_rgba_rgba_composite(buffer + buf_y + buf_x ,fcolor,1);
+                            }
+                        }
+                        break;
+
+                        default:
+                            rrd_set_error("unknown freetype pixel mode: %d", bit->bitmap.pixel_mode);
+                            break;
                 }
-                error = FT_Load_Glyph( face, glyph_index, FT_LOAD_RENDER );
-                if ( error ) break;
-                gr = slot->bitmap.num_grays -1;
-                for (iy=0; iy < slot->bitmap.rows; iy++){
-                    long buf_y = iy+(pen_y+0.5)-slot->bitmap_top;
-                    if (buf_y < 0 || buf_y >= pys_height) continue;
+
+/*
+                for (iy=0; iy < bit->bitmap.rows; iy++){                   
+                    long buf_y = iy+(pen_y+0.5)-bit->top;
+                    if (buf_y < 0 || buf_y >= (long)pys_height) continue;
                     buf_y *= rowstride;
-                    for (ix=0;ix < slot->bitmap.width;ix++){
-                        long buf_x = ix + (pen_x + 0.5) + (double)slot->bitmap_left ;
+                    for (ix=0;ix < bit->bitmap.width;ix++){
+                        long buf_x = ix + (pen_x + 0.5) + (double)bit->left ;
                         art_u8 font_alpha;
                         
-                        if (buf_x < 0 || buf_x >= pys_width) continue;
+                        if (buf_x < 0 || buf_x >= (long)pys_width) continue;
                         buf_x *=  bytes_per_pixel ;
-                        font_alpha =  *(slot->bitmap.buffer + iy * slot->bitmap.width + ix);
+                        font_alpha =  *(bit->bitmap.buffer + iy * bit->bitmap.width + ix);
                         font_alpha =  (art_u8)((double)font_alpha / gr * falpha);
                         for (iz = 0; iz < 3; iz++){
                             art_u8 *orig = buffer + buf_y + buf_x + iz;
@@ -437,8 +735,10 @@ int           gfx_render_png (gfx_canvas_t *canvas,
                         }
                     }
                 }
-                pen_x += (double)slot->metrics.horiAdvance / 64.0;
+*/
+                FT_Done_Glyph (image);
             }
+            gfx_string_destroy(string);
         }
         }
         node = node->next;
@@ -457,12 +757,12 @@ gfx_destroy    (gfx_canvas_t *canvas){
   while(node){
     next = node->next;
     art_free(node->path);
-    art_free(node->svp);
     free(node->text);
     free(node->filename);
     art_free(node);
     node = next;
   }
+  art_free(canvas);
   return 0;
 }
  
@@ -489,6 +789,7 @@ static int gfx_save_png (art_u8 *buffer, FILE *fp,  long width, long height, lon
 
   if (info_ptr == NULL)
     {
+      png_free(png_ptr,row_pointers);
       png_destroy_write_struct(&png_ptr,  (png_infopp)NULL);
       return (1);
     }
@@ -502,7 +803,7 @@ static int gfx_save_png (art_u8 *buffer, FILE *fp,  long width, long height, lon
 
   png_init_io(png_ptr, fp);
   png_set_IHDR (png_ptr, info_ptr,width, height,
-                8, PNG_COLOR_TYPE_RGB,
+                8, PNG_COLOR_TYPE_RGB_ALPHA,
                 PNG_INTERLACE_NONE,
                 PNG_COMPRESSION_TYPE_DEFAULT,
                 PNG_FILTER_TYPE_DEFAULT);
@@ -512,26 +813,176 @@ static int gfx_save_png (art_u8 *buffer, FILE *fp,  long width, long height, lon
   text[0].compression = PNG_TEXT_COMPRESSION_NONE;
   png_set_text (png_ptr, info_ptr, text, 1);
 
+  /* lets make this fast while ending up with some increass in image size */
+  png_set_filter(png_ptr,0,PNG_FILTER_NONE);
+  /* png_set_filter(png_ptr,0,PNG_FILTER_SUB); */
+  png_set_compression_level(png_ptr,1);
+  /* png_set_compression_strategy(png_ptr,Z_HUFFMAN_ONLY); */
+  /* 
+  png_set_filter(png_ptr,PNG_FILTER_TYPE_BASE,PNG_FILTER_SUB);
+  png_set_compression_strategy(png_ptr,Z_HUFFMAN_ONLY);
+  png_set_compression_level(png_ptr,Z_BEST_SPEED); */
+  
   /* Write header data */
   png_write_info (png_ptr, info_ptr);
-
   for (i = 0; i < height; i++)
     row_pointers[i] = (png_bytep) (buffer + i*rowstride);
-
+  
   png_write_image(png_ptr, row_pointers);
   png_write_end(png_ptr, info_ptr);
+  png_free(png_ptr,row_pointers);
   png_destroy_write_struct(&png_ptr, &info_ptr);
   return 1;
 }
 
  
+/* ----- COMMON ROUTINES for pdf, svg and eps */
+#define min3(a, b, c) (a < b ? (a < c ? a : c) : (b < c ? b : c))
+#define max3(a, b, c) (a > b ? (a > c ? a : c) : (b > c ? b : c))
+
+#define PDF_CALC_DEBUG 0
+
+typedef struct pdf_point
+{
+       double x, y;
+} pdf_point;
+
+typedef struct
+{
+       double ascender, descender, baselineY;
+       pdf_point sizep, minp, maxp;
+       double x, y, tdx, tdy;
+       double r, cos_r, sin_r;
+       double ma, mb, mc, md, mx, my; /* pdf coord matrix */
+       double tmx, tmy; /* last 2 coords of text coord matrix */
+#if PDF_CALC_DEBUG
+       int debug;
+#endif
+} pdf_coords;
+
+#if PDF_CALC_DEBUG
+static void pdf_dump_calc(gfx_node_t *node, pdf_coords *g)
+{
+       fprintf(stderr, "PDF CALC =============================\n");
+       fprintf(stderr, "   '%s' at %f pt\n", node->text, node->size);
+       fprintf(stderr, "   align h = %s, v = %s,  sizep = %f, %f\n",
+               (node->halign == GFX_H_RIGHT ? "r" :
+                       (node->halign == GFX_H_CENTER ? "c" :
+                               (node->halign == GFX_H_LEFT ? "l" : "N"))),
+               (node->valign == GFX_V_TOP ? "t" :
+                       (node->valign == GFX_V_CENTER ? "c" :
+                               (node->valign == GFX_V_BOTTOM ? "b" : "N"))),
+                       g->sizep.x, g->sizep.y);
+       fprintf(stderr, "   r = %f = %f, cos = %f, sin = %f\n",
+                       g->r, node->angle, g->cos_r, g->sin_r);
+       fprintf(stderr, "   ascender = %f, descender = %f, baselineY = %f\n",
+               g->ascender, g->descender, g->baselineY);
+       fprintf(stderr, "   sizep: %f, %f\n", g->sizep.x, g->sizep.y);
+       fprintf(stderr, "   minp: %f, %f     maxp = %f, %f\n", 
+                       g->minp.x, g->minp.y, g->maxp.x, g->maxp.y);
+       fprintf(stderr, "   x = %f, y = %f\n", g->x, g->y);
+       fprintf(stderr, "   tdx = %f, tdy = %f\n", g->tdx, g->tdy);
+       fprintf(stderr, "   GM = %f, %f, %f, %f, %f, %f\n",
+                       g->ma, g->mb, g->mc, g->md, g->mx, g->my);
+       fprintf(stderr, "   TM = %f, %f, %f, %f, %f, %f\n",
+                       g->ma, g->mb, g->mc, g->md, g->tmx, g->tmy);
+}
+#endif
+#if PDF_CALC_DEBUG
+#define PDF_DD(x) if (g->debug) x;
+#else
+#define PDF_DD(x)
+#endif
+
+static void pdf_rotate(pdf_coords *g, pdf_point *p)
+{
+    double x2 = g->cos_r * p->x - g->sin_r * p->y;
+    double y2 = g->sin_r * p->x + g->cos_r * p->y;
+       PDF_DD( fprintf(stderr, "  rotate(%f, %f) -> %f, %f\n", p->x, p->y, x2, y2))
+    p->x = x2;
+       p->y = y2;
+}
+
+
+static void pdf_calc(int page_height, gfx_node_t *node, pdf_coords *g)
+{
+       pdf_point a, b, c;
+#if PDF_CALC_DEBUG
+       /* g->debug = !!strstr(node->text, "RevProxy-1") || !!strstr(node->text, "08:00"); */
+       g->debug = !!strstr(node->text, "sekunder") || !!strstr(node->text, "Web");
+#endif
+       g->x = node->x;
+       g->y = page_height - node->y;
+       if (node->angle) {
+               g->r = 2 * M_PI * node->angle / 360.0;
+               g->cos_r = cos(g->r);
+               g->sin_r = sin(g->r);
+       } else {
+               g->r = 0;
+               g->cos_r = 1;
+               g->sin_r = 0;
+       }
+       g->ascender = afm_get_ascender(node->filename, node->size);
+       g->descender = afm_get_descender(node->filename, node->size);
+       g->sizep.x = afm_get_text_width(0, node->filename, node->size, node->tabwidth, node->text);
+       /* seems like libart ignores the descender when doing vertial-align = bottom,
+          so we do that too, to get labels v-aligning properly */
+       g->sizep.y = -g->ascender; /* + afm_get_descender(font->ps_font, node->size); */
+       g->baselineY = -g->ascender - g->sizep.y / 2;
+       a.x = g->sizep.x; a.y = g->sizep.y;
+       b.x = g->sizep.x; b.y = 0;
+       c.x = 0; c.y = g->sizep.y;
+       if (node->angle) {
+               pdf_rotate(g, &a);
+               pdf_rotate(g, &b);
+               pdf_rotate(g, &c);
+       }
+       g->minp.x = min3(a.x, b.x, c.x);
+       g->minp.y = min3(a.y, b.y, c.y);
+       g->maxp.x = max3(a.x, b.x, c.x);
+       g->maxp.y = max3(a.y, b.y, c.y);
+  /* The alignment parameters in node->valign and node->halign
+     specifies the alignment in the non-rotated coordinate system
+     (very unlike pdf/postscript), which complicates matters.
+  */
+       switch (node->halign) {
+       case GFX_H_RIGHT:  g->tdx = -g->maxp.x; break;
+       case GFX_H_CENTER: g->tdx = -(g->maxp.x + g->minp.x) / 2; break;
+       case GFX_H_LEFT:   g->tdx = -g->minp.x; break;
+       case GFX_H_NULL:   g->tdx = 0; break;
+       }
+       switch(node->valign){
+       case GFX_V_TOP:    g->tdy = -g->maxp.y; break;
+       case GFX_V_CENTER: g->tdy = -(g->maxp.y + g->minp.y) / 2; break;
+       case GFX_V_BOTTOM: g->tdy = -g->minp.y; break;
+       case GFX_V_NULL:   g->tdy = 0; break;          
+       }
+       g->ma = g->cos_r;
+       g->mb = g->sin_r;
+       g->mc = -g->sin_r;
+       g->md = g->cos_r;
+       g->mx = g->x + g->tdx;
+       g->my = g->y + g->tdy;
+       g->tmx = g->mx - g->ascender * g->mc;
+       g->tmy = g->my - g->ascender * g->md;
+       PDF_DD(pdf_dump_calc(node, g))
+}
+
 /* ------- SVG -------
    SVG reference:
    http://www.w3.org/TR/SVG/
 */
 static int svg_indent = 0;
 static int svg_single_line = 0;
-static const char *svg_default_font = "Helvetica";
+static const char *svg_default_font = "-dummy-";
+typedef struct svg_dash
+{
+  int dash_enable;
+  double dash_adjust, dash_len, dash_offset;
+  double adjusted_on, adjusted_off;
+} svg_dash;
+
 
 static void svg_print_indent(FILE *fp)
 {
@@ -622,11 +1073,11 @@ static void svg_write_text(FILE *fp, const char *text)
    }
 }
  
-static void svg_write_number(FILE *fp, double d)
+static void svg_format_number(char *buf, int bufsize, double d)
 {
    /* omit decimals if integer to reduce filesize */
-   char buf[60], *p;
-   snprintf(buf, sizeof(buf), "%.2f", d);
+   char *p;
+   snprintf(buf, bufsize, "%.2f", d);
    p = buf; /* doesn't trust snprintf return value */
    while (*p)
      p++;
@@ -640,9 +1091,15 @@ static void svg_write_number(FILE *fp, double d)
        *p = '\0'; /* zap trailing dot */
      break;
    }
-   fputs(buf, fp);
 }
  
+static void svg_write_number(FILE *fp, double d)
+{
+   char buf[60];
+   svg_format_number(buf, sizeof(buf), d);
+   fputs(buf, fp);
+}
+
 static int svg_color_is_black(int c)
 {
   /* gfx_color_t is RRGGBBAA */
@@ -666,24 +1123,70 @@ static void svg_write_color(FILE *fp, gfx_color_t c, const char *attr)
    }
   fputs("\"", fp);
   if (opacity != 0xFF) {
-    fprintf(fp, " stroke-opacity=\"");
+    fprintf(fp, " opacity=\"");
     svg_write_number(fp, opacity / 255.0);
     fputs("\"", fp);
  }
 }
  
+static void svg_get_dash(gfx_node_t *node, svg_dash *d)
+{
+  double offset;
+  int mult;
+  if (node->dash_on <= 0 || node->dash_off <= 0) {
+    d->dash_enable = 0;
+    return;
+  }
+  d->dash_enable = 1;
+  d->dash_len = node->dash_on + node->dash_off;
+  /* dash on/off adjustment due to round caps */
+  d->dash_adjust = 0.8 * node->size;
+  d->adjusted_on = node->dash_on - d->dash_adjust;
+  if (d->adjusted_on < 0.01)
+      d->adjusted_on = 0.01;
+  d->adjusted_off = d->dash_len - d->adjusted_on;
+  /* dash offset calc */
+  if (node->path[0].x == node->path[1].x) /* only good for horz/vert lines */
+    offset = node->path[0].y;
+  else
+    offset = node->path[0].x;
+  mult = (int)fabs(offset / d->dash_len);
+  d->dash_offset = offset - mult * d->dash_len;
+  if (node->path[0].x < node->path[1].x || node->path[0].y < node->path[1].y)
+    d->dash_offset = d->dash_len - d->dash_offset;
+}
+
+static int svg_dash_equal(svg_dash *a, svg_dash *b)
+{
+  if (a->dash_enable != b->dash_enable)
+    return 0;
+  if (a->adjusted_on != b->adjusted_on)
+    return 0;
+  if (a->adjusted_off != b->adjusted_off)
+    return 0;
+  /* rest of properties will be the same when on+off are */
+  return 1;
+}
+
 static void svg_common_path_attributes(FILE *fp, gfx_node_t *node)
 {
+  svg_dash dash_info;
+  svg_get_dash(node, &dash_info);
   fputs(" stroke-width=\"", fp);
   svg_write_number(fp, node->size);
   fputs("\"", fp);
   svg_write_color(fp, node->color, "stroke");
   fputs(" fill=\"none\"", fp);
-  if (node->dash_on > 0 && node->dash_off > 0) {
+  if (dash_info.dash_enable) {
+    if (dash_info.dash_offset != 0) {
+      fputs(" stroke-dashoffset=\"", fp);
+      svg_write_number(fp, dash_info.dash_offset);
+      fputs("\"", fp);
+    }
     fputs(" stroke-dasharray=\"", fp);
-    svg_write_number(fp, node->dash_on);
+    svg_write_number(fp, dash_info.adjusted_on);
     fputs(",", fp);
-    svg_write_number(fp, node->dash_off);
+    svg_write_number(fp, dash_info.adjusted_off);
     fputs("\"", fp);
   }
 }
@@ -849,44 +1352,37 @@ static void svg_area(FILE *fp, gfx_node_t *node)
  
 static void svg_text(FILE *fp, gfx_node_t *node)
 {
-   double x = node->x - LINEOFFSET;
-   double y = node->y - LINEOFFSET;
+   pdf_coords g;
+   const char *fontname;
+   /* as svg has 0,0 in top-left corner (like most screens) instead of
+         bottom-left corner like pdf and eps, we have to fake the coords
+         using offset and inverse sin(r) value */
+   int page_height = 1000;
+   pdf_calc(page_height, node, &g);
    if (node->angle != 0) {
      svg_start_tag(fp, "g");
-     fputs(" transform=\"translate(", fp);
-     svg_write_number(fp, x);
-     fputs(",", fp);
-     svg_write_number(fp, y);
-     fputs(") rotate(", fp);
-     svg_write_number(fp, node->angle);
-     fputs(")\"", fp);
-     x = y = 0;
+        /* can't use svg_write_number as 2 decimals is far from enough to avoid
+               skewed text */
+     fprintf(fp, " transform=\"matrix(%f,%f,%f,%f,%f,%f)\"",
+                        g.ma, -g.mb, -g.mc, g.md, g.tmx, page_height - g.tmy);
      svg_close_tag(fp);
    }
-   switch (node->valign) {
-   case GFX_V_TOP:  y += node->size; break;
-   case GFX_V_CENTER: y += node->size / 2; break;
-   case GFX_V_BOTTOM: break;
-   case GFX_V_NULL: break;
-   }
    svg_start_tag(fp, "text");
-   fputs(" x=\"", fp);
-   svg_write_number(fp, x);
-   fputs("\" y=\"", fp);
-   svg_write_number(fp, y);
-  if (strcmp(node->filename, svg_default_font))
-    fprintf(fp, " font-family=\"%s\"", node->filename);
-   fputs("\" font-size=\"", fp);
+   if (!node->angle) {
+     fputs(" x=\"", fp);
+     svg_write_number(fp, g.tmx);
+     fputs("\" y=\"", fp);
+     svg_write_number(fp, page_height - g.tmy);
+     fputs("\"", fp);
+   }
+   fontname = afm_get_font_name(node->filename);
+   if (strcmp(fontname, svg_default_font))
+     fprintf(fp, " font-family=\"%s\"", fontname);
+   fputs(" font-size=\"", fp);
    svg_write_number(fp, node->size);
    fputs("\"", fp);
   if (!svg_color_is_black(node->color))
     svg_write_color(fp, node->color, "fill");
-   switch (node->halign) {
-   case GFX_H_RIGHT:  fputs(" text-anchor=\"end\"", fp); break;
-   case GFX_H_CENTER: fputs(" text-anchor=\"middle\"", fp); break;
-   case GFX_H_LEFT: break;
-   case GFX_H_NULL: break;
-   }
    svg_close_tag_single_line(fp);
    /* support for node->tabwidth missing */
    svg_write_text(fp, node->text);
@@ -899,13 +1395,22 @@ int       gfx_render_svg (gfx_canvas_t *canvas,
                  art_u32 width, art_u32 height,
                  gfx_color_t background, FILE *fp){
    gfx_node_t *node = canvas->firstnode;
+   /* Find the first font used, and assume it is the mostly used
+         one. It reduces the number of font-familty attributes. */
+   while (node) {
+          if (node->type == GFX_TEXT && node->filename) {
+                  svg_default_font = afm_get_font_name(node->filename);
+                  break;
+          }
+          node = node->next;
+   }
    fputs(
 "<?xml version=\"1.0\" standalone=\"no\"?>\n"
 "<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.0//EN\"\n"
 "   \"http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd\">\n"
 "<!--\n"
-"   SVG file created by RRDtool,\n"
-"   Tobias Oetiker <tobi@oetike.ch>, http://tobi.oetiker.ch\n"
+"   SVG file created by\n"
+"        RRDtool " PACKAGE_VERSION " Tobias Oetiker, http://tobi.oetiker.ch\n"
 "\n"
 "   The width/height attributes in the outhermost svg node\n"
 "   are just default sizes for the browser which is used\n"
@@ -934,6 +1439,7 @@ int       gfx_render_svg (gfx_canvas_t *canvas,
    fprintf(fp, " x=\"0\" y=\"0\" width=\"%d\" height=\"%d\"", width, height);
   svg_write_color(fp, background, "fill");
    svg_close_tag_empty_node(fp);
+   node = canvas->firstnode;
    while (node) {
      switch (node->type) {
      case GFX_LINE:
@@ -975,17 +1481,31 @@ typedef struct eps_state
   double font_size;
   double line_width;
   int linecap, linejoin;
+  int has_dash;
 } eps_state;
 
 static void eps_set_color(eps_state *state, gfx_color_t color)
 {
+#if USE_EPS_FAKE_ALPHA
+   double a1, a2;
+#endif
+   /* gfx_color_t is RRGGBBAA */
+  if (state->color == color)
+    return;
+#if USE_EPS_FAKE_ALPHA
+  a1 = (color & 255) / 255.0;
+  a2 = 255 * (1 - a1);
+#define eps_color_calc(x) (int)( ((x) & 255) * a1 + a2)
+#else
+#define eps_color_calc(x) (int)( (x) & 255)
+#endif
    /* gfx_color_t is RRGGBBAA */
   if (state->color == color)
     return;
   fprintf(state->fp, "%d %d %d Rgb\n",
-      (int)((color >> 24) & 255),
-      (int)((color >> 16) & 255),
-      (int)((color >>  8) & 255));
+      eps_color_calc(color >> 24),
+      eps_color_calc(color >> 16),
+      eps_color_calc(color >>  8));
   state->color = color;
 }
 
@@ -1058,9 +1578,9 @@ static int eps_prologue(eps_state *state)
   gfx_node_t *node;
   fputs(
     "%!PS-Adobe-3.0 EPSF-3.0\n"
-    "%%Creator: RRDtool 1.1.x, Tobias Oetiker, http://tobi.oetiker.ch\n"
+    "%%Creator: RRDtool " PACKAGE_VERSION " Tobias Oetiker, http://tobi.oetiker.ch\n"
     /* can't like weird chars here */
-    "%%Title: (RRDTool output)\n"
+    "%%Title: (RRDtool output)\n"
     "%%DocumentData: Clean7Bit\n"
     "", state->fp);
   fprintf(state->fp, "%%%%BoundingBox: 0 0 %d %d\n",
@@ -1088,12 +1608,9 @@ static int eps_prologue(eps_state *state)
       "/CP {closepath} bd\n"
       "/WS {setlinewidth stroke} bd\n"
       "/F {fill} bd\n"
-      "/TaL { } bd\n"
-      "/TaC {dup stringwidth pop neg 2 div 0 rmoveto } bd\n"
-      "/TaR {dup stringwidth pop neg 0 rmoveto } bd\n"
-      "/TL {moveto TaL show} bd\n"
-      "/TC {moveto TaC show} bd\n"
-      "/TR {moveto TaR show} bd\n"
+      "/T1 {gsave} bd\n"
+      "/T2 {concat 0 0 moveto show grestore} bd\n"
+      "/T   {moveto show} bd\n"
       "/Rgb { 255.0 div 3 1 roll\n"
       "       255.0 div 3 1 roll \n"
       "       255.0 div 3 1 roll setrgbcolor } bd\n"
@@ -1102,13 +1619,23 @@ static int eps_prologue(eps_state *state)
   return 0;
 }
 
+static void eps_clear_dash(eps_state *state)
+{
+  if (!state->has_dash)
+    return;
+  state->has_dash = 0;
+  fputs("[1 0] 0 setdash\n", state->fp);
+}
+
 static void eps_write_linearea(eps_state *state, gfx_node_t *node)
 {
   int i;
   FILE *fp = state->fp;
   int useOffset = 0;
+  int clearDashIfAny = 1;
   eps_set_color(state, node->color);
   if (node->type == GFX_LINE) {
+    svg_dash dash_info;
     if (state->linecap != 1) {
       fputs("1 setlinecap\n", fp);
       state->linecap = 1;
@@ -1117,7 +1644,21 @@ static void eps_write_linearea(eps_state *state, gfx_node_t *node)
       fputs("1 setlinejoin\n", fp);
       state->linejoin = 1;
     }
+    svg_get_dash(node, &dash_info);
+    if (dash_info.dash_enable) {
+      clearDashIfAny = 0;
+      state->has_dash = 1;
+      fputs("[", fp);
+      svg_write_number(fp, dash_info.adjusted_on);
+      fputs(" ", fp);
+      svg_write_number(fp, dash_info.adjusted_off);
+      fputs("] ", fp);
+      svg_write_number(fp, dash_info.dash_offset);
+      fputs(" setdash\n", fp);
+    }
   }
+  if (clearDashIfAny)
+    eps_clear_dash(state);
   for (i = 0; i < node->points; i++) {
     ArtVpath *vec = node->path + i;
     double x = vec->x;
@@ -1166,12 +1707,11 @@ static void eps_write_linearea(eps_state *state, gfx_node_t *node)
 static void eps_write_text(eps_state *state, gfx_node_t *node)
 {
   FILE *fp = state->fp;
-  const unsigned char *p;
+  const char *p;
   const char *ps_font = afm_get_font_postscript_name(node->filename);
-  char align = 'L';
-  double x = node->x;
-  double y = state->page_height - node->y, ydelta = 0;
   int lineLen = 0;
+  pdf_coords g;
+  pdf_calc(state->page_height, node, &g);
   eps_set_color(state, node->color);
   if (strcmp(ps_font, state->font) || node->size != state->font_size) {
     state->font = ps_font;
@@ -1179,66 +1719,57 @@ static void eps_write_text(eps_state *state, gfx_node_t *node)
     svg_write_number(fp, state->font_size);
     fprintf(fp, " SetFont-%s\n", state->font);
   }
+  if (node->angle)
+         fputs("T1 ", fp);
   fputs("(", fp);
   lineLen = 20;
-  for (p = (const unsigned char*)node->text; *p; p++) {
-    if (lineLen > 70) {
+  p = node->text;
+  while (1) {
+    unsigned char ch = *(unsigned char*)p;
+    if (!ch)
+      break;
+    if (++lineLen > 70) {
       fputs("\\\n", fp); /* backslash and \n */
       lineLen = 0;
     }
-    switch (*p) {
+    switch (ch) {
+      case '%':
       case '(':
       case ')':
       case '\\':
+        fputc('\\', fp);
+        fputc(ch, fp);
+        break;
       case '\n':
+        fputs("\\n", fp);
+        break;
       case '\r':
+        fputs("\\r", fp);
+        break;
       case '\t':
-        fputc('\\', fp);
-        lineLen++;
-        /* fall-through */
+        fputs("\\t", fp);
+        break;
       default:
-        if (*p >= 126)
-          fprintf(fp, "\\%03o", *p);
-        else
-          fputc(*p, fp);
-        lineLen++;
-    }
-  }
-  fputs(") ", fp);
-  switch(node->valign){
-  case GFX_V_TOP:    ydelta = -node->size; break;
-  case GFX_V_CENTER: ydelta = -node->size / 3.0; break;          
-  case GFX_V_BOTTOM: break;          
-  case GFX_V_NULL: break;          
-  }
-  if (node->angle == 0)
-    y += ydelta;
-  switch (node->halign) {
-  case GFX_H_RIGHT:  align = 'R'; break;
-  case GFX_H_CENTER: align = 'C'; break;
-  case GFX_H_LEFT: align= 'L'; break;
-  case GFX_H_NULL: align= 'L'; break;
+        if (ch >= 126 || ch < 32) {
+          fprintf(fp, "\\%03o", ch);
+          lineLen += 3;
+        } else {
+          fputc(ch, fp);
+        }
+      }
+      p++;
   }
-  if (node->angle != 0) {
-    fputs("\n", fp);
-    fputs("  gsave ", fp);
-    svg_write_number(fp, x);
-    fputc(' ', fp);
-    svg_write_number(fp, y);
-    fputs(" translate ", fp);
-    svg_write_number(fp, -node->angle);
-    fputs(" rotate 0 ", fp);
-    svg_write_number(fp, ydelta);
-    fputs(" moveto ", fp);
-    fprintf(fp, "Ta%c", align);
-    fputs(" show grestore\n", fp);
+  if (node->angle) {
+        /* can't use svg_write_number as 2 decimals is far from enough to avoid
+               skewed text */
+         fprintf(fp, ") [%f %f %f %f %f %f] T2\n",
+                         g.ma, g.mb, g.mc, g.md, g.tmx, g.tmy);
   } else {
-    svg_write_number(fp, x);
-    fputc(' ', fp);
-    svg_write_number(fp, y);
-    fputs(" T", fp);
-    fputc(align, fp);
-    fputc('\n', fp);
+         fputs(") ", fp);
+         svg_write_number(fp, g.tmx);
+         fputs(" ", fp);
+         svg_write_number(fp, g.tmy);
+         fputs(" T\n", fp);
   }
 }
 
@@ -1274,6 +1805,8 @@ int       gfx_render_eps (gfx_canvas_t *canvas,
   state.font_list = NULL;
   state.linecap = -1;
   state.linejoin = -1;
+  state.has_dash = 0;
+  state.line_width = 1;
   if (eps_prologue(&state) == -1)
     return -1;
   eps_set_color(&state, background);
@@ -1290,3 +1823,594 @@ int       gfx_render_eps (gfx_canvas_t *canvas,
   }
   return 0;
 }
+
+/* ------- PDF -------
+   PDF references page:
+   http://partners.adobe.com/public/developer/pdf/index_reference.html
+*/
+
+typedef struct pdf_buffer
+{
+  int id, is_obj, is_dict, is_stream, pdf_file_pos;
+  char *data;
+  int alloc_size, current_size;
+  struct pdf_buffer *previous_buffer, *next_buffer;
+  struct pdf_state *state;
+} pdf_buffer;
+
+typedef struct pdf_font
+{
+  const char *ps_font;
+  pdf_buffer obj;
+  struct pdf_font *next;
+} pdf_font;
+
+typedef struct pdf_state
+{
+  FILE *fp;
+  gfx_canvas_t *canvas;
+  art_u32 page_width, page_height;
+  pdf_font *font_list;
+  pdf_buffer *first_buffer, *last_buffer;
+  int pdf_file_pos;
+  int has_failed;
+  /*--*/
+  gfx_color_t stroke_color, fill_color;
+  int font_id;
+  double font_size;
+  double line_width;
+  svg_dash dash;
+  int linecap, linejoin;
+  int last_obj_id;
+  /*--*/
+  pdf_buffer pdf_header;
+  pdf_buffer info_obj, catalog_obj, pages_obj, page1_obj;
+  pdf_buffer fontsdict_obj;
+  pdf_buffer graph_stream;
+} pdf_state;
+
+static void pdf_init_buffer(pdf_state *state, pdf_buffer *buf)
+{
+  int initial_size = 32;
+  buf->state = state;
+  buf->id = -42;
+  buf->alloc_size = 0;
+  buf->current_size = 0;
+  buf->data = (char*)malloc(initial_size);
+  buf->is_obj = 0;
+  buf->previous_buffer = NULL;
+  buf->next_buffer = NULL;
+  if (buf->data == NULL) {
+    rrd_set_error("malloc for pdf_buffer data");
+    state->has_failed = 1;
+    return;
+  }
+  buf->alloc_size = initial_size;
+  if (state->last_buffer)
+    state->last_buffer->next_buffer = buf;
+  if (state->first_buffer == NULL)
+    state->first_buffer = buf;
+  buf->previous_buffer = state->last_buffer;
+  state->last_buffer = buf;
+}
+
+static void pdf_put(pdf_buffer *buf, const char *text, int len)
+{
+  if (len <= 0)
+    return;
+  if (buf->alloc_size < buf->current_size + len) {
+    int new_size = buf->alloc_size;
+    char *new_buf;
+    while (new_size < buf->current_size + len)
+      new_size *= 4;
+    new_buf = (char*)malloc(new_size);
+    if (new_buf == NULL) {
+      rrd_set_error("re-malloc for pdf_buffer data");
+      buf->state->has_failed = 1;
+      return;
+    }
+    memcpy(new_buf, buf->data, buf->current_size);
+    free(buf->data);
+    buf->data = new_buf;
+    buf->alloc_size = new_size;
+  }
+  memcpy(buf->data + buf->current_size, text, len);
+  buf->current_size += len;
+}
+
+static void pdf_puts(pdf_buffer *buf, const char *text)
+{
+  pdf_put(buf, text, strlen(text));
+}
+
+static void pdf_indent(pdf_buffer *buf)
+{
+  pdf_puts(buf, "\t");
+}
+
+static void pdf_putsi(pdf_buffer *buf, const char *text)
+{
+  pdf_indent(buf);
+  pdf_puts(buf, text);
+}
+
+static void pdf_putint(pdf_buffer *buf, int i)
+{
+  char tmp[20];
+  sprintf(tmp, "%d", i);
+  pdf_puts(buf, tmp);
+}
+
+static void pdf_putnumber(pdf_buffer *buf, double d)
+{
+  char tmp[50];
+  svg_format_number(tmp, sizeof(tmp), d);
+  pdf_puts(buf, tmp);
+}
+
+static void pdf_put_string_contents(pdf_buffer *buf, const char *text)
+{
+    const char *p = text;
+    while (1) {
+       unsigned char ch = *(unsigned char*)p;
+       switch (ch) {
+           case 0: return;
+           case '(':
+           case ')':
+           case '\\':
+               pdf_puts(buf, "\\");
+               pdf_put(buf, p, 1);
+               break;
+           case '\n':
+               pdf_puts(buf, "\\n");
+               break;
+           case '\r':
+               pdf_puts(buf, "\\r");
+               break;
+           case '\t':
+               pdf_puts(buf, "\\t");
+               break;
+           default:
+               if (ch >= 126 || ch < 32) {
+                   char tmp[10];
+                   snprintf(tmp, sizeof(tmp), "\\%03o", ch);
+                   pdf_puts(buf, tmp);
+               } else {
+                   pdf_put(buf, p, 1);
+               }
+       }
+       p++;
+    }
+}
+
+static void pdf_init_object(pdf_state *state, pdf_buffer *buf)
+{
+  pdf_init_buffer(state, buf);
+  buf->id = ++state->last_obj_id;
+  buf->is_obj = 1;
+  buf->is_stream = 0;
+}
+
+static void pdf_init_dict(pdf_state *state, pdf_buffer *buf)
+{
+  pdf_init_object(state, buf);
+  buf->is_dict = 1;
+}
+
+static void pdf_set_color(pdf_buffer *buf, gfx_color_t color,
+       gfx_color_t *current_color, const char *op)
+{
+#if USE_PDF_FAKE_ALPHA
+   double a1, a2;
+#endif
+   /* gfx_color_t is RRGGBBAA */
+  if (*current_color == color)
+    return;
+#if USE_PDF_FAKE_ALPHA
+  a1 = (color & 255) / 255.0;
+  a2 = 1 - a1;
+#define pdf_color_calc(x) ( ((x)  & 255) / 255.0 * a1 + a2)
+#else
+#define pdf_color_calc(x) ( ((x)  & 255) / 255.0)
+#endif
+  pdf_putnumber(buf, pdf_color_calc(color >> 24));
+  pdf_puts(buf, " ");
+  pdf_putnumber(buf, pdf_color_calc(color >> 16));
+  pdf_puts(buf, " ");
+  pdf_putnumber(buf, pdf_color_calc(color >>  8));
+  pdf_puts(buf, " ");
+  pdf_puts(buf, op);
+  pdf_puts(buf, "\n");
+  *current_color = color;
+}
+
+static void pdf_set_stroke_color(pdf_buffer *buf, gfx_color_t color)
+{
+    pdf_set_color(buf, color, &buf->state->stroke_color, "RG");
+}
+
+static void pdf_set_fill_color(pdf_buffer *buf, gfx_color_t color)
+{
+    pdf_set_color(buf, color, &buf->state->fill_color, "rg");
+}
+
+static pdf_font *pdf_find_font(pdf_state *state, gfx_node_t *node)
+{
+  const char *ps_font = afm_get_font_postscript_name(node->filename);
+  pdf_font *ef;
+  for (ef = state->font_list; ef; ef = ef->next) {
+    if (!strcmp(ps_font, ef->ps_font))
+      return ef;
+  }
+  return NULL;
+}
+
+static void pdf_add_font(pdf_state *state, gfx_node_t *node)
+{
+  pdf_font *ef = pdf_find_font(state, node);
+  if (ef)
+    return;
+  ef = malloc(sizeof(pdf_font));
+  if (ef == NULL) {
+    rrd_set_error("malloc for pdf_font");
+    state->has_failed = 1;
+    return;
+  }
+  pdf_init_dict(state, &ef->obj);
+  ef->next = state->font_list;
+  ef->ps_font = afm_get_font_postscript_name(node->filename);
+  state->font_list = ef;
+  /* fonts dict */
+  pdf_putsi(&state->fontsdict_obj, "/F");
+  pdf_putint(&state->fontsdict_obj, ef->obj.id);
+  pdf_puts(&state->fontsdict_obj, " ");
+  pdf_putint(&state->fontsdict_obj, ef->obj.id);
+  pdf_puts(&state->fontsdict_obj, " 0 R\n");
+  /* fonts def */
+  pdf_putsi(&ef->obj, "/Type /Font\n");
+  pdf_putsi(&ef->obj, "/Subtype /Type1\n");
+  pdf_putsi(&ef->obj, "/Name /F");
+  pdf_putint(&ef->obj, ef->obj.id);
+  pdf_puts(&ef->obj, "\n");
+  pdf_putsi(&ef->obj, "/BaseFont /");
+  pdf_puts(&ef->obj, ef->ps_font);
+  pdf_puts(&ef->obj, "\n");
+  pdf_putsi(&ef->obj, "/Encoding /WinAnsiEncoding\n");
+  /*  'Cp1252' (this is latin 1 extended with 27 characters;
+      the encoding is also known as 'winansi')
+      http://www.lowagie.com/iText/tutorial/ch09.html */
+}
+
+static void pdf_create_fonts(pdf_state *state)
+{
+  gfx_node_t *node;
+  for (node = state->canvas->firstnode; node; node = node->next) {
+    if (node->type == GFX_TEXT)
+      pdf_add_font(state, node);
+  }
+}
+
+static void pdf_write_linearea(pdf_state *state, gfx_node_t *node)
+{
+  int i;
+  pdf_buffer *s = &state->graph_stream;
+  if (node->type == GFX_LINE) {
+    svg_dash dash_info;
+    svg_get_dash(node, &dash_info);
+    if (!svg_dash_equal(&dash_info, &state->dash)) {
+      state->dash = dash_info;
+      if (dash_info.dash_enable) {
+       pdf_puts(s, "[");
+       pdf_putnumber(s, dash_info.adjusted_on);
+       pdf_puts(s, " ");
+       pdf_putnumber(s, dash_info.adjusted_off);
+       pdf_puts(s, "] ");
+       pdf_putnumber(s, dash_info.dash_offset);
+       pdf_puts(s, " d\n");
+      } else {
+       pdf_puts(s, "[] 0 d\n");
+      }
+    }
+    pdf_set_stroke_color(s, node->color);
+    if (state->linecap != 1) {
+      pdf_puts(s, "1 j\n");
+      state->linecap = 1;
+    }
+    if (state->linejoin != 1) {
+      pdf_puts(s, "1 J\n");
+      state->linejoin = 1;
+    }
+    if (node->size != state->line_width) {
+      state->line_width = node->size;
+      pdf_putnumber(s, state->line_width);
+      pdf_puts(s, " w\n");
+    }
+  } else {
+    pdf_set_fill_color(s, node->color);
+  }
+  for (i = 0; i < node->points; i++) {
+    ArtVpath *vec = node->path + i;
+    double x = vec->x;
+    double y = state->page_height - vec->y;
+    if (node->type == GFX_AREA) {
+      x += LINEOFFSET; /* adjust for libart handling of areas */
+      y -= LINEOFFSET;
+    }
+    switch (vec->code) {
+    case ART_MOVETO_OPEN: /* fall-through */
+    case ART_MOVETO:
+      pdf_putnumber(s, x);
+      pdf_puts(s, " ");
+      pdf_putnumber(s, y);
+      pdf_puts(s, " m\n");
+      break;
+    case ART_LINETO:
+      pdf_putnumber(s, x);
+      pdf_puts(s, " ");
+      pdf_putnumber(s, y);
+      pdf_puts(s, " l\n");
+      break;
+    case ART_CURVETO: break; /* unsupported */
+    case ART_END: break; /* nop */
+    }
+  }
+  if (node->type == GFX_LINE) {
+    pdf_puts(s, node->closed_path ? "s\n" : "S\n");
+   } else {
+    pdf_puts(s, "f\n");
+   }
+}
+
+
+static void pdf_write_matrix(pdf_state *state, gfx_node_t *node, pdf_coords *g, int useTM)
+{
+       char tmp[150];
+       pdf_buffer *s = &state->graph_stream;
+       if (node->angle == 0) {
+               pdf_puts(s, "1 0 0 1 ");
+               pdf_putnumber(s, useTM ? g->tmx : g->mx);
+               pdf_puts(s, " ");
+               pdf_putnumber(s, useTM ? g->tmy : g->my);
+       } else {
+                /* can't use svg_write_number as 2 decimals is far from enough to avoid
+                       skewed text */
+               sprintf(tmp, "%f %f %f %f %f %f",
+                               g->ma, g->mb, g->mc, g->md, 
+                               useTM ? g->tmx : g->mx,
+                               useTM ? g->tmy : g->my);
+               pdf_puts(s, tmp);
+       }
+}
+
+static void pdf_write_text(pdf_state *state, gfx_node_t *node, 
+    int last_was_text, int next_is_text)
+{
+  pdf_coords g;
+  pdf_buffer *s = &state->graph_stream;
+  pdf_font *font = pdf_find_font(state, node);
+  if (font == NULL) {
+    rrd_set_error("font disappeared");
+    state->has_failed = 1;
+    return;
+  }
+  pdf_calc(state->page_height, node, &g);
+#if PDF_CALC_DEBUG
+  pdf_puts(s, "q % debug green box\n");
+  pdf_write_matrix(state, node, &g, 0);
+  pdf_puts(s, " cm\n");
+  pdf_set_fill_color(s, 0x90FF9000);
+  pdf_puts(s, "0 0.4 0 rg\n");
+  pdf_puts(s, "0 0 ");
+  pdf_putnumber(s, g.sizep.x);
+  pdf_puts(s, " ");
+  pdf_putnumber(s, g.sizep.y);
+  pdf_puts(s, " re\n");
+  pdf_puts(s, "f\n");
+  pdf_puts(s, "Q\n");
+#endif
+  pdf_set_fill_color(s, node->color);
+  if (PDF_CALC_DEBUG || !last_was_text)
+    pdf_puts(s, "BT\n");
+  if (state->font_id != font->obj.id || node->size != state->font_size) {
+    state->font_id = font->obj.id;
+    state->font_size = node->size;
+    pdf_puts(s, "/F");
+    pdf_putint(s, font->obj.id);
+    pdf_puts(s, " ");
+    pdf_putnumber(s, node->size);
+    pdf_puts(s, " Tf\n");
+  }
+  pdf_write_matrix(state, node, &g, 1);
+  pdf_puts(s, " Tm\n");
+  pdf_puts(s, "(");
+  pdf_put_string_contents(s, node->text);
+  pdf_puts(s, ") Tj\n");
+  if (PDF_CALC_DEBUG || !next_is_text)
+    pdf_puts(s, "ET\n");
+}
+static void pdf_write_content(pdf_state *state)
+{
+  gfx_node_t *node;
+  int last_was_text = 0, next_is_text;
+  for (node = state->canvas->firstnode; node; node = node->next) {
+    switch (node->type) {
+    case GFX_LINE:
+    case GFX_AREA:
+      pdf_write_linearea(state, node);
+      break;
+    case GFX_TEXT:
+      next_is_text = node->next && node->next->type == GFX_TEXT;
+      pdf_write_text(state, node, last_was_text, next_is_text);
+      break;
+    }
+    last_was_text = node->type == GFX_TEXT;
+  }
+}
+
+static void pdf_init_document(pdf_state *state)
+{
+  pdf_init_buffer(state, &state->pdf_header);
+  pdf_init_dict(state, &state->catalog_obj);
+  pdf_init_dict(state, &state->info_obj);
+  pdf_init_dict(state, &state->pages_obj);
+  pdf_init_dict(state, &state->page1_obj);
+  pdf_init_dict(state, &state->fontsdict_obj);
+  pdf_create_fonts(state);
+  if (state->has_failed)
+    return;
+  /* make stream last object in file */
+  pdf_init_object(state, &state->graph_stream);
+  state->graph_stream.is_stream = 1;
+}
+
+static void pdf_setup_document(pdf_state *state)
+{
+  const char *creator = "RRDtool " PACKAGE_VERSION " Tobias Oetiker, http://tobi.oetiker.ch";
+  /* all objects created by now, so init code can reference them */
+  /* HEADER */
+  pdf_puts(&state->pdf_header, "%PDF-1.3\n");
+  /* following 8 bit comment is recommended by Adobe for
+     indicating binary file to file transfer applications */
+  pdf_puts(&state->pdf_header, "%\xE2\xE3\xCF\xD3\n");
+  /* INFO */
+  pdf_putsi(&state->info_obj, "/Creator (");
+  pdf_put_string_contents(&state->info_obj, creator);
+  pdf_puts(&state->info_obj, ")\n");
+  /* CATALOG */
+  pdf_putsi(&state->catalog_obj, "/Type /Catalog\n");
+  pdf_putsi(&state->catalog_obj, "/Pages ");
+  pdf_putint(&state->catalog_obj, state->pages_obj.id);
+  pdf_puts(&state->catalog_obj, " 0 R\n");
+  /* PAGES */
+  pdf_putsi(&state->pages_obj, "/Type /Pages\n");
+  pdf_putsi(&state->pages_obj, "/Kids [");
+  pdf_putint(&state->pages_obj, state->page1_obj.id);
+  pdf_puts(&state->pages_obj, " 0 R]\n");
+  pdf_putsi(&state->pages_obj, "/Count 1\n");
+  /* PAGE 1 */
+  pdf_putsi(&state->page1_obj, "/Type /Page\n");
+  pdf_putsi(&state->page1_obj, "/Parent ");
+  pdf_putint(&state->page1_obj, state->pages_obj.id);
+  pdf_puts(&state->page1_obj, " 0 R\n");
+  pdf_putsi(&state->page1_obj, "/MediaBox [0 0 ");
+  pdf_putint(&state->page1_obj, state->page_width);
+  pdf_puts(&state->page1_obj, " ");
+  pdf_putint(&state->page1_obj, state->page_height);
+  pdf_puts(&state->page1_obj, "]\n");
+  pdf_putsi(&state->page1_obj, "/Contents ");
+  pdf_putint(&state->page1_obj, state->graph_stream.id);
+  pdf_puts(&state->page1_obj, " 0 R\n");
+  pdf_putsi(&state->page1_obj, "/Resources << /Font ");
+  pdf_putint(&state->page1_obj, state->fontsdict_obj.id);
+  pdf_puts(&state->page1_obj, " 0 R >>\n");
+}
+
+static void pdf_write_string_to_file(pdf_state *state, const char *text)
+{
+    fputs(text, state->fp);
+    state->pdf_file_pos += strlen(text);
+}
+
+static void pdf_write_buf_to_file(pdf_state *state, pdf_buffer *buf)
+{
+  char tmp[40];
+  buf->pdf_file_pos = state->pdf_file_pos;
+  if (buf->is_obj) {
+    snprintf(tmp, sizeof(tmp), "%d 0 obj\n", buf->id);
+    pdf_write_string_to_file(state, tmp);
+  }
+  if (buf->is_dict)
+    pdf_write_string_to_file(state, "<<\n");
+  if (buf->is_stream) {
+    snprintf(tmp, sizeof(tmp), "<< /Length %d >>\n", buf->current_size);
+    pdf_write_string_to_file(state, tmp);
+    pdf_write_string_to_file(state, "stream\n");
+  }
+  fwrite(buf->data, 1, buf->current_size, state->fp);
+  state->pdf_file_pos += buf->current_size;
+  if (buf->is_stream)
+    pdf_write_string_to_file(state, "endstream\n");
+  if (buf->is_dict)
+    pdf_write_string_to_file(state, ">>\n");
+  if (buf->is_obj)
+    pdf_write_string_to_file(state, "endobj\n");
+}
+
+static void pdf_write_to_file(pdf_state *state)
+{
+  pdf_buffer *buf = state->first_buffer;
+  int xref_pos;
+  state->pdf_file_pos = 0;
+  pdf_write_buf_to_file(state, &state->pdf_header);
+  while (buf) {
+    if (buf->is_obj)
+      pdf_write_buf_to_file(state, buf);
+    buf = buf->next_buffer;
+  }
+  xref_pos = state->pdf_file_pos;
+  fprintf(state->fp, "xref\n");
+  fprintf(state->fp, "%d %d\n", 0, state->last_obj_id + 1);
+  /* TOC lines must be exactly 20 bytes including \n */
+  fprintf(state->fp, "%010d %05d f\x20\n", 0, 65535);
+  for (buf = state->first_buffer; buf; buf = buf->next_buffer) {
+    if (buf->is_obj)
+      fprintf(state->fp, "%010d %05d n\x20\n", buf->pdf_file_pos, 0);
+  }
+  fprintf(state->fp, "trailer\n");
+  fprintf(state->fp, "<<\n");
+  fprintf(state->fp, "\t/Size %d\n", state->last_obj_id + 1);
+  fprintf(state->fp, "\t/Root %d 0 R\n", state->catalog_obj.id);
+  fprintf(state->fp, "\t/Info %d 0 R\n", state->info_obj.id);
+  fprintf(state->fp, ">>\n");
+  fprintf(state->fp, "startxref\n");
+  fprintf(state->fp, "%d\n", xref_pos);
+  fputs("%%EOF\n", state->fp);
+}
+
+static void pdf_free_resources(pdf_state *state)
+{
+  pdf_buffer *buf = state->first_buffer;
+  while (buf) {
+    free(buf->data);
+    buf->data = NULL;
+    buf->alloc_size = buf->current_size = 0;
+    buf = buf->next_buffer;
+  }
+  while (state->font_list) {
+    pdf_font *next = state->font_list->next;
+    free(state->font_list);
+    state->font_list = next;
+  }
+}
+
+int       gfx_render_pdf (gfx_canvas_t *canvas,
+                 art_u32 width, art_u32 height,
+                 gfx_color_t UNUSED(background), FILE *fp){
+  struct pdf_state state;
+  memset(&state, 0, sizeof(pdf_state));
+  state.fp = fp;
+  state.canvas = canvas;
+  state.page_width = width;
+  state.page_height = height;
+  state.font_id = -1;
+  state.font_size = -1;
+  state.font_list = NULL;
+  state.linecap = -1;
+  state.linejoin = -1;
+  pdf_init_document(&state);
+  /*
+  pdf_set_color(&state, background);
+  fprintf(fp, "0 0 M 0 %d L %d %d L %d 0 L fill\n",
+      height, width, height, width);
+  */
+  if (!state.has_failed)
+    pdf_write_content(&state);
+  if (!state.has_failed)
+    pdf_setup_document(&state);
+  if (!state.has_failed)
+    pdf_write_to_file(&state);
+  pdf_free_resources(&state);
+  return state.has_failed ? -1 : 0;
+}
+