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
.
Response:
text/plain