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

Right-align title text if title_location = :right

Browse Source
This commit is contained in:
Pearl Li 2017-10-23 17:19:16 -04:00
parent 530ad1e701
commit 9ea78af4a2
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/backends/gr.jl
View File

@ -863,16 +863,17 @@ function gr_display(sp::Subplot{GRBackend}, w, h, viewport_canvas)
GR.savestate() GR.savestate()
if sp[:title] != "" if sp[:title] != ""
gr_set_font(sp[:titlefont]) gr_set_font(sp[:titlefont])
GR.settextalign(GR.TEXT_HALIGN_CENTER, GR.TEXT_VALIGN_TOP)
gr_set_textcolor(sp[:foreground_color_title]) gr_set_textcolor(sp[:foreground_color_title])
tpos = if sp[:title_location] == :left if sp[:title_location] == :left
viewport_plotarea[1] GR.settextalign(GR.TEXT_HALIGN_LEFT, GR.TEXT_VALIGN_TOP)
gr_text(viewport_plotarea[1], viewport_subplot[4], sp[:title])
elseif sp[:title_location] == :right elseif sp[:title_location] == :right
viewport_plotarea[2] GR.settextalign(GR.TEXT_HALIGN_RIGHT, GR.TEXT_VALIGN_TOP)
gr_text(viewport_plotarea[2], viewport_subplot[4], sp[:title])
else else
gr_view_xcenter() GR.settextalign(GR.TEXT_HALIGN_CENTER, GR.TEXT_VALIGN_TOP)
gr_text(gr_view_xcenter(), viewport_subplot[4], sp[:title])
end end
gr_text(tpos, viewport_subplot[4], sp[:title])
end end
if xaxis[:guide] != "" if xaxis[:guide] != ""