Merge pull request #17 from AtelierArith/terasaki/gnuplot

Add example of using `gnuplot`

Author: terasakisatoshi

examples/gnuplot.jl

@@ -0,0 +1,113 @@
+### A Pluto.jl notebook ###
+# v0.20.3
+
+using Markdown
+using InteractiveUtils
+
+# This Pluto notebook uses @bind for interactivity. When running this notebook outside of Pluto, the following 'mock version' of @bind gives bound variables a default value (instead of an error).
+macro bind(def, element)
+    #! format: off
+    quote
+        local iv = try Base.loaded_modules[Base.PkgId(Base.UUID("6e696c72-6542-2067-7265-42206c756150"), "AbstractPlutoDingetjes")].Bonds.initial_value catch; b -> missing; end
+        local el = $(esc(element))
+        global $(esc(def)) = Core.applicable(Base.get, el) ? Base.get(el) : iv(el)
+        el
+    end
+    #! format: on
+end
+
+# ╔═╡ 07ebdbbe-49bb-4d18-9f2b-14f98d137548
+begin
+    using Pkg
+    Pkg.activate(temp = true)
+	Pkg.add("Images")
+    Pkg.develop(path = dirname(@__DIR__))
+    using PlutoMonacoEditor: MonacoEditor
+	using Images
+end
+
+# ╔═╡ 9aa40f8c-a955-47a3-8e6d-4ac54d1dc330
+md"""
+# gnuplot editor on Pluto Notebook
+
+To run this notebook, you need to install the `gnuplot` command.
+"""
+
+# ╔═╡ bf232d99-3001-4aac-afb7-1321c7407666
+begin
+    targetfile = joinpath(dirname(first(split(@__FILE__, ".jl#==#"))), "main.plt")
+    initCode = join(readlines(targetfile), '\n')
+	codefence = "python" # hack
+    @bind sourcecode MonacoEditor(codefence, initCode, height = 250)
+end
+
+# ╔═╡ dce616d7-fdfe-4854-919d-420603ebc875
+let
+    shouldrun = false
+    if !ismissing(sourcecode)
+        if initCode != sourcecode
+            # Update file
+            write(targetfile, sourcecode)
+            # If updated, we should run code
+            shouldrun = true
+        end
+        if shouldrun
+            mktempdir() do d
+                write(joinpath(d, targetfile), sourcecode)
+				p = pwd()
+                try
+					cd(d)
+                    run(`gnuplot $(joinpath(d, targetfile))`)
+					img = load(joinpath(d, "main.png"))
+					img
+                catch e
+                    e isa ProcessFailedException || rethrow(e)
+				finally
+					cd(p)
+				end
+            end
+        end
+    end
+end
+
+# ╔═╡ b223077c-8a38-416b-998d-c6fdb274512b
+md"""
+Note that the following code runs behind the scenes.
+
+```julia
+let
+    shouldrun = false
+    if !ismissing(sourcecode)
+        if initCode != sourcecode
+            # Update file
+            write(targetfile, sourcecode)
+            # If updated, we should run code
+            shouldrun = true
+        end
+        if shouldrun
+            mktempdir() do d
+                write(joinpath(d, targetfile), sourcecode)
+				p = pwd()
+                try
+					cd(d)
+                    run(`gnuplot $(joinpath(d, targetfile))`)
+					img = load(joinpath(d, "main.png"))
+					img
+                catch e
+                    e isa ProcessFailedException || rethrow(e)
+				finally
+					cd(p)
+				end
+            end
+        end
+    end
+end
+```
+"""
+
+# ╔═╡ Cell order:
+# ╠═07ebdbbe-49bb-4d18-9f2b-14f98d137548
+# ╟─9aa40f8c-a955-47a3-8e6d-4ac54d1dc330
+# ╟─bf232d99-3001-4aac-afb7-1321c7407666
+# ╟─dce616d7-fdfe-4854-919d-420603ebc875
+# ╟─b223077c-8a38-416b-998d-c6fdb274512b

examples/main.plt

@@ -0,0 +1,10 @@
+set terminal pngcairo enhanced font "Arial,12"
+set output "main.png" # Do not change
+set xrange [-2*pi:2*pi]
+set title "sin(x) and cos(x)"
+set xlabel "x"
+set ylabel "y"
+set grid
+plot sin(x) with lines title "sin(x)", cos(x) with lines title "cos(x)"
+set output  # close file
+