1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
%D \module
%D [ file=m-gnuplot,
%D version=2020.02.10,
%D title=\CONTEXT\ Extra Modules,
%D subtitle=Gnuplot,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
%D This is a variant on the \GNUPLOT\ terminal code. At some point (when there is a
%D reason) I will make a proper environment that can be used for embedded code.
\permanent\protected\def\includegnuplotsvgfile[#1]%
{\hbox\bgroup
\ctxlua{metapost.startsvghashing()}%
\includesvgfile[#1]%
\ctxlua{metapost.stopsvghashing()}%
\egroup}
\startluacode
local modificationtime = lfs.modification
local longtostring = string.longtostring
local formatters = string.formatters
local expandfilename = dir.expandname
local isfile = lfs.isfile
local runner = sandbox.registerrunner {
name = "gnuplot to svg",
program = "gnuplot",
template = longtostring [[
-e "set output '%newname%'; set terminal svg"
"%oldname%"
]],
checkers = {
oldname = "readable",
newname = "writable",
},
}
figures.programs.gnuplot = {
runner = runner,
}
local function remap(specification)
local oldname = specification.fullname
if oldname then
local newname = file.replacesuffix(oldname,"svg")
local oldtime = modificationtime(oldname) or 0
local newtime = modificationtime(newname) or 0
if newtime == 0 or oldtime > newtime then
runner {
newname = expandfilename(newname),
oldname = expandfilename(oldname),
}
end
if isfile(newname) then
local only = file.nameonly(newname)
local name = formatters["svg-%s-inclusion"](only)
local code = formatters["\\includegnuplotsvgfile[%s]\\resetbuffer[%s]"](newname,name)
buffers.assign(name,code)
specification.format = "buffer"
specification.fullname = name
end
end
return specification
end
figures.remappers.gp = { svg = remap }
\stopluacode
\continueifinputfile{m-gnuplot.mkxl}
\startluacode
io.savedata("m-gnuplot-demo.gp", [[
set format xy "$%g$"
set title 'This is a plot of $y=\\sin(x)$'
set xlabel 'This is the $x$ axis'
set ylabel 'This is the $y$ axis'
plot [0:6.28] [0:1] sin(x)
]])
\stopluacode
\starttext
\externalfigure[m-gnuplot-demo.gp][conversion=svg,width=4cm]
\externalfigure[m-gnuplot-demo.gp][conversion=svg,width=8cm]
\stoptext
|