From 5343f5870c420937cd5584cd059d12341128602c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 17 Sep 2010 18:52:05 +0000 Subject: rm bayer, replaced by universa git-svn-id: svn://tug.org/texlive/trunk@19774 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/bayer/README | 45 - Master/texmf-dist/doc/latex/bayer/forms.eps | 293 -- Master/texmf-dist/doc/latex/bayer/front.ps.gz | Bin 7772 -> 0 bytes .../fonts/source/public/bayer/universal-accents.mf | 164 - .../fonts/source/public/bayer/universal-digits.mf | 162 - .../fonts/source/public/bayer/universal-extras.mf | 366 --- .../source/public/bayer/universal-ligatures.mf | 116 - .../fonts/source/public/bayer/universal-lowers.mf | 347 -- .../source/public/bayer/universal-punctuations.mf | 301 -- .../source/public/bayer/universal-specials.mf | 200 -- .../fonts/source/public/bayer/universal-uppers.mf | 335 -- .../fonts/source/public/bayer/universal.mf | 131 - .../fonts/source/public/bayer/universal10.mf | 43 - .../fonts/source/public/bayer/universal12.mf | 43 - .../fonts/source/public/bayer/universal17.mf | 43 - .../fonts/source/public/bayer/universal8.mf | 43 - .../fonts/source/public/bayer/universal9.mf | 43 - .../fonts/tfm/public/bayer/universal10.tfm | Bin 848 -> 0 bytes .../fonts/tfm/public/bayer/universal12.tfm | Bin 848 -> 0 bytes .../fonts/tfm/public/bayer/universal17.tfm | Bin 848 -> 0 bytes .../fonts/tfm/public/bayer/universal8.tfm | Bin 844 -> 0 bytes .../fonts/tfm/public/bayer/universal9.tfm | Bin 848 -> 0 bytes Master/texmf-dist/source/latex/bayer/universal.dtx | 3320 -------------------- Master/texmf-dist/source/latex/bayer/universal.ins | 78 - Master/texmf-dist/tex/latex/bayer/ot1universal.fd | 56 - Master/texmf-dist/tex/latex/bayer/universal.sty | 116 - Master/tlpkg/tlpsrc/bayer.tlpsrc | 0 Master/tlpkg/tlpsrc/collection-fontsextra.tlpsrc | 1 - 28 files changed, 6246 deletions(-) delete mode 100644 Master/texmf-dist/doc/latex/bayer/README delete mode 100644 Master/texmf-dist/doc/latex/bayer/forms.eps delete mode 100644 Master/texmf-dist/doc/latex/bayer/front.ps.gz delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal-accents.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal-digits.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal-extras.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal-ligatures.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal-lowers.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal-punctuations.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal-specials.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal-uppers.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal10.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal12.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal17.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal8.mf delete mode 100644 Master/texmf-dist/fonts/source/public/bayer/universal9.mf delete mode 100644 Master/texmf-dist/fonts/tfm/public/bayer/universal10.tfm delete mode 100644 Master/texmf-dist/fonts/tfm/public/bayer/universal12.tfm delete mode 100644 Master/texmf-dist/fonts/tfm/public/bayer/universal17.tfm delete mode 100644 Master/texmf-dist/fonts/tfm/public/bayer/universal8.tfm delete mode 100644 Master/texmf-dist/fonts/tfm/public/bayer/universal9.tfm delete mode 100644 Master/texmf-dist/source/latex/bayer/universal.dtx delete mode 100644 Master/texmf-dist/source/latex/bayer/universal.ins delete mode 100644 Master/texmf-dist/tex/latex/bayer/ot1universal.fd delete mode 100644 Master/texmf-dist/tex/latex/bayer/universal.sty delete mode 100644 Master/tlpkg/tlpsrc/bayer.tlpsrc diff --git a/Master/texmf-dist/doc/latex/bayer/README b/Master/texmf-dist/doc/latex/bayer/README deleted file mode 100644 index e8426784f8f..00000000000 --- a/Master/texmf-dist/doc/latex/bayer/README +++ /dev/null @@ -1,45 +0,0 @@ - Herbert Bayers Universal Font For Metafont - -This is a distribution of my implementation of the universal font -by Herbert Bayer of the bauhaus school for METAFONT. It is supported -in LaTeX with a package and font definition file. - -The distribution file are: - - README this file. - universal.dtx documentation and source file - universal.ins bacth file for docstrip - forms.eps PostScribt filefor the documenation - front.ps color front page for documentation - -To install this font, do in a temporary directory: - - 1) - latex universal.ins - 2) - move the files - universal.sty - ot1universal.fd - to some diretory seached by LaTeX, e.g. in teTeX: - /usr/lib/texmf/local/tex/latex/bayer/, or %TEXINPUTS% - in DOS. - 3) - move the file *.mf to a directory searched by - METAFONT, e.g. in teTeX: - /usr/lib/texmf/local/fonts/sources/bayer/, or - %MFINPUTS% in DOS. - 4) - do - latex universal.dtx - latex universal.dtx - makeindex -s gind -o universal.ind universal.idx - makeindex -s gglo -o universal.gls universal.glo - latex universal.dtx - to produce the documentation. - -This implemantation is copyright of Christian Holm, but is distributed -under the GNU General Public Lisence. - -Happy typesetting :-) - -Christian Holm diff --git a/Master/texmf-dist/doc/latex/bayer/forms.eps b/Master/texmf-dist/doc/latex/bayer/forms.eps deleted file mode 100644 index 1aa295120d0..00000000000 --- a/Master/texmf-dist/doc/latex/bayer/forms.eps +++ /dev/null @@ -1,293 +0,0 @@ -%!PS-Adobe-2.0 EPSF-2.0 -%%Title: forms.eps -%%Creator: fig2dev Version 3.2 Patchlevel 0-beta2 -%%CreationDate: Fri Jan 16 04:14:58 1998 -%%For: root@Wilont (root) -%%Orientation: Portrait -%%BoundingBox: 0 0 320 236 -%%Pages: 0 -%%BeginSetup -%%IncludeFeature: *PageSize Letter -%%EndSetup -%%Magnification: 1.00 -%%EndComments -/$F2psDict 200 dict def -$F2psDict begin -$F2psDict /mtrx matrix put -/col-1 {0 setgray} bind def -/col0 {0.000 0.000 0.000 srgb} bind def -/col1 {0.000 0.000 1.000 srgb} bind def -/col2 {0.000 1.000 0.000 srgb} bind def -/col3 {0.000 1.000 1.000 srgb} bind def -/col4 {1.000 0.000 0.000 srgb} bind def -/col5 {1.000 0.000 1.000 srgb} bind def -/col6 {1.000 1.000 0.000 srgb} bind def -/col7 {1.000 1.000 1.000 srgb} bind def -/col8 {0.000 0.000 0.560 srgb} bind def -/col9 {0.000 0.000 0.690 srgb} bind def -/col10 {0.000 0.000 0.820 srgb} bind def -/col11 {0.530 0.810 1.000 srgb} bind def -/col12 {0.000 0.560 0.000 srgb} bind def -/col13 {0.000 0.690 0.000 srgb} bind def -/col14 {0.000 0.820 0.000 srgb} bind def -/col15 {0.000 0.560 0.560 srgb} bind def -/col16 {0.000 0.690 0.690 srgb} bind def -/col17 {0.000 0.820 0.820 srgb} bind def -/col18 {0.560 0.000 0.000 srgb} bind def -/col19 {0.690 0.000 0.000 srgb} bind def -/col20 {0.820 0.000 0.000 srgb} bind def -/col21 {0.560 0.000 0.560 srgb} bind def -/col22 {0.690 0.000 0.690 srgb} bind def -/col23 {0.820 0.000 0.820 srgb} bind def -/col24 {0.500 0.190 0.000 srgb} bind def -/col25 {0.630 0.250 0.000 srgb} bind def -/col26 {0.750 0.380 0.000 srgb} bind def -/col27 {1.000 0.500 0.500 srgb} bind def -/col28 {1.000 0.630 0.630 srgb} bind def -/col29 {1.000 0.750 0.750 srgb} bind def -/col30 {1.000 0.880 0.880 srgb} bind def -/col31 {1.000 0.840 0.000 srgb} bind def - -end -save --25.0 262.0 translate -1 -1 scale - -/cp {closepath} bind def -/ef {eofill} bind def -/gr {grestore} bind def -/gs {gsave} bind def -/sa {save} bind def -/rs {restore} bind def -/l {lineto} bind def -/m {moveto} bind def -/rm {rmoveto} bind def -/n {newpath} bind def -/s {stroke} bind def -/sh {show} bind def -/slc {setlinecap} bind def -/slj {setlinejoin} bind def -/slw {setlinewidth} bind def -/srgb {setrgbcolor} bind def -/rot {rotate} bind def -/sc {scale} bind def -/sd {setdash} bind def -/ff {findfont} bind def -/sf {setfont} bind def -/scf {scalefont} bind def -/sw {stringwidth} bind def -/tr {translate} bind def -/tnt {dup dup currentrgbcolor - 4 -2 roll dup 1 exch sub 3 -1 roll mul add - 4 -2 roll dup 1 exch sub 3 -1 roll mul add - 4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb} - bind def -/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul - 4 -2 roll mul srgb} bind def - /DrawEllipse { - /endangle exch def - /startangle exch def - /yrad exch def - /xrad exch def - /y exch def - /x exch def - /savematrix mtrx currentmatrix def - x y tr xrad yrad sc 0 0 1 startangle endangle arc - closepath - savematrix setmatrix - } def - -/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def -/$F2psEnd {$F2psEnteredState restore end} def -%%EndProlog - -$F2psBegin -10 setmiterlimit -n 0 4396 m 0 0 l 5775 0 l 5775 4396 l cp clip - 0.06000 0.06000 sc -% Arc -15.000 slw -gs n 472.5 3982.5 432.8 9.0 -27.9 arcn -gs col0 s gr - gr - -/Symbol ff 270.00 scf sf -945 4005 m -gs 1 -1 sc (f) col0 sh gr -% Polyline -n 4320 2835 m 4320 4050 l gs col0 s gr -% Polyline -n 2070 2835 m 2070 4050 l gs col0 s gr -% Polyline -7.500 slw -gs clippath -420 597 m 450 477 l 480 597 l 480 435 l 420 435 l cp -clip -n 450 4050 m 450 450 l gs col0 s gr gr - -% arrowhead -n 420 597 m 450 477 l 480 597 l col0 s -% Polyline -gs clippath -5253 4020 m 5373 4050 l 5253 4080 l 5415 4080 l 5415 4020 l cp -clip -n 450 4050 m 5400 4050 l gs col0 s gr gr - -% arrowhead -n 5253 4020 m 5373 4050 l 5253 4080 l col0 s -/Times-Italic ff 270.00 scf sf -2520 855 m -gs 1 -1 sc (Z = \(a ,a \)) col0 sh gr -/Times-Italic ff 180.00 scf sf -2700 900 m -gs 1 -1 sc (6) col0 sh gr -/Times-Italic ff 180.00 scf sf -3195 900 m -gs 1 -1 sc (3) col0 sh gr -/Times-Italic ff 180.00 scf sf -3465 900 m -gs 1 -1 sc (4) col0 sh gr -/Times-Italic ff 270.00 scf sf -3285 1440 m -gs 1 -1 sc (Z = \(a ,a \)) col0 sh gr -/Times-Italic ff 180.00 scf sf -3465 1485 m -gs 1 -1 sc (9) col0 sh gr -/Times-Italic ff 180.00 scf sf -3960 1485 m -gs 1 -1 sc (7) col0 sh gr -/Times-Italic ff 180.00 scf sf -4230 1485 m -gs 1 -1 sc (6) col0 sh gr -/Times-Italic ff 270.00 scf sf -4320 1980 m -gs 1 -1 sc (Z = \(a ,a \)) col0 sh gr -/Times-Italic ff 180.00 scf sf -4500 2025 m -gs 1 -1 sc (ref) col0 sh gr -/Times-Italic ff 180.00 scf sf -5445 2025 m -gs 1 -1 sc (10) col0 sh gr -/Times-Italic ff 180.00 scf sf -5130 2025 m -gs 1 -1 sc (9) col0 sh gr -15.000 slw -% Ellipse -n 4288 2867 45 45 0 360 DrawEllipse gs 0.00 setgray ef gr gs col0 s gr - -% Polyline -7.500 slw - [60] 0 sd -gs clippath -4171 2652 m 4214 2767 l 4122 2686 l 4214 2819 l 4263 2785 l cp -clip -n 3330 1485 m 4230 2790 l gs 0.00 setgray ef gr gs col0 s gr gr - [] 0 sd -% arrowhead -n 4171 2652 m 4214 2767 l 4122 2686 l col0 s -15.000 slw -% Ellipse -n 4365 2835 45 45 0 360 DrawEllipse gs 0.00 setgray ef gr gs col0 s gr - -% Polyline -7.500 slw - [60] 0 sd -gs clippath -4395 2598 m 4365 2718 l 4335 2598 l 4335 2760 l 4395 2760 l cp -clip -n 4365 2115 m 4365 2745 l gs 0.00 setgray ef gr gs col0 s gr gr - [] 0 sd -% arrowhead -n 4395 2598 m 4365 2718 l 4335 2598 l col0 s -% Arc -15.000 slw -gs n 2565.0 3960.0 2116.9 177.6 2.4 arc -gs col0 s gr - gr - -% Arc -7.500 slw -gs [15 45] 45 sd -n 3211.9 3915.0 354.7 -62.6 14.7 arc -gs col0 s gr - gr - [] 0 sd -% Arc -gs [15 45] 45 sd -n 3082.5 3892.5 540.9 -135.0 163.1 arcn -gs col0 s gr - gr - [] 0 sd -15.000 slw -% Ellipse -n 3240 1980 45 45 0 360 DrawEllipse gs 0.00 setgray ef gr gs col0 s gr - -% Ellipse -n 2070 2835 45 45 0 360 DrawEllipse gs 0.00 setgray ef gr gs col0 s gr - -% Polyline -n 450 4050 m 3240 1980 l 3240 4050 l gs col0 s gr -% Polyline -n 2070 2835 m 3240 2835 l gs col0 s gr -% Polyline -n 4320 2835 m 3150 2835 l gs col0 s gr -% Polyline -7.500 slw - [60] 0 sd -gs clippath -3183 1796 m 3225 1912 l 3133 1829 l 3223 1964 l 3273 1931 l cp -clip -n 2610 990 m 3240 1935 l gs 0.00 setgray ef gr gs col0 s gr gr - [] 0 sd -% arrowhead -n 3183 1796 m 3225 1912 l 3133 1829 l col0 s -% Polyline -n 4361 2025 m 4369 2025 l gs col0 s gr -% Polyline - [60] 0 sd -gs clippath -1932 2603 m 1966 2721 l 1880 2633 l 1962 2773 l 2013 2743 l cp -clip -n 900 900 m 1980 2745 l gs 0.00 setgray ef gr gs col0 s gr gr - [] 0 sd -% arrowhead -n 1932 2603 m 1966 2721 l 1880 2633 l col0 s -% Polyline -n 4680 4050 m 4680 4140 l gs 0.00 setgray ef gr gs col0 s gr -% Polyline -n 2700 4050 m 2700 4140 l gs 0.00 setgray ef gr gs col0 s gr -% Polyline - [15 45] 45 sd -n 3240 4050 m 2070 2835 l gs 0.00 setgray ef gr gs col0 s gr [] 0 sd -% Polyline - [15 45] 45 sd -n 2700 4095 m 4365 2835 l gs 0.00 setgray ef gr gs col0 s gr [] 0 sd -/Times-Italic ff 270.00 scf sf -4590 4320 m -gs 1 -1 sc (w) col0 sh gr -/Times-Italic ff 270.00 scf sf -855 855 m -gs 1 -1 sc (Z = \(a ,a \)) col0 sh gr -/Times-Italic ff 180.00 scf sf -1035 900 m -gs 1 -1 sc (8) col0 sh gr -/Times-Italic ff 180.00 scf sf -1530 900 m -gs 1 -1 sc (5) col0 sh gr -/Times-Italic ff 180.00 scf sf -1800 900 m -gs 1 -1 sc (6) col0 sh gr -/Times-Italic ff 270.00 scf sf -2565 4320 m -gs 1 -1 sc (w/2) col0 sh gr -/Times-Italic ff 180.00 scf sf -2205 3870 m -gs 1 -1 sc (45) col0 sh gr -/Times-Italic ff 150.00 scf sf -2385 3825 m -gs 1 -1 sc (o) col0 sh gr -/Symbol ff 180.00 scf sf -3600 3780 m -gs 1 -1 sc (q) col0 sh gr -$F2psEnd -rs diff --git a/Master/texmf-dist/doc/latex/bayer/front.ps.gz b/Master/texmf-dist/doc/latex/bayer/front.ps.gz deleted file mode 100644 index 137071be293..00000000000 Binary files a/Master/texmf-dist/doc/latex/bayer/front.ps.gz and /dev/null differ diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal-accents.mf b/Master/texmf-dist/fonts/source/public/bayer/universal-accents.mf deleted file mode 100644 index c589b1f27b9..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal-accents.mf +++ /dev/null @@ -1,164 +0,0 @@ -%% -%% This is file `accents.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `accents') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -bauhaussymb(hex"12",x_width#,l_height#,0,0); - "The accent `"; - top z1 = (0,h); - bot z2 = (2.5p_thick,h-2.5p_thick); - draw z1--z2; - cutoff(z1,90); - cutoff(z2,-90); - penlabels(1,2); -endchar; - -bauhaussymb(hex"13",x_width#,l_height#,0,0); - "The accent '"; - bot z1 = (0.5wi,h-2p_thick); - top z2 = (.5wi+2p_thick,h); - draw z1--z2; - cutoff(z1,-90); - cutoff(z2,90); -endchar; - -bauhaussymb(hex"14",x_width#,l_height#,0,0); - "The accent hachek"; - bot z1 = (.5wi,h-2p_thick); - top z2 = (.5wi-1.5p_thick,h); - top z3 = (.5wi+1.5p_thick,h); - draw z2---z1{right}---z3; - cutoff(z2,90); - cutoff(z3,90); - penlabels(1,2,3); -endchar; - -bauhaussymb(hex"15",x_width#,l_height#,0,0); - "The accent breve"; - bot z1 = (.5wi,h-2p_thick); - top z2 = (.5wi-p_thick,h); - top z3 = (.5wi+p_thick,h); - cutdraw z2{down}..z1{right}..z3{up}; - penlabels(1,2,3); -endchar; - -bauhaussymb(hex"16",x_width#,l_height#,0,0); - "The accent bar"; - top z1 = (.5wi-1.5p_thick,h); - top z2 = (.5wi+1.5p_thick,h); - cutdraw z1{right}--z2; - penlabels(1,2); -endchar; - -bauhaussymb(hex"17",A_width#,l_height#,0,0); - "The accent circle"; - top z1 = (.5wi,h+p_thick); - lft z2 = (.5wi-1.5p_thick,h-.5p_thick); - bot z3 = (.5wi,h-2p_thick); - rt z4 = (.5wi+1.5p_thick,h-.5p_thick); - draw z1{left}..z2{down}..z3{right}..z4{up}..cycle; - penlabels(1,2,3,4); -endchar; - -bauhaussymb(hex"18",x_width#,l_height#,p_depth#,0); - "The accent cidelia"; - bot z1 = (.5wi,0); - rt z2 = (.5wi+1.5p_thick,-.5p_thick); - top z3 = (.5wi,-p_thick); - cutdraw z1{right}..z2{down}..z3{left}; - penlabels(1,2,3); -endchar; - -bauhaussymb(hex"20",f_space#,l_height#,0,0); - "The accent bar over l"; - top z1 = (0,.5h); - bot z2 = (3p_thick,.5h); - cutdraw z1--z2; - penlabels(1,2); -endchar; - -bauhaussymb(hex"5E",x_width#,l_height#,0,0); - "The accent hat"; - top z1 = (.5wi,h); - bot z2 = (.5wi-1.5p_thick,h-2p_thick); - bot z3 = (.5wi+1.5p_thick,h-2p_thick); - draw z2---z1{right}---z3; - cutoff(z2,-90); - cutoff(z3,-90); - penlabels(1,2,3); -endchar; - -bauhaussymb(hex"5F",x_width#,l_height#,0,0); - "The accent dot"; - top z1 = (.5wi,h); - drawdot z1; - penlabels(1,2,3); -endchar; - -bauhaussymb(hex"7D",x_width#,l_height#,0,0); - "The accent ''"; - rt z1 = (.5wi,h); - rt z2 = (.5wi-2p_thick,h-2p_thick); - rt z3 = (.5wi+2p_thick,h); - rt z4 = (.5wi,h-2p_thick); - draw z1--z2; - draw z3--z4; - cutoff(z1,90); - cutoff(z2,-90); - cutoff(z3,90); - cutoff(z4,-90); - penlabels(1,2,3,4); -endchar; - -bauhaussymb(hex"7E",x_width#,l_height#,0,0); - "The accent ~"; - bot z1 = (.5wi-1.5p_thick,h-1.5p_thick); - top z2 = (.5wi-.75p_thick,h); - bot z3 = (.5wi+.75p_thick,h-1.5p_thick); - top z4 = (.5wi+1.5p_thick,h); - cutdraw z1..z2{right}..z3{right}..z4; - penlabels(1,2,3,4); -endchar; - -bauhaussymb(hex"7F",x_width#,l_height#,0,0); - "The accent ^^a8"; - top rt z1 = (.5wi-.25p_thick,h); - top lft z2 = (.5wi+.25p_thick,h); - drawdot z1; - drawdot z2; - penlabels(1,2); -endchar; - - -\endinput -%% -%% End of file `accents.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal-digits.mf b/Master/texmf-dist/fonts/source/public/bayer/universal-digits.mf deleted file mode 100644 index 43f7ad6f72a..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal-digits.mf +++ /dev/null @@ -1,162 +0,0 @@ -%% -%% This is file `digits.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `digits') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -bauhausnumb("0",A_width#,l_height#,0,0); - lft z1 = (0,h-.5wi); - top z2 = (.5wi,h); - rt z3 = (wi,y1); - rt z4 = (wi,.5wi); - bot z5 = (.5wi,0); - lft z6 = (0,y4); - draw z1{up}..z2{right}..z3{down}---z4{down}..z5{left}..z6{up}---cycle; - penlabels(1,2,3,4,5,6); -endchar; - -bauhausnumb("1",3/8(A_width#-f_space#)+f_space#,l_height#,0,0); - top z1 = (0,h); - top z2 = (2/3wi,h); - rt z3 = (wi,h-x2); - rt z4 = (wi,0); - cutdraw z1{right}---z2{right}..z3{down}---z4{down}; - penlabels(1,2,3,4); -endchar; - -bauhausnumb("2",A_width#,l_height#,0,0); - lft z1 = (0,h-.5wi); - top z2 = (.5wi,h); - rt z3 = (wi,y1); - lft bot z4 = (0,0); - bot z5 = (wi,0); - cutdraw z1{up}..z2{right}..z3{down}---z4{(-1,1)}---z5{right}; - penlabels(1,2,3,4,5); -endchar; - -bauhausnumb("3",A_width#,l_height#,0,0); - rad = .25h; - lft z1 = (0,h-rad); - top z2 = (rad,h); - top z3 = (wi-rad,h); - rt z4 = (wi,h-rad); - rt z5 = (wi-rad,.5h); - rt z6 = (wi,rad); - bot z7 = (wi-rad,0); - bot z8 = (rad,0); - lft z9 = (0,rad); - cutdraw z1{up}..z2{right}---z3{right}..z4{down}..z5{left}; - cutdraw z5{right}..z6{down}..z7{left}---z8{left}..z9{up}; - penlabels(1,2,3,4,5,6,7,8,9); -endchar; - -bauhausnumb("4",A_width#,l_height#,0,0); - z1 = (.8wi,h); - lft z2 = (0,h-x1); - z3 = (wi,y2); - z4 = (x1,0); - z5 = (x1,h-.5x1); - draw z1{(-1,-1)}---z2{(1,-1)}---z3{right}; - cutoff(z1,90); - cutoff(z3,0); - cutdraw z4{up}--z5; - penlabels(1,2,3,4,5); -endchar; - -bauhausnumb("5",A_width#,l_height#,0,0); - tmp=wi/(1+sind(60)); - lft z1 = (0,tmp*(1-sind(30))); - bot z2 = (wi-tmp,0); - rt top z3 = (wi,tmp); - top z4 = (x2,2y3); - top lft z5 = (0,2y3); - top lft z6 = (0,h); - top z7 = (wi,h); - cutdraw z1{dir(-60)}..z2{right}..z3{up}..z4{left}--- - z5{(-1,1)}---z6{(1,1)}---z7{right}; - penlabels(1,2,3,4,5,6,7); -endchar; - -bauhausnumb("6",A_width#,l_height#,0,0); - lft z1 = (0,.5wi); - top z2 = (.5wi,wi); - rt z3 = (wi,y1); - bot z4 = (x2,0); - lft z5 = (0,h-.5wi); - top z6 = (x2,h); - z7 = z6 rotatedaround((.5wi,h-.5wi),-60); - draw z1{up}..z2{right}..z3{down}..z4{left}..z1{up}--- - z5{up}..z6{right}..z7{dir(-60)}; - cutoff(z7,-60); - penlabels(1,2,3,4,5,6,7); -endchar; - -bauhausnumb("7",A_width#,l_height#,0,0) ; - top z1 = (0,h); - rt top z2 = (wi,h); - lft z3 = (0,0); - draw z1{right}---z2{(1,-1)}---z3{z3-z1} ; - cutoff(z1,180); - cutoff(z3,angle(z3-z1)); - penlabels(1,2,3); -endchar ; - -bauhausnumb("8",.5l_height#+p_thick#+f_space#,l_height#,0,0); - top z1 = (.5wi,h); - z3 = (x1,.5h); - bot z6 = (x1,0); - rt z2 = bot z3 rotatedaround(.5[z3,z1],90); - lft z4 = bot z3 rotatedaround(.5[z3,z1],-90); - rt z5 = top z3 rotatedaround(.5[z6,z3],-90); - lft z7 = top z3 rotatedaround(.5[z6,z3],90); - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle; - draw z3{right}..z5{down}..z6{left}..z7{up}..cycle; - penlabels(1,2,3,4,5,6,7); -endchar; - -bauhausnumb("9",A_width#,l_height#,0,0); - rt z1 = (wi,h-.5wi); - bot z2 = (.5wi,h-wi); - lft z3 = (0,y1); - top z4 = (x2,h); - rt z5 = (wi,.5wi); - bot z6 = (x2,0); - z7 = z6 rotatedaround((.5wi,.5wi),-60); - draw z1{down}..z2{left}..z3{up}..z4{right}.. - z1{down}---z5{down}..z6{left}..z7{dir(120)}; - cutoff(z7,120); - penlabels(1,2,3,4,5,6,7); -endchar; - - -\endinput -%% -%% End of file `digits.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal-extras.mf b/Master/texmf-dist/fonts/source/public/bayer/universal-extras.mf deleted file mode 100644 index 92c9b24739d..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal-extras.mf +++ /dev/null @@ -1,366 +0,0 @@ -%% -%% This is file `extras.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `extras') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -picture blackpic; -bauhausextra(hex"00","bauplus")%\bauplus - z1 = (0,0); - z2 = (0,h); - z3 = (wi,h); - z4 = (wi,0); - fill z1--z2--z3--z4--cycle; - blackpic := currentpicture; - inn=.9wi; - sp=.05wi; - z5 = (1/3inn+sp,h-sp); - z6 = (.5(wi-sp),y5); - z7 = (x6,.5(h+.sp)); - z8 = (x5,y7); - path square ; - square = z5--z6--z7--z8--cycle; - unfill square; - unfill (square rotatedaround((.5wi,.5h),90)); - unfill (square rotatedaround((.5wi,.5h),180)); - unfill (square rotatedaround((.5wi,.5h),270)); - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhausextra(hex"01","baudash")%\baudash - currentpicture := currentpicture + blackpic; - innn=.9wi; - z5 = (sp,.5(h+sp)); - z6 = (sp,1/6innn+.5h); - z7 = (.5(wi-sp),y6); - z8 = (x7,.y5); - path square[] ; - square1 = z5--z6--z7--z8--cycle; - square2 = (square1 reflectedabout((.5wi,0),(.5wi,h))); - unfill square1; - unfill (square1 reflectedabout((0,.5h),(wi,.5h))); - unfill square2 ; - unfill (square2 reflectedabout((0,.5h),(wi,.5h))); - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhausextra(hex"02","bauequal")%\bauequal - currentpicture := currentpicture + blackpic; - z1 = (sp,.5(h+sp)); - z2 = (sp,1/6innn+.5h); - z3 = (.5(wi-sp),y2); - z4 = (x3,.y1); - z5 = (sp,sp); - z6 = (sp,1/6innn+sp); - z7 = (.5(wi-sp),y6); - z8 = (x7,.y5); - path square[] ; - square1 = z1--z2--z3--z4--cycle; - square2 = (square1 reflectedabout((.5wi,0),(.5wi,h))); - square3 = z5--z6--z7--z8--cycle; - square4 = (square3 reflectedabout((.5wi,0),(.5wi,h))); - unfill square1; - unfill square2; - unfill square3 ; - unfill square4; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhausextra(hex"03","bautriangle")%\bautriangle - z1 = (0,0); - z2 = (.5wi,h); - z3 = (wi,0); - fill z1--z2--z3--cycle; - penlabels(1,2,3); -endchar; - -bauhausextra(hex"04","baucircle")%\baucircle - currentpicture := currentpicture + blackpic; - pickup pencircle scaled 1/4wi; - top z1 = (.5wi,h); rt z2 = (wi,.5h); - bot z3 = (.5wi,0); lft z4 = (0,.5h); - undraw z1..z2..z3..z4..cycle; - penlabels(1,2,3,4); -endchar; - -bauhausextra(hex"05","baucross")%\baucross - bot lft z1 = (0,0) ; top lft z2 = (0,h) ; - top rt z3 = (wi,h) ; bot rt z4 = (wi,0) ; - draw z1--z2--z3--z4--cycle; - z5 = (0,1/4h) ; z6 = (1/4wi,.5h) ; z7 = (0,3/4h) ; - z8 = (1/4wi,h) ; z9 = (.5wi,3/4h) ; z10 = (3/4wi,h) ; - z11 = (wi,3/4h) ; z12 = (3/4wi,.5h) ; z13 = (wi,1/4h) ; - z14 = (3/4wi,0) ; z15 = (.5wi,1/4h) ; z16 = (1/4wi,0) ; - fill z1--z5--z6--z7--z2--z8--z9--z10--z3--z11--z12-- - z13--z4--z14--z15--z16--cycle; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -bauhausextra(hex"06","bauwindow")%\bauwindow - bot lft z1 = (0,0) ; top lft z2 = (0,h) ; - top rt z3 = (wi,h) ; bot rt z4 = (wi,0) ; - draw z1--z2--z3--z4--cycle; - top z5 = (.5wi,h) ; bot z6 = (.5wi,0) ; - lft z7 = (0,.5h) ; rt z8 = (wi,.5h) ; - draw z5--z6; - draw z7--z8; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhausextra(hex"07","bauhole")%\bauhole - top z1 = (.5wi,h); - rt z2 = (wi,.5h); - bot z3 = (x1,0); - lft z4 = (0,y2); - draw z1..z2..z3..z4..cycle; - z5 = (.5wi,9/10h); - z6 = (9/10wi,.5h); - z7 = (x5,1/10h); - z8 = (1/10wi,y6); - fill z5..z6..z7..z8..cycle; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhausextra(hex"08","baueclipse")%\baueclipse - pickup pencircle scaled p_thick; - top z1 = (.5wi,h); - rt z2 = (wi,.5h); - bot z3 = (x1,0); - lft z4 = (0,y2); - draw z1..z2..z3..z4..cycle; - delta = .05wi; - z5 = bot z1 - (0,delta); - z6 = lft z2 - (delta,0); - z7 = top z3 + (0,.9delta); - z8 = rt z4 + (.9delta,0); - fill z5..z6..z7..z8..cycle; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhausextra(hex"09","bauquarter")%\bauquarter - z1 = (.5wi,h); - z2 = (.5wi,.5h); - z3 = (wi,y2); - z4 = (x1,0); - z5 = (0,y2); - top z7 = z1; - rt z8 = z3; - fill z4{left}..z5{up}..z1--z2--z3..cycle; - draw z7{right}..z8{down}; - penlabels(1,2,3,4,5,7,8); -endchar; - -bauhausextra(hex"0A","bauarrow")%\bauarrow - top z1 = (.5wi,h); - rt z2 = (wi,.5h); - bot z3 = (x1,0); - lft z4 = (0,y2); - draw z1..z2..z3..z4..cycle; - z5 = (3/10wi,6/10h); - z6 = (6/10wi,y5); - z7 = (x6,y5+1/20wi); - z8 = (x6+3/20wi,.5h); - z9 = (x6,4/10h-1/20h); - z10 = (x6,4/10h); - z11 = (x5,y10); - fill z5--z6--z7--z8--z9--z10--z11--cycle; - penlabels(1,2,3,4,5,6,7,8,9,10,11); -endchar; - -bauhausextra(hex"0B","bauwhitearrow")%\bauwhitearrow - top z1 = (.5wi,h); - rt z2 = (wi,.5h); - bot z3 = (x1,0); - lft z4 = (0,y2); - draw z1..z2..z3..z4..cycle; - z5 = (3/10wi,6/10h); - z6 = (6/10wi,y5); - z7 = (x6,y5+1/20wi); - z8 = (x6+3/20wi,.5h); - z9 = (x6,4/10h-1/20h); - z10 = (x6,4/10h); - z11 = (x5,y10); - draw z5--z6--z7--z8--z9--z10--z11--cycle; - penlabels(1,2,3,4,5,6,7,8,9,10,11); -endchar; - -bauhausextra(hex"0C","bauhead")%\bauhead - % Vertical variables - a1 = 0.702h ; a2 = 0.561h ; a3 = 0.491h ; a4 = 0.351h ; - a5 = 0.272h ; a6 = 0.140h ; - % horizontal variables - b1 = 0.202wi ; b2 = 0.307wi ; b3 = 0.412wi ; b4 = 0.447wi ; - b5 = 0.465wi ; b6 = 0.518wi ; b7 = 0.588wi ; b8 = 0.623wi ; - % eye - pickup pensquare scaled .009wi ; - top lft z1 = (b1,a1) ; top rt z2 = (b2,a1) ; - draw z1--z2; - bot rt z3 = (b4,a3) ; top rt z4 = (b4,a2) ; - draw z3--z4; - z5 = (b2,a1) ; z6 = (b4,a1) ; z7 = (b4,a2) ; z8 = (b2,a2) ; - fill z5--z6--z7--z8--cycle; - % nostril - lft bot z9 = (b4,a4) ; rt bot z10 = (b7,a4) ; - draw z9--z10 ; - % chin - lft bot z11 = (b2,a6) ; rt bot z12 = (b6,a6) ; - draw z11--z12; - % lips - pickup pensquare scaled 0.035wi ; - lft top z13 = (b5,a5) ; rt top z14 = (b6,a5) ; - draw z13--z14; - % bottom of face - z15 = (b6,a4) ; z16 = (b7,a4) ; z17 = (b7,a6) ; z18 = (b6,a6) ; - fill z15--z16--z17--z18--cycle ; - % save the common stuff - picture commonface ; - commonface := currentpicture ; - % head with circle - path noselft, nosert, necklft, neckrt ; - path headcircle , parttop, partbot; - z19 = (b7,a4) ; z20 = (b7,h) ; noselft = z19--z20 ; - z21 = (b8,h) ; z22 = (b8,a4) ; nosert = z21--z22 ; - z23 = (b3,a6) ; z24 = (b3,0) ; necklft = z23--z24 ; - z25 = (b6,0) ; z26 = (b6,a6) ; neckrt = z25--z26 ; - % circle - pickup pencircle scaled .009wi; - top z27 = (.5wi,h) ; rt z28 = (wi,.5h) ; - bot z29 = (.5wi,0) ; lft z30 = (0,.5h) ; - headcircle := z27..z28..z29..z30..cycle ; - draw headcircle ; - % nose/forhead - z31 = noselft intersectiontimes headcircle ; - z32 = nosert intersectiontimes headcircle ; - parttop = subpath(y31,y32) of headcircle ; - fill z19--parttop--z22--cycle ; - % nose/forhead - z33 = neckrt intersectiontimes headcircle ; - z34 = necklft intersectiontimes headcircle ; - partbot = subpath(y34,y33) of headcircle ; - fill z23--partbot--z26--cycle ; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20) ; - penlabels(21,22,23,24,25,26,27,28,29,30); -endchar; - -bauhausextra(hex"0D","bauface");%\bauface - % head without cicle - path noselft, nosert, necklft, neckrt ; - % nose/forhead - z19 = (b7,a4) ; z20 = (b7,h) ; noselft = z19--z20 ; - z21 = (b8,h) ; z22 = (b8,a4) ; nosert = z21--z22 ; - fill noselft--nosert--cycle; - % neck - z23 = (b3,a6) ; z24 = (b3,0) ; necklft = z23--z24 ; - z25 = (b6,0) ; z26 = (b6,a6) ; neckrt = z25--z26 ; - fill necklft--neckrt--cycle; - currentpicture := currentpicture + commonface ; -endchar; - -beginchar(hex"0E",5/7l_height#+f_space#,l_height#,p_depth#); - %\bauquestion - "The bauhaus symbol bauquestion"; - pickup pencircle scaled 1/10p_thick ; - spp=.01wi; - wi#:=2/3l_height#; - define_pixels(wi); - z1 = (0,0) ; z2 = (0,h) ; z3 = (wi,h) ; z4 = (wi,0) ; - fill z1--z2--z3--z4--cycle; - z5 = (1/2(.5wi-spp)+spp,spp); - z6 = (.5wi,y5) ; - z7 = (.5wi,x5); - z8 = (x5,x5); - unfill z5--z6--z7--z8--cycle; - z9 = (x6+3/2(x5-spp),y7); z10 = (x9,y7+x9-x6) ; z11 = (x6,y10) ; - unfill z7--z9--z10--z11--cycle; - z12 = (x6,y11+.5(wi-spp)) ; z13 = (spp,y12) ; z14 = (spp,y10) ; - unfill z11--z12--z13--z14--cycle ; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14); -endchar; - -bauhausextra(hex"84","bauforms");%\bauforms - pickup pencircle scaled 1/32 wi; - top z1 = (.5wi,h); - rt z2 = (wi,.5h); - bot z3 = (.5wi,0); - lft z4 = (0,.5h); - draw z1..z2..z3..z4..cycle; - for phi := 20 step 0.1 until 40 : - a1 := 31/32wi*cosd(phi); - a2 := (31/32wi*(cosd(phi)**2))/(cosd(phi)+sind(phi)); - a3 := a1*cosd(phi); - a4 := a1*sind(phi); - a5 := a2*cosd(phi); - a6 := a2*sind(phi); - a7 := a2*(cosd(phi)+2*sind(phi)); - a8 := angle(a7-31wi/64,a6); - a9 := 31wi/64*(1+cosd(a8)); - a10 := 31wi/64*sind(a8); - if abs(a7 - a9)<.1 : - exitif abs(a6 - a10)<.1 ; - fi; - endfor; - pickup pencircle scaled 1/64wi; - lft z5 = (1/32wi,.5h); - top z6 = (a3,a4)+(0,.5h); - bot z7 = (a3,.5h-a4); - draw z5--z6--z7--z5; - pickup pencircle scaled 1/24wi; - top lft z8 = (a5,a6)+(0,.5h); - top rt z9 = (a7,a6)+(0,.5h); - bot rt z10 = (a7,.5h-a6); - bot lft z11 = (a5,.5h-a6); - z12 = (a9,a10)+(0,.5h); - draw z8--z9--z10--z11--z8; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -bauhausextra(hex"85","baupunct");%\baupunct - z1 = (.5wi,h); - z2 = (wi,.5h); - z3 = (.5wi,0); - z4 = (0,.5h); - fill z1..z2..z3..z4..cycle; - penlabels(1,2,3,4); -endchar; - -bauhausextra(hex"86","bausquare");%\bausquare - z1 = (0,h); - z2 = (wi,h); - z3 = (wi,0); - z4 = (0,0); - fill z1--z2--z3--z4--cycle; - penlabels(1,2,3,4); -endchar; - - -\endinput -%% -%% End of file `extras.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal-ligatures.mf b/Master/texmf-dist/fonts/source/public/bayer/universal-ligatures.mf deleted file mode 100644 index 277a6f2fcb7..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal-ligatures.mf +++ /dev/null @@ -1,116 +0,0 @@ -%% -%% This is file `ligatures.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `ligatures') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -bauhaussymb(hex"19",2p_thick#+.5l_height#+f_space#,l_height#,0,0); - "Ligature ss"; - lft z1 = (wi-.5h,0); - lft z2 = (wi-.5h,.75h); - top z3 = (wi-.25h,h); - rt z4 = (wi,y2); - z5 = (wi-.25h,.5h); - z6 = (0,.5h); - rt z7 = (wi,.25h); - bot z8 = (wi-.25h,0); - cutdraw z1{up}---z2{up}..z3{right}..z4{down}..z5{left}---z6{left}; - cutdraw z5{right}..z7{down}..z8{left}; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhaussymb(hex"1A",2x_width#-p_thick#-2f_space#,x_height#,0,0); - "Ligature ae"; - currentpicture := a_pic + ( e_pic shifted (.5wi,0)); -endchar; - -bauhaussymb(hex"1B",2x_width#-p_thick#-2f_space#,x_height#,0,0); - "Ligature oe"; - currentpicture := o_pic + ( e_pic shifted (.5wi,0)); -endchar; - -bauhaussymb(hex"1C",x_width#,x_height#,0,0); - "Ligature o/"; - lft z10 = (0,0); - rt z11 = (wi,h); - draw z10{(1,1)}--z11; - cutoff(z10,-90); - cutoff(z11,90); - currentpicture := currentpicture + o_pic; -endchar; - -bauhaussymb(hex"1D",M_width#,l_height#,0,0); - "Ligature AE"; - lft z1 = (0,0); - lft z2 = (0,.5wi); - top z3 = (.5wi,h); - top z4 = (wi,h); - lft z5 = (0,.5h); - z6 = (wi,.5h); - bot z7 = (wi,0); - bot z8 = (.5wi,0); - cutdraw z1{up}---z2{up}..z3{right}---z4{right}; - draw z5{right}---z6{right}; - cutoff(z6,0); - cutdraw z7{left}---z8{(-1,1)}---z3{up}; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhaussymb(hex"1E",.5l_height#+.5A_width#+.5f_space#,l_height#,0,0); - "Ligature OE"; - bot z1 = (wi,0); - bot z2 = (.5h,0); - lft z3 = (0,.5h); - top z4 = (.5h,h); - top z5 = (wi,h); - z6 = .5[z2,z4]; - z7 = .5[z1,z5]; - cutdraw z1{left}---z2{left}..z3{up}..z4{right}---z5{right}; - draw z2{up}--z4{up}; - draw z6{right}--z7{right}; - cutoff(z7,0); - penlabels(1,2,3,4,5,6,7); -endchar; - -bauhaussymb(hex"1F",l_height#+f_space#,l_height#,0,0); - "Liguture O/"; - lft z10 = (0,0); - rt z11 = (wi,h); - draw z10{(1,1)}--z11; - cutoff(z10,-90); - cutoff(z11,90); - currentpicture := currentpicture + O_pic; -endchar; - - -\endinput -%% -%% End of file `ligatures.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal-lowers.mf b/Master/texmf-dist/fonts/source/public/bayer/universal-lowers.mf deleted file mode 100644 index 5142826f2d2..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal-lowers.mf +++ /dev/null @@ -1,347 +0,0 @@ -%% -%% This is file `lowers.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `lowers') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -bauhauschar("a",1x_width#,1x_height#,0,0); %"The letter a"; - bot z1 = (7/16wi,0); - lft z2 = lft z3 rotatedaround((0.5wi,0.5h),45); - lft z3 = (0,0.5h); - top z4 = (0.5wi,h); - rt z5 = top z4 rotatedaround((0.5wi,0.5h),-45); - rt z6 = (wi,0.5h+sind(15)); - rt z7 = (wi,0); - draw z6..z1{left}..z2..z3{up}..z4{right}..z5..z6{down}--z7 ; - penlabels(1,2,3,4,5,6,7,8); - cutoff(z7,-90); - a_pic := currentpicture; -endchar; - -bauhauschar("b",1x_width#,l_height#,0,0); %"The letter b"; - top y1=5/8h ; - rt x2=wi ; - bot y3=0 ; - lft x4= lft x5 = lft x6 = 0 ; - x1 = x3 = 0.5wi ; - y2 = y4 = y5 = 5/16h ; - y6 = h ; - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle ; - cutdraw z5--z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - -bauhauschar("c",c_width#,1x_height#,0,1f_space#); %"The letter c"; - rt z5 = top z4 rotatedaround((0.5wi,0.5h),-60); - rt z1 = bot z2 rotatedaround((0.5wi,0.5h),60); - bot y2=0; - lft x3=0; - top y4=h; - x2 = x4 = 0.5wi; - y3 = 0.5h ; - cutdraw z1..z2{left}..z3{up}..z4{right}..z5; - penlabels(1,2,3,4,5); -endchar; - -bauhauschar("d",1x_width#,l_height#,0,0); %"The letter d"; - top y1 = 5/8h ; - rt x2 = rt x5 = rt x6 = wi ; - bot y3 =0 ; - lft x4 = 0 ; - x1 = x3 = 0.5wi ; - y2 = y4 = y5 = 5/16h ; - y6 = h ; - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle ; - cutdraw z5--z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - -bauhauschar("e",1x_width#,1x_height#,0,0) ; %"The letter e"; - rt z1 = bot z2 rotatedaround((0.5wi,0.5h),60) ; - bot y2 = 0 ; - lft x3 = 0 ; - top y4 = h ; - rt x5 = rt x7 = wi ; - x6 = p_thick; - x2 = x4 = 0.5wi ; - y3 = y5 = y6 = 0.5h ; - y7 = y5 - 0.5p_thick ; - cutdraw z5{up}..z4{left}..z3{down}..z2{right}..z1 ; - cutdraw z5{down}--z7{down} ; - draw z6{right}--z5{right}; - penlabels(1,2,3,4,5,6,7); - e_pic := currentpicture -endchar; - -bauhauschar("f",f_width#,l_height#,0,0); %"The letter f"; - lft x1 = lft x2 = 0 ; - y1 = 0 ; - top y2 = top y5 = top y6 = 5/8h ; - x4 = wi ; - x5 = p_thick; - x6 = wi; - top y4 = h ; - lft z3 = lft z2 rotatedaround((top z6),-45) ; - cutdraw z1{up}--z2{up}..z3{(1,1)}..z4{right} ; - cutdraw z5{right}--z6 ; - penlabels(1,2,3,4,5,6,7); -endchar ; - -bauhauschar("g",1x_width#,1x_height#,p_depth#,0); %"The letter g"; - rt z1 = top z2 rotatedaround((0.5wi,0.5h),-60) ; - top z2 = (0.5wi,h) ; - lft z3 = (0,0.5h) ; - bot z4 = (0.5wi,0) ; - rt z5 = (wi,0.5h) ; - rt z6 = (wi,-d) ; - cutdraw z1{(-cosd(60),sind(60))}..z2{left}..z3{down} - ..z4{right}..z5{up} ; - cutdraw z5{down}--z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - -bauhauschar("h",1x_width#,1l_height#,0,0) ; %"The letter h" ; - lft z1 = (0,0) ; - lft z2 = (0,h) ; - rt z3 = (wi,0) ; - rt z4 = (wi,x5) ; - top z5 = (0.5wi,5/8h) ; - lft z6 = (0,x5) ; - cutdraw z1{up}--z2 ; - cutdraw z3{up}--z4..z5{left}..z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - -bauhauschar("i",1/5x_height#+f_space#,l_height#,0,0); %"The letter i" ; - lft z1 = (0,0) ; - lft z2 = (0,5/8h) ; - top z3 = (0.5wi,h) ; - cutdraw z1{up}--z2 ; - drawdot z3 ; - penlabels(1,2,3); -endchar; - -bauhauschar("j",1/5x_height#+f_space#,l_height#,p_depth#,0); - %"The letter j" - lft z1 = (0,-d) ; - lft z2 = (0,5/8h) ; - top z3 = (0.5wi,h) ; - cutdraw z1{up}--z2 ; - drawdot z3 ; - penlabels(1,2,3); -endchar; - -bauhauschar("k",0.8x_width#,1x_height#,0,0); %"The letter k" ; - lft z1 = (0,0) ; - lft z2 = (0,h) ; - lft z3 = (0,0.5h) ; - rt z4 = (wi,0) ; - rt z5 = (wi,h) ; - cutdraw z1{up}--z2 ; - cutdraw z3{right}..z4{down} ; - cutdraw z3{right}..z5{up} ; - penlabels(1,2,3,4,5); -endchar; - -bauhauschar("l",1/5x_height#+f_space#,l_height#,0,0);%"The letter l" ; - lft z1 = (0,0) ; - lft z2 = (0,h) ; - cutdraw z1{up}--z2 ; - penlabels(1,2,3); -endchar; - -bauhauschar("m",1m_width#,1x_height#,0,0); %"The letter m"; - lft z1 = (0,0) ; - lft z2 = (0,0.7h) ; - top z3 = (0.5[x5,x1],h) ; - z4 = (0.5wi,0.7h-0.25p_thick) ; - z5 = (0.5wi,0) ; - top z6 = (0.5[x8,x5],h) ; - rt z7 = (wi,0.7h) ; - rt z8 = (wi,0) ; - cutdraw z1{up}--z2..z3{right}..z4{down}--z5 ; - cutdraw z4{up}..z6{right}..z7--z8{down} ; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhauschar("n",1x_width#,1x_height#,0,0); %"The letter n"; - lft z1 = (0,0); - lft z2 = (0,0.6h) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,0.6h) ; - rt z5 = (wi,0); - cutdraw z1{up}--z2{up}..z3{right}..z4{down}--z5{down}; - penlabels(1,2,3,4,5); -endchar ; - -bauhauschar("o",1x_width#,1x_height#,0,0); %"The letter o"; - top y1=h ; - rt x2=wi ; - bot y3=0 ; - lft x4=0 ; - x1 = x3 = 0.5wi ; - y2 = y4 = 0.5h ; - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle ; - penlabels(1,2,3,4); - o_pic := currentpicture; -endchar ; - -bauhauschar("p",1x_width#,1x_height#,p_depth#,0); %"The letter p"; - lft z1 = (0,-d) ; - lft z2 = (0,0.5h) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,0.5h) ; - bot z5 = (0.5wi,0) ; - draw z2{up}..z3{right}..z4{down}..z5{left}..cycle ; - cutdraw z1{up}--z2{up}; - penlabels(1,2,3,4,5); -endchar ; - -bauhauschar("q",1x_width#,1x_height#,p_depth#,0); %"The letter q"; - rt z1 = (wi,-d) ; - lft z2 = (0,0.5h) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,0.5h) ; - bot z5 = (0.5wi,0) ; - draw z2{up}..z3{right}..z4{down}..z5{left}..cycle ; - cutdraw z1{up}--z4{up}; - penlabels(1,2,3,4,5); -endchar ; - -bauhauschar("r",3/5x_height#+f_space#,1x_height#,0,0); %"The letter r"; - lft z1 = (0,0) ; - lft z2 = (0,h-wi); - top z4 = (wi,h) ; - lft z3 = lft z2 rotatedaround((x4,y2),-45); - cutdraw z1{up}--z2{up}..z3{(1,1)}..z4{right}; - penlabels(1,2,3,4); -endchar; - -bauhauschar("s",0.8x_width#,1x_height#,0,0); %"The letter s"; - lft z1 = (0,0.5[y6,y2]) ; - bot z2 = (1/3wi,0) ; - bot z3 = (2/3wi,0) ; - rt z4 = (wi,0.5[y5,y3]) ; - z5 = (2/3wi,0.5h) ; - z6 = (1/3wi,0.5h) ; - lft z7 = (0,0.5[y8,y6]) ; - top z8 = (1/3wi,h); - top z9 = (2/3wi,h) ; - rt z10 = (wi,0.5[y8,y6]) ; - cutdraw z1{down}..z2{right}--z3{right}..z4{up}.. - z5{left}--z6{left}..z7{up}..z8{right}--z9{right}..z10{down} ; - penlabels(1,2,3,4,5,6,7,8,9,10); -endchar; - -bauhauschar("t",3/5x_height#+f_space#,1l_height#,0,0); %"The letter t"; - z1 = (0.5wi,0); - z2 = (0.5wi,h); - cutdraw z1{up}--z2; - top z3 = (0,5/8h); - top z4 = (wi,5/8h); - cutdraw z3--z4; - penlabels(1,2,3,4); -endchar; - -bauhauschar("u",1x_width#,1x_height#,0,0); %"The letter u"; - lft z1 = (0,h); - lft z2 = (0,0.4h) ; - bot z3 = (0.5wi,0) ; - rt z4 = (wi,0.4h) ; - rt z5 = (wi,h); - cutdraw z1{down}--z2{down}..z3{right}..z4{up}--z5{up}; - penlabels(1,2,3,4,5); -endchar ; - -bauhauschar("v",1x_width#,1x_height#,0,0); %"The letter v"; - lft z1 = (0,h); - bot z2 = (0.5wi-0.5p_thick,0.5p_thick); - bot z3 = (0.5wi,0); - bot z4 = (0.5wi+0.5p_thick,0.5p_thick); - rt z5 = (wi,h); - draw z1{down}--z2..z3..z4--z5{up}; - cutoff(z1,90); - cutoff(z5,90); - penlabels(1,2,3,4,5); -endchar; - -bauhauschar("w",1m_width#,1x_height#,0,0); %"The letter w"; - lft z1 = (0,h) ; - lft z2 = (0,0.3h) ; - bot z3 = (0.5[x5,x1],0) ; - z4 = (0.5wi,0.3h+0.25p_thick) ; - z5 = (0.5wi,h) ; - bot z6 = (0.5[x8,x5],0) ; - rt z7 = (wi,0.3h) ; - rt z8 = (wi,h) ; - cutdraw z1{down}--z2..z3{right}..z4{up}--z5 ; - cutdraw z4{down}..z6{right}..z7--z8{down} ; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhauschar("x",1x_width#,1x_height#,0,0); %"The letter x"; - top z1 = (0,h); - z2 = (0.5wi,0.5wi); - bot z3 = (0,0); - top z4 = (wi,h); - bot z5 = (wi,0); - cutdraw z1{right}..z2{down}..z3{left}; - cutdraw z4{left}..z2{down}..z5{right}; - penlabels(1,2,3,4,5); -endchar; - -bauhauschar("y",1x_width#,1x_height#,p_depth#,0) ; %"The letter y" ; - rt z1 = (wi,-d) ; - lft z2 = (0,h) ; - rt z3 = (wi,h) ; - rt z4 = (wi,x5) ; - bot z5 = (0.5wi,0) ; - lft z6 = (0,x5) ; - cutdraw z1{up}--z3 ; - cutdraw z3{up}--z4..z5{left}..z6{up}--z2{up} ; - penlabels(1,2,3,4,5,6); -endchar ; - -bauhauschar("z",1x_width#,1x_height#,0,0) ; %"The letter z" ; - top z1 = (0,h); - rt x2 = wi ; top y2 = h ; - rt x3 = wi ; top y3 = y2; - lft x4 = 0 ; bot y4 = y5 ; - lft x5 = 0 ; bot y5 = 0 ; - bot z6 = (wi,0); - cutdraw z1{right}--z2..z3--z4..z5--z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - - -\endinput -%% -%% End of file `lowers.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal-punctuations.mf b/Master/texmf-dist/fonts/source/public/bayer/universal-punctuations.mf deleted file mode 100644 index c27dc2ad722..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal-punctuations.mf +++ /dev/null @@ -1,301 +0,0 @@ -%% -%% This is file `punctuations.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `punctuations') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -bauhaussymb("!",p_thick#+f_space#,l_height#,0,0); - "The punctuation !"; - lft bot z1 = (0,0); - lft z2 = (0,3y1); - lft z3 = (0,h); - drawdot z1; - cutdraw z2{up}--z3; - penlabels(1,2,3); -endchar; - -bauhaussymb("(",.5x_width#,l_height#,p_depth#,0); - "The punctuation ("; - rt z1 = (wi,h); - lft z3 = (0,.5(h-d)); - rt z5 = (wi,-d); - draw z1..z3..z5; - cutoff(z1,90); - cutoff(z5,-90); - penlabels(1,3,5); -endchar; - -bauhaussymb(")",.5x_width#,l_height#,p_depth#,0); - "The punctuation )"; - lft z1 = (0,h); - rt z3 = (wi,.5(h-d)); - lft z5 = (0,-d); - draw z1..z3..z5; - cutoff(z1,90); - cutoff(z5,-90); - penlabels(1,3,5); -endchar; - -bauhaussymb(hex"22",3f_space#,l_height#,0,0); - "The punctuation ''"; - lft z1 = (3p_thick,h); - lft z2 = (p_thick,h); - lft z3 = (2p_thick,h-3p_thick); - lft z4 = (0,h-3p_thick); - draw z1--z3; - draw z2--z4; - cutoff(z1,90); - cutoff(z2,90); - cutoff(z3,-90); - cutoff(z4,-90); - penlabels(1,2,3,4); -endchar; - -bauhaussymb("#",A_width#,l_height#,0,0); - "The punctuation #"; - lft top z1 = (0,3/4h); - lft bot z2 = (0,1/4h); - rt z3 = (wi,y1); - rt z4 = (wi,y2); - cutdraw z1{right}--z3{right}; - cutdraw z2{right}--z4{right}; - bot z5 = (1/5wi,0); - bot z6 = (3/5wi,0); - top z7 = (2/5wi,h); - top z8 = (4/5wi,h); - draw z5--z7; - draw z6--z8; - cutoff(z5,-90); - cutoff(z6,-90); - cutoff(z7,90); - cutoff(z8,90); - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhaussymb("%",A_width#,l_height#,0,0); - "The punctuation %"; - rt z1 = (wi,h); - lft z2 = (0,0); - draw z1--z2; - cutoff(z1,90); - cutoff(z2,-90); - top z3 = (1/4wi,h); - rt z4 = top z3 rotatedaround((x3,h-x3),-90); - bot z5 = top z3 rotatedaround((x3,h-x3),-180); - lft z6 = top z3 rotatedaround((x3,h-x3),-270); - draw z3{right}..z4{down}..z5{left}..z6{up}..cycle; - bot z7 = (3/4wi,0); - lft z8 = bot z7 rotatedaround((x7,x3),-90); - top z9 = bot z7 rotatedaround((x7,x3),-180); - rt z10 = bot z7 rotatedaround((x7,x3),-270); - draw z7{left}..z8{up}..z9{right}..z10{down}..cycle; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -bauhaussymb("'",2f_space#,l_height#,0,0); - "The punctuation '"; - lft z1 = (p_thick,h); - lft z2 = (0,h-3p_thick); - draw z1--z2; - cutoff(z1,90); - cutoff(z2,-90); - penlabels(1,2); -endchar; - -bauhaussymb("*",x_width#,l_height#,0,0); - "The punctuation *"; - z1 = (0.5wi,h); - z2 = z1 rotatedaround((.5wi,h-.5wi),-60); - z3 = z1 rotatedaround((.5wi,h-.5wi),-120); - z4 = z1 rotatedaround((.5wi,h-.5wi),-180); - z5 = z1 rotatedaround((.5wi,h-.5wi),-240); - z6 = z1 rotatedaround((.5wi,h-.5wi),-300); - cutdraw z1--z4; - cutdraw z2--z5; - cutdraw z3--z6; - penlabels(1,2,3,4,5,6); -endchar; - -bauhaussymb("+",x_width#,x_height#,0,0); - "The punctuation +"; - z1 = (.5wi,h); - z2 = (.5wi,0); - z3 = (0,.5h); - z4 = (wi,.5h); - cutdraw z1{down}--z2; - cutdraw z3{right}--z4; - penlabels(1,2,3,4); -endchar; - -bauhaussymb(",",p_thick#+f_space#,p_thick#,2/3p_depth#,0); - "The punctuation ,"; - lft bot z1 = (0,h); - lft top z2 = (0,-d); - cutdraw z1{down}--z2; - penlabels(1,2); -endchar; - -bauhaussymb("-",.7x_width#,x_height#,0,0); - "The punctuation -"; - z1 = (0,.5h); - z2 = (wi,y1); - cutdraw z1{right}--z2; - penlabels(1,2); -endchar; - -bauhaussymb(".",p_thick#+f_space#,p_thick#,0,0); - "The punctuation ."; - lft bot z1 = (0,0); - drawdot z1; - penlabels(1); -endchar; - -bauhaussymb("/",2/3x_width#,l_height#,p_depth#,0); - "The punctuation /"; - lft z1 = (0,-d); - rt z2 = (wi,h); - draw z1--z2; - cutoff(z1,-90); - cutoff(z2,90); - penlabels(1,2); -endchar; - -bauhaussymb(":",p_thick#+f_space#,x_height#,0,0); - "The punctuation :"; - top lft z1 = (0,h); - bot lft z2 = (0,0); - drawdot z1; - drawdot z2; - penlabels(1,2); -endchar; - -bauhaussymb(";",p_thick#+f_space#,x_height#,2/3p_depth#,0); - "The punctuation ;"; - lft bot z1 = (0,0); - lft top z2 = (0,-d); - lft top z3 = (0,h); - cutdraw z1{down}--z2; - drawdot z3; - penlabels(1,2,3); -endchar; - -bauhaussymb("=",.7x_width#,x_height#,0,0); - "The punctuation ="; - top z1 = (0,1/3h); - z2 = (wi,y1); - cutdraw z1{right}--z2; - bot z3 = (0,2/3h); - z4 = (wi,y3); - cutdraw z3{right}--z4; - penlabels(1,2,3,4); -endchar; - -bauhaussymb("@",l_height#+f_space#,l_height#,0,0); - "The punctuation @"; - rt z1 = (wi,0); - rt z2 = (wi,.5h); - top z3 = (.5wi,h); - lft z4 = (0,.5h); - z5 = z4 rotatedaround((.5wi,.5h),60); - rt z6 = (wi,1/3h); - top z7 = (wi-1/3h,2/3h); - lft z8 = (wi-2/3h,1/3h); - bot z9 = (wi-1/3h,0); - cutdraw z1{up}--z2{up}..z3{left}..z4{down}..z5{dir(-30)}; - draw z6{up}..z7{left}..z8{down}..z9{right}..cycle; - penlabels(1,2,3,4,5,6,7,8,9); -endchar; - -bauhaussymb("[",.7x_width#,l_height#,p_depth#,0); - "The punctuation ["; - rt top z1 = (wi,h); - lft top z2 = (0,h); - lft bot z3 = (0,-d); - rt bot z4 = (wi,-d); - cutdraw z1{left}---z2{(-1,-1)}---z3{(1,-1)}---z4{right}; - penlabels(1,2,3,4); -endchar; - -bauhaussymb(hex"5C",3f_space#,l_height#,0,0); - "The punctuation ``"; - lft z1 = (0,h); - lft z2 = (2p_thick,h); - lft z3 = (p_thick,h-3p_thick); - lft z4 = (3p_thick,h-3p_thick); - draw z1--z3; - draw z2--z4; - cutoff(z1,90); - cutoff(z2,90); - cutoff(z3,-90); - cutoff(z4,-90); - penlabels(1,2,3,4); -endchar; - -bauhaussymb("]",.7x_width#,l_height#,p_depth#,0); - "The punctuation ]"; - lft top z1 = (0,h); - rt top z2 = (wi,h); - rt bot z3 = (wi,-d); - lft bot z4 = (0,-d); - cutdraw z1{right}---z2{(1,-1)}---z3{(-1,-1)}---z4{left}; - penlabels(1,2,3,4); -endchar; - -bauhaussymb("`",2f_space#,l_height#,0,0); - "The punctuation `"; - lft z1 = (0,h); - lft z2 = (p_thick,h-3p_thick); - draw z1--z2; - cutoff(z1,90); - cutoff(z2,-90); - penlabels(1,2); -endchar; - -bauhaussymb(hex"7B",x_width#,x_height#,0,0); - "The punctuation --"; - z1 = (0,.5h); - z2 = (wi,y1); - cutdraw z1{right}--z2; - penlabels(1,2); -endchar; - -bauhaussymb(hex"7C",m_width#,x_height#,0,0); - "The punctuation ---"; - z1 = (0,.5h); - z2 = (wi,y1); - cutdraw z1{right}--z2; - penlabels(1,2); -endchar; - - -\endinput -%% -%% End of file `punctuations.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal-specials.mf b/Master/texmf-dist/fonts/source/public/bayer/universal-specials.mf deleted file mode 100644 index c5100202653..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal-specials.mf +++ /dev/null @@ -1,200 +0,0 @@ -%% -%% This is file `specials.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `specials') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -bauhaussymb(hex"0F",p_thick#+f_space#,l_height#,p_depth#,0); - "The symbol |"; - lft z1 = (0,h); - lft z2 = (0,-d); - cutdraw z1{down}--z2{down}; - penlabels(1,2); -endchar; - -bauhaussymb(hex"10",p_thick#+f_space#,x_height#,0,0); - "Dotless i"; - lft z1 = (0,0); - lft z2 = (0,h); - cutdraw z1{up}--z2; - penlabels(1,2); -endchar; - -bauhaussymb(hex"11",p_thick#+f_space#,x_height#,p_depth#,0); - "Dotless j"; - lft z1 = (0,-d); - lft z2 = (0,h); - cutdraw z1{up}--z2; - penlabels(1,2); -endchar; - -bauhaussymb("$",x_width#,l_height#,0,0); - "The symbol $"; - lft z1 = (0,0.5[y6,y2]) ; - bot z2 = (1/3wi,1/8h) ; - bot z3 = (2/3wi,1/8h) ; - rt z4 = (wi,0.5[y5,y3]) ; - z5 = (2/3wi,0.5h) ; - z6 = (1/3wi,0.5h) ; - lft z7 = (0,0.5[y8,y6]) ; - top z8 = (1/3wi,7/8h); - top z9 = (2/3wi,7/8h) ; - rt z10 = (wi,0.5[y8,y6]) ; - z11 = (.5wi,0); - z12 = (.5wi,h); - cutdraw z1{down}..z2{right}--z3{right}..z4{up}..z5{left}-- - z6{left}..z7{up}..z8{right}--z9{right}..z10{down}; - cutdraw z11{up}--z12{up}; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -bauhaussymb("&",.5l_height#+2p_thick#+f_space#,l_height#,0,0); - "The symbol &"; - top z1 = (3/8wi,h); - bot z6 = (x1,1/8h); - z3 = .5[z6,z1]; - rt z2 = bot z3 rotatedaround(.5[z3,z1],90); - lft z4 = bot z3 rotatedaround(.5[z3,z1],-90); - rt z5 = top z3 rotatedaround(.5[z6,z3],-90); - lft z7 = top z3 rotatedaround(.5[z6,z3],90); - bot z8 = (wi,1/8h); - z9 = (x5,0); - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle; - cutdraw z8{left}---z6{left}..z7{up}..z3{right}..z5{down}---z9{down}; - penlabels(1,2,3,4,5,6,7,8,9); -endchar; - -bauhaussymb("?",x_width#,l_height#,0,0); - "The symbol ?" ; - lft z1 = (0,h-.5wi); - top z2 = (.5wi,h); - rt z3 = (wi,y1); - z4 = (x2,h-wi); - bot z6 = (x2,0); - z5 = (x2,3y6); - draw z1{up}..z2{right}..z3{down}..z4{left}--z5{down}; - cutoff(z1,-90); - cutoff(z5,-90); - drawdot z6; - penlabels(1,2,3,4,5,6); -endchar; - -bauhaussymb(spanish_query,x_width#,x_height#,p_depth#,0); - "Spanish query"; - lft z1 = (0,-d+.5wi); - bot z2 = (.5wi,-d); - rt z3 = (wi,y1); - z4 = (x2,-d+wi); - top z6 = (x2,h); - z5 = (x2,h-3*(h-y6)); - draw z3{down}..z2{left}..z1{up}..z4{right}--z5{up}; - cutoff(z3,90); - cutoff(z5,90); - drawdot z6; - penlabels(1,2,3,4,5,6); -endchar; - -bauhaussymb(spanish_shriek,p_thick#+f_space#,x_height#,p_depth#,0); - "Spanish shriek"; - lft top z1 = (0,h); - lft z2 = (0,h-3*(h-y1)); - lft z3 = (0,-d); - drawdot z1; - cutdraw z2{down}--z3; - penlabels(1,2,3); -endchar; - -bauhaussymb(hex"80",.7x_width#,l_height#,p_depth#,0); - "The symbol {"; - top z1 = (wi,h); - top z2 = (1/2wi,h); - lft z3 = (1/4wi,h-1/2wi); - z4 = (x3,1/2(h-d)); - z5 = (0,1/2(h-d)); - z6 = (x3,1/2wi-d); - bot z7 = (x2,-d); - bot z8 = (wi,-d); - cutdraw z1{left}..z3{down}---z4{down}--z5{left}; - cutdraw z4{down}---z6{down}..z8{right}; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhaussymb(hex"81",.7x_width#,l_height#,p_depth#,0); - "The symbol }"; - top z1 = (0,h); - top z2 = (1/2wi,h); - rt z3 = (3/4wi,h-1/2wi); - z4 = (x3,1/2(h-d)); - z5 = (wi,1/2(h-d)); - z6 = (x3,1/2wi-d); - bot z7 = (x2,-d); - bot z8 = (0,-d); - cutdraw z1{right}..z3{down}---z4{down}--z5{right}; - cutdraw z4{down}---z6{down}..z8{left}; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhaussymb(hex"82",.5l_height#+f_space#,l_height#,0,0); - "Paragraph sign"; - lft z1 = (0,.5h); - top z2 = (.5wi,.5h+.5wi); - rt z3 = (wi,0.5h); - bot z4 = (.5wi,.5h-.5wi); - lft z5 = (0,h-.5wi); - top z6 = (.5wi,h); - z7 = z6 rotatedaround((.5wi,y5),-60); - rt z8 = (wi,.5wi); - bot z9 = (.5wi,0); - z10 = z9 rotatedaround((.5wi,y8),-60); - draw z10{dir(-60)}..z9{right}..z8{up}--z3{up}; - draw z7{dir(120)}..z6{left}..z5{down}--z1{down}; - draw z1{up}..z2{right}..z3{down}..z4{left}..cycle; - penlabels(1,2,3,4,5,6,7,8,9,10); - cutoff(z10,120); - cutoff(z7,-30); -endchar; - -bauhaussymb(hex"83",A_width#,l_height#,0,0); - "variant letter Q"; - rt z1 = (wi,0) ; - lft z2 = (0,h-.5wi) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,h-.5wi) ; - bot z5 = (0.5wi,h-wi) ; - draw z2{up}..z3{right}..z4{down}..z5{left}..cycle ; - cutdraw z1{up}--z4{up}; - penlabels(1,2,3,4,5); -endchar ; - - -\endinput -%% -%% End of file `specials.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal-uppers.mf b/Master/texmf-dist/fonts/source/public/bayer/universal-uppers.mf deleted file mode 100644 index 224abfd7a1b..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal-uppers.mf +++ /dev/null @@ -1,335 +0,0 @@ -%% -%% This is file `uppers.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `uppers') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -bauhauschar("A",1A_width#,1l_height#,0,0); %"The letter A"; - lft z1=(0,0); - lft z2=(0,h-0.5wi); - top z3=(0.5wi,h); - rt z4=(wi,y2); - rt z5=(wi,0); - lft z6=(0,0.5h); - rt z7=(wi,y6); - cutdraw z1{up}--z2{up}..z3{right}..z4{down}--z5{down}; - cutdraw z6{right}--z7{right}; - penlabels(1,2,3,4,5,6,7); -endchar; - -bauhauschar("B",1A_width#,1l_height#,0,0); %"The letter B"; - lft bot z1 = (0,0); - lft top z2 = (0,h); - top z3 = (wi-0.25h,h); - rt z4 = (wi,0.75h); - z5 = (x3,0.5h); - z6 = (p_thick,0.5h); - rt z7 = (wi,0.25h); - bot z8 = (x3,0); - draw z1{(-1,1)}---z2{(1,1)}---z3{right}..z4{down}..z5{left}--z6{left}; - draw z5{right}..z7{down}..z8{left}---z1{(-1,1)}; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhauschar("C",C_width#+f_space#,l_height#,0,0); - rt z1 = bot z2 rotatedaround((0.5wi,0.5h),60); - bot z2 = (0.5wi,0); - lft z3 = (0,0.5h); - top z4 = (0.5wi,h); - rt z5 = top z4 rotatedaround((0.5wi,0.5h),-60); - cutdraw z1..z2{left}..z3{up}..z4{right}..z5; - penlabels(1,2,3,4,5); -endchar; - -bauhauschar("D",A_width#,l_height#,0,0); - lft bot z1 = (0,0); - lft top z2 = (0,h); - top z3 = (wi-.5h,h); - rt z4 = (wi,0.5h); - bot z5 = (x3,0); - draw z2{right}---z3{right}..z4{down}..z5{left}---z1{left}---z2{up}; - penlabels(1,2,3,4,5); -endchar; - -bauhauschar("E",A_width#,l_height#,0,0); - rt bot z1 = (wi,0); - lft bot z2 = (0,0); - lft top z3 = (0,h); - rt top z4 = (wi,h); - lft z5 = (0,0.5h); - rt z6 = (wi,0.5h); - cutdraw z1{left}---z2{(-1,1)}---z3{(1,1)}---z4{right}; - cutdraw z5{left}--z6; - penlabels(1,2,3,4,5,6); -endchar; - -bauhauschar("F",A_width#,l_height#,0,0); - lft bot z1 = (0,0); - lft top z2 = (0,h); - rt top z3 = (wi,h); - lft z4 = (0,0.5h); - rt z5 = (wi,0.5h); - cutdraw z1{up}---z2{(1,1)}---z3{right}; - cutdraw z4{left}--z5; - penlabels(1,2,3,4,5); -endchar; - -bauhauschar("G",l_height#+f_space#,l_height#,0,0); - rt z1 = (wi,0.5h); - bot z2 = (0.5wi,0); - lft z3 = (0,0.5h); - top z4 = (0.5wi,h); - rt z5 = top z4 rotatedaround((0.5wi,0.5h),-60); - rt z6 = (wi,0); - cutdraw z1..z2{left}..z3{up}..z4{right}..z5; - cutdraw z1{down}--z6; - penlabels(1,2,3,4,5,6); -endchar; - -bauhauschar("H",A_width#,l_height#,0,0); - lft z1 = (0,0); - lft z2 = (0,0.5h); - lft z3 = (0,h); - rt z4 = (wi,0); - rt z5 = (wi,0.5h); - rt z6 = (wi,h); - cutdraw z1{up}--z3{up}; - cutdraw z4{up}--z6{up}; - cutdraw z2{left}--z5{left}; - penlabels(1,2,3,4,5,6); -endchar; - -bauhauschar("I",p_thick#+2f_space#,l_height#,0,0); - lft z1 = (0,0); - lft z2 = (0,h); - cutdraw z1{up}--z2{up}; - penlabels(1,2); -endchar; - -bauhauschar("J",.5x_width#,l_height#,0,0); - bot z1 = (0,0); - bot rt z2 = (wi,0); - rt z3 = (wi,h); - cutdraw z1{right}---z2{(1,1)}---z3{up}; - penlabels(1,2,3); -endchar; - -bauhauschar("K",0.5l_height#+2f_space#,l_height#,0,0); - lft z1 = (0,0); - lft z2 = (0,0.5h); - lft z3 = (0,h); - rt z4 = (wi,0); - rt z5 = (wi,h); - cutdraw z1{up}--z3{up}; - cutdraw z2{right}..z4{down}; - cutdraw z2{right}..z5{up}; - penlabels(1,2,3,4,5); -endchar; - -bauhauschar("L",A_width#,l_height#,0,0); - lft z1 = (0,h); - lft bot z2 = (0,0); - rt bot z3 = (wi,0); - cutdraw z1{down}---z2{(1,-1)}---z3{right}; - penlabels(1,2,3); -endchar; - -bauhauschar("M",M_width#,l_height#,0,0); - lft z1 = (0,0) ; - lft z2 = (0,0.7h) ; - top z3 = (0.5[x5,x1],h) ; - z4 = (0.5wi,0.7h-0.25p_thick) ; - z5 = (0.5wi,0) ; - top z6 = (0.5[x8,x5],h) ; - rt z7 = (wi,0.7h) ; - rt z8 = (wi,0) ; - cutdraw z1{up}--z2..z3{right}..z4{down}--z5 ; - cutdraw z4{up}..z6{right}..z7--z8{down} ; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhauschar("N",A_width#,l_height#,0,0); - lft z1 = (0,0); - lft z2 = (0,0.6h) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,0.6h) ; - rt z5 = (wi,0); - cutdraw z1{up}--z2{up}..z3{right}..z4{down}--z5{down}; - penlabels(1,2,3,4,5); -endchar ; - -bauhauschar("O",l_height#+f_space#,l_height#,0,0); - top z1 = (.5wi,h) ; - rt z2 = (wi,.5h) ; - bot z3 = (.5wi,0) ; - lft z4 = (0,.5h) ; - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle ; - penlabels(1,2,3,4); - O_pic = currentpicture; -endchar ; - -bauhauschar("P",A_width#,l_height#,0,0); - lft z1 = (0,0) ; - lft z2 = (0,h-.5wi) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,h-.5wi) ; - bot z5 = (0.5wi,h-wi) ; - draw z2{up}..z3{right}..z4{down}..z5{left}..cycle ; - cutdraw z1{up}--z2{up}; - penlabels(1,2,3,4,5); -endchar ; - -bauhauschar("Q",l_height#+f_space#,l_height#,2/3p_depth#,0); - top z1 = (.5wi,h) ; - rt z2 = (wi,.5h) ; - bot z3 = (.5wi,0) ; - lft z4 = (0,.5h) ; - z5 = (.5wi,2d); - z6 = (.5wi,-d); - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle ; - cutdraw z5{down}--z6; - penlabels(1,2,3,4,5,6); -endchar ; - -bauhauschar("R",A_width#,l_height#,0,0); - lft z1 = (0,0); - lft z2 = (0,h-.5wi); - top z3 = (.5wi,h); - rt z4 = (wi,h-.5wi); - bot z5 = (0.5wi,h-wi); - rt z6 = (wi,h-1.5wi); - rt z7 = (wi,0); - draw z2{up}..z3{right}..z4{down}..z5{left}..cycle; - cutdraw z1{up}--z2{up}; - cutdraw z5{right}..z7{down}; - penlabels(1,2,3,4,5,6,7); -endchar; - -bauhauschar("S",A_width#,l_height#,0,0); % - lft z1 = (0,0.5[y6,y2]) ; - bot z2 = (1/3wi,0) ; - bot z3 = (2/3wi,0) ; - rt z4 = (wi,0.5[y5,y3]) ; - z5 = (2/3wi,0.5h) ; - z6 = (1/3wi,0.5h) ; - lft z7 = (0,0.5[y8,y6]) ; - top z8 = (1/3wi,h); - top z9 = (2/3wi,h) ; - rt z10 = (wi,0.5[y8,y6]) ; - cutdraw z1{down}..z2{right}--z3{right}..z4{up}..z5{left} - --z6{left}..z7{up}..z8{right}--z9{right}..z10{down} ; - penlabels(1,2,3,4,5,6,7,8,9,10); -endchar; - -bauhauschar("T",A_width#,l_height#,0,0); - top z1 = (0,h); - top z2 = (wi,h); - z3 = (.5wi,h); - z4 = (0.5wi,0); - cutdraw z1{right}--z2; - cutdraw z3{up}--z4; - penlabels(1,2,3,4); -endchar; - -bauhauschar("U",A_width#,l_height#,0,0); - lft z1 = (0,h); - lft z2 = (0,0.4h) ; - bot z3 = (0.5wi,0) ; - rt z4 = (wi,0.4h) ; - rt z5 = (wi,h); - cutdraw z1{down}--z2{down}..z3{right}..z4{up}--z5{up}; - penlabels(1,2,3,4,5); -endchar ; - -bauhauschar("V",A_width#,l_height#,0,0); - lft z1 = (0,h); - bot z2 = (0.5wi-0.5p_thick,0.5p_thick); - bot z3 = (0.5wi,0); - bot z4 = (0.5wi+0.5p_thick,0.5p_thick); - rt z5 = (wi,h); - draw z1{down}--z2..z3..z4--z5{up}; - cutoff(z1,90); - cutoff(z5,90); - penlabels(1,2,3,4,5); -endchar; - -bauhauschar("W",M_width#,l_height#,0,0); - lft z1 = (0,h) ; - lft z2 = (0,0.3h) ; - bot z3 = (0.5[x5,x1],0) ; - z4 = (0.5wi,0.3h+0.25p_thick) ; - z5 = (0.5wi,h) ; - bot z6 = (0.5[x8,x5],0) ; - rt z7 = (wi,0.3h) ; - rt z8 = (wi,h) ; - cutdraw z1{down}--z2..z3{right}..z4{up}--z5 ; - cutdraw z4{down}..z6{right}..z7--z8{down} ; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -bauhauschar("X",l_height#+f_space#,l_height#,0,0); - top z1 = (0,h); - z2 = (0.5wi,0.5wi); - bot z3 = (0,0); - top z4 = (wi,h); - bot z5 = (wi,0); - cutdraw z1{right}..z2{down}..z3{left}; - cutdraw z4{left}..z2{down}..z5{right}; - penlabels(1,2,3,4,5); -endchar; - -bauhauschar("Y",A_width#,l_height#,0,0) ; - rt z1 = (wi,0) ; - lft z2 = (0,h) ; - rt z3 = (wi,h) ; - rt z4 = (wi,h-x5) ; - bot z5 = (0.5wi,h-wi) ; - lft z6 = (0,h-x5) ; - cutdraw z1{up}--z3 ; - cutdraw z3{up}--z4..z5{left}..z6{up}--z2{up} ; - penlabels(1,2,3,4,5,6); -endchar ; - -bauhauschar("Z",A_width#,l_height#,0,0) ; - top z1 = (0,h); - rt x2 = wi ; top y2 = h ; - rt x3 = wi ; top y3 = y2; - lft x4 = 0 ; bot y4 = y5 ; - lft x5 = 0 ; bot y5 = 0 ; - bot z6 = (wi,0); - cutdraw z1{right}--z2..z3--z4..z5--z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - - -\endinput -%% -%% End of file `uppers.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal.mf b/Master/texmf-dist/fonts/source/public/bayer/universal.mf deleted file mode 100644 index 8cd9dcb8807..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal.mf +++ /dev/null @@ -1,131 +0,0 @@ -%% -%% This is file `universal.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `main') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -x_height# = 8u#; % height of lowercase without ascenders -m_width# = 7/5x_height# ; % width of widest lowercase (1em) -x_width# = x_height#+f_space#; % width of normal lowercase -p_depth# = 3/5x_height# ; % depth of charactes accending baseline -l_height# = 8/5x_height# ; % height of heighest characters -p_thick# = 1/36x_height# ; % pen thickness -f_space# = 2u#; % space added after fonts -c_width# = 1x_width#-0.5x_width#*(1-cosd(35)); % width of "c" -C_width# = l_height#-0.5l_height#*(1-cosd(35)); % width of "C" -f_width# = 3/8l_height#+f_space#; % width of "f" -A_width# = m_width# ; % width of normal upper case characters -M_width# = 7/5A_width# ; % width of "M" -define_pixels(u,m_width,x_width,x_height,p_depth,l_height,p_thick) ; -define_pixels(f_space,A_width,C_width,M_width) ; -define_corrected_pixels(p_depth) ; - -ligs:=2; -font_coding_scheme:="TeX text"; -spanish_shriek:=oct"074"; -spanish_query:=oct"076"; - -mode_setup; - -font_x_height 8u#; -font_quad m_width#; -font_normal_space 6u#+f_space#; -font_normal_stretch 3u#; -font_normal_shrink 2u#; -font_quad 18u#+4f_space#; -font_extra_space 2u#; - -def makebox(text rule) = % macro for hardcopy proofs - rule((0,0)t_,(w,0)t_); - rule((0,0.01)t_,(w,0.01)t_); - for y=-d step u until h+u: % making addtional grid lines - rule((0,y)t_,(w,y)t_); - endfor % horizontals - for x=0 step u until w+u: - rule((x,-d)t_,(x,h)t_); - endfor % verticals -enddef; - -def bauhauschar (expr name, width, height, depth, extra_width) = - beginchar(name,width,height,depth); - "The letter "&name; - pickup pencircle scaled p_thick ; - wi#:=width-f_space#+extra_width; - define_pixels(wi); - enddef; - -def bauhausnumb (expr name, width, height, depth, extra_width) = - beginchar(name,width,height,depth); - "The number "&name; - pickup pencircle scaled p_thick ; - wi#:=width-f_space#+extra_width; - define_pixels(wi); - enddef; - -def bauhaussymb (expr name, width, height, depth, extra_width) = - beginchar(name,width,height,depth); - pickup pencircle scaled p_thick ; - wi#:=width-f_space#+extra_width; - define_pixels(wi); - enddef; - -def bauhausextra (expr number, name) = - beginchar(number,l_height#+f_space#,l_height#,p_depth#); - "The bauhaus symbol "&name; - pickup pencircle scaled 1/10p_thick ; - wi#:=l_height#; - define_pixels(wi); - enddef; - -picture e_pic, a_pic, o_pic, O_pic; % any where - -input universal-uppers; % upper case (majuscules) -input universal-lowers; % lower case (minuscules) -input universal-digits; % numerals -input universal-specials ; % special symbols -input universal-ligatures; % ligaturres -input universal-punctuations; % punctuation symbols -input universal-accents; % accents -input universal-extras; % bauhaus extras - -ligtable "u": "h" kern u#; -ligtable "f": "f" kern 0 , "l" kern 0 , "i" kern 0; -ligtable "o": "l" kern u#; -ligtable "?": "`" =: spanish_query; -ligtable "!": "`" =: spanish_shriek; -ligtable "-": "-"=:oct"173"; -ligtable oct"173": "-"=:oct"174"; - -bye. - -\endinput -%% -%% End of file `universal.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal10.mf b/Master/texmf-dist/fonts/source/public/bayer/universal10.mf deleted file mode 100644 index 34e3fcb8d45..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal10.mf +++ /dev/null @@ -1,43 +0,0 @@ -%% -%% This is file `universal10.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `ten') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -font_identifier:="universal"; % name of the font - -font_size 10pt#; % design size of font. -u# = 20/36pt#; % unit width (= 2/36*font_size) -input universal % input driver file - -\endinput -%% -%% End of file `universal10.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal12.mf b/Master/texmf-dist/fonts/source/public/bayer/universal12.mf deleted file mode 100644 index 0579c8c3151..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal12.mf +++ /dev/null @@ -1,43 +0,0 @@ -%% -%% This is file `universal12.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `twelve') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -font_identifier:="universal"; % name of the font - -font_size 12pt#; % design size of font. -u# = 24/36pt#; % unit width (= 2/36*font_size) -input universal % input driver file - -\endinput -%% -%% End of file `universal12.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal17.mf b/Master/texmf-dist/fonts/source/public/bayer/universal17.mf deleted file mode 100644 index 88c5f20ecff..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal17.mf +++ /dev/null @@ -1,43 +0,0 @@ -%% -%% This is file `universal17.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `seventeen') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -font_identifier:="universal"; % name of the font - -font_size 17pt#; % design size of font. -u# = 34/36pt#; % unit width (= 2/36*font_size) -input universal % input driver file - -\endinput -%% -%% End of file `universal17.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal8.mf b/Master/texmf-dist/fonts/source/public/bayer/universal8.mf deleted file mode 100644 index 0b95cc8bc34..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal8.mf +++ /dev/null @@ -1,43 +0,0 @@ -%% -%% This is file `universal8.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `eight') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -font_identifier:="universal"; % name of the font - -font_size 8pt#; % design size of font. -u# = 16/36pt#; % unit width (= 2/36*font_size) -input universal % input driver file - -\endinput -%% -%% End of file `universal8.mf'. diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal9.mf b/Master/texmf-dist/fonts/source/public/bayer/universal9.mf deleted file mode 100644 index 3e07f6bab22..00000000000 --- a/Master/texmf-dist/fonts/source/public/bayer/universal9.mf +++ /dev/null @@ -1,43 +0,0 @@ -%% -%% This is file `universal9.mf', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `nine') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -font_identifier:="universal"; % name of the font - -font_size 9pt#; % design size of font. -u# = 18/36pt#; % unit width (= 2/36*font_size) -input universal % input driver file - -\endinput -%% -%% End of file `universal9.mf'. diff --git a/Master/texmf-dist/fonts/tfm/public/bayer/universal10.tfm b/Master/texmf-dist/fonts/tfm/public/bayer/universal10.tfm deleted file mode 100644 index d7770375fb8..00000000000 Binary files a/Master/texmf-dist/fonts/tfm/public/bayer/universal10.tfm and /dev/null differ diff --git a/Master/texmf-dist/fonts/tfm/public/bayer/universal12.tfm b/Master/texmf-dist/fonts/tfm/public/bayer/universal12.tfm deleted file mode 100644 index 1313a7192d7..00000000000 Binary files a/Master/texmf-dist/fonts/tfm/public/bayer/universal12.tfm and /dev/null differ diff --git a/Master/texmf-dist/fonts/tfm/public/bayer/universal17.tfm b/Master/texmf-dist/fonts/tfm/public/bayer/universal17.tfm deleted file mode 100644 index c326a531346..00000000000 Binary files a/Master/texmf-dist/fonts/tfm/public/bayer/universal17.tfm and /dev/null differ diff --git a/Master/texmf-dist/fonts/tfm/public/bayer/universal8.tfm b/Master/texmf-dist/fonts/tfm/public/bayer/universal8.tfm deleted file mode 100644 index d163e84fd05..00000000000 Binary files a/Master/texmf-dist/fonts/tfm/public/bayer/universal8.tfm and /dev/null differ diff --git a/Master/texmf-dist/fonts/tfm/public/bayer/universal9.tfm b/Master/texmf-dist/fonts/tfm/public/bayer/universal9.tfm deleted file mode 100644 index 8038a5bc3b6..00000000000 Binary files a/Master/texmf-dist/fonts/tfm/public/bayer/universal9.tfm and /dev/null differ diff --git a/Master/texmf-dist/source/latex/bayer/universal.dtx b/Master/texmf-dist/source/latex/bayer/universal.dtx deleted file mode 100644 index 87935ad8dac..00000000000 --- a/Master/texmf-dist/source/latex/bayer/universal.dtx +++ /dev/null @@ -1,3320 +0,0 @@ -% \iffalse % universal.dtx -%<*copyright> -% universal font and macros for use with LaTeX, TeX and METAFONT -% $Header: universal.dtx,v 1.0 97/12/24 14:43:14 sdc Exp $ -%$%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Copyright (C) 1997 Christian Holm. -% -% The universal package and font is free software; you can -% redistribute it and/or modify it under the terms of the GNU -% General Public License as published by the Free Software -% Foundation; either version 2 of the License, or (at your option) -% any later version. -% -% The universal package and font is distributed in the hope that it -% will be useful, but WITHOUT ANY WARRANTY; without even the implied -% warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -% See the GNU General Public License for more details. -% -% You should have received a copy of the GNU General Public License -% along with this program; if not, write to the Free Software -% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% @LaTeX-style-file{ -%% Author = "Christian Holm", -%% Version = "1.0", -%% Date = "1997/12/24", -%% Time = "14:43:14", -%% Filename = "universal.dtx", -%% Address = "Niels Bohr Institute of Physics -%% University of Copenhagen -%% Denmark", -%% Email = "cholm@fys.ku.dk (Internet)", -%% CodeTable = "ISO/ASCII", -%% Keywords = "LaTeX2e, universal, Herbert Bayer, bauhaus", -%% Supported = "yes", -%% Abstract = "LaTeX package for providing support for typesetting -%% in Herbert Bayers universal font" -%% } -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% -%<*driver> -\documentclass[twoside]{ltxdoc} -\usepackage[titlepage]{universal} -\usepackage{mflogo,a4wide} -\usepackage[dvips]{graphicx,epsfig} -\EnableCrossrefs -\RecordChanges -\CodelineIndex -\typeout{Expect some Under- and overfull boxes} -\begin{document} - \DocInput{universal.dtx} -\end{document} -% -% \fi -% \CheckSum{189} -% \def\fileversion{v1.0} -% \def\filedate{97/12/24} -% \def\docdate {january 16, 1997} -% \def\bs{{\tt\char'134}} -% \newcommand{\Lcs}[1]{{\bs\tt#1}} -% \DoNotIndex{\@ne,\advance,\begin,\char,\closein,\def,\DeclareOption} -% \DoNotIndex{\divide,\docdate,\else,\end,\fi,\filedate,\fileversion} -% \DoNotIndex{\framebox,\global,\ifdim,\ifeof,\ifnum,\ifx,\let,\loop} -% \DoNotIndex{\makebox,\mbox,\mutliply,\NeedsTeXFormat,\newcommand} -% \DoNotIndex{\newcount,\newdim,\newenvironment,\newif,\newsavebox} -% \DoNotIndex{\noindent,\openin,\PackageWarning,\par,\ProcessOptions} -% \DoNotIndex{\ProvidesPackage,\put,\relax,\repeat,\RequirePackage} -% \DoNotIndex{\rule,\savebox,\space,\tempa,\textsc,\tt,\undefined} -% \DoNotIndex{\usebox,\vspace,\vfill,\newdimen,\newpage,\normalsize} -% \DoNotIndex{\Large,\chardef,\clearpage,\begingroup,\endgroup} -% \DoNotIndex{\font,\hspace,\thispagestyle} -% \changes{v1.0}{97/12/24}{The creation of \textsf{``universal''} -% font} -% \date{\docdate} -% \title{the universal package} -% \author{christian holm} -% \abstract{ -% {\large experiment with simplified way of writing: -% \begin{enumerate} -% \item this way of writing is recommended by all typographic -% designers as the future way of writing. -% \item by writing in minuscules our writing looses nothing, -% but is easier to read, considerably more economical. -% \item why must you for one sound have two tokens, e.g.\ -% A and a? why two alphabets for one word, why this double -% set of signs, when the half is enough. -% \end{enumerate} -% \begin{flushright} -% herbert bayer\\ -% 1925\index{Bayer, Herbert} -% \end{flushright}} -% } -% \maketitle -% \tableofcontents -% -% \section{Introduction} -% -% This package contains the \MF{} source and driver files for the -% ``universal'' font, designed by Herbert Bayer, a teacher at the -% bauhaus school in Weimar.\index{Bayer, Herbert} -% -% The fonts name is ``universal'' and \emph{not} universal, since it -% is not the exact design of Herbert Bayer, but rather based -% on his design. All copyright on the original design goes -% to Herbert Bayer or who ever may have it now. -% -% This source was implemented into \MF{} by Christian Holm, -% based on a lot of (printed) samples of the original font. -% -% \section{The Font} -% -% The font uses \texttt{plain.base} and \emph{not} \texttt{cmbase.mf}, -% so it should work on most systems (I have \emph{never} heard of any -% one having \MF{} and without \textsf{Computer Modern} fonts, but who -% knows!). -% -% ``universal'' is avaliable only in normal shape (no -% \textit{italized}, \textbf{bold face}, \textsl{slanted}, or -% \textsc{small caps}), since it wouldn't look good. -% -% The font is rather heavy, and therefore only suitable for graphical -% pages (i.e. \emph{not} text pages), such as a title page etc. -% An example of such a page is on page~\pageref{ex}. -% -% Shapes bold face, slanted, italized, and small caps -% are substitued by the default for \textsf{Computer Modern Roman -% Sans Serif} (\texttt{cmssxx.mf}), if you use the \LaTeXe{} package -% provided. -% -% Different sizes (8, 9, 10, 12, 17pt) are avaliable, and others -% may be generated by \MF{}. -% -% No \textbayer{f} ligatures is defined, since they should not be -% used in this font. However, dotless i (\textbayer{\i}) and j -% (\textbayer{\j}) is defined for use with accents. -% -% \textbayer{\{~\}~\|~\S}, are included, but at non-standard -% (\TeX{}-wise) positions. To take care of this, \texttt{universal.sty} -% contains the nessecary code for \TeX{} (and \LaTeX{}) to find them. -% -% \subsection{Modifications to the original design} -% -% However, some modifications has been made. Any deviations from -% the original design is entirely of my doing, but please notice -% I make no claim of consistency, compability or exactness. -% -% I have tried to keep as close as possible to the -% original principle of Herbert Bayers design, as possible. Most -% of the modifications are due to my conception of the basic -% principles of this font, and are extra- an intrapolations based -% on this conception. Some of the modifications are also based on -% other conceptions of the original principle, for instance the -% true type font ``bauhaus'' avaliable for -% Windows95$^{\mbox{\sc tm}}$. -% -% Use this font if you like it, and if you think it deviate too -% much from the original idea, don't use it, or let me know, so -% that I might try to correct any mistakes. -% -% Below is summerized my modifications: -% \begin{description} -% \item[Upper Case letters:] -% Upper case letters are avaliable in this implementation. Herbert -% Bayer never designed any upper case letters, so those avaliable -% here, is of my doing. -% -% \item[Numbers:] -% I haven't been able to find any samples of Herbert Bayers original -% design for numbers, (if he indeed made one) so those here present, -% are extrapolations. -% -% \item[Punctuation Marks:] -% Again, I have not found the original design, but have relied heavily -% on other conceptions of Herbert Bayers design. -% -% \item[Accents:] -% What I said on punctuation marks also goes for accents. -% -% \item[Odinary Symbols:] -% Repeat the above! -% -% \item[Bauhaus Symbols:] -% This where \emph{never} present in Herbert Bayers design, but I have -% included them here, since I think they're beautiful, and who knows -- -% maybe of some use. The face symbol could be used to indicate -% fascination of the bauhaus school, or some thing like that! -% \end{description} -% -% Table~\ref{font} shows all the ``characters'' of the font: -% \par -% \newcount\n\newcount\m\newcount\p\newdimen\dim -% \def\oct#1{\hbox{\rm\'{}\kern-.2em\it#1\/\kern.05em}} -% \def\hex#1{\hbox{\rm\H{}\tt#1}} -% \def\setdigs#1"#2{\gdef\h{#2} -% \m=\n \divide\m by 64 \xdef\0{\the\m}% -% \multiply\m by-64 \advance\m by\n \divide\m by 8 \xdef\1{\the\m}} -% \def\testrow{\setbox0=\hbox{\penalty 1\def\\{\char"\h}% -% \\0\\1\\2\\3\\4\\5\\6\\7\\8\\9\\A\\B\\C\\D\\E\\F% -% \global\p=\lastpenalty}} -% \def\oddline{\cr -% \noalign{\nointerlineskip} -% \multispan{19}\hrulefill& -% \setbox0=\hbox{\lower 2.3pt\hbox{\hex{\h x}}}\smash{\box0}\cr -% \noalign{\nointerlineskip}} -% \newif\ifskipping -% \def\evenline{\loop\skippingfalse -% \ifnum\n<256 \m=\n \divide\m 16 \chardef\next=\m -% \expandafter\setdigs\meaning\next \testrow -% \ifnum\p=1 \skippingtrue \fi\fi -% \ifskipping \global\advance\n 16 \repeat -% \ifnum\n=256 \let\next=\endchart\else\let\next=\morechart\fi -% \next} -% \def\morechart{\cr\noalign{\hrule\penalty5000} -% \chartline \oddline \m=\1 \advance\m 1 \xdef\1{\the\m} -% \chartline \evenline} -% \def\chartline{&\oct{\0\1x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&} -% \def\chartstrut{\lower4.5pt\vbox to14pt{}} -% \def\Table{$$\global\n=0 -% \halign to\hsize\bgroup -% \chartstrut##\tabskip0pt plus10pt& -% &\hfil##\hfil&\vrule##\cr -% \lower6.5pt\null -% &&&\oct0&&\oct1&&\oct2&&\oct3&&\oct4&&\oct5&&\oct6&&\oct7&\evenline} -% \def\endchart{\cr\noalign{\hrule} -% \raise11.5pt\null&&&\hex 8&&\hex 9&&\hex A&&\hex B& -% &\hex C&&\hex D&&\hex E&&\hex F&\cr\egroup$$\par} -% \def\:{\setbox0=\hbox{\char\n}% -% \ifdim\ht0>7.5pt\reposition -% \else\ifdim\dp0>2.5pt\reposition\fi\fi -% \box0\global\advance\n 1 } -% \def\reposition{ -% \setbox0=\vbox{\kern2pt\box0}\dim=\dp0 -% \advance\dim 2pt \dp0=\dim} -% \def\centerlargechars{ -% \def\reposition{\setbox0=\hbox{$\vcenter{\kern2pt\box0\kern2pt}$}}} -% -% \begin{figure} -% \begingroup -% \font\LARGEbayer=universal17 -% \LARGEbayer -% \Table -% \endgroup -% \caption{Letters and symbols in ``universal'' font.} -% \label{font} -% \end{figure} -% -% \newpage -% \label{ex} -% \begingroup -% \font\HUGEbayer=universal17 at 80pt -% \par\medskip\bayer\noindent -% {\Huge der bauhaus schule am dessau, weimar und berlin 1919--1933}\\ -% \rule{\textwidth}{.3cm} -% \par\vspace{1cm}\par\noindent\hspace{.4\textwidth} -% \rule{.1cm}{8cm} -% \raisebox{3cm}{ -% \begin{minipage}[l]{.5\textwidth} -% the bauhaus school in germany originally located at dessau, -% was a school for any kind of design, ranging from potery to -% furniture, from painting to --- what was considered the prime -% form of design --- architecture. many famous designers came -% from, or taught at bauhaus, for example mies van der rhoe, -% herbert bayer, kandinsky, walter gropius and gerrit rietveld. -% the style ``die stjil'' was explored here, and painters like -% mondrian made large contributions to what today is known as -% ``the bauhaus style''. -% \end{minipage}} -% \par\vspace{1cm}\hspace{.25\textwidth}\rule{.1cm}{5cm} -% \hspace{.5cm}\raisebox{2cm}{{\HUGEbayer \bauhead}} -% \raisebox{3cm}{ -% \begin{minipage}[l]{.4\textwidth} -% this is one of the logos designed for the bauhaus schule, -% and properly the most well--knowned. use it to show your -% appriciation of bauhaus, or for decoration. -% \end{minipage}} -% \hspace{-.8\textwidth}\raisebox{1cm}{\rule{.75\textwidth}{.2cm}} -% \endgroup -% \index{Bayer, Herbert}\index{Rhoe, Mies van der} -% \index{Gropius, Walter}\index{Rietveld, Gerrit} -% \index{Kandinsky}\index{Mondrian}\index{die stjil} -% \index{Bauhaus 1919--1933} -% \newpage -% -% \section{\MF{} and this font} -% -% The \MF{} source files should be in -% \begin{verbatim} -% /usr/lib/texmf/local/fonts/source/bayer -% \end{verbatim} -% (for te\TeX{}), -% or somewhere equivilante, where \MF{} can find them (on must -% systems, where kpathsea can find them). Please notice the long -% file names (\textsc{dos} users: change the names, both on disk -% and in the files). In Table~\ref{mffiles} is a list of the \MF{} -% source files: -% \begin{table}[htbp] -% \begin{tabular}{l l} -% \texttt{accents.mf}& accents\\ -% \texttt{digits.mf}& numbers (0 - 9)\\ -% \texttt{extras.mf}& bauhaus symbols\\ -% \texttt{ligatures.mf}& german \ss, \ae, \oe, \o, \AE, etc.\\ -% \texttt{lowers.mf}& lower case letters (a--z)\\ -% \texttt{punctuations.mf}& punctuation marks (. , ! : ; etc.)\\ -% \texttt{specials.mf}& symbols (\$, ?, \texttt{\{ }, etc.)\\ -% \texttt{universal.mf}& driver file (definitions)\\ -% \texttt{universal8.mf}& driver file for 8pt \\ -% \texttt{universal9.mf}& driver file for 9pt\\ -% \texttt{universal10.mf}& driver file for 10pt \\ -% \texttt{universal12.mf}& driver file for 12pt \\ -% \texttt{universal17.mf}& driver file for 17pt \\ -% \texttt{uppers.mf}& upper case letters (A--Z)\\ -% \end{tabular} -% \caption{\MF{} source files.} -% \label{mffiles} -% \end{table} -% -% \section{\LaTeX{} and this font} -% -% I have made a package for \LaTeX{} to use this font. Include it with: -% \begin{verbatim} -% \usepackage{universal} -% \end{verbatim} -% -% \DescribeMacro{\title}\DescribeMacro{\author} -% \DescribeMacro{\date}\DescribeMacro{\abstract} -% \DescribeMacro{\maketitle} -% The optional argument \texttt{titlepage} redefines the macros -% \Lcs{title}, \Lcs{author} and \Lcs{date}, so that a special version -% of \Lcs{maketitle} may be used. Also provided is the macro -% \Lcs{abstract} to make a abstract suitable for the special kind -% of titlepage. Notice, you can redefine the \Lcs{maketitle} macro -% to suit your needs. In it's current definition, \Lcs{maketitle} -% produces a title--page as the one of this document. -% -% \DescribeMacro{\bayer}\DescribeMacro{\textbayer} -% To shift to ``universal'' font, do either \Lcs{bayer} (for global -% change, or if in a local group, locally) or -% \Lcs{textbayer\{}\textsl{your text}\texttt{\}} for -% local change (the later takes up the largest block of \TeX{} memory, -% so use \Lcs{bayer} as much as you can). -% -% The files should be in -% \begin{verbatim} -% /usr/lib/texmf/local/tex/latex/bayer/ -% \end{verbatim} -% (for te\TeX{}), or -% something equvilant. Please notice the use of long file name -% (\textsc{dos} users: Change the names, both on disk, and in files!). -% The files are -% \begin{table}[htbp] -% \begin{tabular}{l l} -% \texttt{universal.sty}& style file\\ -% \texttt{ot1universal.fd}& font definition file -% \end{tabular} -% \end{table} -% -% \DescribeMacro{\{}\DescribeMacro{\}}\DescribeMacro{\|} -% \DescribeMacro{\varQ} -% You can accecs the symbols {\bayer\{ \} \|} through -% \Lcs{{} \Lcs{}} \verb+\|+. This is \emph{not} standard \LaTeX{}. -% A variant ``Q'' ({\bayer \varQ}) is defined, and can be accesed -% by \Lcs{varQ}. A paragraph sign (\textbayer{\S}) is also avaliable, -% and is accesed trhough the standard \LaTeX{} \Lcs{S}. -% -% \iffalse -% \DescribeMacro{\bauplus}\DescribeMacro{\baudash} -% \DescribeMacro{\bauequal}\DescribeMacro{\bautriangle} -% \DescribeMacro{\baucircle}\DescribeMacro{\baucross} -% \DescribeMacro{\bauwindow}\DescribeMacro{\bauhole} -% \DescribeMacro{\baueclipse}\DescribeMacro{\bauquarter} -% \DescribeMacro{\bauarrow}\DescribeMacro{\bauwhitearrow} -% \DescribeMacro{\bauhead}\DescribeMacro{\bauface} -% \DescribeMacro{\bauquestion}\DescribeMacro{\bauforms} -% \DescribeMacro{\baupunct}\DescribeMacro{\bausquare} -% \fi -% -% A number of macros are defined to accecs the special -% bauhaus symbols. These are only avaliable in the ``universal'' font -% (i.e. after a % \Lcs{bayer} or inside argument of \Lcs{textbayer}). -% They are shown, along with thier corrosponding macros, in -% Table~\ref{charmac}. -% -% \begin{table}[htbp] -% \centering -% \begin{tabular}{l l l l l l l l} -% \Lcs{bauplus} &\textbayer{\bauplus}& -% \Lcs{baudash} &\textbayer{\baudash}& -% \Lcs{bauequal} &\textbayer{\bauequal}& -% \Lcs{bautriangle} &\textbayer{\bautriangle}\\ -% \Lcs{baucircle} &\textbayer{\baucircle}& -% \Lcs{baucross} &\textbayer{\baucross}& -% \Lcs{bauwindow} &\textbayer{\bauwindow}& -% \Lcs{bauhole} &\textbayer{\bauhole}\\ -% \Lcs{baueclipse} &\textbayer{\baueclipse}& -% \Lcs{bauquarter} &\textbayer{\bauquarter}& -% \Lcs{bauarrow} &\textbayer{\bauarrow}& -% \Lcs{bauwhitearrow} &\textbayer{\bauwhitearrow}\\ -% \Lcs{bauhead} &\textbayer{\bauhead}& -% \Lcs{bauface} &\textbayer{\bauface}& -% \Lcs{bauquestion} &\textbayer{\bauquestion}& -% \Lcs{bausorms} &\textbayer{\bauforms}\\ -% \Lcs{baupunct} &\textbayer{\baupunct}& -% \Lcs{bausquare} &\textbayer{\bausquare}&&\\ -% \end{tabular} -% \caption{Extra bauhaus symbols in ``universal'' font.} -% \label{charmac} -% \end{table} -% -% \section{{\sc dos} Users}: -% -% You may have to run the files through some -% \textsc{unix}--to--\textsc{dos} converter -% (like \texttt{unix2dos}). -% I suggest you make the following changes to the file names: -% -% \paragraph*{\MF{} files} -% The files previously said to be in -% \begin{verbatim} -% /usr/lib/texmf/local/fonts/source/bayer -% \end{verbatim} -% should be in \texttt{\%MFINPUTS\%} and named as: -% \begin{verbatim} -% ligatures.mf => LIGATURE.MF -% punctuations.m => PUNCTUAT.MF -% universal.mf => UNIVERSA.MF -% universal8.mf => UNIVER8.MF -% universal9.mf => UNIVER9.MF -% universal10.mf => UNIVER10.MF -% universal12.mf => UNIVER12.MF -% universal17.mf => UNIVER17.MF -% \end{verbatim} -% And in the file univarsal.mf make the same changes on every line -% containg \texttt{input} \textsl{filename}. In the files -% \texttt{universal}\textsl{xx}\texttt{.mf}, change -% the line: -% \begin{verbatim} -% input universal => input UNIVERSA -% \end{verbatim} -% -% \paragraph*{\LaTeX{} files} -% The files previously said to be in -% \begin{verbatim} -% /usr/lib/texmf/local/fonts/source/bayer -% \end{verbatim} -% should be in \texttt{\%TEXINPUTS\%} and named as: -% \begin{verbatim} -% universal.sty => UNIVERSA.STY -% ot1universal.fd => OT1UNIVE.FD -% \end{verbatim} -% In the file \texttt{UNIVERSA.STY}, change the following lines: -% \begin{verbatim} -% \usefont{OT1}{universal}{m}{n} => \usefont{OT1}{UNIVE}{m}{n} -% \end{verbatim} -% In file \texttt{OT1UNIVE.FD} change \emph{every} occurence of -% \begin{verbatim} -% universal => UNIVE -% universal8 => UNIVER8 -% universal9 => UNIVER9 -% universal10 => UNIVER10 -% universal12 => UNIVER12 -% universal17 => UNIVER17 -% \end{verbatim} -% That should take care of that. -% -% \section{Bugs} -% -% I guess you were waiting for this! -% -% Although I have tried my best to make this font look good in any -% maginification, it may come out bad if you use some non--standard -% maginification. -% -% I have tried the font in various modes, and tried to make it -% coherant on any printer, though I offer no garanty on this. -% -% The code is absurdly simple, and this may prove to be a bug, but -% my familiarity with \MF{} is yet limitied to simple stuff. I -% am no match for Donald E.\ Knuth (who is?), but I'm trying -% (did I hear you laughing!).\index{Knuth, Donald E.\} -% -% \section{Final Comments} -% -% Please send me your suggestions, complaints (but don't flame me -% for something I didn't know), or bug reports, and I will look into -% it when I find the time \verb+:-)+ -% -% This font is avaliable from -% \begin{verbatim} -% http://www.fys.ku.dk/~cholm/V1/TeX/bayer.html -% \end{verbatim} -% and soon from any CTAN site. -% -% This font is distributed under GNU GENERAL PUBLIC LISCENCE. -% Copyright \copyright{} 1997 Christian Holm. -% -% \noindent -% Christian Holm\\ -% E-Mail: \texttt{cholm@fys.ku.dk} -% -% \StopEventually{} -% \iffalse -%<*package> -% \fi -% -% \section{\LaTeXe{} Files} -% -% Here is the sources for the \LaTeX{} files needed to use this -% font. I have only made a font--definition for encoding ``OT1'', -% since I beleiv this to be the most used. Others font--defintion -% files should be easely made. -% -% \subsection{Package File (\texttt{universal.sty})} -% -% First some package identification, nothing special here. -% \begin{macrocode} -\def\fileversion{v1.0} -\def\filedate{97/12/24} -\ProvidesPackage{universal}[\filedate\space\fileversion\space universal - package.] -% \end{macrocode} -% \begin{macro}{\ifBayer} -% We provide a new \textsl{if}, to test for the ``universal'' font. -% This could be used in macros etc. -% \begin{macrocode} -\newif\ifBayer -\Bayerfalse -% \end{macrocode} -% \end{macro} -% \begin{macro}{titlepage} -% Next, a package option is defined. The definition of \Lcs{maketitle} -% is only an example. -% \begin{macrocode} -\DeclareOption{titlepage}{ - \newdimen\unidim - \unidim1cm - \renewcommand{\title}[1]{\def\unititle{#1}} - \renewcommand{\author}[1]{\def\uniauthor{#1}} - \renewcommand{\date}[1]{\def\unidate{#1}} - \renewcommand{\abstract}[1]{\def\uniabst{#1}} - \renewcommand{\maketitle}{ - \clearpage - \thispagestyle{empty} - \noindent - \begingroup - {\Huge\bayer\unititle}\\ - \rule{\textwidth}{.05\textwidth} - \ifx\uniabst\undefined - \vfill - \else - \vspace{.05\textwidth}\par\noindent - \hspace{.2\textwidth}\rule{.01\textwidth}{.7\textwidth} - \raisebox{.3\textwidth}{ - \begin{minipage}[l]{.7\textwidth} - {\bayer\normalsize\uniabst} - \end{minipage} - } - \vfill - \fi - \begin{minipage}[l]{.3\textwidth} - {\bayer\Large\uniauthor}\par\noindent - {\large\bayer\MakeLowercase{\unidate}} - \end{minipage}\hspace{.2\textwidth} - \raisebox{-.05\textwidth}{\rule{.02\textwidth}{.4\textwidth}} - \font\Hugebayer=universal17 at 80pt - \hspace{.01\textwidth}{\Hugebayer\char"84}\\ - \rule{.8\textwidth}{.01\textwidth} - \endgroup - \newpage - } -} -\ProcessOptions\relax -% \end{macrocode} -% \end{macro} -% \begin{macro}{\textbayer} -% This is the command to change to ``universal'' font locally. It's -% not very fancy --- it calls \Lcs{bayer} macro. -% \begin{macrocode} -\newcommand{\textbayer}[1]{ - \begingroup - \bayer - #1 - \endgroup -} -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bayer} -% Now for the global, and important, macro of this package. We set -% \Lcs{Bayertrue}, so that macroes will know we currently use the -% ``universal'' font. Secondly, it defines some character macros -% to acces special symbols in the font. -% \begin{macrocode} -\newcommand{\bayer}{ - \Bayertrue - \chardef\{="80 - \chardef\}="81 - \chardef\|="0F - \chardef\S="82 - \chardef\varQ="83 - \chardef\bauplus="00 - \chardef\baudash="01 - \chardef\bauequal="02 - \chardef\bautriangle="03 - \chardef\baucircle="04 - \chardef\baucross="05 - \chardef\bauwindow="06 - \chardef\bauhole="07 - \chardef\baueclipse="08 - \chardef\bauquarter="09 - \chardef\bauarrow="0A - \chardef\bauwhitearrow="0B - \chardef\bauhead="0C - \chardef\bauface="0D - \chardef\bauquestion="0E - \chardef\bauforms="84 - \chardef\baupunct="85 - \chardef\bausquare="86 - \usefont{OT1}{universal}{m}{n} -} -% \end{macrocode} -% \end{macro} -% \iffalse -% -% \fi -% -% \subsection{Font Definition File (\texttt{ot1universal.fd})} -% -% This file contains the nessesary definitions for using the -% ``universal'' font. Notice the font is substitued for the -% \textsf{Compute Modern Sans Serif} defaults in all other shapes -% then normal upright. -% \iffalse -%<*fd> -% \fi -% \begin{macrocode} -\ProvidesFile{ot1universal.fd} - [1997/01/14 v2.5a Non standard LaTeX font definitions] -\DeclareFontFamily{OT1}{universal}{\hyphenchar\font45 } -% \end{macrocode} -% {\bayer Normal upright}. -% \begin{macrocode} -\DeclareFontShape{OT1}{universal}{m}{n} - { - <5><6><7><8>universal8 - <9>universal9 - <10><10.95>universal10 - <12><14.4>universal12 - <17.28><20.74><24.88>universal17 - }{} -% \end{macrocode} -% {\it Italized}, {\sl slanted}, {\sc small caps} is undefined, -% therefore substituted. -% \begin{macrocode} -\DeclareFontShape{OT1}{universal}{m}{it}{<->ssub*cmss/m/sl}{} -\DeclareFontShape{OT1}{universal}{m}{sl}{<->ssub*cmss/m/sl}{} -\DeclareFontShape{OT1}{universal}{m}{sc}{<->ssub*cmr/m/sc}{} -\DeclareFontShape{OT1}{universal}{m}{ui}{<->ssub*cmr/m/ui}{} -% \end{macrocode} -% Semibold condensed and bold extended series is undefined, -% therefore substituted. -% \begin{macrocode} -\DeclareFontShape{OT1}{universal}{sbc}{n}{<->ssub*cmss/sbc/n}{} -\DeclareFontShape{OT1}{universal}{bx}{n}{<->ssub*cmss/bx/n}{} -\DeclareFontShape{OT1}{universal}{bx}{ui}{<->ssub*cmr/bx/ui}{} -% \end{macrocode} -% -% End of file `ot1universal.fd'. -% \iffalse -% -% \fi -% -% \section{The \MF{} Sources} -% -% Below follows the sources for the font and driver files. -% These are in plain \MF{}, so you dont need Computer Modern -% base file \texttt{cmbase.mf}, to use this file. However, the -% files does to some extent follow the style of the Computer -% Modern source files, in particular the divivsion of the sources -% into files. -% -% The reason why I made the sources a part of this \texttt{.dtx} is -% to ease the dsitribution, as well as the documentation. -% -% \subsection{Main driver file (\texttt{universal.mf})} -% \iffalse -%<*main> -% \fi -% \begin{macrocode} -x_height# = 8u#; % height of lowercase without ascenders -m_width# = 7/5x_height# ; % width of widest lowercase (1em) -x_width# = x_height#+f_space#; % width of normal lowercase -p_depth# = 3/5x_height# ; % depth of charactes accending baseline -l_height# = 8/5x_height# ; % height of heighest characters -p_thick# = 1/36x_height# ; % pen thickness -f_space# = 2u#; % space added after fonts -c_width# = 1x_width#-0.5x_width#*(1-cosd(35)); % width of "c" -C_width# = l_height#-0.5l_height#*(1-cosd(35)); % width of "C" -f_width# = 3/8l_height#+f_space#; % width of "f" -A_width# = m_width# ; % width of normal upper case characters -M_width# = 7/5A_width# ; % width of "M" -define_pixels(u,m_width,x_width,x_height,p_depth,l_height,p_thick) ; -define_pixels(f_space,A_width,C_width,M_width) ; -define_corrected_pixels(p_depth) ; - -ligs:=2; -font_coding_scheme:="TeX text"; -spanish_shriek:=oct"074"; -spanish_query:=oct"076"; - -mode_setup; - -font_x_height 8u#; -font_quad m_width#; -font_normal_space 6u#+f_space#; -font_normal_stretch 3u#; -font_normal_shrink 2u#; -font_quad 18u#+4f_space#; -font_extra_space 2u#; - -% \end{macrocode} -% \begin{macro}{makebox} -% We redefine the the macro \texttt{makebox}, so that the -% proof--sheets contain more lines, and indicate baseline, if the -% letter goes beyond this. -% \begin{macrocode} -def makebox(text rule) = % macro for hardcopy proofs - rule((0,0)t_,(w,0)t_); - rule((0,0.01)t_,(w,0.01)t_); - for y=-d step u until h+u: % making addtional grid lines - rule((0,y)t_,(w,y)t_); - endfor % horizontals - for x=0 step u until w+u: - rule((x,-d)t_,(x,h)t_); - endfor % verticals -enddef; - -% \end{macrocode} -% \end{macro} -% The next couple of definitions, are more of mnemonic in nature, then -% actual functions. -% \begin{macrocode} -def bauhauschar (expr name, width, height, depth, extra_width) = - beginchar(name,width,height,depth); - "The letter "&name; - pickup pencircle scaled p_thick ; - wi#:=width-f_space#+extra_width; - define_pixels(wi); - enddef; - -def bauhausnumb (expr name, width, height, depth, extra_width) = - beginchar(name,width,height,depth); - "The number "&name; - pickup pencircle scaled p_thick ; - wi#:=width-f_space#+extra_width; - define_pixels(wi); - enddef; - -def bauhaussymb (expr name, width, height, depth, extra_width) = - beginchar(name,width,height,depth); - pickup pencircle scaled p_thick ; - wi#:=width-f_space#+extra_width; - define_pixels(wi); - enddef; - -def bauhausextra (expr number, name) = - beginchar(number,l_height#+f_space#,l_height#,p_depth#); - "The bauhaus symbol "&name; - pickup pencircle scaled 1/10p_thick ; - wi#:=l_height#; - define_pixels(wi); - enddef; - -picture e_pic, a_pic, o_pic, O_pic; % any where - -input uppers; % upper case (majuscules) -input lowers; % lower case (minuscules) -input digits; % numerals -input specials ; % special symbols -input ligatures; % ligaturres -input punctuations; % punctuation symbols -input accents; % accents -input extras; % bauhaus extras - -ligtable "u": "h" kern u#; -ligtable "f": "f" kern 0 , "l" kern 0 , "i" kern 0; -ligtable "o": "l" kern u#; -ligtable "?": "`" =: spanish_query; -ligtable "!": "`" =: spanish_shriek; -ligtable "-": "-"=:oct"173"; -ligtable oct"173": "-"=:oct"174"; - -bye. -% \end{macrocode} -% \iffalse -% -% \fi -% -% \subsection{Driver file for 8 point(\texttt{universal8.mf})} -% \iffalse -%<*eight> -% \fi -% \begin{macrocode} -font_identifier:="universal"; % name of the font - -font_size 8pt#; % design size of font. -u# = 16/36pt#; % unit width (= 2/36*font_size) -input universal % input driver file -% \end{macrocode} -% \iffalse -% -% \fi -% -% \subsection{Driver file for 9 point(\texttt{universal9.mf})} -% \iffalse -%<*nine> -% \fi -% \begin{macrocode} -font_identifier:="universal"; % name of the font - -font_size 9pt#; % design size of font. -u# = 18/36pt#; % unit width (= 2/36*font_size) -input universal % input driver file -% \end{macrocode} -% \iffalse -% -% \fi -% -% \subsection{Driver file for 10 point(\texttt{universal10.mf})} -% \iffalse -%<*ten> -% \fi -% \begin{macrocode} -font_identifier:="universal"; % name of the font - -font_size 10pt#; % design size of font. -u# = 20/36pt#; % unit width (= 2/36*font_size) -input universal % input driver file -% \end{macrocode} -% \iffalse -% -% \fi -% -% \subsection{Driver file for 12 point(\texttt{universal12.mf})} -% \iffalse -%<*twelve> -% \fi -% \begin{macrocode} -font_identifier:="universal"; % name of the font - -font_size 12pt#; % design size of font. -u# = 24/36pt#; % unit width (= 2/36*font_size) -input universal % input driver file -% \end{macrocode} -% \iffalse -% -% \fi -% -% \subsection{Driver file for 17 point(\texttt{universal17.mf})} -% \iffalse -%<*seventeen> -% \fi -% \begin{macrocode} -font_identifier:="universal"; % name of the font - -font_size 17pt#; % design size of font. -u# = 34/36pt#; % unit width (= 2/36*font_size) -input universal % input driver file -% \end{macrocode} -% \iffalse -% -% \fi -% -% \subsection{Majuscules (\texttt{uppers.mf})} -% \iffalse -%<*uppers> -% \fi -% \begin{macro}{A} -% \begin{macrocode} -bauhauschar("A",1A_width#,1l_height#,0,0); %"The letter A"; - lft z1=(0,0); - lft z2=(0,h-0.5wi); - top z3=(0.5wi,h); - rt z4=(wi,y2); - rt z5=(wi,0); - lft z6=(0,0.5h); - rt z7=(wi,y6); - cutdraw z1{up}--z2{up}..z3{right}..z4{down}--z5{down}; - cutdraw z6{right}--z7{right}; - penlabels(1,2,3,4,5,6,7); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{B} -% \begin{macrocode} -bauhauschar("B",1A_width#,1l_height#,0,0); %"The letter B"; - lft bot z1 = (0,0); - lft top z2 = (0,h); - top z3 = (wi-0.25h,h); - rt z4 = (wi,0.75h); - z5 = (x3,0.5h); - z6 = (p_thick,0.5h); - rt z7 = (wi,0.25h); - bot z8 = (x3,0); - draw z1{(-1,1)}---z2{(1,1)}---z3{right}..z4{down}..z5{left}--z6{left}; - draw z5{right}..z7{down}..z8{left}---z1{(-1,1)}; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{C} -% \begin{macrocode} -bauhauschar("C",C_width#+f_space#,l_height#,0,0); - rt z1 = bot z2 rotatedaround((0.5wi,0.5h),60); - bot z2 = (0.5wi,0); - lft z3 = (0,0.5h); - top z4 = (0.5wi,h); - rt z5 = top z4 rotatedaround((0.5wi,0.5h),-60); - cutdraw z1..z2{left}..z3{up}..z4{right}..z5; - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{D} -% \begin{macrocode} -bauhauschar("D",A_width#,l_height#,0,0); - lft bot z1 = (0,0); - lft top z2 = (0,h); - top z3 = (wi-.5h,h); - rt z4 = (wi,0.5h); - bot z5 = (x3,0); - draw z2{right}---z3{right}..z4{down}..z5{left}---z1{left}---z2{up}; - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{E} -% \begin{macrocode} -bauhauschar("E",A_width#,l_height#,0,0); - rt bot z1 = (wi,0); - lft bot z2 = (0,0); - lft top z3 = (0,h); - rt top z4 = (wi,h); - lft z5 = (0,0.5h); - rt z6 = (wi,0.5h); - cutdraw z1{left}---z2{(-1,1)}---z3{(1,1)}---z4{right}; - cutdraw z5{left}--z6; - penlabels(1,2,3,4,5,6); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{F} -% \begin{macrocode} -bauhauschar("F",A_width#,l_height#,0,0); - lft bot z1 = (0,0); - lft top z2 = (0,h); - rt top z3 = (wi,h); - lft z4 = (0,0.5h); - rt z5 = (wi,0.5h); - cutdraw z1{up}---z2{(1,1)}---z3{right}; - cutdraw z4{left}--z5; - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{G} -% \begin{macrocode} -bauhauschar("G",l_height#+f_space#,l_height#,0,0); - rt z1 = (wi,0.5h); - bot z2 = (0.5wi,0); - lft z3 = (0,0.5h); - top z4 = (0.5wi,h); - rt z5 = top z4 rotatedaround((0.5wi,0.5h),-60); - rt z6 = (wi,0); - cutdraw z1..z2{left}..z3{up}..z4{right}..z5; - cutdraw z1{down}--z6; - penlabels(1,2,3,4,5,6); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{H} -% \begin{macrocode} -bauhauschar("H",A_width#,l_height#,0,0); - lft z1 = (0,0); - lft z2 = (0,0.5h); - lft z3 = (0,h); - rt z4 = (wi,0); - rt z5 = (wi,0.5h); - rt z6 = (wi,h); - cutdraw z1{up}--z3{up}; - cutdraw z4{up}--z6{up}; - cutdraw z2{left}--z5{left}; - penlabels(1,2,3,4,5,6); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{I} -% \begin{macrocode} -bauhauschar("I",p_thick#+2f_space#,l_height#,0,0); - lft z1 = (0,0); - lft z2 = (0,h); - cutdraw z1{up}--z2{up}; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{J} -% \begin{macrocode} -bauhauschar("J",.5x_width#,l_height#,0,0); - bot z1 = (0,0); - bot rt z2 = (wi,0); - rt z3 = (wi,h); - cutdraw z1{right}---z2{(1,1)}---z3{up}; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{K} -% \begin{macrocode} -bauhauschar("K",0.5l_height#+2f_space#,l_height#,0,0); - lft z1 = (0,0); - lft z2 = (0,0.5h); - lft z3 = (0,h); - rt z4 = (wi,0); - rt z5 = (wi,h); - cutdraw z1{up}--z3{up}; - cutdraw z2{right}..z4{down}; - cutdraw z2{right}..z5{up}; - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{L} -% \begin{macrocode} -bauhauschar("L",A_width#,l_height#,0,0); - lft z1 = (0,h); - lft bot z2 = (0,0); - rt bot z3 = (wi,0); - cutdraw z1{down}---z2{(1,-1)}---z3{right}; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{M} -% \begin{macrocode} -bauhauschar("M",M_width#,l_height#,0,0); - lft z1 = (0,0) ; - lft z2 = (0,0.7h) ; - top z3 = (0.5[x5,x1],h) ; - z4 = (0.5wi,0.7h-0.25p_thick) ; - z5 = (0.5wi,0) ; - top z6 = (0.5[x8,x5],h) ; - rt z7 = (wi,0.7h) ; - rt z8 = (wi,0) ; - cutdraw z1{up}--z2..z3{right}..z4{down}--z5 ; - cutdraw z4{up}..z6{right}..z7--z8{down} ; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{N} -% \begin{macrocode} -bauhauschar("N",A_width#,l_height#,0,0); - lft z1 = (0,0); - lft z2 = (0,0.6h) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,0.6h) ; - rt z5 = (wi,0); - cutdraw z1{up}--z2{up}..z3{right}..z4{down}--z5{down}; - penlabels(1,2,3,4,5); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{O} -% \begin{macrocode} -bauhauschar("O",l_height#+f_space#,l_height#,0,0); - top z1 = (.5wi,h) ; - rt z2 = (wi,.5h) ; - bot z3 = (.5wi,0) ; - lft z4 = (0,.5h) ; - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle ; - penlabels(1,2,3,4); - O_pic = currentpicture; -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{P} -% \begin{macrocode} -bauhauschar("P",A_width#,l_height#,0,0); - lft z1 = (0,0) ; - lft z2 = (0,h-.5wi) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,h-.5wi) ; - bot z5 = (0.5wi,h-wi) ; - draw z2{up}..z3{right}..z4{down}..z5{left}..cycle ; - cutdraw z1{up}--z2{up}; - penlabels(1,2,3,4,5); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{Q} -% ``Q'' as an ``O'' with dash -% \begin{macrocode} -bauhauschar("Q",l_height#+f_space#,l_height#,2/3p_depth#,0); - top z1 = (.5wi,h) ; - rt z2 = (wi,.5h) ; - bot z3 = (.5wi,0) ; - lft z4 = (0,.5h) ; - z5 = (.5wi,2d); - z6 = (.5wi,-d); - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle ; - cutdraw z5{down}--z6; - penlabels(1,2,3,4,5,6); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{R} -% \begin{macrocode} -bauhauschar("R",A_width#,l_height#,0,0); - lft z1 = (0,0); - lft z2 = (0,h-.5wi); - top z3 = (.5wi,h); - rt z4 = (wi,h-.5wi); - bot z5 = (0.5wi,h-wi); - rt z6 = (wi,h-1.5wi); - rt z7 = (wi,0); - draw z2{up}..z3{right}..z4{down}..z5{left}..cycle; - cutdraw z1{up}--z2{up}; - cutdraw z5{right}..z7{down}; - penlabels(1,2,3,4,5,6,7); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{S} -% \begin{macrocode} -bauhauschar("S",A_width#,l_height#,0,0); % - lft z1 = (0,0.5[y6,y2]) ; - bot z2 = (1/3wi,0) ; - bot z3 = (2/3wi,0) ; - rt z4 = (wi,0.5[y5,y3]) ; - z5 = (2/3wi,0.5h) ; - z6 = (1/3wi,0.5h) ; - lft z7 = (0,0.5[y8,y6]) ; - top z8 = (1/3wi,h); - top z9 = (2/3wi,h) ; - rt z10 = (wi,0.5[y8,y6]) ; - cutdraw z1{down}..z2{right}--z3{right}..z4{up}..z5{left} - --z6{left}..z7{up}..z8{right}--z9{right}..z10{down} ; - penlabels(1,2,3,4,5,6,7,8,9,10); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{T} -% \begin{macrocode} -bauhauschar("T",A_width#,l_height#,0,0); - top z1 = (0,h); - top z2 = (wi,h); - z3 = (.5wi,h); - z4 = (0.5wi,0); - cutdraw z1{right}--z2; - cutdraw z3{up}--z4; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{U} -% \begin{macrocode} -bauhauschar("U",A_width#,l_height#,0,0); - lft z1 = (0,h); - lft z2 = (0,0.4h) ; - bot z3 = (0.5wi,0) ; - rt z4 = (wi,0.4h) ; - rt z5 = (wi,h); - cutdraw z1{down}--z2{down}..z3{right}..z4{up}--z5{up}; - penlabels(1,2,3,4,5); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{V} -% \begin{macrocode} -bauhauschar("V",A_width#,l_height#,0,0); - lft z1 = (0,h); - bot z2 = (0.5wi-0.5p_thick,0.5p_thick); - bot z3 = (0.5wi,0); - bot z4 = (0.5wi+0.5p_thick,0.5p_thick); - rt z5 = (wi,h); - draw z1{down}--z2..z3..z4--z5{up}; - cutoff(z1,90); - cutoff(z5,90); - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{W} -% \begin{macrocode} -bauhauschar("W",M_width#,l_height#,0,0); - lft z1 = (0,h) ; - lft z2 = (0,0.3h) ; - bot z3 = (0.5[x5,x1],0) ; - z4 = (0.5wi,0.3h+0.25p_thick) ; - z5 = (0.5wi,h) ; - bot z6 = (0.5[x8,x5],0) ; - rt z7 = (wi,0.3h) ; - rt z8 = (wi,h) ; - cutdraw z1{down}--z2..z3{right}..z4{up}--z5 ; - cutdraw z4{down}..z6{right}..z7--z8{down} ; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{X} -% \begin{macrocode} -bauhauschar("X",l_height#+f_space#,l_height#,0,0); - top z1 = (0,h); - z2 = (0.5wi,0.5wi); - bot z3 = (0,0); - top z4 = (wi,h); - bot z5 = (wi,0); - cutdraw z1{right}..z2{down}..z3{left}; - cutdraw z4{left}..z2{down}..z5{right}; - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{Y} -% \begin{macrocode} -bauhauschar("Y",A_width#,l_height#,0,0) ; - rt z1 = (wi,0) ; - lft z2 = (0,h) ; - rt z3 = (wi,h) ; - rt z4 = (wi,h-x5) ; - bot z5 = (0.5wi,h-wi) ; - lft z6 = (0,h-x5) ; - cutdraw z1{up}--z3 ; - cutdraw z3{up}--z4..z5{left}..z6{up}--z2{up} ; - penlabels(1,2,3,4,5,6); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{Z} -% \begin{macrocode} -bauhauschar("Z",A_width#,l_height#,0,0) ; - top z1 = (0,h); - rt x2 = wi ; top y2 = h ; - rt x3 = wi ; top y3 = y2; - lft x4 = 0 ; bot y4 = y5 ; - lft x5 = 0 ; bot y5 = 0 ; - bot z6 = (wi,0); - cutdraw z1{right}--z2..z3--z4..z5--z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - -% \end{macrocode} -% \end{macro} -% \iffalse -% -% \fi -% -% \subsection{Minuscules (\texttt{lowers.mf})} -% \iffalse -%<*lowers> -% \fi -% \begin{macro}{a} -% We save the letter ``a'' in a \textsl{picture} variable for -% later use (in ligature \ae{}). -% \begin{macrocode} -bauhauschar("a",1x_width#,1x_height#,0,0); %"The letter a"; - bot z1 = (7/16wi,0); - lft z2 = lft z3 rotatedaround((0.5wi,0.5h),45); - lft z3 = (0,0.5h); - top z4 = (0.5wi,h); - rt z5 = top z4 rotatedaround((0.5wi,0.5h),-45); - rt z6 = (wi,0.5h+sind(15)); - rt z7 = (wi,0); - draw z6..z1{left}..z2..z3{up}..z4{right}..z5..z6{down}--z7 ; - penlabels(1,2,3,4,5,6,7,8); - cutoff(z7,-90); - a_pic := currentpicture; -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{b} -% \begin{macrocode} -bauhauschar("b",1x_width#,l_height#,0,0); %"The letter b"; - top y1=5/8h ; - rt x2=wi ; - bot y3=0 ; - lft x4= lft x5 = lft x6 = 0 ; - x1 = x3 = 0.5wi ; - y2 = y4 = y5 = 5/16h ; - y6 = h ; - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle ; - cutdraw z5--z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{c} -% \begin{macrocode} -bauhauschar("c",c_width#,1x_height#,0,1f_space#); %"The letter c"; - rt z5 = top z4 rotatedaround((0.5wi,0.5h),-60); - rt z1 = bot z2 rotatedaround((0.5wi,0.5h),60); - bot y2=0; - lft x3=0; - top y4=h; - x2 = x4 = 0.5wi; - y3 = 0.5h ; - cutdraw z1..z2{left}..z3{up}..z4{right}..z5; - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{d} -% \begin{macrocode} -bauhauschar("d",1x_width#,l_height#,0,0); %"The letter d"; - top y1 = 5/8h ; - rt x2 = rt x5 = rt x6 = wi ; - bot y3 =0 ; - lft x4 = 0 ; - x1 = x3 = 0.5wi ; - y2 = y4 = y5 = 5/16h ; - y6 = h ; - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle ; - cutdraw z5--z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{e} -% We save the letter ``e'' in a \textsl{picture} variable for -% later use (in ligatures \ae{} \oe{}). -% \begin{macrocode} -bauhauschar("e",1x_width#,1x_height#,0,0) ; %"The letter e"; - rt z1 = bot z2 rotatedaround((0.5wi,0.5h),60) ; - bot y2 = 0 ; - lft x3 = 0 ; - top y4 = h ; - rt x5 = rt x7 = wi ; - x6 = p_thick; - x2 = x4 = 0.5wi ; - y3 = y5 = y6 = 0.5h ; - y7 = y5 - 0.5p_thick ; - cutdraw z5{up}..z4{left}..z3{down}..z2{right}..z1 ; - cutdraw z5{down}--z7{down} ; - draw z6{right}--z5{right}; - penlabels(1,2,3,4,5,6,7); - e_pic := currentpicture -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{f} -% \begin{macrocode} -bauhauschar("f",f_width#,l_height#,0,0); %"The letter f"; - lft x1 = lft x2 = 0 ; - y1 = 0 ; - top y2 = top y5 = top y6 = 5/8h ; - x4 = wi ; - x5 = p_thick; - x6 = wi; - top y4 = h ; - lft z3 = lft z2 rotatedaround((top z6),-45) ; - cutdraw z1{up}--z2{up}..z3{(1,1)}..z4{right} ; - cutdraw z5{right}--z6 ; - penlabels(1,2,3,4,5,6,7); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{g} -% \begin{macrocode} -bauhauschar("g",1x_width#,1x_height#,p_depth#,0); %"The letter g"; - rt z1 = top z2 rotatedaround((0.5wi,0.5h),-60) ; - top z2 = (0.5wi,h) ; - lft z3 = (0,0.5h) ; - bot z4 = (0.5wi,0) ; - rt z5 = (wi,0.5h) ; - rt z6 = (wi,-d) ; - cutdraw z1{(-cosd(60),sind(60))}..z2{left}..z3{down} - ..z4{right}..z5{up} ; - cutdraw z5{down}--z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{h} -% \begin{macrocode} -bauhauschar("h",1x_width#,1l_height#,0,0) ; %"The letter h" ; - lft z1 = (0,0) ; - lft z2 = (0,h) ; - rt z3 = (wi,0) ; - rt z4 = (wi,x5) ; - top z5 = (0.5wi,5/8h) ; - lft z6 = (0,x5) ; - cutdraw z1{up}--z2 ; - cutdraw z3{up}--z4..z5{left}..z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{i} -% \begin{macrocode} -bauhauschar("i",1/5x_height#+f_space#,l_height#,0,0); %"The letter i" ; - lft z1 = (0,0) ; - lft z2 = (0,5/8h) ; - top z3 = (0.5wi,h) ; - cutdraw z1{up}--z2 ; - drawdot z3 ; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{j} -% \begin{macrocode} -bauhauschar("j",1/5x_height#+f_space#,l_height#,p_depth#,0); - %"The letter j" - lft z1 = (0,-d) ; - lft z2 = (0,5/8h) ; - top z3 = (0.5wi,h) ; - cutdraw z1{up}--z2 ; - drawdot z3 ; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{k} -% \begin{macrocode} -bauhauschar("k",0.8x_width#,1x_height#,0,0); %"The letter k" ; - lft z1 = (0,0) ; - lft z2 = (0,h) ; - lft z3 = (0,0.5h) ; - rt z4 = (wi,0) ; - rt z5 = (wi,h) ; - cutdraw z1{up}--z2 ; - cutdraw z3{right}..z4{down} ; - cutdraw z3{right}..z5{up} ; - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{l} -% \begin{macrocode} -bauhauschar("l",1/5x_height#+f_space#,l_height#,0,0);%"The letter l" ; - lft z1 = (0,0) ; - lft z2 = (0,h) ; - cutdraw z1{up}--z2 ; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{m} -% \begin{macrocode} -bauhauschar("m",1m_width#,1x_height#,0,0); %"The letter m"; - lft z1 = (0,0) ; - lft z2 = (0,0.7h) ; - top z3 = (0.5[x5,x1],h) ; - z4 = (0.5wi,0.7h-0.25p_thick) ; - z5 = (0.5wi,0) ; - top z6 = (0.5[x8,x5],h) ; - rt z7 = (wi,0.7h) ; - rt z8 = (wi,0) ; - cutdraw z1{up}--z2..z3{right}..z4{down}--z5 ; - cutdraw z4{up}..z6{right}..z7--z8{down} ; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{n} -% \begin{macrocode} -bauhauschar("n",1x_width#,1x_height#,0,0); %"The letter n"; - lft z1 = (0,0); - lft z2 = (0,0.6h) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,0.6h) ; - rt z5 = (wi,0); - cutdraw z1{up}--z2{up}..z3{right}..z4{down}--z5{down}; - penlabels(1,2,3,4,5); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{o} -% We save the letter in a \textsl{picture} variable for later use -% (for ligature \oe{}). -% \begin{macrocode} -bauhauschar("o",1x_width#,1x_height#,0,0); %"The letter o"; - top y1=h ; - rt x2=wi ; - bot y3=0 ; - lft x4=0 ; - x1 = x3 = 0.5wi ; - y2 = y4 = 0.5h ; - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle ; - penlabels(1,2,3,4); - o_pic := currentpicture; -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{p} -% \begin{macrocode} -bauhauschar("p",1x_width#,1x_height#,p_depth#,0); %"The letter p"; - lft z1 = (0,-d) ; - lft z2 = (0,0.5h) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,0.5h) ; - bot z5 = (0.5wi,0) ; - draw z2{up}..z3{right}..z4{down}..z5{left}..cycle ; - cutdraw z1{up}--z2{up}; - penlabels(1,2,3,4,5); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{q} -% \begin{macrocode} -bauhauschar("q",1x_width#,1x_height#,p_depth#,0); %"The letter q"; - rt z1 = (wi,-d) ; - lft z2 = (0,0.5h) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,0.5h) ; - bot z5 = (0.5wi,0) ; - draw z2{up}..z3{right}..z4{down}..z5{left}..cycle ; - cutdraw z1{up}--z4{up}; - penlabels(1,2,3,4,5); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{r} -% \begin{macrocode} -bauhauschar("r",3/5x_height#+f_space#,1x_height#,0,0); %"The letter r"; - lft z1 = (0,0) ; - lft z2 = (0,h-wi); - top z4 = (wi,h) ; - lft z3 = lft z2 rotatedaround((x4,y2),-45); - cutdraw z1{up}--z2{up}..z3{(1,1)}..z4{right}; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{s} -% \begin{macrocode} -bauhauschar("s",0.8x_width#,1x_height#,0,0); %"The letter s"; - lft z1 = (0,0.5[y6,y2]) ; - bot z2 = (1/3wi,0) ; - bot z3 = (2/3wi,0) ; - rt z4 = (wi,0.5[y5,y3]) ; - z5 = (2/3wi,0.5h) ; - z6 = (1/3wi,0.5h) ; - lft z7 = (0,0.5[y8,y6]) ; - top z8 = (1/3wi,h); - top z9 = (2/3wi,h) ; - rt z10 = (wi,0.5[y8,y6]) ; - cutdraw z1{down}..z2{right}--z3{right}..z4{up}.. - z5{left}--z6{left}..z7{up}..z8{right}--z9{right}..z10{down} ; - penlabels(1,2,3,4,5,6,7,8,9,10); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{t} -% \begin{macrocode} -bauhauschar("t",3/5x_height#+f_space#,1l_height#,0,0); %"The letter t"; - z1 = (0.5wi,0); - z2 = (0.5wi,h); - cutdraw z1{up}--z2; - top z3 = (0,5/8h); - top z4 = (wi,5/8h); - cutdraw z3--z4; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{u} -% \begin{macrocode} -bauhauschar("u",1x_width#,1x_height#,0,0); %"The letter u"; - lft z1 = (0,h); - lft z2 = (0,0.4h) ; - bot z3 = (0.5wi,0) ; - rt z4 = (wi,0.4h) ; - rt z5 = (wi,h); - cutdraw z1{down}--z2{down}..z3{right}..z4{up}--z5{up}; - penlabels(1,2,3,4,5); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{v} -% \begin{macrocode} -bauhauschar("v",1x_width#,1x_height#,0,0); %"The letter v"; - lft z1 = (0,h); - bot z2 = (0.5wi-0.5p_thick,0.5p_thick); - bot z3 = (0.5wi,0); - bot z4 = (0.5wi+0.5p_thick,0.5p_thick); - rt z5 = (wi,h); - draw z1{down}--z2..z3..z4--z5{up}; - cutoff(z1,90); - cutoff(z5,90); - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{w} -% \begin{macrocode} -bauhauschar("w",1m_width#,1x_height#,0,0); %"The letter w"; - lft z1 = (0,h) ; - lft z2 = (0,0.3h) ; - bot z3 = (0.5[x5,x1],0) ; - z4 = (0.5wi,0.3h+0.25p_thick) ; - z5 = (0.5wi,h) ; - bot z6 = (0.5[x8,x5],0) ; - rt z7 = (wi,0.3h) ; - rt z8 = (wi,h) ; - cutdraw z1{down}--z2..z3{right}..z4{up}--z5 ; - cutdraw z4{down}..z6{right}..z7--z8{down} ; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{x} -% \begin{macrocode} -bauhauschar("x",1x_width#,1x_height#,0,0); %"The letter x"; - top z1 = (0,h); - z2 = (0.5wi,0.5wi); - bot z3 = (0,0); - top z4 = (wi,h); - bot z5 = (wi,0); - cutdraw z1{right}..z2{down}..z3{left}; - cutdraw z4{left}..z2{down}..z5{right}; - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{y} -% \begin{macrocode} -bauhauschar("y",1x_width#,1x_height#,p_depth#,0) ; %"The letter y" ; - rt z1 = (wi,-d) ; - lft z2 = (0,h) ; - rt z3 = (wi,h) ; - rt z4 = (wi,x5) ; - bot z5 = (0.5wi,0) ; - lft z6 = (0,x5) ; - cutdraw z1{up}--z3 ; - cutdraw z3{up}--z4..z5{left}..z6{up}--z2{up} ; - penlabels(1,2,3,4,5,6); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{z} -% \begin{macrocode} -bauhauschar("z",1x_width#,1x_height#,0,0) ; %"The letter z" ; - top z1 = (0,h); - rt x2 = wi ; top y2 = h ; - rt x3 = wi ; top y3 = y2; - lft x4 = 0 ; bot y4 = y5 ; - lft x5 = 0 ; bot y5 = 0 ; - bot z6 = (wi,0); - cutdraw z1{right}--z2..z3--z4..z5--z6 ; - penlabels(1,2,3,4,5,6); -endchar ; - -% \end{macrocode} -% \end{macro} -% \iffalse -% -% \fi -% -% \subsection{Numerals (\texttt{digits.mf})} -% \iffalse -%<*digits> -% \fi -% \begin{macro}{0} -% \begin{macrocode} -bauhausnumb("0",A_width#,l_height#,0,0); - lft z1 = (0,h-.5wi); - top z2 = (.5wi,h); - rt z3 = (wi,y1); - rt z4 = (wi,.5wi); - bot z5 = (.5wi,0); - lft z6 = (0,y4); - draw z1{up}..z2{right}..z3{down}---z4{down}..z5{left}..z6{up}---cycle; - penlabels(1,2,3,4,5,6); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{1} -% \begin{macrocode} -bauhausnumb("1",3/8(A_width#-f_space#)+f_space#,l_height#,0,0); - top z1 = (0,h); - top z2 = (2/3wi,h); - rt z3 = (wi,h-x2); - rt z4 = (wi,0); - cutdraw z1{right}---z2{right}..z3{down}---z4{down}; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{2} -% \begin{macrocode} -bauhausnumb("2",A_width#,l_height#,0,0); - lft z1 = (0,h-.5wi); - top z2 = (.5wi,h); - rt z3 = (wi,y1); - lft bot z4 = (0,0); - bot z5 = (wi,0); - cutdraw z1{up}..z2{right}..z3{down}---z4{(-1,1)}---z5{right}; - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{3} -% \begin{macrocode} -bauhausnumb("3",A_width#,l_height#,0,0); - rad = .25h; - lft z1 = (0,h-rad); - top z2 = (rad,h); - top z3 = (wi-rad,h); - rt z4 = (wi,h-rad); - rt z5 = (wi-rad,.5h); - rt z6 = (wi,rad); - bot z7 = (wi-rad,0); - bot z8 = (rad,0); - lft z9 = (0,rad); - cutdraw z1{up}..z2{right}---z3{right}..z4{down}..z5{left}; - cutdraw z5{right}..z6{down}..z7{left}---z8{left}..z9{up}; - penlabels(1,2,3,4,5,6,7,8,9); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{4} -% \begin{macrocode} -bauhausnumb("4",A_width#,l_height#,0,0); - z1 = (.8wi,h); - lft z2 = (0,h-x1); - z3 = (wi,y2); - z4 = (x1,0); - z5 = (x1,h-.5x1); - draw z1{(-1,-1)}---z2{(1,-1)}---z3{right}; - cutoff(z1,90); - cutoff(z3,0); - cutdraw z4{up}--z5; - penlabels(1,2,3,4,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{5} -% \begin{macrocode} -bauhausnumb("5",A_width#,l_height#,0,0); - tmp=wi/(1+sind(60)); - lft z1 = (0,tmp*(1-sind(30))); - bot z2 = (wi-tmp,0); - rt top z3 = (wi,tmp); - top z4 = (x2,2y3); - top lft z5 = (0,2y3); - top lft z6 = (0,h); - top z7 = (wi,h); - cutdraw z1{dir(-60)}..z2{right}..z3{up}..z4{left}--- - z5{(-1,1)}---z6{(1,1)}---z7{right}; - penlabels(1,2,3,4,5,6,7); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{6} -% \begin{macrocode} -bauhausnumb("6",A_width#,l_height#,0,0); - lft z1 = (0,.5wi); - top z2 = (.5wi,wi); - rt z3 = (wi,y1); - bot z4 = (x2,0); - lft z5 = (0,h-.5wi); - top z6 = (x2,h); - z7 = z6 rotatedaround((.5wi,h-.5wi),-60); - draw z1{up}..z2{right}..z3{down}..z4{left}..z1{up}--- - z5{up}..z6{right}..z7{dir(-60)}; - cutoff(z7,-60); - penlabels(1,2,3,4,5,6,7); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{7} -% \begin{macrocode} -bauhausnumb("7",A_width#,l_height#,0,0) ; - top z1 = (0,h); - rt top z2 = (wi,h); - lft z3 = (0,0); - draw z1{right}---z2{(1,-1)}---z3{z3-z1} ; - cutoff(z1,180); - cutoff(z3,angle(z3-z1)); - penlabels(1,2,3); -endchar ; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{8} -% \begin{macrocode} -bauhausnumb("8",.5l_height#+p_thick#+f_space#,l_height#,0,0); - top z1 = (.5wi,h); - z3 = (x1,.5h); - bot z6 = (x1,0); - rt z2 = bot z3 rotatedaround(.5[z3,z1],90); - lft z4 = bot z3 rotatedaround(.5[z3,z1],-90); - rt z5 = top z3 rotatedaround(.5[z6,z3],-90); - lft z7 = top z3 rotatedaround(.5[z6,z3],90); - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle; - draw z3{right}..z5{down}..z6{left}..z7{up}..cycle; - penlabels(1,2,3,4,5,6,7); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{9} -% \begin{macrocode} -bauhausnumb("9",A_width#,l_height#,0,0); - rt z1 = (wi,h-.5wi); - bot z2 = (.5wi,h-wi); - lft z3 = (0,y1); - top z4 = (x2,h); - rt z5 = (wi,.5wi); - bot z6 = (x2,0); - z7 = z6 rotatedaround((.5wi,.5wi),-60); - draw z1{down}..z2{left}..z3{up}..z4{right}.. - z1{down}---z5{down}..z6{left}..z7{dir(120)}; - cutoff(z7,120); - penlabels(1,2,3,4,5,6,7); -endchar; - -% \end{macrocode} -% \end{macro} -% \iffalse -% -% \fi -% -% \subsection{Symbols (\texttt{specials.mf})} -% -% Sources for special symmbols. Some of these are not part of a -% normal Computer Modern font, but is included here for consitency. -% \iffalse -%<*specials> -% \fi -% \begin{macro}{|} -% \begin{macrocode} -bauhaussymb(hex"0F",p_thick#+f_space#,l_height#,p_depth#,0); - "The symbol |"; - lft z1 = (0,h); - lft z2 = (0,-d); - cutdraw z1{down}--z2{down}; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\i} -% \begin{macrocode} -bauhaussymb(hex"10",p_thick#+f_space#,x_height#,0,0); - "Dotless i"; - lft z1 = (0,0); - lft z2 = (0,h); - cutdraw z1{up}--z2; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\j} -% \begin{macrocode} -bauhaussymb(hex"11",p_thick#+f_space#,x_height#,p_depth#,0); - "Dotless j"; - lft z1 = (0,-d); - lft z2 = (0,h); - cutdraw z1{up}--z2; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{$} -% \begin{macrocode} -bauhaussymb("$",x_width#,l_height#,0,0); - "The symbol $"; - lft z1 = (0,0.5[y6,y2]) ; - bot z2 = (1/3wi,1/8h) ; - bot z3 = (2/3wi,1/8h) ; - rt z4 = (wi,0.5[y5,y3]) ; - z5 = (2/3wi,0.5h) ; - z6 = (1/3wi,0.5h) ; - lft z7 = (0,0.5[y8,y6]) ; - top z8 = (1/3wi,7/8h); - top z9 = (2/3wi,7/8h) ; - rt z10 = (wi,0.5[y8,y6]) ; - z11 = (.5wi,0); - z12 = (.5wi,h); - cutdraw z1{down}..z2{right}--z3{right}..z4{up}..z5{left}-- - z6{left}..z7{up}..z8{right}--z9{right}..z10{down}; - cutdraw z11{up}--z12{up}; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{&} -% \begin{macrocode} -bauhaussymb("&",.5l_height#+2p_thick#+f_space#,l_height#,0,0); - "The symbol &"; - top z1 = (3/8wi,h); - bot z6 = (x1,1/8h); - z3 = .5[z6,z1]; - rt z2 = bot z3 rotatedaround(.5[z3,z1],90); - lft z4 = bot z3 rotatedaround(.5[z3,z1],-90); - rt z5 = top z3 rotatedaround(.5[z6,z3],-90); - lft z7 = top z3 rotatedaround(.5[z6,z3],90); - bot z8 = (wi,1/8h); - z9 = (x5,0); - draw z1{right}..z2{down}..z3{left}..z4{up}..cycle; - cutdraw z8{left}---z6{left}..z7{up}..z3{right}..z5{down}---z9{down}; - penlabels(1,2,3,4,5,6,7,8,9); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{?} -% \begin{macrocode} -bauhaussymb("?",x_width#,l_height#,0,0); - "The symbol ?" ; - lft z1 = (0,h-.5wi); - top z2 = (.5wi,h); - rt z3 = (wi,y1); - z4 = (x2,h-wi); - bot z6 = (x2,0); - z5 = (x2,3y6); - draw z1{up}..z2{right}..z3{down}..z4{left}--z5{down}; - cutoff(z1,-90); - cutoff(z5,-90); - drawdot z6; - penlabels(1,2,3,4,5,6); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{?`} -% \begin{macrocode} -bauhaussymb(spanish_query,x_width#,x_height#,p_depth#,0); - "Spanish query"; - lft z1 = (0,-d+.5wi); - bot z2 = (.5wi,-d); - rt z3 = (wi,y1); - z4 = (x2,-d+wi); - top z6 = (x2,h); - z5 = (x2,h-3*(h-y6)); - draw z3{down}..z2{left}..z1{up}..z4{right}--z5{up}; - cutoff(z3,90); - cutoff(z5,90); - drawdot z6; - penlabels(1,2,3,4,5,6); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{!`} -% \begin{macrocode} -bauhaussymb(spanish_shriek,p_thick#+f_space#,x_height#,p_depth#,0); - "Spanish shriek"; - lft top z1 = (0,h); - lft z2 = (0,h-3*(h-y1)); - lft z3 = (0,-d); - drawdot z1; - cutdraw z2{down}--z3; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{right brace} -% \begin{macrocode} -bauhaussymb(hex"80",.7x_width#,l_height#,p_depth#,0); - "The symbol {"; - top z1 = (wi,h); - top z2 = (1/2wi,h); - lft z3 = (1/4wi,h-1/2wi); - z4 = (x3,1/2(h-d)); - z5 = (0,1/2(h-d)); - z6 = (x3,1/2wi-d); - bot z7 = (x2,-d); - bot z8 = (wi,-d); - cutdraw z1{left}..z3{down}---z4{down}--z5{left}; - cutdraw z4{down}---z6{down}..z8{right}; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{left brace} -% \begin{macrocode} -bauhaussymb(hex"81",.7x_width#,l_height#,p_depth#,0); - "The symbol }"; - top z1 = (0,h); - top z2 = (1/2wi,h); - rt z3 = (3/4wi,h-1/2wi); - z4 = (x3,1/2(h-d)); - z5 = (wi,1/2(h-d)); - z6 = (x3,1/2wi-d); - bot z7 = (x2,-d); - bot z8 = (0,-d); - cutdraw z1{right}..z3{down}---z4{down}--z5{right}; - cutdraw z4{down}---z6{down}..z8{left}; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \S{} is not normally avaliable as a character in Computer Modern -% fonts but is included here for consistency. -% \begin{macro}{\S} -% \begin{macrocode} -bauhaussymb(hex"82",.5l_height#+f_space#,l_height#,0,0); - "Paragraph sign"; - lft z1 = (0,.5h); - top z2 = (.5wi,.5h+.5wi); - rt z3 = (wi,0.5h); - bot z4 = (.5wi,.5h-.5wi); - lft z5 = (0,h-.5wi); - top z6 = (.5wi,h); - z7 = z6 rotatedaround((.5wi,y5),-60); - rt z8 = (wi,.5wi); - bot z9 = (.5wi,0); - z10 = z9 rotatedaround((.5wi,y8),-60); - draw z10{dir(-60)}..z9{right}..z8{up}--z3{up}; - draw z7{dir(120)}..z6{left}..z5{down}--z1{down}; - draw z1{up}..z2{right}..z3{down}..z4{left}..cycle; - penlabels(1,2,3,4,5,6,7,8,9,10); - cutoff(z10,120); - cutoff(z7,-30); -endchar; - -% \end{macrocode} -% \end{macro} -% "Q" as a reflected "P" -% \begin{macro}{\varQ} -% \begin{macrocode} -bauhaussymb(hex"83",A_width#,l_height#,0,0); - "variant letter Q"; - rt z1 = (wi,0) ; - lft z2 = (0,h-.5wi) ; - top z3 = (0.5wi,h) ; - rt z4 = (wi,h-.5wi) ; - bot z5 = (0.5wi,h-wi) ; - draw z2{up}..z3{right}..z4{down}..z5{left}..cycle ; - cutdraw z1{up}--z4{up}; - penlabels(1,2,3,4,5); -endchar ; - -% \end{macrocode} -% \end{macro} -% \iffalse -% -% \fi -% -% \subsection{Ligatures (\texttt{ligatures})} -% -% Since I'm Danish, I insited on this ligatures, eventhough they are -% a pain in the neck. -% \iffalse -%<*ligatures> -% \fi -% \begin{macro}{\ss} -% \begin{macrocode} -bauhaussymb(hex"19",2p_thick#+.5l_height#+f_space#,l_height#,0,0); - "Ligature ss"; - lft z1 = (wi-.5h,0); - lft z2 = (wi-.5h,.75h); - top z3 = (wi-.25h,h); - rt z4 = (wi,y2); - z5 = (wi-.25h,.5h); - z6 = (0,.5h); - rt z7 = (wi,.25h); - bot z8 = (wi-.25h,0); - cutdraw z1{up}---z2{up}..z3{right}..z4{down}..z5{left}---z6{left}; - cutdraw z5{right}..z7{down}..z8{left}; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% Here we use the previously stored picture of ``a'' and ``e''. -% \begin{macro}{\ae} -% \begin{macrocode} -bauhaussymb(hex"1A",2x_width#-p_thick#-2f_space#,x_height#,0,0); - "Ligature ae"; - currentpicture := a_pic + ( e_pic shifted (.5wi,0)); -endchar; - -% \end{macrocode} -% \end{macro} -% Here we use the previously stored picture of ``o'' and ``e''. -% \begin{macro}{\oe} -% \begin{macrocode} -bauhaussymb(hex"1B",2x_width#-p_thick#-2f_space#,x_height#,0,0); - "Ligature oe"; - currentpicture := o_pic + ( e_pic shifted (.5wi,0)); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\o} -% Here we use the previously stored picture of ``o''. -% \begin{macrocode} -bauhaussymb(hex"1C",x_width#,x_height#,0,0); - "Ligature o/"; - lft z10 = (0,0); - rt z11 = (wi,h); - draw z10{(1,1)}--z11; - cutoff(z10,-90); - cutoff(z11,90); - currentpicture := currentpicture + o_pic; -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\AE} -% \begin{macrocode} -bauhaussymb(hex"1D",M_width#,l_height#,0,0); - "Ligature AE"; - lft z1 = (0,0); - lft z2 = (0,.5wi); - top z3 = (.5wi,h); - top z4 = (wi,h); - lft z5 = (0,.5h); - z6 = (wi,.5h); - bot z7 = (wi,0); - bot z8 = (.5wi,0); - cutdraw z1{up}---z2{up}..z3{right}---z4{right}; - draw z5{right}---z6{right}; - cutoff(z6,0); - cutdraw z7{left}---z8{(-1,1)}---z3{up}; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\OE} -% \begin{macrocode} -bauhaussymb(hex"1E",.5l_height#+.5A_width#+.5f_space#,l_height#,0,0); - "Ligature OE"; - bot z1 = (wi,0); - bot z2 = (.5h,0); - lft z3 = (0,.5h); - top z4 = (.5h,h); - top z5 = (wi,h); - z6 = .5[z2,z4]; - z7 = .5[z1,z5]; - cutdraw z1{left}---z2{left}..z3{up}..z4{right}---z5{right}; - draw z2{up}--z4{up}; - draw z6{right}--z7{right}; - cutoff(z7,0); - penlabels(1,2,3,4,5,6,7); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\O} -% Here we use the previously stored picture of ``O''. -% \begin{macrocode} -bauhaussymb(hex"1F",l_height#+f_space#,l_height#,0,0); - "Liguture O/"; - lft z10 = (0,0); - rt z11 = (wi,h); - draw z10{(1,1)}--z11; - cutoff(z10,-90); - cutoff(z11,90); - currentpicture := currentpicture + O_pic; -endchar; - -% \end{macrocode} -% \end{macro} -% \iffalse -% -% \fi -% -% \subsection{Punctuation Marks (\texttt{punctuations.mf})} -% -% This is the source file for the punctuation marks in this font. -% These programs are pretty straight--foreward. -% \iffalse -%<*punctuations> -% \fi -% \begin{macro}{!} -% \begin{macrocode} -bauhaussymb("!",p_thick#+f_space#,l_height#,0,0); - "The punctuation !"; - lft bot z1 = (0,0); - lft z2 = (0,3y1); - lft z3 = (0,h); - drawdot z1; - cutdraw z2{up}--z3; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{(} -% \begin{macrocode} -bauhaussymb("(",.5x_width#,l_height#,p_depth#,0); - "The punctuation ("; - rt z1 = (wi,h); - lft z3 = (0,.5(h-d)); - rt z5 = (wi,-d); - draw z1..z3..z5; - cutoff(z1,90); - cutoff(z5,-90); - penlabels(1,3,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{)} -% \begin{macrocode} -bauhaussymb(")",.5x_width#,l_height#,p_depth#,0); - "The punctuation )"; - lft z1 = (0,h); - rt z3 = (wi,.5(h-d)); - lft z5 = (0,-d); - draw z1..z3..z5; - cutoff(z1,90); - cutoff(z5,-90); - penlabels(1,3,5); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{''} -% \begin{macrocode} -bauhaussymb(hex"22",3f_space#,l_height#,0,0); - "The punctuation ''"; - lft z1 = (3p_thick,h); - lft z2 = (p_thick,h); - lft z3 = (2p_thick,h-3p_thick); - lft z4 = (0,h-3p_thick); - draw z1--z3; - draw z2--z4; - cutoff(z1,90); - cutoff(z2,90); - cutoff(z3,-90); - cutoff(z4,-90); - penlabels(1,2,3,4); -endchar; - - -% \end{macrocode} -% \end{macro} -% \begin{macro}{#} -% \begin{macrocode} -bauhaussymb("#",A_width#,l_height#,0,0); - "The punctuation #"; - lft top z1 = (0,3/4h); - lft bot z2 = (0,1/4h); - rt z3 = (wi,y1); - rt z4 = (wi,y2); - cutdraw z1{right}--z3{right}; - cutdraw z2{right}--z4{right}; - bot z5 = (1/5wi,0); - bot z6 = (3/5wi,0); - top z7 = (2/5wi,h); - top z8 = (4/5wi,h); - draw z5--z7; - draw z6--z8; - cutoff(z5,-90); - cutoff(z6,-90); - cutoff(z7,90); - cutoff(z8,90); - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\%} -% \begin{macrocode} -bauhaussymb("%",A_width#,l_height#,0,0); - "The punctuation %"; - rt z1 = (wi,h); - lft z2 = (0,0); - draw z1--z2; - cutoff(z1,90); - cutoff(z2,-90); - top z3 = (1/4wi,h); - rt z4 = top z3 rotatedaround((x3,h-x3),-90); - bot z5 = top z3 rotatedaround((x3,h-x3),-180); - lft z6 = top z3 rotatedaround((x3,h-x3),-270); - draw z3{right}..z4{down}..z5{left}..z6{up}..cycle; - bot z7 = (3/4wi,0); - lft z8 = bot z7 rotatedaround((x7,x3),-90); - top z9 = bot z7 rotatedaround((x7,x3),-180); - rt z10 = bot z7 rotatedaround((x7,x3),-270); - draw z7{left}..z8{up}..z9{right}..z10{down}..cycle; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{'} -% \begin{macrocode} -bauhaussymb("'",2f_space#,l_height#,0,0); - "The punctuation '"; - lft z1 = (p_thick,h); - lft z2 = (0,h-3p_thick); - draw z1--z2; - cutoff(z1,90); - cutoff(z2,-90); - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{*} -% \begin{macrocode} -bauhaussymb("*",x_width#,l_height#,0,0); - "The punctuation *"; - z1 = (0.5wi,h); - z2 = z1 rotatedaround((.5wi,h-.5wi),-60); - z3 = z1 rotatedaround((.5wi,h-.5wi),-120); - z4 = z1 rotatedaround((.5wi,h-.5wi),-180); - z5 = z1 rotatedaround((.5wi,h-.5wi),-240); - z6 = z1 rotatedaround((.5wi,h-.5wi),-300); - cutdraw z1--z4; - cutdraw z2--z5; - cutdraw z3--z6; - penlabels(1,2,3,4,5,6); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{+} -% \begin{macrocode} -bauhaussymb("+",x_width#,x_height#,0,0); - "The punctuation +"; - z1 = (.5wi,h); - z2 = (.5wi,0); - z3 = (0,.5h); - z4 = (wi,.5h); - cutdraw z1{down}--z2; - cutdraw z3{right}--z4; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{,} -% \begin{macrocode} -bauhaussymb(",",p_thick#+f_space#,p_thick#,2/3p_depth#,0); - "The punctuation ,"; - lft bot z1 = (0,h); - lft top z2 = (0,-d); - cutdraw z1{down}--z2; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{-} -% \begin{macrocode} -bauhaussymb("-",.7x_width#,x_height#,0,0); - "The punctuation -"; - z1 = (0,.5h); - z2 = (wi,y1); - cutdraw z1{right}--z2; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{.} -% \begin{macrocode} -bauhaussymb(".",p_thick#+f_space#,p_thick#,0,0); - "The punctuation ."; - lft bot z1 = (0,0); - drawdot z1; - penlabels(1); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{/} -% \begin{macrocode} -bauhaussymb("/",2/3x_width#,l_height#,p_depth#,0); - "The punctuation /"; - lft z1 = (0,-d); - rt z2 = (wi,h); - draw z1--z2; - cutoff(z1,-90); - cutoff(z2,90); - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{:} -% \begin{macrocode} -bauhaussymb(":",p_thick#+f_space#,x_height#,0,0); - "The punctuation :"; - top lft z1 = (0,h); - bot lft z2 = (0,0); - drawdot z1; - drawdot z2; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{;} -% \begin{macrocode} -bauhaussymb(";",p_thick#+f_space#,x_height#,2/3p_depth#,0); - "The punctuation ;"; - lft bot z1 = (0,0); - lft top z2 = (0,-d); - lft top z3 = (0,h); - cutdraw z1{down}--z2; - drawdot z3; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{=} -% \begin{macrocode} -bauhaussymb("=",.7x_width#,x_height#,0,0); - "The punctuation ="; - top z1 = (0,1/3h); - z2 = (wi,y1); - cutdraw z1{right}--z2; - bot z3 = (0,2/3h); - z4 = (wi,y3); - cutdraw z3{right}--z4; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{@} -% \begin{macrocode} -bauhaussymb("@",l_height#+f_space#,l_height#,0,0); - "The punctuation @"; - rt z1 = (wi,0); - rt z2 = (wi,.5h); - top z3 = (.5wi,h); - lft z4 = (0,.5h); - z5 = z4 rotatedaround((.5wi,.5h),60); - rt z6 = (wi,1/3h); - top z7 = (wi-1/3h,2/3h); - lft z8 = (wi-2/3h,1/3h); - bot z9 = (wi-1/3h,0); - cutdraw z1{up}--z2{up}..z3{left}..z4{down}..z5{dir(-30)}; - draw z6{up}..z7{left}..z8{down}..z9{right}..cycle; - penlabels(1,2,3,4,5,6,7,8,9); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{[} -% \begin{macrocode} -bauhaussymb("[",.7x_width#,l_height#,p_depth#,0); - "The punctuation ["; - rt top z1 = (wi,h); - lft top z2 = (0,h); - lft bot z3 = (0,-d); - rt bot z4 = (wi,-d); - cutdraw z1{left}---z2{(-1,-1)}---z3{(1,-1)}---z4{right}; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{``} -% \begin{macrocode} -bauhaussymb(hex"5C",3f_space#,l_height#,0,0); - "The punctuation ``"; - lft z1 = (0,h); - lft z2 = (2p_thick,h); - lft z3 = (p_thick,h-3p_thick); - lft z4 = (3p_thick,h-3p_thick); - draw z1--z3; - draw z2--z4; - cutoff(z1,90); - cutoff(z2,90); - cutoff(z3,-90); - cutoff(z4,-90); - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{]} -% \begin{macrocode} -bauhaussymb("]",.7x_width#,l_height#,p_depth#,0); - "The punctuation ]"; - lft top z1 = (0,h); - rt top z2 = (wi,h); - rt bot z3 = (wi,-d); - lft bot z4 = (0,-d); - cutdraw z1{right}---z2{(1,-1)}---z3{(-1,-1)}---z4{left}; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{`} -% \begin{macrocode} -bauhaussymb("`",2f_space#,l_height#,0,0); - "The punctuation `"; - lft z1 = (0,h); - lft z2 = (p_thick,h-3p_thick); - draw z1--z2; - cutoff(z1,90); - cutoff(z2,-90); - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{--} -% \begin{macrocode} -bauhaussymb(hex"7B",x_width#,x_height#,0,0); - "The punctuation --"; - z1 = (0,.5h); - z2 = (wi,y1); - cutdraw z1{right}--z2; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{---} -% \begin{macrocode} -bauhaussymb(hex"7C",m_width#,x_height#,0,0); - "The punctuation ---"; - z1 = (0,.5h); - z2 = (wi,y1); - cutdraw z1{right}--z2; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \iffalse -% -% \fi -% -% \subsection{Accents (\texttt{accents.mf})} -% -% Source file for accents. The ``tie--after'' \t{oo} (\Lcs{t}) -% accent is not defined. -% \iffalse -%<*accents> -% \fi -% \begin{macro}{\`{}} -% \begin{macrocode} -bauhaussymb(hex"12",x_width#,l_height#,0,0); - "The accent `"; - top z1 = (0,h); - bot z2 = (2.5p_thick,h-2.5p_thick); - draw z1--z2; - cutoff(z1,90); - cutoff(z2,-90); - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\'{}} -% \begin{macrocode} -bauhaussymb(hex"13",x_width#,l_height#,0,0); - "The accent '"; - bot z1 = (0.5wi,h-2p_thick); - top z2 = (.5wi+2p_thick,h); - draw z1--z2; - cutoff(z1,-90); - cutoff(z2,90); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\v{}} -% \begin{macrocode} -bauhaussymb(hex"14",x_width#,l_height#,0,0); - "The accent hachek"; - bot z1 = (.5wi,h-2p_thick); - top z2 = (.5wi-1.5p_thick,h); - top z3 = (.5wi+1.5p_thick,h); - draw z2---z1{right}---z3; - cutoff(z2,90); - cutoff(z3,90); - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\u{}} -% \begin{macrocode} -bauhaussymb(hex"15",x_width#,l_height#,0,0); - "The accent breve"; - bot z1 = (.5wi,h-2p_thick); - top z2 = (.5wi-p_thick,h); - top z3 = (.5wi+p_thick,h); - cutdraw z2{down}..z1{right}..z3{up}; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\={}} -% \begin{macrocode} -bauhaussymb(hex"16",x_width#,l_height#,0,0); - "The accent bar"; - top z1 = (.5wi-1.5p_thick,h); - top z2 = (.5wi+1.5p_thick,h); - cutdraw z1{right}--z2; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\aa{}} -% \begin{macrocode} -bauhaussymb(hex"17",A_width#,l_height#,0,0); - "The accent circle"; - top z1 = (.5wi,h+p_thick); - lft z2 = (.5wi-1.5p_thick,h-.5p_thick); - bot z3 = (.5wi,h-2p_thick); - rt z4 = (.5wi+1.5p_thick,h-.5p_thick); - draw z1{left}..z2{down}..z3{right}..z4{up}..cycle; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\c{}} -% \begin{macrocode} -bauhaussymb(hex"18",x_width#,l_height#,p_depth#,0); - "The accent cidelia"; - bot z1 = (.5wi,0); - rt z2 = (.5wi+1.5p_thick,-.5p_thick); - top z3 = (.5wi,-p_thick); - cutdraw z1{right}..z2{down}..z3{left}; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\l} -% \begin{macrocode} -bauhaussymb(hex"20",f_space#,l_height#,0,0); - "The accent bar over l"; - top z1 = (0,.5h); - bot z2 = (3p_thick,.5h); - cutdraw z1--z2; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{^} -% \begin{macrocode} -bauhaussymb(hex"5E",x_width#,l_height#,0,0); - "The accent hat"; - top z1 = (.5wi,h); - bot z2 = (.5wi-1.5p_thick,h-2p_thick); - bot z3 = (.5wi+1.5p_thick,h-2p_thick); - draw z2---z1{right}---z3; - cutoff(z2,-90); - cutoff(z3,-90); - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\.{}} -% \begin{macrocode} -bauhaussymb(hex"5F",x_width#,l_height#,0,0); - "The accent dot"; - top z1 = (.5wi,h); - drawdot z1; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\H{}} -% \begin{macrocode} -bauhaussymb(hex"7D",x_width#,l_height#,0,0); - "The accent ''"; - rt z1 = (.5wi,h); - rt z2 = (.5wi-2p_thick,h-2p_thick); - rt z3 = (.5wi+2p_thick,h); - rt z4 = (.5wi,h-2p_thick); - draw z1--z2; - draw z3--z4; - cutoff(z1,90); - cutoff(z2,-90); - cutoff(z3,90); - cutoff(z4,-90); - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{tilde} -% \begin{macrocode} -bauhaussymb(hex"7E",x_width#,l_height#,0,0); - "The accent ~"; - bot z1 = (.5wi-1.5p_thick,h-1.5p_thick); - top z2 = (.5wi-.75p_thick,h); - bot z3 = (.5wi+.75p_thick,h-1.5p_thick); - top z4 = (.5wi+1.5p_thick,h); - cutdraw z1..z2{right}..z3{right}..z4; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{umlaut} -% \begin{macrocode} -bauhaussymb(hex"7F",x_width#,l_height#,0,0); - "The accent Ļ"; - top rt z1 = (.5wi-.25p_thick,h); - top lft z2 = (.5wi+.25p_thick,h); - drawdot z1; - drawdot z2; - penlabels(1,2); -endchar; - -% \end{macrocode} -% \end{macro} -% \iffalse -% -% \fi -% -% \subsection{Bauhaus symbols (\texttt{extras.mf})} -% -% This is the sources for the extra \textbayer{bauhaus} symbols. -% Use them to add some spiece to your document, or as icons -% indicating special sections, etc. -% \iffalse -%<*extras> -% \fi -% \begin{macro}{\bauplus} -% This is \emph{not} --- I repeat \emph{NOT} --- a schwastica, but -% an asymmetrical plus--sign. -% \begin{macrocode} -picture blackpic; -bauhausextra(hex"00","bauplus")%\bauplus - z1 = (0,0); - z2 = (0,h); - z3 = (wi,h); - z4 = (wi,0); - fill z1--z2--z3--z4--cycle; - blackpic := currentpicture; - inn=.9wi; - sp=.05wi; - z5 = (1/3inn+sp,h-sp); - z6 = (.5(wi-sp),y5); - z7 = (x6,.5(h+.sp)); - z8 = (x5,y7); - path square ; - square = z5--z6--z7--z8--cycle; - unfill square; - unfill (square rotatedaround((.5wi,.5h),90)); - unfill (square rotatedaround((.5wi,.5h),180)); - unfill (square rotatedaround((.5wi,.5h),270)); - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\baudash} -% Why not try making hyphonation dashes in a new way (it's only -% a suggestion!). -% \begin{macrocode} -bauhausextra(hex"01","baudash")%\baudash - currentpicture := currentpicture + blackpic; - innn=.9wi; - z5 = (sp,.5(h+sp)); - z6 = (sp,1/6innn+.5h); - z7 = (.5(wi-sp),y6); - z8 = (x7,.y5); - path square[] ; - square1 = z5--z6--z7--z8--cycle; - square2 = (square1 reflectedabout((.5wi,0),(.5wi,h))); - unfill square1; - unfill (square1 reflectedabout((0,.5h),(wi,.5h))); - unfill square2 ; - unfill (square2 reflectedabout((0,.5h),(wi,.5h))); - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bauequal} -% Well, sometimes things ARE what they may not seem. -% \begin{macrocode} -bauhausextra(hex"02","bauequal")%\bauequal - currentpicture := currentpicture + blackpic; - z1 = (sp,.5(h+sp)); - z2 = (sp,1/6innn+.5h); - z3 = (.5(wi-sp),y2); - z4 = (x3,.y1); - z5 = (sp,sp); - z6 = (sp,1/6innn+sp); - z7 = (.5(wi-sp),y6); - z8 = (x7,.y5); - path square[] ; - square1 = z1--z2--z3--z4--cycle; - square2 = (square1 reflectedabout((.5wi,0),(.5wi,h))); - square3 = z5--z6--z7--z8--cycle; - square4 = (square3 reflectedabout((.5wi,0),(.5wi,h))); - unfill square1; - unfill square2; - unfill square3 ; - unfill square4; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bautrangle} -% The triangle was one of the main forms to the founder of -% bauhaus school --- Walter Gropius, along with the circle and -% the square. If you use the \textsf{color} package, you could -% use a yellow trangle, red circle and blue square, to make a -% compliment to Walter Gropius. \index{Gropius, Walter} -% \begin{macrocode} -bauhausextra(hex"03","bautriangle")%\bautriangle - z1 = (0,0); - z2 = (.5wi,h); - z3 = (wi,0); - fill z1--z2--z3--cycle; - penlabels(1,2,3); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\baucircle} -% Lets make thing round (but not quite). -% \begin{macrocode} -bauhausextra(hex"04","baucircle")%\baucircle - currentpicture := currentpicture + blackpic; - pickup pencircle scaled 1/4wi; - top z1 = (.5wi,h); rt z2 = (wi,.5h); - bot z3 = (.5wi,0); lft z4 = (0,.5h); - undraw z1..z2..z3..z4..cycle; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\baucross} -% ``X'' marks the spot. -% \begin{macrocode} -bauhausextra(hex"05","baucross")%\baucross - bot lft z1 = (0,0) ; top lft z2 = (0,h) ; - top rt z3 = (wi,h) ; bot rt z4 = (wi,0) ; - draw z1--z2--z3--z4--cycle; - z5 = (0,1/4h) ; z6 = (1/4wi,.5h) ; z7 = (0,3/4h) ; - z8 = (1/4wi,h) ; z9 = (.5wi,3/4h) ; z10 = (3/4wi,h) ; - z11 = (wi,3/4h) ; z12 = (3/4wi,.5h) ; z13 = (wi,1/4h) ; - z14 = (3/4wi,0) ; z15 = (.5wi,1/4h) ; z16 = (1/4wi,0) ; - fill z1--z5--z6--z7--z2--z8--z9--z10--z3--z11--z12-- - z13--z4--z14--z15--z16--cycle; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bauwindow} -% This symbols resembles the Japaness sign for ``field'', but -% to Europeans, I think it looks like a window. -% \begin{macrocode} -bauhausextra(hex"06","bauwindow")%\bauwindow - bot lft z1 = (0,0) ; top lft z2 = (0,h) ; - top rt z3 = (wi,h) ; bot rt z4 = (wi,0) ; - draw z1--z2--z3--z4--cycle; - top z5 = (.5wi,h) ; bot z6 = (.5wi,0) ; - lft z7 = (0,.5h) ; rt z8 = (wi,.5h) ; - draw z5--z6; - draw z7--z8; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bauhole} -% \begin{macrocode} -bauhausextra(hex"07","bauhole")%\bauhole - top z1 = (.5wi,h); - rt z2 = (wi,.5h); - bot z3 = (x1,0); - lft z4 = (0,y2); - draw z1..z2..z3..z4..cycle; - z5 = (.5wi,9/10h); - z6 = (9/10wi,.5h); - z7 = (x5,1/10h); - z8 = (1/10wi,y6); - fill z5..z6..z7..z8..cycle; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\baueclipse} -% ``The sun ain't gonna shine anymore''. How's dat for a -% quote\footnote{Slang --- what a dreadfull thing.}. -% \begin{macrocode} -bauhausextra(hex"08","baueclipse")%\baueclipse - pickup pencircle scaled p_thick; - top z1 = (.5wi,h); - rt z2 = (wi,.5h); - bot z3 = (x1,0); - lft z4 = (0,y2); - draw z1..z2..z3..z4..cycle; - delta = .05wi; - z5 = bot z1 - (0,delta); - z6 = lft z2 - (delta,0); - z7 = top z3 + (0,.9delta); - z8 = rt z4 + (.9delta,0); - fill z5..z6..z7..z8..cycle; - penlabels(1,2,3,4,5,6,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bauquarter} -% Take a slice of this cake! -% \begin{macrocode} -bauhausextra(hex"09","bauquarter")%\bauquarter - z1 = (.5wi,h); - z2 = (.5wi,.5h); - z3 = (wi,y2); - z4 = (x1,0); - z5 = (0,y2); - top z7 = z1; - rt z8 = z3; - fill z4{left}..z5{up}..z1--z2--z3..cycle; - draw z7{right}..z8{down}; - penlabels(1,2,3,4,5,7,8); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bauarrow} -% An encircled black arrow. -% \begin{macrocode} -bauhausextra(hex"0A","bauarrow")%\bauarrow - top z1 = (.5wi,h); - rt z2 = (wi,.5h); - bot z3 = (x1,0); - lft z4 = (0,y2); - draw z1..z2..z3..z4..cycle; - z5 = (3/10wi,6/10h); - z6 = (6/10wi,y5); - z7 = (x6,y5+1/20wi); - z8 = (x6+3/20wi,.5h); - z9 = (x6,4/10h-1/20h); - z10 = (x6,4/10h); - z11 = (x5,y10); - fill z5--z6--z7--z8--z9--z10--z11--cycle; - penlabels(1,2,3,4,5,6,7,8,9,10,11); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bauwhitearrow} -% Much like above, only the arrow is hollow. -% \begin{macrocode} -bauhausextra(hex"0B","bauwhitearrow")%\bauwhitearrow - top z1 = (.5wi,h); - rt z2 = (wi,.5h); - bot z3 = (x1,0); - lft z4 = (0,y2); - draw z1..z2..z3..z4..cycle; - z5 = (3/10wi,6/10h); - z6 = (6/10wi,y5); - z7 = (x6,y5+1/20wi); - z8 = (x6+3/20wi,.5h); - z9 = (x6,4/10h-1/20h); - z10 = (x6,4/10h); - z11 = (x5,y10); - draw z5--z6--z7--z8--z9--z10--z11--cycle; - penlabels(1,2,3,4,5,6,7,8,9,10,11); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bauhead} -% The well--known logo for bauhaus. -% We save some of this symbol picture \texttt{commonface}, since -% this includes the points common to both this symbol and the next. -% \begin{macrocode} -bauhausextra(hex"0C","bauhead")%\bauhead - % Vertical variables - a1 = 0.702h ; a2 = 0.561h ; a3 = 0.491h ; a4 = 0.351h ; - a5 = 0.272h ; a6 = 0.140h ; - % horizontal variables - b1 = 0.202wi ; b2 = 0.307wi ; b3 = 0.412wi ; b4 = 0.447wi ; - b5 = 0.465wi ; b6 = 0.518wi ; b7 = 0.588wi ; b8 = 0.623wi ; - % eye - pickup pensquare scaled .009wi ; - top lft z1 = (b1,a1) ; top rt z2 = (b2,a1) ; - draw z1--z2; - bot rt z3 = (b4,a3) ; top rt z4 = (b4,a2) ; - draw z3--z4; - z5 = (b2,a1) ; z6 = (b4,a1) ; z7 = (b4,a2) ; z8 = (b2,a2) ; - fill z5--z6--z7--z8--cycle; - % nostril - lft bot z9 = (b4,a4) ; rt bot z10 = (b7,a4) ; - draw z9--z10 ; - % chin - lft bot z11 = (b2,a6) ; rt bot z12 = (b6,a6) ; - draw z11--z12; - % lips - pickup pensquare scaled 0.035wi ; - lft top z13 = (b5,a5) ; rt top z14 = (b6,a5) ; - draw z13--z14; - % bottom of face - z15 = (b6,a4) ; z16 = (b7,a4) ; z17 = (b7,a6) ; z18 = (b6,a6) ; - fill z15--z16--z17--z18--cycle ; - % save the common stuff - picture commonface ; - commonface := currentpicture ; - % head with circle - path noselft, nosert, necklft, neckrt ; - path headcircle , parttop, partbot; - z19 = (b7,a4) ; z20 = (b7,h) ; noselft = z19--z20 ; - z21 = (b8,h) ; z22 = (b8,a4) ; nosert = z21--z22 ; - z23 = (b3,a6) ; z24 = (b3,0) ; necklft = z23--z24 ; - z25 = (b6,0) ; z26 = (b6,a6) ; neckrt = z25--z26 ; - % circle - pickup pencircle scaled .009wi; - top z27 = (.5wi,h) ; rt z28 = (wi,.5h) ; - bot z29 = (.5wi,0) ; lft z30 = (0,.5h) ; - headcircle := z27..z28..z29..z30..cycle ; - draw headcircle ; - % nose/forhead - z31 = noselft intersectiontimes headcircle ; - z32 = nosert intersectiontimes headcircle ; - parttop = subpath(y31,y32) of headcircle ; - fill z19--parttop--z22--cycle ; - % nose/forhead - z33 = neckrt intersectiontimes headcircle ; - z34 = necklft intersectiontimes headcircle ; - partbot = subpath(y34,y33) of headcircle ; - fill z23--partbot--z26--cycle ; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20) ; - penlabels(21,22,23,24,25,26,27,28,29,30); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bauface} -% This symbol is like the one above, but without the enclosing -% circle. We reuse the saved picture \texttt{commonface}, since -% this includes the points common to both symbols. -% \begin{macrocode} -bauhausextra(hex"0D","bauface");%\bauface - % head without cicle - path noselft, nosert, necklft, neckrt ; - % nose/forhead - z19 = (b7,a4) ; z20 = (b7,h) ; noselft = z19--z20 ; - z21 = (b8,h) ; z22 = (b8,a4) ; nosert = z21--z22 ; - fill noselft--nosert--cycle; - % neck - z23 = (b3,a6) ; z24 = (b3,0) ; necklft = z23--z24 ; - z25 = (b6,0) ; z26 = (b6,a6) ; neckrt = z25--z26 ; - fill necklft--neckrt--cycle; - currentpicture := currentpicture + commonface ; -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bauquestion} -% This symbol didn't come out as I originally intended it to, but -% all--in--all I'm quite contend with the outcome. -% \begin{macrocode} -beginchar(hex"0E",5/7l_height#+f_space#,l_height#,p_depth#); - %\bauquestion - "The bauhaus symbol bauquestion"; - pickup pencircle scaled 1/10p_thick ; - spp=.01wi; - wi#:=2/3l_height#; - define_pixels(wi); - z1 = (0,0) ; z2 = (0,h) ; z3 = (wi,h) ; z4 = (wi,0) ; - fill z1--z2--z3--z4--cycle; - z5 = (1/2(.5wi-spp)+spp,spp); - z6 = (.5wi,y5) ; - z7 = (.5wi,x5); - z8 = (x5,x5); - unfill z5--z6--z7--z8--cycle; - z9 = (x6+3/2(x5-spp),y7); z10 = (x9,y7+x9-x6) ; z11 = (x6,y10) ; - unfill z7--z9--z10--z11--cycle; - z12 = (x6,y11+.5(wi-spp)) ; z13 = (spp,y12) ; z14 = (spp,y10) ; - unfill z11--z12--z13--z14--cycle ; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bauforms} -% This is proberly the most complicated symbol of the entire font. -% It is shown in 72pt in Figure~\ref{charforms}. -% \begin{figure}[htbp] -% \centering -% \font\Hugebayer=universal17 at 72pt -% \textbayer{\Hugebayer \bauforms} -% \caption{\Lcs{bauforms} symbol.} -% \label{charforms} -% \end{figure} -% -% This symbol is, however proberly also the most interresting symbol -% of the font, design--wise, since it uses the the three fundamental -% forms: the circle, the trangle and the square. As stated elsewhere, -% these forms was considered by Walter Gropius as three most important -% figures in design.\index{Gropius, Walter} -% -% The task is to make a circle, in inside this make a triangle and -% a square. However, the angles (in particular the right most) of -% triangle should be so that the left--most down--stroke should -% divide the square into two rectangles, twice has high as wide. -% -% One should think the square is an inscribed square of the circle -% with center on the middle of the trangles down--stroke, with a -% radius of the distance from this point to the outer circle. -% This is \emph{not} the case! -% -% It is possible to determine analythical the vertex points of the -% triangle and square as a function of the left most angle (in the -% \MF{} program called \texttt{phi}), but I have found \emph{no} -% anaytical expression for this angle, though I cannot prove no such -% expression exists. If you have a proff of this, or found an -% expression, please let me know, as I consider it a challenging -% problem in geometry.\index{Problem in geometry} -% -% \begin{figure}[htbp] -% \centering -% \epsfig{file=forms.eps} -% \caption{Geometrical problem \Lcs{bauforms}.} -% \label{geometry} -% \end{figure} -% -% Figure~\ref{geometry} shows the upper half of this symbol in terms -% of point positions. Notice point $z_{ref}$ isnīt in the program for -% \Lcs{bauforms} but is shown here to point out an important feature -% of the numerical calculations. Also $w$ is called \texttt{wi} in the -% \MF{} program. -% -% The analytical equations for $z_6=(a_3,a_4)$ and $z_8=(a_5,a_6)$ can -% be determined as functions of $\phi$ as follows:\\ -% From the problem, it is given, that -% \begin{equation}a_3-a_5=a_6,\end{equation} -% and since the angle $\phi$ at the edge of the circle is eguivivalent -% to the angle $2\phi$ from the center of the circle. So there -% resaults -% \begin{eqnarray} -% \sqrt{(a_3)^2+(a_4)^2}&=&w\cos\phi\nonumber\\ -% &=&a_1\\ -% a_3 &=&w\cos\phi\cos\phi\nonumber\\ -% &=&w\cos^2\phi\\ -% a_4 &=&w\cos\phi\sin\phi\quad. -% \end{eqnarray} -% Through some use of the relations of sine, and the fact that the -% angle between the $x$--axis and the vector $z_8-(w/2,0)$ \emph{must} -% be 45 degrees, we can calculate $a_5,a_6$ and there by $a_7$: -% \begin{eqnarray} -% a_2 &=&\frac{w\cos^2\phi}{\cos\phi+\sin\phi}\\ -% a_5 &=&a_2\cos\phi\\ -% a_6 &=&a_2\sin\phi\\ -% a_7 &=&a_2(\cos\phi+2\sin\phi)\quad. -% \end{eqnarray} -% We have found the points $z_6,z_8,z_9$ \emph{but as functions of -% $\phi$}, and since all properties of the problem at hand has been -% fully explored, no more information can be drawn. So we still need a -% way to determine the angle $\phi$. -% -% To solve this problem, I use an \emph{numerical} method of finding -% the angle $\phi$. The points $z_6,z_8$ has been determined, so -% that the down stroke divieds the square into two equal rectangles, -% with double the width as the height. The last problem is to -% determine the angle $\phi$, so that the point $z_9$ lies on the -% circle. -% -% Therefore we calculate the point $z_{ref}$, which is the -% point on the circle where $z_9$ should be, if it were to lie on the -% circle with the current choice of $\phi$. $z_{ref}=(a_9,a_{10})$ is -% given by: -% \begin{eqnarray} -% \theta&=&\tan^{-1}\left(\frac{a_7-w/2}{a_6}\right)\nonumber\\ -% &=&a_8\\ -% a_9 &=&\frac{w}{2}(1+\cos\theta)\\ -% a_10 &=&\frac{w}{2}\sin\theta\quad. -% \end{eqnarray} -% Then we test to see if the point $z_9$ is reasonably close to -% $z_ref$. If so, we use the current choice of $\phi$ to set all the -% points. -% \begin{macrocode} -bauhausextra(hex"84","bauforms");%\bauforms - pickup pencircle scaled 1/32 wi; - top z1 = (.5wi,h); - rt z2 = (wi,.5h); - bot z3 = (.5wi,0); - lft z4 = (0,.5h); - draw z1..z2..z3..z4..cycle; - for phi := 20 step 0.1 until 40 : - a1 := 31/32wi*cosd(phi); - a2 := (31/32wi*(cosd(phi)**2))/(cosd(phi)+sind(phi)); - a3 := a1*cosd(phi); - a4 := a1*sind(phi); - a5 := a2*cosd(phi); - a6 := a2*sind(phi); - a7 := a2*(cosd(phi)+2*sind(phi)); - a8 := angle(a7-31wi/64,a6); - a9 := 31wi/64*(1+cosd(a8)); - a10 := 31wi/64*sind(a8); - if abs(a7 - a9)<.1 : - exitif abs(a6 - a10)<.1 ; - fi; - endfor; - pickup pencircle scaled 1/64wi; - lft z5 = (1/32wi,.5h); - top z6 = (a3,a4)+(0,.5h); - bot z7 = (a3,.5h-a4); - draw z5--z6--z7--z5; - pickup pencircle scaled 1/24wi; - top lft z8 = (a5,a6)+(0,.5h); - top rt z9 = (a7,a6)+(0,.5h); - bot rt z10 = (a7,.5h-a6); - bot lft z11 = (a5,.5h-a6); - z12 = (a9,a10)+(0,.5h); - draw z8--z9--z10--z11--z8; - penlabels(1,2,3,4,5,6,7,8,9,10,11,12); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\baupunct} -% \begin{macrocode} -bauhausextra(hex"85","baupunct");%\baupunct - z1 = (.5wi,h); - z2 = (wi,.5h); - z3 = (.5wi,0); - z4 = (0,.5h); - fill z1..z2..z3..z4..cycle; - penlabels(1,2,3,4); -endchar; - -% \end{macrocode} -% \end{macro} -% \begin{macro}{\bausquare} -% \begin{macrocode} -bauhausextra(hex"86","bausquare");%\bausquare - z1 = (0,h); - z2 = (wi,h); - z3 = (wi,0); - z4 = (0,0); - fill z1--z2--z3--z4--cycle; - penlabels(1,2,3,4); -endchar; - -% end of file "extras.mf" -% \end{macrocode} -% \end{macro} -% \iffalse -% -% \fi -% -% \Finale -% \PrintIndex -% \PrintChanges - diff --git a/Master/texmf-dist/source/latex/bayer/universal.ins b/Master/texmf-dist/source/latex/bayer/universal.ins deleted file mode 100644 index e82e821c64e..00000000000 --- a/Master/texmf-dist/source/latex/bayer/universal.ins +++ /dev/null @@ -1,78 +0,0 @@ -%% -%% This is file `universal.ins', the installation file for the -%% `universal' package. -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% The thump package is free software; you can redistribute it -%% and/or modify it under the terms of the GNU General Public License -%% as published by the Free Software Foundation; either version 2 of -%% the License, or (at your option) any later version. -%% -%% The thump package is distributed in the hope that it will be -%% useful, but WITHOUT ANY WARRANTY; without even the implied warranty -%% of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -%% GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public License -%% along with this program; if not, write to the Free Software -%% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -%% -\def\batchfile{universal.ins} -\input docstrip.tex -\keepsilent -\preamble - -Copyright (C) 1997 Christian Holm. - -This file is NOT the source for universal, because almost all -comments have been stripped from it. It is NOT the preferred -form of universal for making modifications to it. - -Therefore you can NOT redistribute and/or modify THIS file. -You can however redistribute the complete source (universal.dtx -and universal.ins) and/or modify it under the terms of the GNU -General Public License as published by the Free Software -Foundation; either version 2, or (at your option) any later -version. - -The universal font and package is distributed in the hope that -it will be useful, but WITHOUT ANY WARRANTY; without even the -implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -PURPOSE. See the GNU General Public License for more details. - -You should have received a copy of the GNU General Public -License along with this program; if not, write to the - Free Software Foundation, Inc., - 675 Mass Ave, Cambridge, - MA 02139, USA. - -See the file universal.dtx for further comments and documentation. - -\endpreamble -\generateFile{universal.sty}{f}{\from{universal.dtx}{package}} -\generateFile{ot1universal.fd}{f}{\from{universal.dtx}{fd}} -\generateFile{universal.mf}{f}{\from{universal.dtx}{main}} -\generateFile{universal8.mf}{f}{\from{universal.dtx}{eight}} -\generateFile{universal9.mf}{f}{\from{universal.dtx}{nine}} -\generateFile{universal10.mf}{f}{\from{universal.dtx}{ten}} -\generateFile{universal12.mf}{f}{\from{universal.dtx}{twelve}} -\generateFile{universal17.mf}{f}{\from{universal.dtx}{seventeen}} -\generateFile{uppers.mf}{f}{\from{universal.dtx}{uppers}} -\generateFile{lowers.mf}{f}{\from{universal.dtx}{lowers}} -\generateFile{digits.mf}{f}{\from{universal.dtx}{digits}} -\generateFile{specials.mf}{f}{\from{universal.dtx}{specials}} -\generateFile{ligatures.mf}{f}{\from{universal.dtx}{ligatures}} -\generateFile{punctuations.mf}{f}{\from{universal.dtx}{punctuations}} -\generateFile{accents.mf}{f}{\from{universal.dtx}{accents}} -\generateFile{extras.mf}{f}{\from{universal.dtx}{extras}} - -\Msg{***********************************************************} -\Msg{* To finish the installation you have to move the files} -\Msg{* `universal.sty' `ot1universal.fd into a directory } -\Msg{* searched by TeX, and the files *.mf to a directory} -\Msg{* searched by Metafont.} -\Msg{*} -\Msg{* To produce the documentation run the file `universal.dtx'} -\Msg{* through LaTeX and MakeIndex as said in the README file.} -\Msg{***********************************************************} diff --git a/Master/texmf-dist/tex/latex/bayer/ot1universal.fd b/Master/texmf-dist/tex/latex/bayer/ot1universal.fd deleted file mode 100644 index e52b9dc0928..00000000000 --- a/Master/texmf-dist/tex/latex/bayer/ot1universal.fd +++ /dev/null @@ -1,56 +0,0 @@ -%% -%% This is file `ot1universal.fd', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `fd') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -\ProvidesFile{ot1universal.fd} - [1997/01/14 v2.5a Non standard LaTeX font definitions] -\DeclareFontFamily{OT1}{universal}{\hyphenchar\font45 } -\DeclareFontShape{OT1}{universal}{m}{n} - { - <5><6><7><8>universal8 - <9>universal9 - <10><10.95>universal10 - <12><14.4>universal12 - <17.28><20.74><24.88>universal17 - }{} -\DeclareFontShape{OT1}{universal}{m}{it}{<->ssub*cmss/m/sl}{} -\DeclareFontShape{OT1}{universal}{m}{sl}{<->ssub*cmss/m/sl}{} -\DeclareFontShape{OT1}{universal}{m}{sc}{<->ssub*cmr/m/sc}{} -\DeclareFontShape{OT1}{universal}{m}{ui}{<->ssub*cmr/m/ui}{} -\DeclareFontShape{OT1}{universal}{sbc}{n}{<->ssub*cmss/sbc/n}{} -\DeclareFontShape{OT1}{universal}{bx}{n}{<->ssub*cmss/bx/n}{} -\DeclareFontShape{OT1}{universal}{bx}{ui}{<->ssub*cmr/bx/ui}{} - -\endinput -%% -%% End of file `ot1universal.fd'. diff --git a/Master/texmf-dist/tex/latex/bayer/universal.sty b/Master/texmf-dist/tex/latex/bayer/universal.sty deleted file mode 100644 index c3a38b15393..00000000000 --- a/Master/texmf-dist/tex/latex/bayer/universal.sty +++ /dev/null @@ -1,116 +0,0 @@ -%% -%% This is file `universal.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% universal.dtx (with options: `package') -%% -%% Copyright (C) 1997 Christian Holm. -%% -%% This file is NOT the source for universal, because almost all -%% comments have been stripped from it. It is NOT the preferred -%% form of universal for making modifications to it. -%% -%% Therefore you can NOT redistribute and/or modify THIS file. -%% You can however redistribute the complete source (universal.dtx -%% and universal.ins) and/or modify it under the terms of the GNU -%% General Public License as published by the Free Software -%% Foundation; either version 2, or (at your option) any later -%% version. -%% -%% The universal font and package is distributed in the hope that -%% it will be useful, but WITHOUT ANY WARRANTY; without even the -%% implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -%% PURPOSE. See the GNU General Public License for more details. -%% -%% You should have received a copy of the GNU General Public -%% License along with this program; if not, write to the -%% Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, -%% MA 02139, USA. -%% -%% See the file universal.dtx for further comments and documentation. -%% -\def\fileversion{v1.0} -\def\filedate{97/12/24} -\ProvidesPackage{universal}[\filedate\space\fileversion\space universal - package.] -\newif\ifBayer -\Bayerfalse -\DeclareOption{titlepage}{ - \newdimen\unidim - \unidim1cm - \renewcommand{\title}[1]{\def\unititle{#1}} - \renewcommand{\author}[1]{\def\uniauthor{#1}} - \renewcommand{\date}[1]{\def\unidate{#1}} - \renewcommand{\abstract}[1]{\def\uniabst{#1}} - \renewcommand{\maketitle}{ - \clearpage - \thispagestyle{empty} - \noindent - \begingroup - {\Huge\bayer\unititle}\\ - \rule{\textwidth}{.05\textwidth} - \ifx\uniabst\undefined - \vfill - \else - \vspace{.05\textwidth}\par\noindent - \hspace{.2\textwidth}\rule{.01\textwidth}{.7\textwidth} - \raisebox{.3\textwidth}{ - \begin{minipage}[l]{.7\textwidth} - {\bayer\normalsize\uniabst} - \end{minipage} - } - \vfill - \fi - \begin{minipage}[l]{.3\textwidth} - {\bayer\Large\uniauthor}\par\noindent - {\large\bayer\MakeLowercase{\unidate}} - \end{minipage}\hspace{.2\textwidth} - \raisebox{-.05\textwidth}{\rule{.02\textwidth}{.4\textwidth}} - \font\Hugebayer=universal17 at 80pt - \hspace{.01\textwidth}{\Hugebayer\char"84}\\ - \rule{.8\textwidth}{.01\textwidth} - \endgroup - \newpage - } -} -\ProcessOptions\relax -\newcommand{\textbayer}[1]{ - \begingroup - \bayer - #1 - \endgroup -} -\newcommand{\bayer}{ - \Bayertrue - \chardef\{="80 - \chardef\}="81 - \chardef\|="0F - \chardef\S="82 - \chardef\varQ="83 - \chardef\bauplus="00 - \chardef\baudash="01 - \chardef\bauequal="02 - \chardef\bautriangle="03 - \chardef\baucircle="04 - \chardef\baucross="05 - \chardef\bauwindow="06 - \chardef\bauhole="07 - \chardef\baueclipse="08 - \chardef\bauquarter="09 - \chardef\bauarrow="0A - \chardef\bauwhitearrow="0B - \chardef\bauhead="0C - \chardef\bauface="0D - \chardef\bauquestion="0E - \chardef\bauforms="84 - \chardef\baupunct="85 - \chardef\bausquare="86 - \usefont{OT1}{universal}{m}{n} -} - -\endinput -%% -%% End of file `universal.sty'. diff --git a/Master/tlpkg/tlpsrc/bayer.tlpsrc b/Master/tlpkg/tlpsrc/bayer.tlpsrc deleted file mode 100644 index e69de29bb2d..00000000000 diff --git a/Master/tlpkg/tlpsrc/collection-fontsextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-fontsextra.tlpsrc index d64a224f7ae..c89273dd3b7 100644 --- a/Master/tlpkg/tlpsrc/collection-fontsextra.tlpsrc +++ b/Master/tlpkg/tlpsrc/collection-fontsextra.tlpsrc @@ -16,7 +16,6 @@ depend auncial-new depend aurical depend barcodes depend baskervald -depend bayer depend bbding depend bbm depend bbm-macros -- cgit v1.2.3