diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/lisp-on-tex/examples/showfont.tex |
Initial commit
Diffstat (limited to 'macros/latex/contrib/lisp-on-tex/examples/showfont.tex')
-rw-r--r-- | macros/latex/contrib/lisp-on-tex/examples/showfont.tex | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/macros/latex/contrib/lisp-on-tex/examples/showfont.tex b/macros/latex/contrib/lisp-on-tex/examples/showfont.tex new file mode 100644 index 0000000000..31200d9796 --- /dev/null +++ b/macros/latex/contrib/lisp-on-tex/examples/showfont.tex @@ -0,0 +1,32 @@ +\documentclass{article} +\usepackage{lisp-on-tex} +\newcount\hoge \hoge\endlinechar +\endlinechar=-1 +\read16 to\tmp +\endlinechar=\hoge +\global\font\testfont="\tmp" +\lispinterp{ + (\define \foldl (\lambda (\func \init \list) + (\lispif (\= \list ()) + \init + (\foldl \func (\func \init (\car \list)) (\cdr \list))))) + (\define \createtoken (\lambda (\code) + (\concat '\iffontchar\testfont' (\concat (\intTOstring \code) 't\else f\fi' )))) + (\define \MAX :"30000)} +\begin{document} +\noindent +\lispinterp{ + (\letrec ((\count :0) + (\loop (\lambda () + (\lispif (\< \MAX \count) () + (\begin + (\lispif (\= 't' (\expand (\createtoken \count))) + (\texprint (\group (\concat '\testfont\char' (\intTOstring \count)))) + ()) + (\texprint '\hskip0pt plus1pt') + (\immediatewrite) + (\setB \count (\+ \count :1)) + (\loop)))))) + (\loop)) + } +\end{document}
\ No newline at end of file |