(defn fig [name eqn &opt dir] (default dir ".") (var fp (file/open (string dir "/" name ".tex") :w)) (file/write fp (string "\\hsize 0pt\n" "\\vsize 0pt\n" "\\nopagenumbers\n" "\\overfullrule 0pt\n" "\\noindent\n" "$$\n")) (file/write fp eqn) (file/write fp "\n$$\n\\bye") (file/close fp)) (defn smallfig [name &opt eqn dir] (default dir ".") (default eqn nil) (if-not (nil? eqn) (do (var fp (file/open (string dir "/" name ".tex") :w)) (file/write fp (string "\\hsize 0pt\n" "\\vsize 0pt\n" "\\nopagenumbers\n" "\\overfullrule 0pt\n" "\\noindent\n" "$\n")) (file/write fp eqn) (file/write fp "\n$\n\\bye") (file/close fp))))
(defn fig [name eqn &opt dir]
(default dir ".")
(var fp (file/open (string dir "/" name ".tex") :w))
(file/write
fp
(string
"\\hsize 0pt\n"
"\\vsize 0pt\n"
"\\nopagenumbers\n"
"\\overfullrule 0pt\n"
"\\noindent\n"
"$$\n"))
(file/write fp eqn)
(file/write fp "\n$$\n\\bye")
(file/close fp))
(defn smallfig [name &opt eqn dir]
(default dir ".")
(default eqn nil)
(if-not (nil? eqn)
(do
(var fp (file/open (string dir "/" name ".tex") :w))
(file/write
fp
(string
"\\hsize 0pt\n"
"\\vsize 0pt\n"
"\\nopagenumbers\n"
"\\overfullrule 0pt\n"
"\\noindent\n"
"$\n"))
(file/write fp eqn)
(file/write fp "\n$\n\\bye")
(file/close fp))))