From 6eea348fd90ef3476b8885dc7f79aa2ad185ebb0 Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 8 Jun 2016 19:08:29 +0000 Subject: [PATCH] PGF.VisualizeTree: add white background in the SVG rendering of dependency trees This makes them look the same as SVG produced by graphviz --- src/runtime/haskell/PGF/VisualizeTree.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/runtime/haskell/PGF/VisualizeTree.hs b/src/runtime/haskell/PGF/VisualizeTree.hs index d274b7300..29e8d3de2 100644 --- a/src/runtime/haskell/PGF/VisualizeTree.hs +++ b/src/runtime/haskell/PGF/VisualizeTree.hs @@ -637,6 +637,8 @@ latexDoc body = body, text "\\end{document}"] +-- * SVG (see https://www.w3.org/Graphics/SVG/IG/resources/svgprimer.html) + -- | Render LaTeX pictures as SVG toSVG = concatMap toSVG1 where @@ -648,8 +650,12 @@ toSVG = concatMap toSVG1 ("viewBox",unwords (map show [0,0,x1,y0+5])), ("version","1.1"), ("xmlns","http://www.w3.org/2000/svg")] - (concatMap draw cmds)] + (white_bg:concatMap draw cmds)] where + white_bg = + Elem "rect" ["x".=0,"y".=0,"width".=x1,"height".=y0+5, + ("fill","white")] [] + draw (Put pos obj) = objectSVG pos obj objectSVG pos obj =