iplotting complete - ploot - simple plotting tools	Err	bitreich.org	70
hgit clone git://bitreich.org/ploot git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/ploot	URL:git://bitreich.org/ploot git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/ploot	bitreich.org	70
1Log	/scm/ploot/log.gph	bitreich.org	70
1Files	/scm/ploot/files.gph	bitreich.org	70
1Refs	/scm/ploot/refs.gph	bitreich.org	70
1Tags	/scm/ploot/tag	bitreich.org	70
1README	/scm/ploot/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/ploot/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit df6b2deeefb42f4102a9bba819e7d06d15a3aebf	/scm/ploot/commit/df6b2deeefb42f4102a9bba819e7d06d15a3aebf.gph	bitreich.org	70
1parent 980b7ae7316438998c953a8e098d894aec001c57	/scm/ploot/commit/980b7ae7316438998c953a8e098d894aec001c57.gph	bitreich.org	70
hAuthor: Josuah Demangeon <mail@josuah.net>	URL:mailto:mail@josuah.net	bitreich.org	70
iDate:   Tue,  1 May 2018 18:35:48 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iplotting complete	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M Makefile                            |       5 +++--	Err	bitreich.org	70
i  M ffdraw.c                            |      56 +++++++++++++++++++++++--------	Err	bitreich.org	70
i  M ffdraw.h                            |      27 +++++++++++++++++++++------	Err	bitreich.org	70
i  M main.c                              |     295 +++++++++++++++++++++++--------	Err	bitreich.org	70
i  M ploot.c                             |      34 ++++++++++++++++----------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i5 files changed, 308 insertions(+), 109 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/Makefile b/Makefile	/scm/ploot/file/Makefile.gph	bitreich.org	70
i@@ -1,13 +1,14 @@	Err	bitreich.org	70
i CFLAGS        = -Wall -Wextra -Werror -std=c89 -pedantic -D_POSIX_C_SOURCE=200809L	Err	bitreich.org	70
i+LDFLAGS = -static	Err	bitreich.org	70
i 	Err	bitreich.org	70
i SRC = main.c ffdraw.c font_14x7.c	Err	bitreich.org	70
i-	Err	bitreich.org	70
i OBJ = $(SRC:.c=.o)	Err	bitreich.org	70
i+LIB = -lm	Err	bitreich.org	70
i 	Err	bitreich.org	70
i all:x ploot	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ploot: $(OBJ)	Err	bitreich.org	70
i-        ${CC} -static -o $@ $(OBJ)	Err	bitreich.org	70
i+        ${CC} $(LDFLAGS) -o $@ $(OBJ) $(LIB)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i install:x ploot	Err	bitreich.org	70
i         mkdir -p ${PREFIX}/bin	Err	bitreich.org	70
1diff --git a/ffdraw.c b/ffdraw.c	/scm/ploot/file/ffdraw.c.gph	bitreich.org	70
i@@ -12,27 +12,25 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i #include "ffdraw.h"	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#define WIDTH 100	Err	bitreich.org	70
i-#define HEIGHT 100	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-Color buffer[WIDTH * HEIGHT];	Err	bitreich.org	70
i-	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i  * Convert (x,y) coordinates to (row,col) for printing into the buffer.	Err	bitreich.org	70
i  * The buffer only contain one number, so the coordinate is a single integer:	Err	bitreich.org	70
i  *        width * x + y.	Err	bitreich.org	70
i+ * The coordinates are shifted by offx and offy to permit relative coordinates.	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-ffdraw_pixel(Canvas *can, Color col,	Err	bitreich.org	70
i+ffdraw_pixel(Canvas *can, Color *col,	Err	bitreich.org	70
i         int x, int y)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        if (x >= can->h || y >= can->w)	Err	bitreich.org	70
i+        x += can->x;	Err	bitreich.org	70
i+        y += can->y;	Err	bitreich.org	70
i+        if (x < 0 || x >= can->h || y < 0 || y >= can->w)	Err	bitreich.org	70
i                 return;	Err	bitreich.org	70
i         memcpy(can->b + can->w * (can->h - 1 - x) + y, col, sizeof(*can->b));	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-ffdraw_rectangle(Canvas *can, Color col,	Err	bitreich.org	70
i+ffdraw_rectangle(Canvas *can, Color *col,	Err	bitreich.org	70
i         int x1, int y1,	Err	bitreich.org	70
i         int x2, int y2)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i@@ -50,7 +48,7 @@ ffdraw_rectangle(Canvas *can, Color col,	Err	bitreich.org	70
i  * From Bresenham's line algorithm and dcat's tplot.	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-ffdraw_line(Canvas *can, Color col,	Err	bitreich.org	70
i+ffdraw_line(Canvas *can, Color *col,	Err	bitreich.org	70
i         int x0, int y0,	Err	bitreich.org	70
i         int x1, int y1)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i@@ -81,18 +79,18 @@ ffdraw_line(Canvas *can, Color col,	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i- * Draw a coloured glyph from font f centerd on x, y	Err	bitreich.org	70
i+ * Draw a coloured glyph from font f centered on x.	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-ffdraw_char(Canvas *can, Color col, char c, Font *f,	Err	bitreich.org	70
i+ffdraw_char(Canvas *can, Color *col, char c, Font *f,	Err	bitreich.org	70
i         int x, int y)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         int xf, yf;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         if (c & 0x80)	Err	bitreich.org	70
i                 c = '\0';	Err	bitreich.org	70
i+	Err	bitreich.org	70
i         x -= f->h / 2;	Err	bitreich.org	70
i-        y -= f->w / 2;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         for (xf = 0; xf < f->h; xf++)	Err	bitreich.org	70
i                 for (yf = 0; yf < f->w; yf++)	Err	bitreich.org	70
i@@ -104,15 +102,45 @@ ffdraw_char(Canvas *can, Color col, char c, Font *f,	Err	bitreich.org	70
i  * Draw a left aligned string without wrapping it.	Err	bitreich.org	70
i  */	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-ffdraw_str(Canvas *can, Color col, char *s, Font *f,	Err	bitreich.org	70
i+ffdraw_str_left(Canvas *can, Color *col, char *s, Font *f,	Err	bitreich.org	70
i         int x, int y)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         for (; *s != '\0'; y += f->w, s++)	Err	bitreich.org	70
i                 ffdraw_char(can, col, *s, f, x, y);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+/*	Err	bitreich.org	70
i+ * Draw a center aligned string without wrapping it.	Err	bitreich.org	70
i+ */	Err	bitreich.org	70
i+void	Err	bitreich.org	70
i+ffdraw_str_center(Canvas *can, Color *col, char *s, Font *f,	Err	bitreich.org	70
i+        int x, int y)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        y -= f->w * strlen(s) / 2;	Err	bitreich.org	70
i+        ffdraw_str_left(can, col, s, f, x, y);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+/*	Err	bitreich.org	70
i+ * Draw a right aligned string without wrapping it.	Err	bitreich.org	70
i+ */	Err	bitreich.org	70
i+void	Err	bitreich.org	70
i+ffdraw_str_right(Canvas *can, Color *col, char *s, Font *f,	Err	bitreich.org	70
i+        int x, int y)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        y -= f->w * strlen(s);	Err	bitreich.org	70
i+        ffdraw_str_left(can, col, s, f, x, y);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-ffdraw_fill(Canvas *can, Color col)	Err	bitreich.org	70
i+ffdraw_fill(Canvas *can, Color *col)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i+        int x, y;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        x = can->x;        can->x = 0;	Err	bitreich.org	70
i+        y = can->y;        can->y = 0;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i         ffdraw_rectangle(can, col, 0, 0, can->h - 1, can->w - 1);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        can->x = x;	Err	bitreich.org	70
i+        can->y = y;	Err	bitreich.org	70
i }	Err	bitreich.org	70
1diff --git a/ffdraw.h b/ffdraw.h	/scm/ploot/file/ffdraw.h.gph	bitreich.org	70
i@@ -1,3 +1,5 @@	Err	bitreich.org	70
i+#include <time.h>	Err	bitreich.org	70
i+	Err	bitreich.org	70
i #define MIN(x, y) ((x) < (y) ? (x) : (y))	Err	bitreich.org	70
i #define MAX(x, y) ((x) > (y) ? (x) : (y))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -7,6 +9,8 @@ typedef struct {	Err	bitreich.org	70
i         int w;                /* width */	Err	bitreich.org	70
i         int h;                /* height */	Err	bitreich.org	70
i         Color *b;        /* buffer */	Err	bitreich.org	70
i+        int x;                /* x offset */	Err	bitreich.org	70
i+        int y;                /* x offset */	Err	bitreich.org	70
i } Canvas;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i typedef struct {	Err	bitreich.org	70
i@@ -15,10 +19,21 @@ typedef struct {	Err	bitreich.org	70
i         char *b[128];        /* buffer */	Err	bitreich.org	70
i } Font;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+typedef struct {	Err	bitreich.org	70
i+        Color col;        /* for drawing the curve and the legend */	Err	bitreich.org	70
i+/*        time_t *t;        / * array of timestamps */	Err	bitreich.org	70
i+        double *v;        /* array of values */	Err	bitreich.org	70
i+        int n;                /* number of values */	Err	bitreich.org	70
i+        time_t step;	Err	bitreich.org	70
i+        char *name;        /* for the legend */	Err	bitreich.org	70
i+} Vlist;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i /* ffdraw.c */	Err	bitreich.org	70
i-void                 ffdraw_pixel        (Canvas *, Color, int, int);	Err	bitreich.org	70
i-void                 ffdraw_rectangle(Canvas *, Color, int, int, int, int);	Err	bitreich.org	70
i-void                 ffdraw_line        (Canvas *, Color, int, int, int, int);	Err	bitreich.org	70
i-void                 ffdraw_char        (Canvas *, Color, char, Font *, int, int);	Err	bitreich.org	70
i-void                 ffdraw_str        (Canvas *, Color, char *, Font *, int, int);	Err	bitreich.org	70
i-void                 ffdraw_fill        (Canvas *, Color);	Err	bitreich.org	70
i+void                 ffdraw_pixel        (Canvas *, Color *, int, int);	Err	bitreich.org	70
i+void                 ffdraw_rectangle(Canvas *, Color *, int, int, int, int);	Err	bitreich.org	70
i+void                 ffdraw_line        (Canvas *, Color *, int, int, int, int);	Err	bitreich.org	70
i+void                 ffdraw_char        (Canvas *, Color *, char, Font *, int, int);	Err	bitreich.org	70
i+void                 ffdraw_str_left(Canvas *, Color *, char *, Font *, int, int);	Err	bitreich.org	70
i+void                 ffdraw_str_center(Canvas *, Color *, char *, Font *, int, int);	Err	bitreich.org	70
i+void                 ffdraw_str_right(Canvas *, Color *, char *, Font *, int, int);	Err	bitreich.org	70
i+void                 ffdraw_fill        (Canvas *, Color *);	Err	bitreich.org	70
1diff --git a/main.c b/main.c	/scm/ploot/file/main.c.gph	bitreich.org	70
i@@ -1,134 +1,289 @@	Err	bitreich.org	70
i #include <arpa/inet.h>	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#include <stdlib.h>	Err	bitreich.org	70
i #include <stdio.h>	Err	bitreich.org	70
i+#include <stdlib.h>	Err	bitreich.org	70
i+#include <string.h>	Err	bitreich.org	70
i #include <time.h>	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+#include <math.h>	Err	bitreich.org	70
i+	Err	bitreich.org	70
i #include "ffdraw.h"	Err	bitreich.org	70
i #include "font_14x7.h"	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+#define ABS(x) ((x) < 0 ? -(x) : (x))	Err	bitreich.org	70
i+#define LEN(x) (sizeof(x) / sizeof(*x))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+/*	Err	bitreich.org	70
i+ * Sizes and positions:	Err	bitreich.org	70
i+ *	Err	bitreich.org	70
i+ *         Title on the first row    legend	Err	bitreich.org	70
i+ *             y ^                    here	Err	bitreich.org	70
i+ *         label |- + - + - + - + -   with	Err	bitreich.org	70
i+ *          here |- + - + - + - + -   the	Err	bitreich.org	70
i+ *               +--+---+---+---+-->  full	Err	bitreich.org	70
i+ *                x label here        height	Err	bitreich.org	70
i+ */	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#define MARGIN 4	Err	bitreich.org	70
i+	Err	bitreich.org	70
i #define FONT_H 14	Err	bitreich.org	70
i #define FONT_W 7	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-/* as you see, no css skills needed */	Err	bitreich.org	70
i+#define TITLE_X (IMAGE_H - TITLE_H)	Err	bitreich.org	70
i+#define TITLE_Y (XLABEL_W)	Err	bitreich.org	70
i+#define TITLE_H (FONT_H * 2)	Err	bitreich.org	70
i+#define TITLE_W (PLOT_W)	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#define XLABEL_X (PLOT_X)	Err	bitreich.org	70
i+#define XLABEL_Y (0)	Err	bitreich.org	70
i+#define XLABEL_H (PLOT_H)	Err	bitreich.org	70
i+#define XLABEL_W (FONT_W * 9 + MARGIN)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#define MARGIN 2	Err	bitreich.org	70
i+#define YLABEL_X (0)	Err	bitreich.org	70
i+#define YLABEL_Y (PLOT_Y)	Err	bitreich.org	70
i+#define YLABEL_H (FONT_H * 2)	Err	bitreich.org	70
i+#define YLABEL_W (PLOT_W)	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#define PLOT_X (YLABEL_H)	Err	bitreich.org	70
i+#define PLOT_Y (XLABEL_W)	Err	bitreich.org	70
i+#define PLOT_W 700	Err	bitreich.org	70
i+#define PLOT_H 200	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#define LEGEND_X (YLABEL_H)	Err	bitreich.org	70
i+#define LEGEND_Y (IMAGE_W - LEGEND_W)	Err	bitreich.org	70
i+#define LEGEND_W (FONT_W + 150 + FONT_W)	Err	bitreich.org	70
i+#define LEGEND_H (PLOT_H)	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+#define IMAGE_H (TITLE_H + PLOT_H + YLABEL_H)	Err	bitreich.org	70
i+#define IMAGE_W (XLABEL_W + PLOT_W + LEGEND_W)	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+Color buffer[IMAGE_W * IMAGE_H];	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+Color c_axis = { 0xffff, 0xffff, 0xffff, 0xfff };	Err	bitreich.org	70
i+Font *font = &font_14x7;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-/* height */	Err	bitreich.org	70
i+int	Err	bitreich.org	70
i+ffplot_t2y(time_t t, time_t tmin, time_t tmax)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        return (t - tmin) * PLOT_W / (tmax - tmin);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#define TITLE_H (MARGIN + FONT_H + MARGIN)	Err	bitreich.org	70
i-#define PLOT_H 100	Err	bitreich.org	70
i-#define XLABEL_H (MARGIN + FONT_H + MARGIN)	Err	bitreich.org	70
i+int	Err	bitreich.org	70
i+ffplot_v2x(double v, double vmin, double vmax)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        return (v - vmin) * PLOT_H / (vmax - vmin);	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#define IMAGE_H (TITLE_H + PLOT_H + XLABEL_H)	Err	bitreich.org	70
i+/*	Err	bitreich.org	70
i+ * Set 'str' to a human-readable form of 'num' with always a width of 8 (+ 1	Err	bitreich.org	70
i+ * the '\0' terminator).  Buffer overflow is ensured not to happen due to the	Err	bitreich.org	70
i+ * max size of a double.  Return the exponent.	Err	bitreich.org	70
i+ */	Err	bitreich.org	70
i+int	Err	bitreich.org	70
i+humanize(char *str, double val)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        int exp, precision;	Err	bitreich.org	70
i+        char label[] = { '\0', 'M', 'G', 'T', 'E' };	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#define TITLE_MAX (IMAGE_H)	Err	bitreich.org	70
i-#define TITLE_MIN (IMAGE_H - TITLE_H)	Err	bitreich.org	70
i-#define PLOT_X_MAX (IMAGE_H - TITLE_H)	Err	bitreich.org	70
i-#define PLOT_X_MIN (XLABEL_H)	Err	bitreich.org	70
i-#define XLABEL_MAX (XLABEL_H)	Err	bitreich.org	70
i-#define XLABEL_MIN (0)	Err	bitreich.org	70
i+        for (exp = 0; ABS(val) > 1000; exp++)	Err	bitreich.org	70
i+                val /= 1000;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-/* width */	Err	bitreich.org	70
i+        precision = (ABS(val) < 10) ? 2 : (ABS(val) < 100) ? 1 : 0;	Err	bitreich.org	70
i+        precision += (exp == 0);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#define YLABEL_W (MARGIN + 20 + MARGIN)	Err	bitreich.org	70
i-#define PLOT_W 500	Err	bitreich.org	70
i-#define LEGEND_W (MARGIN + 70 + MARGIN)	Err	bitreich.org	70
i+        snprintf(str, 9, "%+.*f %c", precision, val, label[exp]);	Err	bitreich.org	70
i+        str[8] = '\0';	Err	bitreich.org	70
i+        if (val >= 0)	Err	bitreich.org	70
i+                str[0] = ' ';	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#define IMAGE_W (YLABEL_W + PLOT_W + LEGEND_W)	Err	bitreich.org	70
i+        return exp * 3;	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#define LEGEND_MAX (IMAGE_W)	Err	bitreich.org	70
i-#define LEGEND_MIN (IMAGE_W - LEGEND_W)	Err	bitreich.org	70
i-#define PLOT_Y_MAX (IMAGE_W - LEGEND_W)	Err	bitreich.org	70
i-#define PLOT_Y_MIN (YLABEL_W)	Err	bitreich.org	70
i-#define YLABEL_MAX (YLABEL_W)	Err	bitreich.org	70
i-#define YLABEL_MIN (0)	Err	bitreich.org	70
i+void	Err	bitreich.org	70
i+ffplot_xaxis(Canvas *can, Color *label, Color *grid,	Err	bitreich.org	70
i+        double vmin, double vmax, double vstep)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        double v;	Err	bitreich.org	70
i+        int x;	Err	bitreich.org	70
i+        char str[8 + 1];	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-#define MID(x, y) ((x - y) / 2)	Err	bitreich.org	70
i+        for (v = vmax - fmod(vmax, vstep); v >= vmin; v -= vstep) {	Err	bitreich.org	70
i+                x = ffplot_v2x(v, vmin, vmax);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-Color buffer[IMAGE_W * IMAGE_H];	Err	bitreich.org	70
i+                ffdraw_line(can, grid,	Err	bitreich.org	70
i+                        x, XLABEL_W,	Err	bitreich.org	70
i+                        x, XLABEL_W + PLOT_W);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-Color c_axis = { 0xffff, 0xffff, 0xffff, 0xfff };	Err	bitreich.org	70
i-Font *font = &font_14x7;	Err	bitreich.org	70
i+                humanize(str, v);	Err	bitreich.org	70
i+                ffdraw_str_right(can, label, str, font,	Err	bitreich.org	70
i+                        x, XLABEL_W - MARGIN);	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-ffplot_xaxis(Canvas *can, Color label, Color grid, time_t tmax, time_t tstep)	Err	bitreich.org	70
i+ffplot_yaxis(Canvas *can, Color *label, Color *grid,	Err	bitreich.org	70
i+        time_t tmin, time_t tmax, time_t tstep)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         time_t t;	Err	bitreich.org	70
i-        int y, ystep;	Err	bitreich.org	70
i+        int y;	Err	bitreich.org	70
i         char str[sizeof("YYYY/MM/DD")], *fmt;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        if (tstep < 3600) {	Err	bitreich.org	70
i-                fmt = " %H:%M:%S ";	Err	bitreich.org	70
i-                ystep = sizeof(" HH:MM:SS ") * FONT_W;	Err	bitreich.org	70
i-        } else {	Err	bitreich.org	70
i-                fmt = " %Y/%m/%d ";	Err	bitreich.org	70
i-                ystep = sizeof(" YYYY/MM/DD ") * FONT_W;	Err	bitreich.org	70
i-        }	Err	bitreich.org	70
i+        fmt = (tstep < 3600 * 24) ? " %H:%M:%S " : " %Y/%m/%d ";	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        t = tmax % tstep;	Err	bitreich.org	70
i-        y = PLOT_Y_MAX + PLOT_W % ystep - ystep;	Err	bitreich.org	70
i+        for (t = tmax - tmax % tstep; t >= tmin; t -= tstep) {	Err	bitreich.org	70
i+                y = ffplot_t2y(t, tmin, tmax);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        while (y > PLOT_Y_MIN) {	Err	bitreich.org	70
i-                strftime(str, sizeof(str), fmt, localtime(&t));	Err	bitreich.org	70
i-                ffdraw_str(can, label, str, font,	Err	bitreich.org	70
i-                        XLABEL_MIN + XLABEL_H / 2, y - ystep / 2 + FONT_W);	Err	bitreich.org	70
i                 ffdraw_line(can, grid,	Err	bitreich.org	70
i-                        PLOT_X_MIN, y,	Err	bitreich.org	70
i-                        PLOT_X_MAX, y);	Err	bitreich.org	70
i-                y -= ystep;	Err	bitreich.org	70
i-                t -= tstep;	Err	bitreich.org	70
i+                        YLABEL_H, y,	Err	bitreich.org	70
i+                        YLABEL_H + PLOT_H, y);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                strftime(str, sizeof(str), fmt, localtime(&t));	Err	bitreich.org	70
i+                ffdraw_str_center(can, label, str, font,	Err	bitreich.org	70
i+                        YLABEL_H / 2, y);	Err	bitreich.org	70
i         }	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-ffplot_(Canvas *can)	Err	bitreich.org	70
i+ffplot_title(Canvas *can,	Err	bitreich.org	70
i+        Color *ct, char *title,	Err	bitreich.org	70
i+        Color *cu, char *unit)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        (void)can;	Err	bitreich.org	70
i+        ffdraw_str_left(can, ct, title, font,	Err	bitreich.org	70
i+                TITLE_H / 2, 0);	Err	bitreich.org	70
i+        ffdraw_str_right(can, cu, unit, font,	Err	bitreich.org	70
i+                TITLE_H / 2, TITLE_W);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-ffplot_graph(Canvas *can)	Err	bitreich.org	70
i+ffplot_graph(Canvas *can, Vlist *v,	Err	bitreich.org	70
i+        double vmin, double vmax,	Err	bitreich.org	70
i+        time_t tmin, time_t tmax)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        (void)can;	Err	bitreich.org	70
i+        time_t t;	Err	bitreich.org	70
i+        double *vp;	Err	bitreich.org	70
i+        int x, y, n, xlast, ylast, first;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        first = 1;	Err	bitreich.org	70
i+        t = tmin;	Err	bitreich.org	70
i+        for (vp = v->v, n = v->n; n-- > 0; n--, vp++) {	Err	bitreich.org	70
i+                x = ffplot_v2x(*vp, vmin, vmax);	Err	bitreich.org	70
i+                y = ffplot_t2y(t, tmin, tmax);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                if (!first)	Err	bitreich.org	70
i+                        ffdraw_line(can, &v->col, xlast, ylast, x, y);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                xlast = x;	Err	bitreich.org	70
i+                ylast = y;	Err	bitreich.org	70
i+                t += v->step;	Err	bitreich.org	70
i+                first = 0;	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i-ffplot_legend(Canvas *can)	Err	bitreich.org	70
i+ffplot_plot(Canvas *can, Vlist **v,	Err	bitreich.org	70
i+        double vmin, double vmax,	Err	bitreich.org	70
i+        time_t tmin, time_t tmax)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        (void)can;	Err	bitreich.org	70
i+        for (; *v != NULL; v++)	Err	bitreich.org	70
i+                ffplot_graph(can, *v, vmin, vmax, tmin, tmax);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-static void	Err	bitreich.org	70
i-ffdraw(Canvas *can)	Err	bitreich.org	70
i+void	Err	bitreich.org	70
i+ffplot_legend(Canvas *can, Color *label_fg, Vlist **v)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i-        Color col1 = { 0x2222, 0x2222, 0x2222, 0xffff };	Err	bitreich.org	70
i-        Color label = { 0x3333, 0xffff, 0x8888, 0xffff };	Err	bitreich.org	70
i-        Color grid = { 0x4444, 0x4444, 0x4444, 0xffff };	Err	bitreich.org	70
i+        int n, x, y;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        ffdraw_fill(can, col1);	Err	bitreich.org	70
i-        ffplot_xaxis(can, label, grid, 3600 * 24 * 30, 360);	Err	bitreich.org	70
i-/*	Err	bitreich.org	70
i-        ffdraw_line(can, col2, 49,1,9,79);	Err	bitreich.org	70
i-        ffdraw_str(can, col2, "R\\S`T'UaVbWcYdZe\nfghb\tjoi\rklmnopqrstuvwxyz{|}", font, 44, 10);	Err	bitreich.org	70
i-*/	Err	bitreich.org	70
i+        for (n = 0; *v != NULL; v++, n++) {	Err	bitreich.org	70
i+                x = LEGEND_H - n * (FONT_H + MARGIN) - FONT_H / 2;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                y = MARGIN + FONT_W;	Err	bitreich.org	70
i+                ffdraw_str_left(can, &(*v)->col, "\1", font, x, y);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+                y += FONT_W * 2;	Err	bitreich.org	70
i+                ffdraw_str_left(can, label_fg, (*v)->name, font, x, y);	Err	bitreich.org	70
i+        }	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+void	Err	bitreich.org	70
i+ffdraw(Canvas *can, char *title, char *units, Vlist **vlistv,	Err	bitreich.org	70
i+        double vmin, double vmax, double vstep,	Err	bitreich.org	70
i+        time_t tmin, time_t tmax, time_t tstep)	Err	bitreich.org	70
i+{	Err	bitreich.org	70
i+        Color plot_bg        = { 0x2222, 0x2222, 0x2222, 0xffff };	Err	bitreich.org	70
i+        Color grid_bg        = { 0x2929, 0x2929, 0x2929, 0xffff };	Err	bitreich.org	70
i+        Color grid_fg        = { 0x3737, 0x3737, 0x3737, 0xffff };	Err	bitreich.org	70
i+        Color label_fg        = { 0x8888, 0x8888, 0x8888, 0xffff };	Err	bitreich.org	70
i+        Color title_fg        = { 0xdddd, 0xdddd, 0xdddd, 0xffff };	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        can->x = 0;	Err	bitreich.org	70
i+        can->y = 0;	Err	bitreich.org	70
i+        ffdraw_fill(can, &plot_bg);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        can->x = PLOT_X;	Err	bitreich.org	70
i+        can->y = PLOT_Y;	Err	bitreich.org	70
i+        ffdraw_rectangle(can, &grid_bg, 0, 0, PLOT_H, PLOT_W);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        can->x = YLABEL_X;	Err	bitreich.org	70
i+        can->y = YLABEL_Y;	Err	bitreich.org	70
i+        ffplot_yaxis(can, &label_fg, &grid_fg, tmin, tmax, tstep);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        can->x = XLABEL_X;	Err	bitreich.org	70
i+        can->y = XLABEL_Y;	Err	bitreich.org	70
i+        ffplot_xaxis(can, &label_fg, &grid_fg, vmin, vmax, vstep);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        can->x = TITLE_X;	Err	bitreich.org	70
i+        can->y = TITLE_Y;	Err	bitreich.org	70
i+        ffplot_title(can, &title_fg, title, &label_fg, units);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        can->x = PLOT_X;	Err	bitreich.org	70
i+        can->y = PLOT_Y;	Err	bitreich.org	70
i+        ffplot_plot(can, vlistv, vmin, vmax, tmin, tmax);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        can->x = LEGEND_X;	Err	bitreich.org	70
i+        can->y = LEGEND_Y;	Err	bitreich.org	70
i+        ffplot_legend(can, &label_fg, vlistv);	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i int	Err	bitreich.org	70
i main(void)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i+        Canvas can = { IMAGE_W, IMAGE_H, buffer, 0, 0 };	Err	bitreich.org	70
i+        double v1[] = { 0.1, 30, -3, 42, 559, 343, 10, 345, 0 };	Err	bitreich.org	70
i+        double v2[] = { 30, -3, 42, 559, 343, 10, 345, 0, 0.3 };	Err	bitreich.org	70
i+        double v3[] = { 0, 0.3, 30, -3, 42, 5, 43, 345, 0, 10,	Err	bitreich.org	70
i+                0.3, 30, -3, 42, 59, 33, 35, 0, 40, 0.3, 30,	Err	bitreich.org	70
i+                0.3, 30, -3, 42, 55, 3, 5, 0, 100, 0.3, 30,	Err	bitreich.org	70
i+                95, 43, 45, 0, 40, 0.3, 30, 0.3, 30, -3, 42,	Err	bitreich.org	70
i+                0.3, 30, -3, 42, 5, 43, 3, 0, 100, 0.3, 30,	Err	bitreich.org	70
i+                0.3, 30, -3, 42, 59, 43, 45, 0, 4, 0.3, 30,	Err	bitreich.org	70
i+                -3, 42, 559, 343, 45, 0, 10 };	Err	bitreich.org	70
i+        Vlist vl1 = { { 0x0000, 0xffff, 0xdddd, 0xffff }, NULL, LEN(v1), 500, "available ravens" };	Err	bitreich.org	70
i+        Vlist vl2 = { { 0xffff, 0x9999, 0x4444, 0xffff }, NULL, LEN(v2), 500, "used ravens" };	Err	bitreich.org	70
i+        Vlist vl3 = { { 0x1111, 0xffff, 0x5555, 0xffff }, NULL, LEN(v3), 57,  "free ravens" };	Err	bitreich.org	70
i+        Vlist *vlistv[] = { NULL, NULL, NULL, NULL };	Err	bitreich.org	70
i+        double vmin, vmax, vstep;	Err	bitreich.org	70
i+        time_t tmin, tmax, tstep;	Err	bitreich.org	70
i         uint32_t w, h;	Err	bitreich.org	70
i-        Canvas can;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        can.b = buffer;	Err	bitreich.org	70
i-        can.w = IMAGE_W;	Err	bitreich.org	70
i-        can.h = IMAGE_H;	Err	bitreich.org	70
i+        vlistv[0] = &vl1; vl1.v = v1;	Err	bitreich.org	70
i+        vlistv[1] = &vl2; vl2.v = v2;	Err	bitreich.org	70
i+        vlistv[2] = &vl3; vl3.v = v3;	Err	bitreich.org	70
i+        vlistv[3] = NULL;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        vmin = -30; vmax =  700; vstep = 120;	Err	bitreich.org	70
i+        tmin =   0; tmax = 2000; tstep = 300;	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        ffdraw(&can, "Council of the ravens", "(feather per second)", vlistv,	Err	bitreich.org	70
i+                vmin, vmax, vstep,	Err	bitreich.org	70
i+                tmin, tmax, tstep);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i         w = htonl(IMAGE_W);	Err	bitreich.org	70
i         h = htonl(IMAGE_H);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i         fputs("farbfeld", stdout);	Err	bitreich.org	70
i         fwrite(&w, sizeof(w), 1, stdout);	Err	bitreich.org	70
i         fwrite(&h, sizeof(h), 1, stdout);	Err	bitreich.org	70
i-        ffdraw(&can);	Err	bitreich.org	70
i         fwrite(can.b, IMAGE_W * IMAGE_H, sizeof(*can.b), stdout);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i         return 0;	Err	bitreich.org	70
i }	Err	bitreich.org	70
1diff --git a/ploot.c b/ploot.c	/scm/ploot/file/ploot.c.gph	bitreich.org	70
i@@ -17,7 +17,7 @@	Err	bitreich.org	70
i char *argv0;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i-** Add `val' at the current position `pos' of the `ring' buffer and set pos to	Err	bitreich.org	70
i+** Add 'val' at the current position 'pos' of the 'ring' buffer and set pos to	Err	bitreich.org	70
i ** the next postion.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i #define RING_ADD(rbuf, len, pos, val)                                        \	Err	bitreich.org	70
i@@ -27,8 +27,8 @@ do {                                                                        \	Err	bitreich.org	70
i } while (0)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i-** Copy the ring buffer `rbuf' content with current position `pos' into the	Err	bitreich.org	70
i-** buffer `buf'.  Both buffer of length `len'.	Err	bitreich.org	70
i+** Copy the ring buffer 'rbuf' content with current position 'pos' into the	Err	bitreich.org	70
i+** buffer 'buf'.  Both buffer of length 'len'.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i #define RING_COPY(buf, rbuf, len, pos)                                        \	Err	bitreich.org	70
i do {                                                                        \	Err	bitreich.org	70
i@@ -44,7 +44,7 @@ char        *tflag = NULL;	Err	bitreich.org	70
i time_t        oflag = 0;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i-** Set `str' to a human-readable form of `num' with always a width of 7 (+ 1	Err	bitreich.org	70
i+** Set 'str' to a human-readable form of 'num' with always a width of 7 (+ 1	Err	bitreich.org	70
i ** the '\0' terminator).  Buffer overflow is ensured not to happen due to the	Err	bitreich.org	70
i ** max size of a double.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i@@ -67,7 +67,7 @@ humanize(char *str, double val)	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i-** Returns the maximal double of values between `beg' and `end'.	Err	bitreich.org	70
i+** Returns the maximal double of values between 'beg' and 'end'.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i double	Err	bitreich.org	70
i maxdv(double *beg, double *end)	Err	bitreich.org	70
i@@ -83,7 +83,7 @@ maxdv(double *beg, double *end)	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i-** If not null, print the title `str' centered on width.	Err	bitreich.org	70
i+** If not null, print the title 'str' centered on width.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i void	Err	bitreich.org	70
i title(char *str, int width)	Err	bitreich.org	70
i@@ -95,7 +95,7 @@ title(char *str, int width)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i ** Print vertical axis with humanized number from time to time, with occurences	Err	bitreich.org	70
i-** determined after the position on the vertical axis from the bottom `pos'.	Err	bitreich.org	70
i+** determined after the position on the vertical axis from the bottom 'pos'.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i void	Err	bitreich.org	70
i vaxis(double val, int pos)	Err	bitreich.org	70
i@@ -111,7 +111,7 @@ vaxis(double val, int pos)	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i-** Print horizontal axis for up to `col' values along with dates if reading time	Err	bitreich.org	70
i+** Print horizontal axis for up to 'col' values along with dates if reading time	Err	bitreich.org	70
i ** series.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i void	Err	bitreich.org	70
i@@ -152,8 +152,8 @@ line(double *beg, double *end, double top, double bot)	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i-** Plot values between `beg' and `end' in a plot of height `height'.	Err	bitreich.org	70
i-** If `str' is not NULL, it is set as a title above the graph.	Err	bitreich.org	70
i+** Plot values between 'beg' and 'end' in a plot of height 'height'.	Err	bitreich.org	70
i+** If 'str' is not NULL, it is set as a title above the graph.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i void	Err	bitreich.org	70
i plot(double *beg, double *end, int height, char *str, time_t start)	Err	bitreich.org	70
i@@ -181,8 +181,8 @@ plot(double *beg, double *end, int height, char *str, time_t start)	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i-** Read a simple format with one double per line and save the last `MAX_WIDTH'	Err	bitreich.org	70
i-** values into `buf' which must be at least MAX_VAL wide and return a pointer	Err	bitreich.org	70
i+** Read a simple format with one double per line and save the last 'MAX_WIDTH'	Err	bitreich.org	70
i+** values into 'buf' which must be at least MAX_VAL wide and return a pointer	Err	bitreich.org	70
i ** to the last element or NULL if the input contains error.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i double *	Err	bitreich.org	70
i@@ -203,8 +203,8 @@ read_simple(double buf[MAX_VAL])	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i ** Read a format with blank separated time_t-double pairs, one per line and save	Err	bitreich.org	70
i-** the last `MAX_WIDTH' values into `tbuf' and `vbuf' which must both be at	Err	bitreich.org	70
i-** least MAX_VAL wide and return a pointer to the last element of `vbuf' or	Err	bitreich.org	70
i+** the last 'MAX_WIDTH' values into 'tbuf' and 'vbuf' which must both be at	Err	bitreich.org	70
i+** least MAX_VAL wide and return a pointer to the last element of 'vbuf' or	Err	bitreich.org	70
i ** NULL if the input contains error.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i time_t *	Err	bitreich.org	70
i@@ -229,8 +229,8 @@ read_time_series(double *vbuf, time_t *tbuf)	Err	bitreich.org	70
i }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i /*	Err	bitreich.org	70
i-** Walk from `tbeg' and `tend' and add offset in `tbuf' every time there is no	Err	bitreich.org	70
i-** value in `step' amount of time, by setting a value to -1.	Err	bitreich.org	70
i+** Walk from 'tbeg' and 'tend' and add offset in 'tbuf' every time there is no	Err	bitreich.org	70
i+** value in 'step' amount of time, by setting a value to -1.	Err	bitreich.org	70
i */	Err	bitreich.org	70
i double *	Err	bitreich.org	70
i skip_gaps(time_t *tbeg, time_t *tend, double *vbuf, time_t step)	Err	bitreich.org	70
i@@ -246,7 +246,7 @@ skip_gaps(time_t *tbeg, time_t *tend, double *vbuf, time_t step)	Err	bitreich.org	70
i                 toff += *tp % step;	Err	bitreich.org	70
i         toff = *tbeg + toff / (tend - tbeg) + step / 2;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        /* Fill `vbuf' with gap added at each time gap using vrbuf as	Err	bitreich.org	70
i+        /* Fill 'vbuf' with gap added at each time gap using vrbuf as	Err	bitreich.org	70
i         ** intermediate ring buffer. */	Err	bitreich.org	70
i         len = LEN(vrbuf);	Err	bitreich.org	70
i         for (p = pos = 0, tp = tbeg, vp = vbuf; tp < tend; p++, vp++, tp++) {	Err	bitreich.org	70
.