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\titlefont = 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 \def\title#1{\centerline{\titlefont #1}}
  39 \def\author#1{\centerline{#1}}
  40
  41 \title{FETA}
  42
  43 \centerline{\subtitle (definitely not an abbreviation for Font-En-Tja)}
  44
  45 \author{Han-Wen Nienhuys and Jan Nieuwenhuizen}
  46
  47
  48 \vskip5mm
  49
  50 \listfont{\fetatwenty}{0}{105}
  51 % urg
  52 \vskip-\charheight
  53 \listfont{\fetanumber}{48}{58}
  54 \vskip-\charheight
  55 \listfont{\fetafinger}{48}{58}
  56 \vskip-\charheight
  57 \listfont{\fetadyn}{0}{6}
  58 \vskip-\charheight
  59
  60 \lilyfooter
  61
  62 \bye