From edb86ff238aa40545252da88e562d55dcc6e3935 Mon Sep 17 00:00:00 2001
From: zhanibek <zhanibek.om@gmail.com>
Date: Tue, 1 Dec 2020 18:46:02 +0900
Subject: [PATCH] gnuplot

---
 src/backends.jl        | 29 ++++++++++++++++
 src/backends/gaston.jl | 79 ++++++++++++++++++++++++++++++++++++++++++
 src/init.jl            |  5 +++
 3 files changed, 113 insertions(+)
 create mode 100644 src/backends/gaston.jl

diff --git a/src/backends.jl b/src/backends.jl
index bd280f0f..6db64744 100644
--- a/src/backends.jl
+++ b/src/backends.jl
@@ -256,6 +256,7 @@ end
 @init_backend PGFPlotsX
 @init_backend InspectDR
 @init_backend HDF5
+@init_backend Gaston
 
 # ---------------------------------------------------------
 
@@ -569,6 +570,34 @@ const _pyplot_style = [:auto, :solid, :dash, :dot, :dashdot]
 const _pyplot_marker = vcat(_allMarkers, :pixel)
 const _pyplot_scale = [:identity, :ln, :log2, :log10]
 
+# ------------------------------------------------------------------------------
+# Gaston
+
+function _initialize_backend(::GastonBackend)
+    @eval Main begin
+        import Gaston
+        export Gaston
+    end
+end
+
+const _gaston_attr = merge_with_base_supported([
+    :label,
+    :legend,
+    :seriescolor,
+    :seriesalpha,
+    :linestyle,
+    :markershape,
+    :bins,
+    :title,
+    :guide, :lims,
+  ])
+const _gaston_seriestype = [
+    :path, :scatter, :shape, :straightline,
+]
+const _gaston_style = [:auto, :solid]
+const _gaston_marker = [:none, :auto, :circle]
+const _gaston_scale = [:identity]
+
 # ------------------------------------------------------------------------------
 # unicodeplots
 
diff --git a/src/backends/gaston.jl b/src/backends/gaston.jl
new file mode 100644
index 00000000..eb7c3078
--- /dev/null
+++ b/src/backends/gaston.jl
@@ -0,0 +1,79 @@
+# https://github.com/mbaz/Gaston.
+const G = Gaston
+
+# Create the window/figure for this backend.
+function _create_backend_figure(plt::Plot{GastonBackend})
+    plt.o = G.newfigure(G.gnuplot_state.current)
+end
+
+# # this is called early in the pipeline, use it to make the plot current or something
+# function _prepare_plot_object(plt::Plot{GastonBackend})
+# end
+
+# Set up the subplot within the backend object.
+function gaston_init_subplot(plt::Plot{GastonBackend}, sp::Subplot{GastonBackend})
+    sp.o = plt.o.subplots[1]
+    empty!(sp.o.curves)
+
+end
+
+function _before_layout_calcs(plt::Plot{GastonBackend})
+    for sp in plt.subplots
+        gaston_init_subplot(plt, sp)
+    end
+
+    # add the series
+    for series in plt.series_list
+        gaston_add_series(plt, series)
+    end
+end
+
+function gaston_add_series(plt::Plot{GastonBackend}, series::Series)
+    st = series[:seriestype]
+    sp = series[:subplot]
+    g_sp = sp.o
+
+    gnuplot_args = gaston_parse_series_args(series)
+    c = G.Curve(series[:x], series[:y], nothing, nothing, gnuplot_args)
+
+    isfirst = length(g_sp.curves) == 0 ? true : false
+    push!(g_sp.curves, c)
+    G.write_data(c, g_sp.dims, g_sp.datafile, append = isfirst ? false : true)  # TODO add appended series
+end
+
+function gaston_parse_series_args(series::Series)
+    curveconf = String[]
+    st = series[:seriestype]
+
+    if st == :path
+        push!(curveconf, """with lines """)
+    elseif st == :steppre
+        push!(curveconf, """with steps""")
+    elseif st == :steppost
+        push!(curveconf, """with fsteps""")  # Not sure if not 'steps'
+    end
+
+    # line color
+    push!(curveconf, """lc rgb "#$(hex(series[:linecolor], :rrggbb))" """)
+
+    # label
+    push!(curveconf, """title "$(series[:label])" """)
+
+    return join(curveconf, " ")
+end
+
+# Set the (left, top, right, bottom) minimum padding around the plot area
+# to fit ticks, tick labels, guides, colorbars, etc.
+function _update_min_padding!(sp::Subplot{GastonBackend})
+    sp.minpad = (20mm, 5mm, 2mm, 10mm)
+end
+
+function _update_plot_object(plt::Plot{GastonBackend})
+end
+
+function _show(io::IO, ::MIME"image/png", plt::Plot{GastonBackend})
+end
+
+function _display(plt::Plot{GastonBackend})
+    display(plt.o)
+end
diff --git a/src/init.jl b/src/init.jl
index 2a64844d..02717388 100644
--- a/src/init.jl
+++ b/src/init.jl
@@ -70,6 +70,11 @@ function __init__()
         include(fn)
     end
 
+    @require Gaston = "4b11ee91-296f-5714-9832-002c20994614" begin
+        fn = joinpath(@__DIR__, "backends", "gaston.jl")
+        include(fn)
+    end
+
     @require IJulia = "7073ff75-c697-5162-941a-fcdaad2a7d2a" begin
         if IJulia.inited
             _init_ijulia_plotting()