summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/trad-font-samples.mp
diff options
context:
space:
mode:
Diffstat (limited to 'info/drawing-with-metapost/src/trad-font-samples.mp')
-rw-r--r--info/drawing-with-metapost/src/trad-font-samples.mp50
1 files changed, 50 insertions, 0 deletions
diff --git a/info/drawing-with-metapost/src/trad-font-samples.mp b/info/drawing-with-metapost/src/trad-font-samples.mp
new file mode 100644
index 0000000000..44674cf604
--- /dev/null
+++ b/info/drawing-with-metapost/src/trad-font-samples.mp
@@ -0,0 +1,50 @@
+\documentclass[border=5mm]{standalone}
+\usepackage{luamplib}
+\begin{document}
+\begin{mplibcode}
+beginfig(1);
+
+vardef set_line(expr f, n) =
+ save code, name, sample;
+ picture code, name, sample;
+ code = f infont "cs-lmtt10";
+ name = n infont "cs-lmss10";
+ sample = "Hand in glove 42" infont f;
+ yy := yy - 14;
+ draw code shifted (-48,yy);
+ draw name shifted (0,yy);
+ draw sample shifted (124,yy);
+ enddef;
+
+vardef set_symbol_line(expr f, n) =
+ save code, name, sample;
+ picture code, name, sample;
+ code = f infont "cs-lmtt10";
+ name = n infont "cs-lmss10";
+ sample = (char 97 & char 98 & char 99 & char 100 & char 101 & char 102) infont f;
+ yy := yy - 14;
+ draw code shifted (-48,yy);
+ draw name shifted (0,yy);
+ draw sample shifted (124,yy);
+ enddef;
+
+
+beginfig(2);
+yy := 150;
+set_line("pagk8r","Avant Garde");
+set_line("pbkl8r","Bookman");
+set_line("pcrr8r","Courier");
+set_line("phvr8r","Helvetica");
+set_line("pncr8r","New Century Schoolbook");
+set_line("pplr8r","Palatino");
+set_line("ptmr8r","Times");
+set_line("pzcmi8r","Zapf Chancery");
+yy := yy - 6;
+set_symbol_line("pzdr","Zapf Dingbats");
+set_symbol_line("psyr","Symbol");
+set_symbol_line("eurm10","Euler");
+
+endfig;
+\end{mplibcode}
+\end{document}
+