mantao/Plots.jl
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Gaston: remove :vline, :hline markers

Browse Source
This commit is contained in:
t-bltg 2021-08-01 16:18:19 +02:00 committed by GitHub
parent d8a40f5400
commit b7c6a65921
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/backends/gaston.jl
View File

@ -233,23 +233,6 @@ function gaston_add_series(plt::Plot{GastonBackend}, series::Series)
nothing nothing
end end
function gaston_hvline!(sp, series, curveconf, pt, dt, lw, lc, command)
if pt == :hline
lo, hi = axis_limits(sp, :x)
for y ∈ series[:y]
sp.o.axesconf *= "\nset arrow from $lo,$y to $hi,$y nohead lc $lc lw $lw dt $dt"
end
elseif pt == :vline
lo, hi = axis_limits(sp, :y)
for x ∈ series[:x]
sp.o.axesconf *= "\nset arrow from $x,$lo to $x,$hi nohead lc $lc lw $lw dt $dt"
end
else
push!(curveconf, command)
end
nothing
end
function gaston_seriesconf!(sp::Subplot{GastonBackend}, series::Series, i::Int, add_to_legend::Bool) function gaston_seriesconf!(sp::Subplot{GastonBackend}, series::Series, i::Int, add_to_legend::Bool)
#= #=
gnuplot abbreviations (see gnuplot/src/set.c) gnuplot abbreviations (see gnuplot/src/set.c)
@ -278,14 +261,14 @@ function gaston_seriesconf!(sp::Subplot{GastonBackend}, series::Series, i::Int,
if st ∈ (:scatter, :scatter3d) if st ∈ (:scatter, :scatter3d)
lc, dt, lw = gaston_lc_ls_lw(series, clims, i) lc, dt, lw = gaston_lc_ls_lw(series, clims, i)
pt, ps, mc = gaston_mk_ms_mc(series, clims, i) pt, ps, mc = gaston_mk_ms_mc(series, clims, i)
gaston_hvline!(sp, series, curveconf, pt, dt, lw, mc, "w points pt $pt ps $ps lc $mc") push!(curveconf, "w points pt $pt ps $ps lc $mc")
elseif st ∈ (:path, :straightline, :path3d) elseif st ∈ (:path, :straightline, :path3d)
lc, dt, lw = gaston_lc_ls_lw(series, clims, i) lc, dt, lw = gaston_lc_ls_lw(series, clims, i)
if series[:markershape] == :none # simplepath if series[:markershape] == :none # simplepath
push!(curveconf, "w lines lc $lc dt $dt lw $lw") push!(curveconf, "w lines lc $lc dt $dt lw $lw")
else else
pt, ps, mc = gaston_mk_ms_mc(series, clims, i) pt, ps, mc = gaston_mk_ms_mc(series, clims, i)
gaston_hvline!(sp, series, curveconf, pt, dt, lw, mc, "w lp lc $mc dt $dt lw $lw pt $pt ps $ps") push!(curveconf, "w lp lc $mc dt $dt lw $lw pt $pt ps $ps")
end end
elseif st == :shape elseif st == :shape
fc = gaston_color(get_fillcolor(series, i), get_fillalpha(series, i)) fc = gaston_color(get_fillcolor(series, i), get_fillalpha(series, i))
@ -504,7 +487,6 @@ function gaston_marker(marker, alpha)
marker == :dtriangle && return filled ? 11 : 10 marker == :dtriangle && return filled ? 11 : 10
marker == :diamond && return filled ? 13 : 12 marker == :diamond && return filled ? 13 : 12
marker == :pentagon && return filled ? 15 : 14 marker == :pentagon && return filled ? 15 : 14
marker ∈ (:vline, :hline) && return marker
@warn "Gaston: unsupported marker $marker" @warn "Gaston: unsupported marker $marker"
return 1 return 1