Documentation/tex/feta.tex

   1 % display all feta chars in a pretty picture
   2 % GNU LilyPond
   3 % (c) 1998 Jan Nieuwenhuizen <janneke@gnu.org>
   4
   5 \parindent0pt
   6 \nopagenumbers
   7 \newcount\n
   8 \newcount\i
   9
  10 \font\fetatwenty = feta20
  11 \font\fetanumber = feta-nummer12
  12 \font\fetafinger = feta-nummer5
  13 \font\fetadyn = feta-din10 scaled \magstep 2
  14
  15 \def\setchar#1#2{\hbox to\charwidth{\hss{#1\char#2}}}
  16
  17 \def\charsperline{6}
  18 \def\charheight{55pt}
  19 \def\charwidth{60pt}
  20
  21 \def\listfont#1#2#3{
  22         \n=#2
  23         \advance\n by-1
  24         \advance\n by-\charsperline
  25         \loop\ifnum\n<#3
  26         \advance\n by\charsperline
  27         \i=0
  28         \vbox to\charheight{\vss\hbox{
  29         {\loop\ifnum\i<\charsperline
  30         \advance\i by1
  31         \advance\n by1
  32         {\setchar{#1}{\number\n}}
  33         \repeat}}}\repeat}
  34
  35 \listfont{\fetatwenty}{0}{78}
  36 % urg
  37 \vskip-\charheight
  38 \vskip-\charheight
  39 \listfont{\fetanumber}{48}{58}
  40 \vskip-\charheight
  41 \listfont{\fetafinger}{48}{58}
  42 \vskip-\charheight
  43 \listfont{\fetadyn}{0}{6}
  44 \vskip-\charheight
  45
  46 \bye