From a857bd034d826d8718833dd360fe499d5e9c03ba Mon Sep 17 00:00:00 2001 From: Adam Megacz Date: Sun, 15 May 2011 12:13:35 -0700 Subject: [PATCH] GArrowTikZ: improve pdf page cropping --- examples/GArrowTikZ.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/examples/GArrowTikZ.hs b/examples/GArrowTikZ.hs index f877b42..54c31ee 100644 --- a/examples/GArrowTikZ.hs +++ b/examples/GArrowTikZ.hs @@ -335,10 +335,12 @@ tikz' x = tikz $ optimize $ unG (x (PGArrowD { unG = GAS_const 12 }) (PGArrowD { main = do putStrLn "hello" tikz example = do putStrLn "\\documentclass{article}" - putStrLn "\\usepackage[landscape,paperwidth=20in,textheight=19in,paperheight=40in,textwidth=39in]{geometry}" + putStrLn "\\usepackage[paperwidth=\\maxdimen,paperheight=\\maxdimen]{geometry}" putStrLn "\\usepackage{tikz}" putStrLn "\\usepackage{amsmath}" + putStrLn "\\usepackage[tightpage,active]{preview}" putStrLn "\\begin{document}" + putStrLn "\\setlength\\PreviewBorder{5pt}" putStrLn $ "\\begin{tikzpicture}[every on chain/.style={join=by ->},yscale=-1]" putStrLn (toTikZ example) putStrLn "\\end{tikzpicture}" -- 1.7.10.4