neil/interpret
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

updated graph

Browse Source
This commit is contained in:
Neil 2023-03-10 22:11:16 -08:00
parent bfffbde238
commit 1ac0ef5283
2 changed files with 32 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/flighthours.c
View File

@ -22,9 +22,12 @@ int main(void) {
if(errno) goto catch;
fprintf(stderr, "Journal: %s.\n"
"Flights: %s.\n", journal_to_string(&j), flights_to_string(&f));
printf("set term postscript eps enhanced\n"
"set output \"flighthours.eps\"\n"
"$Data <<EOD\n"
printf("set terminal cairolatex standalone pdf size 16cm,10.5cm"
" dashed transparent\n"
"set output \"flight.tex\"\n");
/*printf("set term postscript eps enhanced\n"
"set output \"flighthours.eps\"\n");*/
printf("$Data <<EOD\n"
"# date\tsource\treg\tsic\tpic\ttotal\n");
struct flights_iterator it = flights_iterator(&f);
union line64 line;
@ -60,17 +63,33 @@ int main(void) {
}
}
printf("EOD\n"
"set monochrome\n"
"set xdata time\n"
"set timefmt \"%%Y-%%m-%%d\"\n"
"set xtics format \"%%Y-%%m-%%d\" rotate by -30\n"
"set ylabel \"hours\"\n"
"# theozh https://stackoverflow.com/a/75466214/2472827\n"
"# get a unique list from datablock\n"
"addToList(list,col) = list.( strstrt(list,'\"'.strcol(col).'\"') > 0 "
"? \\\n"
" '' : ' \"'.strcol(col).'\"')\n"
"Uniqs = ''\n"
"stats $Data u (Uniqs=addToList(Uniqs,3)) nooutput\n"
"Uniq(i) = word(Uniqs,i)\n"
"getIndex(s) = sum [_i=1:words(Uniqs)] s eq word(Uniqs,_i) ? _i : 0\n"
"myTimeFmt = \"%%Y-%%m-%%d\"\n"
"set format x myTimeFmt timedate\n"
"set xtics format myTimeFmt rotate by -30\n"
"set format y \"%%tH:%%tM\" timedate\n"
"set grid\n"
"unset key\n"
"set key out reverse Left noautotitle\n"
"set style fill solid 0.5\n"
"unset border\n"
"set xrange [*:'2001-09-11']\n"
"#set style fill solid 0.1 #pattern 5 (better, but restarts)\n"
"plot $Data using 1:($6/60) with fillsteps lw 2\n");
"plot total=0 $Data u"
" (timecolumn(1,myTimeFmt)):(dy=($4+$5)*60,total=total+dy)"
" w steps lc \"black\" dt 3, \\\n"
" total=0 '' u (timecolumn(1,myTimeFmt)):"
"(dy=($4+$5)*60,total=total+dy,total-dy/2.): \\\n"
" (43200):(dy/2.):(getIndex(strcol(3))) w boxxy lc var, \\\n"
" for [i=1:words(Uniqs)] keyentry w boxxy lc i ti Uniq(i)\n"
/*"set xrange [*:'2001-09-11']\n"*/
/*"#set style fill solid 0.1 #pattern 5 (better, but restarts)\n"
"plot $Data using 1:($6/60) with fillsteps lw 2\n"*/);
goto finally;
catch:
success = EXIT_FAILURE;

2
src/text.c
View File

@ -42,6 +42,6 @@ finally:
}
struct text text(void) { struct text text; text.a = char_array(); return text; }
void text_(struct text *const text) { printf("~text: errno %d text.a.data %p\n", errno, (void *)text->a.data); char_array_(&text->a); printf("~text: errno %d\n", errno); }
void text_(struct text *const text) { char_array_(&text->a); }
char *text_append_file(struct text *text, const char *const fn)
{ return append_file(&text->a, fn); }