iploot-farbfeld: comeback - 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 8836c19534760f2ce037c39bde9dc5591011ed07 /scm/ploot/commit/8836c19534760f2ce037c39bde9dc5591011ed07.gph bitreich.org 70
1parent eb816ab512727f55665f05809c78563ff93a94cc /scm/ploot/commit/eb816ab512727f55665f05809c78563ff93a94cc.gph bitreich.org 70
hAuthor: Josuah Demangeon <me@josuah.net> URL:mailto:me@josuah.net bitreich.org 70
iDate: Sun, 27 Jun 2021 04:51:38 +0200 Err bitreich.org 70
i Err bitreich.org 70
iploot-farbfeld: comeback Err bitreich.org 70
i Err bitreich.org 70
iDiffstat: Err bitreich.org 70
i M Makefile | 2 +- Err bitreich.org 70
i M csv.c | 27 ++++++++++++++++++++++++++- Err bitreich.org 70
i M csv.h | 1 + Err bitreich.org 70
i A example.png | 0 Err bitreich.org 70
i M ploot-braille.c | 90 +++---------------------------- Err bitreich.org 70
i M ploot-farbfeld.1 | 4 ---- Err bitreich.org 70
i M ploot-farbfeld.c | 64 +++++++++++++------------------ Err bitreich.org 70
i M util.c | 53 ++++++++++++++++++++++++++++++ Err bitreich.org 70
i M util.h | 3 +++ Err bitreich.org 70
i Err bitreich.org 70
i9 files changed, 118 insertions(+), 126 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@@ -9,7 +9,7 @@ MANOREFIX = $(PREFIX)/share/man Err bitreich.org 70
i Err bitreich.org 70
i SRC = csv.c drawille.c font.c font13.c font8.c util.c Err bitreich.org 70
i INC = csv.h drawille.h font.h util.h Err bitreich.org 70
i-BIN = ploot-feed ploot-braille ploot-text # ploot-farbfeld Err bitreich.org 70
i+BIN = ploot-feed ploot-braille ploot-text ploot-farbfeld Err bitreich.org 70
i OBJ = ${SRC:.c=.o} Err bitreich.org 70
i Err bitreich.org 70
i all: ${BIN} Err bitreich.org 70
1diff --git a/csv.c b/csv.c /scm/ploot/file/csv.c.gph bitreich.org 70
i@@ -9,9 +9,34 @@ Err bitreich.org 70
i #include "util.h" Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i- * Read CSV data onto a set of (struct csv). Err bitreich.org 70
i+ * Read CSV data onto a set of (struct csv) and some utilities to work on these data. Err bitreich.org 70
i */ Err bitreich.org 70
i Err bitreich.org 70
i+int Err bitreich.org 70
i+csv_min_max(struct csv *vl, int ncol, Err bitreich.org 70
i+ time_t *tmin, time_t *tmax, Err bitreich.org 70
i+ double *vmin, double *vmax) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ double *v; Err bitreich.org 70
i+ time_t *t; Err bitreich.org 70
i+ size_t n; Err bitreich.org 70
i+ Err bitreich.org 70
i+ *vmin = *vmax = 0; /* always show 0 on the scale */ Err bitreich.org 70
i+ *tmin = *tmax = *vl->t; Err bitreich.org 70
i+ Err bitreich.org 70
i+ for (; ncol > 0; ncol--, vl++) { Err bitreich.org 70
i+ for (t = vl->t, v = vl->v, n = vl->n; n > 0; t++, v++, n--) { Err bitreich.org 70
i+ if (*v < *vmin) *vmin = *v; Err bitreich.org 70
i+ if (*v > *vmax) *vmax = *v; Err bitreich.org 70
i+ if (*t < *tmin) *tmin = *t; Err bitreich.org 70
i+ if (*t > *tmax) *tmax = *t; Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } Err bitreich.org 70
i+ if (*tmin == *tmax) Err bitreich.org 70
i+ return -1; Err bitreich.org 70
i+ return 0; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i static void Err bitreich.org 70
i csv_add_time(struct csv *vl, time_t epoch) Err bitreich.org 70
i { Err bitreich.org 70
1diff --git a/csv.h b/csv.h /scm/ploot/file/csv.h.gph bitreich.org 70
i@@ -17,5 +17,6 @@ struct csv { Err bitreich.org 70
i Err bitreich.org 70
i void csv_labels(FILE *, struct csv **, size_t *); Err bitreich.org 70
i void csv_values(FILE *, struct csv *, size_t); Err bitreich.org 70
i+int csv_min_max(struct csv *, int, time_t *, time_t *, double *, double *); Err bitreich.org 70
i Err bitreich.org 70
i #endif Err bitreich.org 70
1diff --git a/example.png b/example.png /scm/ploot/file/example.png.gph bitreich.org 70
iBinary files differ. Err bitreich.org 70
1diff --git a/ploot-braille.c b/ploot-braille.c /scm/ploot/file/ploot-braille.c.gph bitreich.org 70
i@@ -15,85 +15,6 @@ Err bitreich.org 70
i #define pledge(...) 0 Err bitreich.org 70
i #endif Err bitreich.org 70
i Err bitreich.org 70
i-static int Err bitreich.org 70
i-get_min_max(struct csv *vl, int ncol, Err bitreich.org 70
i- time_t *tmin, time_t *tmax, Err bitreich.org 70
i- double *vmin, double *vmax) Err bitreich.org 70
i-{ Err bitreich.org 70
i- double *v; Err bitreich.org 70
i- time_t *t; Err bitreich.org 70
i- size_t n; Err bitreich.org 70
i- Err bitreich.org 70
i- *vmin = *vmax = 0; /* always show 0 on the scale */ Err bitreich.org 70
i- *tmin = *tmax = *vl->t; Err bitreich.org 70
i- Err bitreich.org 70
i- for (; ncol > 0; ncol--, vl++) { Err bitreich.org 70
i- for (t = vl->t, v = vl->v, n = vl->n; n > 0; t++, v++, n--) { Err bitreich.org 70
i- if (*v < *vmin) *vmin = *v; Err bitreich.org 70
i- if (*v > *vmax) *vmax = *v; Err bitreich.org 70
i- if (*t < *tmin) *tmin = *t; Err bitreich.org 70
i- if (*t > *tmax) *tmax = *t; Err bitreich.org 70
i- } Err bitreich.org 70
i- } Err bitreich.org 70
i- if (*tmin == *tmax) Err bitreich.org 70
i- return -1; Err bitreich.org 70
i- return 0; Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-static time_t Err bitreich.org 70
i-time_mark_step(time_t min, time_t max, int dots) Err bitreich.org 70
i-{ Err bitreich.org 70
i- time_t dt, scale[] = { Err bitreich.org 70
i- 1, 5, 2, 10, 20, 30, 60, 60*2, 60*5, 60*10, 60*20, 60*30, 3600, Err bitreich.org 70
i- 3600*2, 3600*6, 3600*12, 3600*24, 3600*24*2, Err bitreich.org 70
i- 3600*24*7, 3600*24*14, 3600*24*20, 3600*24*21, 3600*24*28, 3600*24*50, Err bitreich.org 70
i- 3600*24*100, 3600*24*365, 0 Err bitreich.org 70
i- }; Err bitreich.org 70
i- Err bitreich.org 70
i- dt = max - min; Err bitreich.org 70
i- for (time_t *sc = scale; *sc > 0; sc++) Err bitreich.org 70
i- if (dt < *sc * dots) Err bitreich.org 70
i- return *sc; Err bitreich.org 70
i- return dt / dots; Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i-/* Err bitreich.org 70
i- * Make the value scale aligned with round values by changing the Err bitreich.org 70
i- * minimal and maximal values. Err bitreich.org 70
i- */ Err bitreich.org 70
i-static void Err bitreich.org 70
i-adjust_scale(double *min, double *max, int rows) Err bitreich.org 70
i-{ Err bitreich.org 70
i- double dv, step, scale[] = { 1, 2, 2.5, 5, }; Err bitreich.org 70
i- Err bitreich.org 70
i- dv = *max - *min; Err bitreich.org 70
i- Err bitreich.org 70
i- step = 1; Err bitreich.org 70
i- if (dv > 1) { Err bitreich.org 70
i- for (double mant = 1;; mant *= 10) { Err bitreich.org 70
i- double *sc = scale; Err bitreich.org 70
i- for (; sc < scale + LEN(scale); sc++) { Err bitreich.org 70
i- step = mant * *sc; Err bitreich.org 70
i- if (dv < rows * step) Err bitreich.org 70
i- goto end; Err bitreich.org 70
i- } Err bitreich.org 70
i- } Err bitreich.org 70
i- } else { Err bitreich.org 70
i- for (double mant = 1;; mant /= 10) { Err bitreich.org 70
i- double *sc = scale + LEN(scale) - 1; Err bitreich.org 70
i- for (; sc >= scale; sc--) { Err bitreich.org 70
i- double tmp = mant * *sc; Err bitreich.org 70
i- if (dv > rows * tmp) Err bitreich.org 70
i- goto end; Err bitreich.org 70
i- step = tmp; Err bitreich.org 70
i- } Err bitreich.org 70
i- } Err bitreich.org 70
i- } Err bitreich.org 70
i-end: Err bitreich.org 70
i- *min = (int)(*min / step) * step; Err bitreich.org 70
i- *max = *min + step * rows; Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
i /* Err bitreich.org 70
i * Plot the body as an histogram interpolating the gaps and include Err bitreich.org 70
i * a vertical and horizontal axis. Err bitreich.org 70
i@@ -185,17 +106,20 @@ braille_render(struct drawille *drw, FILE *fp, double min, double max) Err bitreich.org 70
i static void Err bitreich.org 70
i plot(struct csv *vl, size_t ncol, int rows, int cols, FILE *fp) Err bitreich.org 70
i { Err bitreich.org 70
i- double vmin, vmax; Err bitreich.org 70
i+ double vmin, vmax, vstep; Err bitreich.org 70
i time_t tmin, tmax, tstep; Err bitreich.org 70
i struct drawille *drw; Err bitreich.org 70
i Err bitreich.org 70
i rows = MAX(rows, 2); /* readable */ Err bitreich.org 70
i Err bitreich.org 70
i- if (get_min_max(vl, ncol, &tmin, &tmax, &vmin, &vmax) < 0) Err bitreich.org 70
i+ if (csv_min_max(vl, ncol, &tmin, &tmax, &vmin, &vmax) < 0) Err bitreich.org 70
i err(1, "invalid scale: tmin=%lld tmax=%lld vmin=%fd vmax=%fd", Err bitreich.org 70
i (long long)tmin, (long long)tmax, vmin, vmax); Err bitreich.org 70
i- adjust_scale(&vmin, &vmax, rows); Err bitreich.org 70
i- tstep = time_mark_step(tmin, tmax, cols); Err bitreich.org 70
i+ Err bitreich.org 70
i+ tstep = scale_time_t(tmin, tmax, cols); Err bitreich.org 70
i+ vstep = scale_double(vmin, vmax, rows); Err bitreich.org 70
i+ vmin = (int)(vmin / vstep) * vstep; Err bitreich.org 70
i+ vmax = vmin + vstep * rows; Err bitreich.org 70
i Err bitreich.org 70
i for (; ncol > 0; vl++, ncol--) { Err bitreich.org 70
i if ((drw = drawille_new(rows, cols)) == NULL) Err bitreich.org 70
1diff --git a/ploot-farbfeld.1 b/ploot-farbfeld.1 /scm/ploot/file/ploot-farbfeld.1.gph bitreich.org 70
i@@ -13,7 +13,6 @@ Err bitreich.org 70
i . Err bitreich.org 70
i .Nm ploot-ffplot Err bitreich.org 70
i .Op Fl t Ar title Err bitreich.org 70
i-.Op Fl u Ar unit Err bitreich.org 70
i .Ar colors... Err bitreich.org 70
i . Err bitreich.org 70
i . Err bitreich.org 70
i@@ -28,9 +27,6 @@ utility plots an image in the ffplot format out of csv values coming from stdin. Err bitreich.org 70
i .It Fl t Err bitreich.org 70
i Set the title of the plot printed at the top left corner. Err bitreich.org 70
i . Err bitreich.org 70
i-.It Fl u Err bitreich.org 70
i-Set the unit description printed at the top right corner. Err bitreich.org 70
i-. Err bitreich.org 70
i .It Ar colors Err bitreich.org 70
i List of argument that specify the color for each column. Err bitreich.org 70
i If the input csv have 5 columns in addition of the timestamp, there must Err bitreich.org 70
1diff --git a/ploot-farbfeld.c b/ploot-farbfeld.c /scm/ploot/file/ploot-farbfeld.c.gph bitreich.org 70
i@@ -13,24 +13,23 @@ Err bitreich.org 70
i #include <unistd.h> Err bitreich.org 70
i #include "csv.h" Err bitreich.org 70
i #include "font.h" Err bitreich.org 70
i-#include "scale.h" Err bitreich.org 70
i #include "util.h" Err bitreich.org 70
i Err bitreich.org 70
i #ifndef __OpenBSD__ Err bitreich.org 70
i #define pledge(...) 0 Err bitreich.org 70
i #endif Err bitreich.org 70
i Err bitreich.org 70
i-#define MARGIN 4 Err bitreich.org 70
i+#define MARGIN 8 Err bitreich.org 70
i Err bitreich.org 70
i #define IMAGE_H (TITLE_H + PLOT_H + XLABEL_H) Err bitreich.org 70
i-#define IMAGE_W (YLABEL_W + PLOT_W + LEGEND_W) Err bitreich.org 70
i+#define IMAGE_W (MARGIN + YLABEL_W + PLOT_W + MARGIN) Err bitreich.org 70
i Err bitreich.org 70
i-#define TITLE_X (YLABEL_W) Err bitreich.org 70
i-#define TITLE_Y (IMAGE_H - TITLE_H) Err bitreich.org 70
i+#define TITLE_X (MARGIN) Err bitreich.org 70
i+#define TITLE_Y (IMAGE_H - TITLE_H / 2) Err bitreich.org 70
i #define TITLE_H ((font)->height * 2) Err bitreich.org 70
i #define TITLE_W (PLOT_W) Err bitreich.org 70
i Err bitreich.org 70
i-#define YLABEL_X (0) Err bitreich.org 70
i+#define YLABEL_X (MARGIN) Err bitreich.org 70
i #define YLABEL_Y (PLOT_Y) Err bitreich.org 70
i #define YLABEL_H (PLOT_H) Err bitreich.org 70
i #define YLABEL_W (40 + MARGIN) Err bitreich.org 70
i@@ -40,14 +39,13 @@ Err bitreich.org 70
i #define XLABEL_H ((font)->height * 2) Err bitreich.org 70
i #define XLABEL_W (PLOT_W) Err bitreich.org 70
i Err bitreich.org 70
i-#define PLOT_X (YLABEL_W) Err bitreich.org 70
i+#define PLOT_X (YLABEL_X + YLABEL_W) Err bitreich.org 70
i #define PLOT_Y (XLABEL_H) Err bitreich.org 70
i #define PLOT_W (700) Err bitreich.org 70
i #define PLOT_H (160) Err bitreich.org 70
i Err bitreich.org 70
i-#define LEGEND_X (IMAGE_W - LEGEND_W) Err bitreich.org 70
i-#define LEGEND_Y (TITLE_H + PLOT_H - (font)->height) Err bitreich.org 70
i-#define LEGEND_W (100) Err bitreich.org 70
i+#define LEGEND_X (IMAGE_W / 2) Err bitreich.org 70
i+#define LEGEND_Y (TITLE_Y) Err bitreich.org 70
i #define LEGEND_H (PLOT_H) Err bitreich.org 70
i Err bitreich.org 70
i struct ffcolor { Err bitreich.org 70
i@@ -76,8 +74,7 @@ static struct colorname { Err bitreich.org 70
i { NULL, { 0, 0, 0, 0 } } Err bitreich.org 70
i }; Err bitreich.org 70
i Err bitreich.org 70
i-static char *tflag = ""; Err bitreich.org 70
i-static char *uflag = ""; Err bitreich.org 70
i+static char *flag_title = ""; Err bitreich.org 70
i static struct font *font = &font13; Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i@@ -212,7 +209,7 @@ ffplot_print(FILE *fp, struct ffplot *plot) Err bitreich.org 70
i w = htonl(plot->w); Err bitreich.org 70
i h = htonl(plot->h); Err bitreich.org 70
i Err bitreich.org 70
i- fprintf(stdout, "ffplot"); Err bitreich.org 70
i+ fprintf(stdout, "farbfeld"); Err bitreich.org 70
i fwrite(&w, sizeof(w), 1, fp); Err bitreich.org 70
i fwrite(&h, sizeof(h), 1, fp); Err bitreich.org 70
i fwrite(plot->buf, plot->w * plot->h, sizeof(*plot->buf), fp); Err bitreich.org 70
i@@ -284,12 +281,9 @@ ffplot_yaxis(struct ffplot *plot, struct ffcolor *label, struct ffcolor *grid, Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i static void Err bitreich.org 70
i-ffplot_title(struct ffplot *plot, Err bitreich.org 70
i- struct ffcolor *ct, char *title, Err bitreich.org 70
i- struct ffcolor *cu, char *unit) Err bitreich.org 70
i+ffplot_title(struct ffplot *plot, struct ffcolor *ct, char *title) Err bitreich.org 70
i { Err bitreich.org 70
i ffplot_text_left(plot, ct, font, title, TITLE_H / 2, 0); Err bitreich.org 70
i- ffplot_text_right(plot, cu, font, unit, 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@@ -329,27 +323,26 @@ ffplot_legend(struct ffplot *plot, struct ffcolor *fg, struct csv *vl, struct ff Err bitreich.org 70
i { Err bitreich.org 70
i size_t x, y; Err bitreich.org 70
i Err bitreich.org 70
i+ x = y = 0; Err bitreich.org 70
i for (; ncol > 0; ncol--, vl++, cl++) { Err bitreich.org 70
i- y = -(ncol - 1) * (font->height + MARGIN); Err bitreich.org 70
i- x = MARGIN * 2; Err bitreich.org 70
i x = ffplot_text_left(plot, *cl, font, "-", x, y) + MARGIN; Err bitreich.org 70
i x = ffplot_text_left(plot, fg, font, vl->label, x, y); Err bitreich.org 70
i+ x = ffplot_text_left(plot, fg, font, " ", x, y); Err bitreich.org 70
i } Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i- * Plot the 'n' values list of the 'v' arrax with title 'name' and Err bitreich.org 70
i- * 'units' label. Err bitreich.org 70
i+ * Plot the 'n' values list of the 'v' arrax with title 'name' label. Err bitreich.org 70
i * Err bitreich.org 70
i- * Title (units) Err bitreich.org 70
i- * x ^ Legend Err bitreich.org 70
i- * label | - + - + - + - + - .... Err bitreich.org 70
i- * here | - + - + - + - + - .... Err bitreich.org 70
i+ * Title Legend Err bitreich.org 70
i+ * x ^ 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 static void Err bitreich.org 70
i-plot(struct csv *vl, struct ffcolor **cl, size_t ncol, char *name, char *units) Err bitreich.org 70
i+plot(struct csv *vl, struct ffcolor **cl, size_t ncol, char *name) Err bitreich.org 70
i { Err bitreich.org 70
i struct ffplot plot = { IMAGE_W, IMAGE_H, 0, 0, NULL }; Err bitreich.org 70
i struct ffcolor plot_bg = { 0x2222, 0x2222, 0x2222, 0xffff }; Err bitreich.org 70
i@@ -360,9 +353,9 @@ plot(struct csv *vl, struct ffcolor **cl, size_t ncol, char *name, char *units) Err bitreich.org 70
i double vmin, vmax, vstep; Err bitreich.org 70
i time_t tmin, tmax, tstep; Err bitreich.org 70
i Err bitreich.org 70
i- scale_minmax(vl, ncol, &tmin, &tmax, &vmin, &vmax); Err bitreich.org 70
i- tstep = scale_tstep(tmin, tmax, 7); Err bitreich.org 70
i- vstep = scale_vstep(vmin, vmax, 7); Err bitreich.org 70
i+ csv_min_max(vl, ncol, &tmin, &tmax, &vmin, &vmax); Err bitreich.org 70
i+ tstep = scale_time_t(tmin, tmax, 7); Err bitreich.org 70
i+ vstep = scale_double(vmin, vmax, 7); Err bitreich.org 70
i Err bitreich.org 70
i if ((plot.buf = calloc(IMAGE_H * IMAGE_W, sizeof *plot.buf)) == NULL) Err bitreich.org 70
i err(1, "calloc: %s", strerror(errno)); Err bitreich.org 70
i@@ -385,7 +378,7 @@ plot(struct csv *vl, struct ffcolor **cl, size_t ncol, char *name, char *units) Err bitreich.org 70
i Err bitreich.org 70
i plot.x = TITLE_X; Err bitreich.org 70
i plot.y = TITLE_Y; Err bitreich.org 70
i- ffplot_title(&plot, &title_fg, name, &label_fg, units); Err bitreich.org 70
i+ ffplot_title(&plot, &title_fg, name); Err bitreich.org 70
i Err bitreich.org 70
i plot.x = PLOT_X; Err bitreich.org 70
i plot.y = PLOT_Y; Err bitreich.org 70
i@@ -420,7 +413,7 @@ argv_to_color(struct ffcolor **cl, char **argv) Err bitreich.org 70
i static void Err bitreich.org 70
i usage(void) Err bitreich.org 70
i { Err bitreich.org 70
i- fprintf(stderr, "usage: %s [-t title] [-u unit] {", arg0); Err bitreich.org 70
i+ fprintf(stderr, "usage: %s [-t title] {", arg0); Err bitreich.org 70
i fputs(colorname->name, stderr); Err bitreich.org 70
i for (struct colorname *cn = colorname + 1; cn->name != NULL; cn++) Err bitreich.org 70
i fprintf(stderr, ",%s", cn->name); Err bitreich.org 70
i@@ -440,13 +433,10 @@ main(int argc, char **argv) Err bitreich.org 70
i err(1, "pledge: %s", strerror(errno)); Err bitreich.org 70
i Err bitreich.org 70
i arg0 = *argv; Err bitreich.org 70
i- while ((c = getopt(argc, argv, "t:u:")) > -1) { Err bitreich.org 70
i+ while ((c = getopt(argc, argv, "t:")) > -1) { Err bitreich.org 70
i switch (c) { Err bitreich.org 70
i case 't': Err bitreich.org 70
i- tflag = optarg; Err bitreich.org 70
i- break; Err bitreich.org 70
i- case 'u': Err bitreich.org 70
i- uflag = optarg; Err bitreich.org 70
i+ flag_title = optarg; Err bitreich.org 70
i break; Err bitreich.org 70
i default: Err bitreich.org 70
i usage(); Err bitreich.org 70
i@@ -469,7 +459,7 @@ main(int argc, char **argv) Err bitreich.org 70
i csv_values(stdin, vl, ncol); Err bitreich.org 70
i argv_to_color(cl, argv); Err bitreich.org 70
i Err bitreich.org 70
i- plot(vl, cl, argc, tflag, uflag); Err bitreich.org 70
i+ plot(vl, cl, argc, flag_title); Err bitreich.org 70
i Err bitreich.org 70
i free(vl); Err bitreich.org 70
i free(cl); Err bitreich.org 70
1diff --git a/util.c b/util.c /scm/ploot/file/util.c.gph bitreich.org 70
i@@ -1,4 +1,5 @@ Err bitreich.org 70
i #include "util.h" Err bitreich.org 70
i+#include <assert.h> Err bitreich.org 70
i #include <ctype.h> Err bitreich.org 70
i #include <errno.h> Err bitreich.org 70
i #include <limits.h> Err bitreich.org 70
i@@ -122,3 +123,55 @@ humanize(char *str, double val) 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+time_t Err bitreich.org 70
i+scale_time_t(time_t min, time_t max, int dots) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ time_t dt, scale[] = { Err bitreich.org 70
i+ 1, 5, 2, 10, 20, 30, 60, 60*2, 60*5, 60*10, 60*20, 60*30, 3600, Err bitreich.org 70
i+ 3600*2, 3600*6, 3600*12, 3600*24, 3600*24*2, Err bitreich.org 70
i+ 3600*24*7, 3600*24*14, 3600*24*20, 3600*24*21, 3600*24*28, 3600*24*50, Err bitreich.org 70
i+ 3600*24*100, 3600*24*365, 0 Err bitreich.org 70
i+ }; Err bitreich.org 70
i+ Err bitreich.org 70
i+ dt = max - min; Err bitreich.org 70
i+ for (time_t *sc = scale; *sc > 0; sc++) Err bitreich.org 70
i+ if (dt < *sc * dots) Err bitreich.org 70
i+ return *sc; Err bitreich.org 70
i+ return dt / dots; Err bitreich.org 70
i+} Err bitreich.org 70
i+ Err bitreich.org 70
i+/* Err bitreich.org 70
i+ * Make the value scale aligned with round values by changing the Err bitreich.org 70
i+ * minimal and maximal values. Err bitreich.org 70
i+ */ Err bitreich.org 70
i+double Err bitreich.org 70
i+scale_double(double min, double max, int rows) Err bitreich.org 70
i+{ Err bitreich.org 70
i+ double dv, step, scale[] = { 1, 2, 2.5, 5, }; Err bitreich.org 70
i+ Err bitreich.org 70
i+ dv = max - min; Err bitreich.org 70
i+ step = 1; Err bitreich.org 70
i+ if (dv > 1) { Err bitreich.org 70
i+ for (double mant = 1;; mant *= 10) { Err bitreich.org 70
i+ double *sc = scale; Err bitreich.org 70
i+ for (; sc < scale + LEN(scale); sc++) { Err bitreich.org 70
i+ step = mant * *sc; Err bitreich.org 70
i+ if (dv < rows * step) Err bitreich.org 70
i+ return step; Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } else { Err bitreich.org 70
i+ for (double mant = 1;; mant /= 10) { Err bitreich.org 70
i+ double *sc = scale + LEN(scale) - 1; Err bitreich.org 70
i+ for (; sc >= scale; sc--) { Err bitreich.org 70
i+ double tmp = mant * *sc; Err bitreich.org 70
i+ if (dv > rows * tmp) Err bitreich.org 70
i+ return step; Err bitreich.org 70
i+ step = tmp; Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } Err bitreich.org 70
i+ } Err bitreich.org 70
i+ assert(!"not reached"); Err bitreich.org 70
i+ return 0; Err bitreich.org 70
i+} Err bitreich.org 70
1diff --git a/util.h b/util.h /scm/ploot/file/util.h.gph bitreich.org 70
i@@ -2,6 +2,7 @@ Err bitreich.org 70
i #define TOOL_H Err bitreich.org 70
i Err bitreich.org 70
i #include <stddef.h> Err bitreich.org 70
i+#include <time.h> Err bitreich.org 70
i Err bitreich.org 70
i #define LEN(x) (sizeof(x) / sizeof(*x)) Err bitreich.org 70
i #define MAX(x, y) ((x) > (y) ? (x) : (y)) Err bitreich.org 70
i@@ -18,5 +19,7 @@ void put3utf(long); Err bitreich.org 70
i char *strsep(char **, const char *); Err bitreich.org 70
i void strchomp(char *); Err bitreich.org 70
i int humanize(char *, double); Err bitreich.org 70
i+time_t scale_time_t(time_t, time_t, int); Err bitreich.org 70
i+double scale_double(double, double, int); Err bitreich.org 70
i Err bitreich.org 70
i #endif Err bitreich.org 70
.
Response:
text/plain