From 4ee4089848816fd0afedfe3f030912041bffece3 Mon Sep 17 00:00:00 2001 From: TEC Date: Sun, 25 Oct 2020 01:47:57 +0800 Subject: [PATCH 13/15] org-plot.el: radar plot, join last points to first * lisp/org-plot.el (org--plot/radar-template, org--plot/radar): Duplicate first points at the end so that a line is drawn between them. --- lisp/org-plot.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-plot.el b/lisp/org-plot.el index 449edff20..da9f6ea74 100644 --- a/lisp/org-plot.el +++ b/lisp/org-plot.el @@ -393,7 +393,7 @@ load \"%s\" # General settings DataColCount = words($Data[1])-1 -AxesCount = |$Data|-HeaderLines +AxesCount = |$Data|-HeaderLines-1 AngleOffset = 90 Max = 1 d=0.1*Max @@ -478,7 +478,7 @@ EOD "\"%s\" %s" (car row) (s-join " " (cdr row)))) - table)))) + (append table (list (car table))))))) (ticks (or (plist-get params :ticks) (org--plot/sensible-tick-num table (plist-get params :ymin) @@ -497,7 +497,7 @@ EOD (plist-get data :nice-max)) (if (eq ticks 0) 2 ticks) ))) - table))) + (append table (list (car table)))))) (setup-file (make-temp-file "org-plot-setup"))) (let ((coding-system-for-write 'utf-8)) (write-region (format org--plot/radar-setup-template data settings) nil setup-file nil :silent)) -- 2.28.0