summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lisp-on-tex/examples/showfont.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /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.tex32
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