add begin/end{preview} to tex output

[coq-hetmet.git] / examples / GArrowTikZ.hs

diff --git a/examples/GArrowTikZ.hs b/examples/GArrowTikZ.hs
index f877b42..6ebaded 100644 (file)
--- a/examples/GArrowTikZ.hs
+++ b/examples/GArrowTikZ.hs
@@ -335,13 +335,17 @@ 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{preview}"
           putStrLn $ "\\begin{tikzpicture}[every on chain/.style={join=by ->},yscale=-1]"
           putStrLn (toTikZ example)
           putStrLn "\\end{tikzpicture}"
+          putStrLn "\\end{preview}"
           --putStrLn "\\pagebreak"
           --putStrLn "\\begin{align*}"
           --putStr   (toTikZ' example)