iprepare ffplot to read from stdin - 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 522bbe841ea86e232baf35ba638fe490cc763325 /scm/ploot/commit/522bbe841ea86e232baf35ba638fe490cc763325.gph bitreich.org 70
1parent df6b2deeefb42f4102a9bba819e7d06d15a3aebf /scm/ploot/commit/df6b2deeefb42f4102a9bba819e7d06d15a3aebf.gph bitreich.org 70
hAuthor: Josuah Demangeon <mail@josuah.net> URL:mailto:mail@josuah.net bitreich.org 70
iDate: Tue, 1 May 2018 20:00:10 +0200 Err bitreich.org 70
i Err bitreich.org 70
iprepare ffplot to read from stdin Err bitreich.org 70
i Err bitreich.org 70
iDiffstat: Err bitreich.org 70
i M Makefile | 4 ++-- Err bitreich.org 70
i M ffdraw.c | 19 ++++++++++++++++++- Err bitreich.org 70
i D ffdraw.h | 39 ------------------------------- Err bitreich.org 70
i M ffplot.c | 241 +++++++++++++++++++++++++++++++ Err bitreich.org 70
i M font.h | 3 ++- Err bitreich.org 70
i M main.c | 293 ++++--------------------------- Err bitreich.org 70
i A ploot.h | 44 +++++++++++++++++++++++++++++++ Err bitreich.org 70
i Err bitreich.org 70
i7 files changed, 342 insertions(+), 301 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,7 +1,7 @@ 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+SRC = main.c ffplot.c ffdraw.c font_14x7.c 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@@ -19,4 +19,4 @@ clean:x Err bitreich.org 70
i Err bitreich.org 70
i x: Err bitreich.org 70
i Err bitreich.org 70
i-$(SRC): arg.h ffdraw.h font.h font_14x7.h Err bitreich.org 70
i+$(SRC): arg.h ploot.h font.h font_14x7.h Err bitreich.org 70
1diff --git a/ffdraw.c b/ffdraw.c /scm/ploot/file/ffdraw.c.gph bitreich.org 70
i@@ -6,11 +6,14 @@ Err bitreich.org 70
i * - (0,1) is above it. +--x Err bitreich.org 70
i */ Err bitreich.org 70
i Err bitreich.org 70
i+#include <arpa/inet.h> Err bitreich.org 70
i+ Err bitreich.org 70
i #include <stdint.h> Err bitreich.org 70
i #include <string.h> Err bitreich.org 70
i #include <stdlib.h> Err bitreich.org 70
i+#include <stdio.h> Err bitreich.org 70
i Err bitreich.org 70
i-#include "ffdraw.h" Err bitreich.org 70
i+#include "ploot.h" 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@@ -144,3 +147,17 @@ ffdraw_fill(Canvas *can, Color *col) 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
i+ Err bitreich.org 70
i+void Err bitreich.org 70
i+ffdraw_print(Canvas *can) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ uint32_t w, h; Err bitreich.org 70
i+ Err bitreich.org 70
i+ w = htonl(can->w); Err bitreich.org 70
i+ h = htonl(can->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+ fwrite(can->b, can->w * can->h, sizeof(*can->b), stdout); 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,39 +0,0 @@ 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-typedef uint16_t Color[4]; Err bitreich.org 70
i- Err bitreich.org 70
i-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- int w; /* width */ Err bitreich.org 70
i- int h; /* height */ 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_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/ffplot.c b/ffplot.c /scm/ploot/file/ffplot.c.gph bitreich.org 70
i@@ -0,0 +1,241 @@ Err bitreich.org 70
i+/* Err bitreich.org 70
i+ * Draw a plot Err bitreich.org 70
i+ * Err bitreich.org 70
i+ * Title (units) Err bitreich.org 70
i+ * y ^ Legend Err bitreich.org 70
i+ * label |- + - + - + - + - Err bitreich.org 70
i+ * here |- + - + - + - + - Err bitreich.org 70
i+ * +--+---+---+---+--> Err bitreich.org 70
i+ * x label here Err bitreich.org 70
i+ */ Err bitreich.org 70
i+ Err bitreich.org 70
i+#include <math.h> Err bitreich.org 70
i+#include <string.h> Err bitreich.org 70
i+#include <stdio.h> Err bitreich.org 70
i+#include <time.h> Err bitreich.org 70
i+ Err bitreich.org 70
i+#include "ploot.h" /* placed before for Font type declaration */ 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+ 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+#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 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+static int Err bitreich.org 70
i+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+static int Err bitreich.org 70
i+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+/* 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+static 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+ for (exp = 0; ABS(val) > 1000; exp++) Err bitreich.org 70
i+ val /= 1000; Err bitreich.org 70
i+ 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+ 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+ return exp * 3; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+static void Err bitreich.org 70
i+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+ for (v = vmax - fmod(vmax, vstep); v >= vmin; v -= vstep) { Err bitreich.org 70
i+ x = v2x(v, vmin, vmax); Err bitreich.org 70
i+ 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+ 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+static void Err bitreich.org 70
i+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; Err bitreich.org 70
i+ char str[sizeof("YYYY/MM/DD")], *fmt; 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+ for (t = tmax - tmax % tstep; t >= tmin; t -= tstep) { Err bitreich.org 70
i+ y = t2y(t, tmin, tmax); Err bitreich.org 70
i+ Err bitreich.org 70
i+ ffdraw_line(can, grid, 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+static void Err bitreich.org 70
i+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+ 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+static void Err bitreich.org 70
i+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+ time_t *tp; 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+ for (tp = v->t, vp = v->v, n = v->n; n-- > 0; n--, vp++, tp++) { Err bitreich.org 70
i+ x = v2x(*vp, vmin, vmax); Err bitreich.org 70
i+ y = t2y(*tp, 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+ first = 0; Err bitreich.org 70
i+ } Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+static void Err bitreich.org 70
i+plot(Canvas *can, Vlist *v, int n, 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+ for (; n > 0; n--, v++) Err bitreich.org 70
i+ 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+legend(Canvas *can, Color *label_fg, Vlist *v, int n) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ int i, x, y; Err bitreich.org 70
i+ Err bitreich.org 70
i+ for (i = 0; i < n; i++, v++) { 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(char *name, char *units, Vlist *v, int n, 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+ Canvas can = { IMAGE_W, IMAGE_H, buffer, 0, 0 }; 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+ 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+ 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+ title(&can, &title_fg, name, &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+ plot(&can, v, n, 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+ legend(&can, &label_fg, v, n); Err bitreich.org 70
i+ Err bitreich.org 70
i+ ffdraw_print(&can); Err bitreich.org 70
i+} Err bitreich.org 70
1diff --git a/font.h b/font.h /scm/ploot/file/font.h.gph bitreich.org 70
i@@ -1,6 +1,7 @@ Err bitreich.org 70
i #include <stddef.h> Err bitreich.org 70
i #include <stdint.h> Err bitreich.org 70
i-#include "ffdraw.h" Err bitreich.org 70
i+ Err bitreich.org 70
i+#include "ploot.h" Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i * Macros to make the fonts header file more readable. Err bitreich.org 70
1diff --git a/main.c b/main.c /scm/ploot/file/main.c.gph bitreich.org 70
i@@ -1,289 +1,66 @@ Err bitreich.org 70
i-#include <arpa/inet.h> Err bitreich.org 70
i- 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+#include <stdlib.h> Err bitreich.org 70
i+#include <stdio.h> Err bitreich.org 70
i+#include <fcntl.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+#include "arg.h" Err bitreich.org 70
i+#include "ploot.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-#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+char *argv0; Err bitreich.org 70
i+char *tflag = ""; Err bitreich.org 70
i+char *uflag = ""; Err bitreich.org 70
i 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-int Err bitreich.org 70
i-ffplot_t2y(time_t t, time_t tmin, time_t tmax) Err bitreich.org 70
i+static void Err bitreich.org 70
i+usage(void) 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-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-/* 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- for (exp = 0; ABS(val) > 1000; exp++) Err bitreich.org 70
i- val /= 1000; Err bitreich.org 70
i- 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- 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- return exp * 3; Err bitreich.org 70
i+ fprintf(stderr, "usage: %s [-t title] [-u unit] label:color...\n", argv0); Err bitreich.org 70
i+ exit(1); 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, Err bitreich.org 70
i- double vmin, double vmax, double vstep) Err bitreich.org 70
i+read_labels(Vlist *v, int n) 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- 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- 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- 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+ (void)v; Err bitreich.org 70
i+ (void)n; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i void 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+read_values(Vlist *v, int n) Err bitreich.org 70
i { Err bitreich.org 70
i- time_t t; 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- fmt = (tstep < 3600 * 24) ? " %H:%M:%S " : " %Y/%m/%d "; Err bitreich.org 70
i- 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- ffdraw_line(can, grid, 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_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- 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, 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- 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_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- 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-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- int n, x, y; 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+ (void)v; Err bitreich.org 70
i+ (void)n; 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+main(int argc, char **argv) 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+ Vlist *v; 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 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+ ARGBEGIN { Err bitreich.org 70
i+ case 't': Err bitreich.org 70
i+ tflag = EARGF(usage()); Err bitreich.org 70
i+ break; Err bitreich.org 70
i+ case 'u': Err bitreich.org 70
i+ uflag = EARGF(usage()); Err bitreich.org 70
i+ break; Err bitreich.org 70
i+ } ARGEND; Err bitreich.org 70
i+ Err bitreich.org 70
i+ if ((v = calloc(argc, sizeof(*v))) == NULL) Err bitreich.org 70
i+ perror("calloc value list"), exit(1); 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+ read_labels(v, argc); Err bitreich.org 70
i+ read_values(v, argc); Err bitreich.org 70
i+ Err bitreich.org 70
i+ ffdraw(tflag, uflag, v, argc, 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- 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.h b/ploot.h /scm/ploot/file/ploot.h.gph bitreich.org 70
i@@ -0,0 +1,44 @@ Err bitreich.org 70
i+#include <time.h> Err bitreich.org 70
i+#include <stdint.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+typedef uint16_t Color[4]; Err bitreich.org 70
i+ Err bitreich.org 70
i+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+ int w; /* width */ Err bitreich.org 70
i+ int h; /* height */ 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+ 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_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
i+void ffdraw_print (Canvas *); Err bitreich.org 70
i+ Err bitreich.org 70
i+/* ffplot.c */ Err bitreich.org 70
i+void ffdraw (char *, char *, Vlist *, int, double, double, Err bitreich.org 70
i+ double, time_t, time_t, time_t); Err bitreich.org 70
.
Response:
text/plain