mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 21:07:54 +00:00
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.
This commit is contained in:
parent
a46cadfae3
commit
90815cc948
|
@ -394,7 +394,7 @@ load \"%s\"
|
||||||
|
|
||||||
# General settings
|
# General settings
|
||||||
DataColCount = words($Data[1])-1
|
DataColCount = words($Data[1])-1
|
||||||
AxesCount = |$Data|-HeaderLines
|
AxesCount = |$Data|-HeaderLines-1
|
||||||
AngleOffset = 90
|
AngleOffset = 90
|
||||||
Max = 1
|
Max = 1
|
||||||
d=0.1*Max
|
d=0.1*Max
|
||||||
|
@ -479,7 +479,7 @@ EOD
|
||||||
"\"%s\" %s"
|
"\"%s\" %s"
|
||||||
(car row)
|
(car row)
|
||||||
(s-join " " (cdr row))))
|
(s-join " " (cdr row))))
|
||||||
table))))
|
(append table (list (car table)))))))
|
||||||
(ticks (or (plist-get params :ticks)
|
(ticks (or (plist-get params :ticks)
|
||||||
(org--plot/sensible-tick-num table
|
(org--plot/sensible-tick-num table
|
||||||
(plist-get params :ymin)
|
(plist-get params :ymin)
|
||||||
|
@ -498,7 +498,7 @@ EOD
|
||||||
(plist-get data :nice-max))
|
(plist-get data :nice-max))
|
||||||
(if (eq ticks 0) 2 ticks)
|
(if (eq ticks 0) 2 ticks)
|
||||||
)))
|
)))
|
||||||
table)))
|
(append table (list (car table))))))
|
||||||
(setup-file (make-temp-file "org-plot-setup")))
|
(setup-file (make-temp-file "org-plot-setup")))
|
||||||
(let ((coding-system-for-write 'utf-8))
|
(let ((coding-system-for-write 'utf-8))
|
||||||
(write-region (format org--plot/radar-setup-template data settings) nil setup-file nil :silent))
|
(write-region (format org--plot/radar-setup-template data settings) nil setup-file nil :silent))
|
||||||
|
|
Loading…
Reference in a new issue