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 \font\title = cmbx12 scaled \magstep 4
  15 \font\subtitle = cmr9
  16
  17 \def\lilyfooter{Lily was here}
  18 \def\setchar#1#2{\hbox to\charwidth{\hss{#1\char#2}\hss}}
  19
  20 \def\charsperline{6}
  21 \def\charheight{55pt}
  22 \def\charwidth{60pt}
  23
  24 \def\listfont#1#2#3{
  25         \n=#2
  26         \advance\n by-1
  27         \advance\n by-\charsperline
  28         \loop\ifnum\n<#3
  29         \advance\n by\charsperline
  30         \i=0
  31         {\vbox to\charheight{\vss\centerline{
  32         {\loop\ifnum\i<\charsperline
  33         \advance\i by1
  34         \advance\n by1
  35         {\setchar{#1}{\number\n}}
  36         \repeat}}}}\repeat}
  37
  38
  39 \centerline{\title FETA}
  40
  41 \centerline{\subtitle (definitely not an abbreviation for Font-En-Tja)}
  42
  43 \vskip5mm
  44
  45 \listfont{\fetatwenty}{0}{123}
  46 % urg
  47 \vskip-\charheight
  48 \listfont{\fetanumber}{48}{58}
  49 \vskip-\charheight
  50 \listfont{\fetafinger}{48}{58}
  51 \vskip-\charheight
  52 \listfont{\fetadyn}{0}{6}
  53 \vskip-\charheight
  54
  55 \lilyfooter
  56
  57 \bye