projects
/
coq-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
cb76623
)
GArrowTikZ: improve pdf page cropping
author
Adam Megacz
<megacz@cs.berkeley.edu>
Sun, 15 May 2011 19:13:35 +0000
(12:13 -0700)
committer
Adam Megacz
<megacz@cs.berkeley.edu>
Sun, 15 May 2011 19:13:35 +0000
(12:13 -0700)
examples/GArrowTikZ.hs
patch
|
blob
|
history
diff --git
a/examples/GArrowTikZ.hs
b/examples/GArrowTikZ.hs
index
f877b42
..
54c31ee
100644
(file)
--- 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}"
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{tikz}"
putStrLn "\\usepackage{amsmath}"
+ putStrLn "\\usepackage[tightpage,active]{preview}"
putStrLn "\\begin{document}"
putStrLn "\\begin{document}"
+ putStrLn "\\setlength\\PreviewBorder{5pt}"
putStrLn $ "\\begin{tikzpicture}[every on chain/.style={join=by ->},yscale=-1]"
putStrLn (toTikZ example)
putStrLn "\\end{tikzpicture}"
putStrLn $ "\\begin{tikzpicture}[every on chain/.style={join=by ->},yscale=-1]"
putStrLn (toTikZ example)
putStrLn "\\end{tikzpicture}"