semaphor update (28jan08)

git-svn-id: svn://tug.org/texlive/trunk@6442 c570f23f-e606-0410-a88d-b1316a301751

10 files changed, 535 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/fonts/semaphor/Makefile b/Master/texmf-dist/doc/fonts/semaphor/Makefile
new file mode 100644
index 00000000000..ad29c04d034
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/semaphor/Makefile
@@ -0,0 +1,94 @@
+# Semafor font (c) 1998-2008 Vit Zyka
+# Generation: (with Metatype1)
+#   make         (old_lig := true)
+#   make cp-tfm
+#   make         (old_lig := false)
+#   make example
+#   make all-otf (on cygwin with FontForge)
+#   make cp
+
+PILAR := smfr10 smfb10 smfsl10 smfbsl10 smftt10
+
+EMPTY := smfer10 smfeb10 smfesl10 smfebsl10 smfett10
+
+PERSON := smfpr10 smfpb10 smfpsl10 smfpbsl10 smfptt10
+
+FONTS = $(PILAR) $(EMPTY) $(PERSON)
+
+PFB_FONTS = $(addsuffix .pfb, $(FONTS))
+AFM_FONTS = $(PFB_FONTS:.pfb=.afm)
+OTF_FONTS = $(PFB_FONTS:.pfb=.otf)
+
+RM_EXT     := *.aux *.log *.bak *.clg *.cnt *.lo1 *.lo2
+RM_ALL_EXT := $(RM_EXT) *.*~ *~ *.dvi *.pdf *.map *.enc *.pfb *.pfm *.afm *.tfm *.otf
+
+all: $(PFB_FONTS)
+	cat *.map > semaf.map
+
+all-otf: $(OTF_FONTS)
+
+$(foreach a,$(join $(addsuffix :,$(FONTS)),$(PFB_FONTS)),$(eval $(a)))
+
+.SUFFIXES: .mp .pfb .afm .otf
+.PHONY: touch copy clean cleanall test example $(OTF_FONTS)
+
+.SECONDEXPANSION:
+
+$(PFB_FONTS): $$*.mp semaf.mp
+	mkfont1 $*
+
+$(OTF_FONTS): #$$*.mp semaf.mp
+	fontforge -script pfb2otf.pe $*.pfb
+
+TDS_BASE :=  ./texmf
+CTAN_BASE := ./distr/semaf
+CP_VENDOR := public/semaf
+
+copy:
+	cp *.afm $(TDS_BASE)/fonts/afm/$(CP_VENDOR)
+	cp *.pfb *.pfm $(TDS_BASE)/fonts/type1/$(CP_VENDOR)
+	cp *.otf $(TDS_BASE)/fonts/opentype/$(CP_VENDOR)
+	cp *.mp Makefile README pfb2otf.pe $(TDS_BASE)/fonts/source/$(CP_VENDOR)
+	cp semaf.map $(TDS_BASE)/fonts/map/dvips
+	cp *.enc $(TDS_BASE)/fonts/enc/dvips
+	cp semaf.tex $(TDS_BASE)/tex/plain/semaf
+	cp *.fd $(TDS_BASE)/tex/latex/semaf
+	cp t-type-*.tex $(TDS_BASE)/tex/context/third/semaf
+	cp example.tex example.pdf $(TDS_BASE)/doc/fonts/$(CP_VENDOR)
+	cp test-context.tex test-context.pdf $(TDS_BASE)/doc/fonts/$(CP_VENDOR)
+	cp README $(TDS_BASE)/doc/fonts/$(CP_VENDOR)
+	#cp *.tfm $(TDS_BASE)/fonts/tfm/$(CP_VENDOR)
+	#cp *.tfm $(CTAN_BASE)/support/tfm
+	cp *.afm *.pfb *.pfm $(CTAN_BASE)/type1
+	cp *.otf $(CTAN_BASE)/opentype
+	cp README $(CTAN_BASE)
+	cp test-context.pdf $(CTAN_BASE)/test-semaf.pdf
+	cp *.mp Makefile pfb2otf.pe $(CTAN_BASE)/metatype1
+	cp semaf.map *.enc $(CTAN_BASE)/support
+	cp semaf.tex *.fd t-type-*.tex $(CTAN_BASE)/support
+	cp example.tex example.pdf $(CTAN_BASE)/doc
+	cp test-context.tex test-context.pdf $(CTAN_BASE)/doc
+
+touch:
+	touch *.mp
+
+test:
+	-pdfclose --file smf.pdf
+	pdftex smf.tex
+	-pdfopen --file smf.pdf
+
+example:
+	-pdfclose --file example.pdf
+	pdftex example.tex
+	-pdfopen --file example.pdf
+
+context:
+	texmfstart texexec test-context
+
+RM = rm -f
+
+clean:
+	$(RM) $(wildcard $(RM_EXT))
+
+clean-all:
+	$(RM) $(wildcard $(RM_ALL_EXT))
diff --git a/Master/texmf-dist/doc/fonts/semaphor/README b/Master/texmf-dist/doc/fonts/semaphor/README
new file mode 100644
index 00000000000..3a3b4e398fa
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/semaphor/README
@@ -0,0 +1,51 @@
+% SEMAPHORE ALPHABET FONT: semafor
+% Copyright (C) 1998-2008 Vit ZYKA, vit.zyka@seznam.cz
+% www.typokvitek.com/semafor
+% version 2.0 (OpenType, Type1, metafont)
+% encoding: ec (Cork,T1)
+
+---------------------------------------------------------------------
+The SIL Open Font License (ofl)
+This font is copyright but you are granted a license which gives you,
+the "user" of the font, legal permission to copy, distribute,
+and/or modify the font. However, if you modify the font you must
+change the name of the font, unless you have the copyright holder's
+permission to do otherwise.
+
+Please check the font's license before using the software.
+http://scripts.sil.org/OFL
+---------------------------------------------------------------------
+
+Distribution directory structure:
+  opentype   OpenType font format
+  type1      Type 1 PostScript format
+  doc        examples
+  metafont   metafont sources (font version 1.0)
+  metatype1  metatype1 sources (font version 2.0)
+  support    TeX support files (tfm,enc,map,plain,LaTeX,ConTeXt)
+
+TeX Directory Structure (TDS) compliant:
+  semaf.tds.zip
+
+SEMAF Font family (15 variants):
+
+  Base shape (simple pillar)
+    smfr10	regular
+    smfb10	bold
+    smfsl10	slanted
+    smfbsl10	bold slanted
+    smftt10	nonproportional
+    
+  Empty shape (no pillar)
+    smfer10	regular
+    smfeb10	bold
+    smfesl10	slanted
+    smfebsl10	bold slanted
+    smfett10	nonproportional
+    
+  Person shape (person pillar)
+    smfpr10	regular
+    smfpb10	bold
+    smfpsl10	slanted
+    smfpbsl10	bold slanted
+    smfptt10	nonproportional
diff --git a/Master/texmf-dist/doc/fonts/semaphor/example.pdf b/Master/texmf-dist/doc/fonts/semaphor/example.pdf
new file mode 100644
index 00000000000..ca824e5d127
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/semaphor/example.pdf
diff --git a/Master/texmf-dist/doc/fonts/semaphor/example.tex b/Master/texmf-dist/doc/fonts/semaphor/example.tex
new file mode 100644
index 00000000000..a13fdcaccc6
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/semaphor/example.tex
@@ -0,0 +1,120 @@
+% SEMAPHORE ALPHABET FONT test file                      "example.tex"
+% Font znaku semaforove abecedy, priklad
+% Copyright (C) 1998-2008 Vit ZYKA, vit.zyka@seznam.cz
+
+\hoffset=-15.4mm \hsize=190mm
+\voffset=-15.4mm \vsize=277mm
+\input semaf
+\let\semaf=\smfbf
+\font\textfn=csssbx10
+\font\tabfn=csss8
+\font\nadpisfn=csssbx10 at 14pt
+\textfn
+\footline={\hfill}
+\newskip\hs \hs=1em
+\newskip\vs \vs=3mm plus1mm minus1mm
+
+\setbox1=\vbox to\hsize{\hsize=30mm
+  \hrule\vskip\vs
+  \centerline{{\nadpisfn Semaphore}}
+  \vskip\vs
+  \centerline{A\hskip\hs {\semaf A}}
+  \centerline{B\hskip\hs {\semaf B}}
+  \centerline{C\hskip\hs {\semaf C}}
+  \centerline{D\hskip\hs {\semaf D}}
+  \centerline{E\hskip\hs {\semaf E}}
+  \centerline{F\hskip\hs {\semaf F}}
+  \centerline{G\hskip\hs {\semaf G}}
+  \vskip\vs
+  \centerline{H\hskip\hs {\semaf H}}
+  \centerline{I\hskip\hs {\semaf I}}
+  \centerline{K\hskip\hs {\semaf K}}
+  \centerline{L\hskip\hs {\semaf L}}
+  \centerline{M\hskip\hs {\semaf M}}
+  \centerline{N\hskip\hs {\semaf N}}
+  \vskip\vs
+  \centerline{O\hskip\hs {\semaf O}}
+  \centerline{P\hskip\hs {\semaf P}}
+  \centerline{Q\hskip\hs {\semaf Q}}
+  \centerline{R\hskip\hs {\semaf R}}
+  \centerline{S\hskip\hs {\semaf S}}
+  \vskip\vs
+  \centerline{T\hskip\hs {\semaf T}}
+  \centerline{U\hskip\hs {\semaf U}}
+  \centerline{Y\hskip\hs {\semaf Y}}
+  \vskip\vs
+  \centerline{J\hskip\hs {\semaf J}}
+  \centerline{V\hskip\hs {\semaf V}}
+  \vskip\vs
+  \centerline{W\hskip\hs {\semaf W}}
+  \centerline{X\hskip\hs {\semaf X}}
+  \vskip\vs
+  \centerline{Z\hskip\hs {\semaf Z}}
+  \vskip\vs
+  \centerline{mistake\hskip\hs {\semaf \char`\~}}
+%  \centerline{digits\hskip\hs {\semaf \char`\$}}
+  \vskip\vs
+  \centerline{1\hskip\hs {\semaf 1}}
+  \centerline{2\hskip\hs {\semaf 2}}
+  \centerline{3\hskip\hs {\semaf 3}}
+  \centerline{4\hskip\hs {\semaf 4}}
+  \centerline{5\hskip\hs {\semaf 5}}
+  \centerline{6\hskip\hs {\semaf 6}}
+  \centerline{7\hskip\hs {\semaf 7}}
+  \centerline{8\hskip\hs {\semaf 8}}
+  \centerline{9\hskip\hs {\semaf 9}}
+  \centerline{0\hskip\hs {\semaf 0}}
+  \vskip\vs\hrule}
+
+\hbox to\hsize{%
+  \vrule\copy1\vrule\hfill%
+%  \vrule\copy1\vrule\hfill%
+%  \vrule\copy1\vrule\hfill%
+%  \vrule\copy1\vrule\hfill%
+%  \vrule\copy1\vrule\hfill%
+%  \vrule\copy1\vrule\hfill%
+%  \vrule\copy1\vrule\hfill%
+%  \vrule\copy1\vrule
+}
+
+\vfill
+Font height: T{\smfr d}T
+
+\vfill
+Italic correction: {\smfr{\smfsl u}u} {\smfr{\smfsl u\/}u}
+
+\vfill
+\tabfn \offinterlineskip
+\halign{\vrule\strut\hskip.5em #\hfill\hskip.5em &
+        \vrule\hskip2pt\hfill#\hfill\hskip2pt &
+        \vrule\hskip2pt\hfill#\hfill\hskip2pt &
+        \vrule\hskip2pt\hfill#\hfill\hskip2pt &
+        \vrule\hskip2pt\hfill#\hfill\hskip2pt &
+        \vrule\hskip2pt\hfill#\hfill\hskip2pt\vrule \cr
+  \noalign{\hrule}
+  & Roman & Bold & Monospace & Slanted & Bold Slanted \cr
+  \noalign{\hrule}
+  Pillar & \smfr Semafor& \smfbf Semafor& \smftt Semafor& \smfsl Semafor& \smfbsl Semafor\cr
+  Empty & \smfer Semafor& \smfebf Semafor& \smfett Semafor& \smfesl Semafor& \smfebsl Semafor\cr
+  Person& \smfpr Semafor& \smfpbf Semafor& \smfptt Semafor& \smfpsl Semafor& \smfpbsl Semafor\cr
+  \noalign{\hrule}}
+
+% --------------------------------------------------------------------- Table
+\goodbreak
+\let\noinit=!
+\input testfont
+\frenchspacing \baselineskip=12pt \lineskip=0pt \lineskiplimit=-10pt
+\def\fontname{smfr10}\startfont\table\text\goodbreak
+%\def\fontname{smfbf10}\startfont\table\goodbreak
+%\def\fontname{smfsl10}\startfont\table\goodbreak
+%\def\fontname{smftt10}\startfont\table\goodbreak
+%\def\fontname{smfer10}\startfont\table\goodbreak
+%\def\fontname{smfebf10}\startfont\table\goodbreak
+%\def\fontname{smfesl10}\startfont\table\goodbreak
+%\def\fontname{smfett10}\startfont\table\goodbreak
+%\def\fontname{smfpr10}\startfont\table\goodbreak
+%\def\fontname{smfpbf10}\startfont\table\goodbreak
+%\def\fontname{smfpsl10}\startfont\table\goodbreak
+%\def\fontname{smfptt10}\startfont\table\goodbreak
+
+\end
\ No newline at end of file
diff --git a/Master/texmf-dist/doc/fonts/semaphor/pfb2otf.pe b/Master/texmf-dist/doc/fonts/semaphor/pfb2otf.pe
new file mode 100644
index 00000000000..d487db63c75
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/semaphor/pfb2otf.pe
@@ -0,0 +1,3 @@
+Open($1)
+MergeFeature($1:r + ".afm")
+Generate($1:r + ".otf")
diff --git a/Master/texmf-dist/doc/fonts/semaphor/semaf.tex b/Master/texmf-dist/doc/fonts/semaphor/semaf.tex
new file mode 100644
index 00000000000..f96cbdc118e
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/semaphor/semaf.tex
@@ -0,0 +1,30 @@
+%% Plain TeX font definitions for semaphore              file "semaf.tex"
+%% Copyright (c) Vit ZYKA, 2000-2008, vit.zyka@seznam.cz
+
+\newif\ifPDF
+\ifx\pdfoutput\undefined\else\ifnum\pdfoutput>0 \expandafter\PDFtrue\fi\fi
+
+\ifPDF
+  \pdfmapfile{+semaf.map}
+\fi
+
+% pilar
+\font\smfr=smfr10
+\font\smfbf=smfb10    % was smfbf10 !
+\font\smftt=smftt10
+\font\smfsl=smfsl10
+\font\smfbsl=smfbsl10
+% empty
+\font\smfer=smfer10
+\font\smfebf=smfeb10  % was smfebf10 !
+\font\smfett=smfett10
+\font\smfesl=smfesl10
+\font\smfebsl=smfebsl10
+% person
+\font\smfpr=smfpr10
+\font\smfpbf=smfpb10
+\font\smfptt=smfptt10
+\font\smfpsl=smfpsl10
+\font\smfpbsl=smfpbsl10
+
+\endinput
\ No newline at end of file
diff --git a/Master/texmf-dist/doc/fonts/semaphor/t-type-semaf.tex b/Master/texmf-dist/doc/fonts/semaphor/t-type-semaf.tex
new file mode 100644
index 00000000000..027e72bc6ba
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/semaphor/t-type-semaf.tex
@@ -0,0 +1,120 @@
+% ConTeXt support of SEMAF font
+% (C) Vit Zyka, 2008, vit.zyka@seznam.cz, license: GNU GPL
+% semaf font: (C) Vit Zyka, license: see www.stormtype.com
+%
+\tracetypescriptstrue
+
+% -map -------------------------------------------------------------------
+\starttypescript [map] [semaf,semaf-person,semaf-empty] [ec]
+  \loadmapfile[semaf.map]
+\stoptypescript
+
+% -base pillar -----------------------------------------------------------
+\starttypescript [sans] [semaf] [name]
+  \setups [font:fallback:sans]
+  \definefontsynonym [Sans]		  [Semaf-Roman]
+  \definefontsynonym [SansBold]	          [Semaf-Bold]
+  \definefontsynonym [SansSlanted]	  [Semaf-Slanted]
+  \definefontsynonym [SansBoldSlanted]    [Semaf-Bold-Slanted]
+  \definefontsynonym [SansItalic]	  [Semaf-Slanted]
+  \definefontsynonym [SansBoldItalic]	  [Semaf-Bold-Slanted]
+  \definefontsynonym [SansRegular]        [Sans]
+\stoptypescript
+
+\starttypescript [sans] [semaf] [ec]
+  \definefontsynonym [Semaf-Roman]        [smfr10]  [encoding=\typescriptthree]
+  \definefontsynonym [Semaf-Bold]         [smfb10]  [encoding=\typescriptthree]
+  \definefontsynonym [Semaf-Slanted]      [smfsl10] [encoding=\typescriptthree]
+  \definefontsynonym [Semaf-Bold-Slanted] [smfbsl10][encoding=\typescriptthree]
+\stoptypescript
+
+\starttypescript [mono] [semaf] [name]
+  \setups [font:fallback:mono]
+  \definefontsynonym [Mono]		  [Semaf-Mono-Roman]
+  \definefontsynonym [MonoRegular]        [Mono]
+\stoptypescript
+
+\starttypescript [mono] [semaf] [ec]
+  \definefontsynonym [Semaf-Mono-Roman]   [smftt10] [encoding=\typescriptthree]
+\stoptypescript
+
+% -person pillar ---------------------------------------------------------
+\starttypescript [sans] [semaf-person] [name]
+  \setups [font:fallback:sans]
+  \definefontsynonym [Sans]		  [Semaf-Person-Roman]
+  \definefontsynonym [SansBold]	          [Semaf-Person-Bold]
+  \definefontsynonym [SansSlanted]	  [Semaf-Person-Slanted]
+  \definefontsynonym [SansBoldSlanted]    [Semaf-Person-Bold-Slanted]
+  \definefontsynonym [SansItalic]	  [Semaf-Person-Slanted]
+  \definefontsynonym [SansBoldItalic]	  [Semaf-Person-Bold-Slanted]
+  \definefontsynonym [SansRegular]        [Sans]
+\stoptypescript
+
+\starttypescript [sans] [semaf-person] [ec]
+  \definefontsynonym [Semaf-Person-Roman]        [smfpr10]  [encoding=\typescriptthree]
+  \definefontsynonym [Semaf-Person-Bold]         [smfpb10]  [encoding=\typescriptthree]
+  \definefontsynonym [Semaf-Person-Slanted]      [smfpsl10] [encoding=\typescriptthree]
+  \definefontsynonym [Semaf-Person-Bold-Slanted] [smfpbsl10][encoding=\typescriptthree]
+\stoptypescript
+
+\starttypescript [mono] [semaf-person] [name]
+  \setups [font:fallback:mono]
+  \definefontsynonym [Mono]		  [Semaf-Mono-Person-Roman]
+  \definefontsynonym [MonoRegular]        [Mono]
+\stoptypescript
+
+\starttypescript [mono] [semaf-person] [ec]
+  \definefontsynonym [Semaf-Mono-Person-Roman]   [smfptt10] [encoding=\typescriptthree]
+\stoptypescript
+
+% -empty pillar ----------------------------------------------------------
+\starttypescript [sans] [semaf-empty] [name]
+  \setups [font:fallback:sans]
+  \definefontsynonym [Sans]		  [Semaf-Empty-Roman]
+  \definefontsynonym [SansBold]	          [Semaf-Empty-Bold]
+  \definefontsynonym [SansSlanted]	  [Semaf-Empty-Slanted]
+  \definefontsynonym [SansBoldSlanted]    [Semaf-Empty-Bold-Slanted]
+  \definefontsynonym [SansItalic]	  [Semaf-Empty-Slanted]
+  \definefontsynonym [SansBoldItalic]	  [Semaf-Empty-Bold-Slanted]
+  \definefontsynonym [SansRegular]        [Sans]
+\stoptypescript
+
+\starttypescript [sans] [semaf-empty] [ec]
+  \definefontsynonym [Semaf-Empty-Roman]        [smfer10]  [encoding=\typescriptthree]
+  \definefontsynonym [Semaf-Empty-Bold]         [smfeb10]  [encoding=\typescriptthree]
+  \definefontsynonym [Semaf-Empty-Slanted]      [smfesl10] [encoding=\typescriptthree]
+  \definefontsynonym [Semaf-Empty-Bold-Slanted] [smfebsl10][encoding=\typescriptthree]
+\stoptypescript
+
+\starttypescript [mono] [semaf-empty] [name]
+  \setups [font:fallback:mono]
+  \definefontsynonym [Mono]		  [Semaf-Mono-Empty-Roman]
+  \definefontsynonym [MonoRegular]        [Mono]
+\stoptypescript
+
+\starttypescript [mono] [semaf-empty] [ec]
+  \definefontsynonym [Semaf-Mono-Empty-Roman]   [smfett10] [encoding=\typescriptthree]
+\stoptypescript
+
+% -exa --------------------------------------------------------------------
+\starttypescript [Semaf] [ec]
+  \definebodyfontenvironment [Semaf][default][interlinespace=1.2ex]
+  \definetypeface [Semaf] [ss] [sans] [semaf] [default] [encoding=\typescripttwo]
+  \definetypeface [Semaf] [tt] [mono] [semaf] [default] [encoding=\typescripttwo]
+\stoptypescript
+
+\starttypescript [Semaf-Person] [ec]
+  \definebodyfontenvironment [Semaf-Person][default][interlinespace=1.2ex]
+  \definetypeface [Semaf-Person] [ss] [sans] [semaf-person] [default] [encoding=\typescripttwo]
+  \definetypeface [Semaf-Person] [tt] [mono] [semaf-person] [default] [encoding=\typescripttwo]
+\stoptypescript
+
+\starttypescript [Semaf-Empty] [ec]
+  \definebodyfontenvironment [Semaf][default][interlinespace=1.2ex]
+  \definetypeface [Semaf-Empty] [ss] [sans] [semaf-empty] [default] [encoding=\typescripttwo]
+  \definetypeface [Semaf-Empty] [tt] [mono] [semaf-empty] [default] [encoding=\typescripttwo]
+\stoptypescript
+
+\endinput
+
+% end of t-type-semaf.tex
diff --git a/Master/texmf-dist/doc/fonts/semaphor/test-context.pdf b/Master/texmf-dist/doc/fonts/semaphor/test-context.pdf
new file mode 100644
index 00000000000..0ce19adb6f3
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/semaphor/test-context.pdf
diff --git a/Master/texmf-dist/doc/fonts/semaphor/test-context.tex b/Master/texmf-dist/doc/fonts/semaphor/test-context.tex
new file mode 100644
index 00000000000..3bce19897f5
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/semaphor/test-context.tex
@@ -0,0 +1,117 @@
+\usetypescriptfile[t-type-semaf]
+\usetypescript[Semaf][ec]
+\usetypescript[Semaf-Empty][ec]
+\usetypescript[Semaf-Person][ec]
+%\setupbodyfont[Semaf,10pt,ss]
+
+\def\S[#1]{{\switchtobodyfont[Semaf]#1semafor}}
+\def\E[#1]{{\switchtobodyfont[Semaf-Empty]#1semafor}}
+\def\P[#1]{{\switchtobodyfont[Semaf-Person]#1semafor}}
+
+\setuplayout
+  [backspace=15mm,topspace=8mm,bottomspace=8mm,
+   header=0pt,footer=0pt,
+   width=fit,height=fit]
+\noheaderandfooterlines
+
+\starttext
+Text by semaphore:
+\blank
+{\switchtobodyfont[Semaf,10pt,ss]\input knuth \endgraf}
+
+\blank[3*big]
+
+Font variants:
+\blank
+\setuptables[distance=small,height=3]
+\starttable[|l|c|c|c|c|c|]
+\NC Pillar
+    \NC \bf Regular \NC \bf Bold \NC \bf Slanted \NC \bf Bold Slanted \NC \bf Mono    \NC\AR
+\HL
+\NC Base
+    \NC \S[]    \NC \S[\bf] \NC \S[\it] \NC \S[\bi]      \NC \S[\tt] \NC\AR 
+\NC Empty
+    \NC \E[]    \NC \E[\bf] \NC \E[\it] \NC \E[\bi]      \NC \E[\tt] \NC\AR 
+\NC Person
+    \NC \P[]    \NC \P[\bf] \NC \P[\it] \NC \P[\bi]      \NC \P[\tt] \NC\AR 
+\stoptable
+
+\blank[3*big]
+
+\def\semaf{\switchtobodyfont[Semaf,10pt,ss]}
+\newskip\hs \hs=1em
+\newskip\vs \vs=3mm plus1mm minus1mm
+\setbox1=\vbox to\hsize{\hsize=30mm
+  \hrule\vskip\vs
+  \centerline{{\bf The Code}}
+  \vskip\vs
+  \centerline{A\hskip\hs {\semaf A}}
+  \centerline{B\hskip\hs {\semaf B}}
+  \centerline{C\hskip\hs {\semaf C}}
+  \centerline{D\hskip\hs {\semaf D}}
+  \centerline{E\hskip\hs {\semaf E}}
+  \centerline{F\hskip\hs {\semaf F}}
+  \centerline{G\hskip\hs {\semaf G}}
+  \vskip\vs
+  \centerline{H\hskip\hs {\semaf H}}
+  \centerline{I\hskip\hs {\semaf I}}
+  \centerline{K\hskip\hs {\semaf K}}
+  \centerline{L\hskip\hs {\semaf L}}
+  \centerline{M\hskip\hs {\semaf M}}
+  \centerline{N\hskip\hs {\semaf N}}
+  \vskip\vs
+  \centerline{O\hskip\hs {\semaf O}}
+  \centerline{P\hskip\hs {\semaf P}}
+  \centerline{Q\hskip\hs {\semaf Q}}
+  \centerline{R\hskip\hs {\semaf R}}
+  \centerline{S\hskip\hs {\semaf S}}
+  \vskip\vs
+  \centerline{T\hskip\hs {\semaf T}}
+  \centerline{U\hskip\hs {\semaf U}}
+  \centerline{Y\hskip\hs {\semaf Y}}
+  \vskip\vs
+  \centerline{J\hskip\hs {\semaf J}}
+  \centerline{V\hskip\hs {\semaf V}}
+  \vskip\vs
+  \centerline{W\hskip\hs {\semaf W}}
+  \centerline{X\hskip\hs {\semaf X}}
+  \vskip\vs
+  \centerline{Z\hskip\hs {\semaf Z}}
+  \vfill\hrule}
+
+\setbox2=\vbox to\hsize{\hsize=30mm
+  \hrule\vskip\vs
+  \centerline{{\bf \vphantom{The Code}}}
+  \vskip\vs
+  \centerline{mistake\hskip\hs {\semaf \char`\~}}
+  \vskip\vs
+  \centerline{start digits\hskip\hs {\semaf \char`\$}}
+  \centerline{stop digits\hskip\hs {\semaf \char`\#}}
+  \vskip\vs
+  \centerline{1\hskip\hs {\semaf 1}}
+  \centerline{2\hskip\hs {\semaf 2}}
+  \centerline{3\hskip\hs {\semaf 3}}
+  \centerline{4\hskip\hs {\semaf 4}}
+  \centerline{5\hskip\hs {\semaf 5}}
+  \centerline{6\hskip\hs {\semaf 6}}
+  \centerline{7\hskip\hs {\semaf 7}}
+  \centerline{8\hskip\hs {\semaf 8}}
+  \centerline{9\hskip\hs {\semaf 9}}
+  \centerline{0\hskip\hs {\semaf 0}}
+  \vskip\vs
+  \centerline{fullstop\hskip\hs {\semaf.}}
+  \centerline{didactic\hskip\hs {\semaf*}}
+  \vfill\hrule}
+
+\setbox3=\hbox{\switchtobodyfont[5pt]\copyright{} V\'\i t Z\'yka, 2008, vit.zyka@seznam.cz}
+\dp3=0pt
+
+\hbox to\hsize{%
+  \vrule\copy1\vrule
+  \hskip1cm
+  \vrule\copy2\vrule
+  \hfill
+  \box3
+}
+
+\stoptext
diff --git a/Master/texmf-dist/doc/fonts/semaphor/test-semaf.pdf b/Master/texmf-dist/doc/fonts/semaphor/test-semaf.pdf
new file mode 100644
index 00000000000..0ce19adb6f3
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/semaphor/test-semaf.pdf