mf/feta.tex

   1 % display all feta chars in a pretty picture
   2 % GNU LilyPond
   3 % (c)  1998--2003 Jan Nieuwenhuizen <janneke@gnu.org>
   4 %
   5 % urg: fool ls-latex
   6 \def\urg{
   7 \title{The Feta font}
   8 \author{JCN}
   9 \begin{document}
  10 }
  11
  12
  13 \parindent0pt
  14 \nopagenumbers
  15 \newcount\n
  16 \newcount\i
  17
  18 \font\fetatwenty = feta20
  19 \font\fetanumber = feta-nummer12
  20 \font\fetafinger = feta-nummer5
  21 \font\fetadyn = feta-din10 scaled \magstep 2
  22 \font\titlefont = cmbx12 scaled \magstep 4
  23 \font\subtitle = cmr9
  24
  25 \def\lilyfooter{Lily was here}
  26 \def\setchar#1#2{\hbox to\charwidth{\hss{#1\char#2}\hss}}
  27
  28 \def\charsperline{6}
  29 \def\charheight{55pt}
  30 \def\charwidth{60pt}
  31
  32 \def\listfont#1#2#3{
  33         \n=#2
  34         \advance\n by-1
  35         \advance\n by-\charsperline
  36         \loop\ifnum\n<#3
  37         \advance\n by\charsperline
  38         \i=0
  39         {\vbox to\charheight{\vss\centerline{
  40         {\loop\ifnum\i<\charsperline
  41         \advance\i by1
  42         \advance\n by1
  43         {\setchar{#1}{\number\n}}
  44         \repeat}}}}\repeat}
  45
  46 \def\title#1{\centerline{\titlefont #1}}
  47 \def\author#1{\centerline{#1}}
  48
  49 \title{FETA}
  50
  51 \centerline{\subtitle (definitely not an abbreviation for Font-En-Tja)}
  52
  53 \author{Han-Wen Nienhuys and Jan Nieuwenhuizen}
  54
  55
  56 \vskip5mm
  57
  58 \listfont{\fetatwenty}{0}{105}
  59 % urg
  60 \vskip-\charheight
  61 \listfont{\fetanumber}{48}{58}
  62 \vskip-\charheight
  63 \listfont{\fetafinger}{48}{58}
  64 \vskip-\charheight
  65 \listfont{\fetadyn}{0}{6}
  66 \vskip-\charheight
  67
  68 \lilyfooter
  69
  70 \bye