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

Gaston: rework multiplot

Browse Source
This commit is contained in:
t-bltg 2021-08-01 15:04:09 +02:00 committed by GitHub
parent 773c7a90b4
commit 0b989cd33e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/backends/gaston.jl
View File

@ -149,9 +149,14 @@ end
function gaston_multiplot_pos_size(layout, parent_xy_wh) function gaston_multiplot_pos_size(layout, parent_xy_wh)
nr, nc = size(layout) nr, nc = size(layout)
dat = Array{Any}(nothing, nr, nc) dat = Array{Any}(nothing, nr, nc)
for r ∈ 1:nr, c ∈ 1:nc # NOTE: col major for r ∈ 1:nr, c ∈ 1:nc
l = layout[r, c] l = layout[r, c]
if !isa(l, EmptyLayout) # width and height (pct) are multiplicative (parent)
w = layout.widths[c].value * parent_xy_wh[3]
h = layout.heights[r].value * parent_xy_wh[4]
if isa(l, EmptyLayout)
dat[r, c] = (c - 1) * w, (r - 1) * h, w, h, nothing
else
# previous position (origin) # previous position (origin)
prev_r = r > 1 ? dat[r - 1, c] : nothing prev_r = r > 1 ? dat[r - 1, c] : nothing
prev_c = c > 1 ? dat[r, c - 1] : nothing prev_c = c > 1 ? dat[r, c - 1] : nothing
@ -159,9 +164,6 @@ function gaston_multiplot_pos_size(layout, parent_xy_wh)
prev_c isa Array && (prev_c = prev_c[end, end]) prev_c isa Array && (prev_c = prev_c[end, end])
x = prev_c !== nothing ? prev_c[1] + prev_c[3] : parent_xy_wh[1] x = prev_c !== nothing ? prev_c[1] + prev_c[3] : parent_xy_wh[1]
y = prev_r !== nothing ? prev_r[2] + prev_r[4] : parent_xy_wh[2] y = prev_r !== nothing ? prev_r[2] + prev_r[4] : parent_xy_wh[2]
# width and height (pct) are multiplicative (parent)
w = layout.widths[c].value * parent_xy_wh[3]
h = layout.heights[r].value * parent_xy_wh[4]
if l isa GridLayout if l isa GridLayout
sub = gaston_multiplot_pos_size(l, (x, y, w, h)) sub = gaston_multiplot_pos_size(l, (x, y, w, h))
dat[r, c] = size(sub) == (1, 1) ? only(sub) : sub dat[r, c] = size(sub) == (1, 1) ? only(sub) : sub
@ -175,15 +177,17 @@ end
function gaston_multiplot_pos_size!(dat) function gaston_multiplot_pos_size!(dat)
nr, nc = size(dat) nr, nc = size(dat)
for c ∈ 1:nc, r ∈ 1:nr # NOTE: row major for r ∈ 1:nr, c ∈ 1:nc
xy_wh_sp = dat[r, c] xy_wh_sp = dat[r, c]
if xy_wh_sp isa Array if xy_wh_sp isa Array
gaston_multiplot_pos_size!(n, xy_wh_sp) gaston_multiplot_pos_size!(xy_wh_sp)
elseif xy_wh_sp isa Tuple elseif xy_wh_sp isa Tuple
x, y, w, h, sp = xy_wh_sp x, y, w, h, sp = xy_wh_sp
sp === nothing && continue sp === nothing && continue
sp.o === nothing && continue sp.o === nothing && continue
sp.o.axesconf = "set origin $x,$y\nset size $w,$h\n" * sp.o.axesconf @show r, c x, y sp[:title]
# gnuplot screen coordinates: bottom left at 0,0 and top right at 1,1
sp.o.axesconf = "set origin $x, $(1 - y - h)\nset size $w, $h\n" * sp.o.axesconf
end end
end end
nothing nothing