dimitri/uniplot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bug in y-axis labels

Browse source
This commit is contained in:
Dimitri Lozeve 2022-10-03 17:53:42 +02:00
parent e5221c948b
commit c7eb55cf82
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
uniplot/lineplot.ss
View file

@ -41,7 +41,7 @@
(make-string (- label-width (string-length ymax-label)) #\ ) ymax-label " ┤ " (make-string (- label-width (string-length ymax-label)) #\ ) ymax-label " ┤ "
(string-subst (plot-str plot) "\n" (format " │\n~a │ " padding)) (string-subst (plot-str plot) "\n" (format " │\n~a │ " padding))
" │\n" " │\n"
(make-string (- label-width (string-length ymax-label)) #\ ) ymax-label " ┤ " (make-string (- label-width (string-length ymin-label)) #\ ) ymin-label " ┤ "
(make-string (+ 1 (plot-hsize plot)) #\ ) "│\n" (make-string (+ 1 (plot-hsize plot)) #\ ) "│\n"
(make-string label-width #\ ) " └─┬" (make-string (- (plot-hsize plot) 2) #\─) "┬─┘\n" (make-string label-width #\ ) " └─┬" (make-string (- (plot-hsize plot) 2) #\─) "┬─┘\n"
"\n" padding (format "~5,1F~a~5,1F\n" xmin (make-string (- (plot-hsize plot) 6) #\ ) xmax))) "\n" padding (format "~5,1F~a~5,1F\n" xmin (make-string (- (plot-hsize plot) 6) #\ ) xmax)))