diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
commit | 215012a8d684889983ec2c0629e1c704e6853d9c (patch) | |
tree | ebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/bayer | |
parent | 1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (diff) |
trunk/Master/texmf-dist/fonts/source
git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bayer')
14 files changed, 2337 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bayer/universal-accents.mf b/Master/texmf-dist/fonts/source/public/bayer/universal-accents.mf new file mode 100644 index 00000000000..c589b1f27b9 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal-accents.mf @@ -0,0 +1,164 @@ +%% +%% 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 new file mode 100644 index 00000000000..43f7ad6f72a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal-digits.mf @@ -0,0 +1,162 @@ +%% +%% 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 new file mode 100644 index 00000000000..92c9b24739d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal-extras.mf @@ -0,0 +1,366 @@ +%% +%% 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 new file mode 100644 index 00000000000..277a6f2fcb7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal-ligatures.mf @@ -0,0 +1,116 @@ +%% +%% 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 new file mode 100644 index 00000000000..5142826f2d2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal-lowers.mf @@ -0,0 +1,347 @@ +%% +%% 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 new file mode 100644 index 00000000000..c27dc2ad722 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal-punctuations.mf @@ -0,0 +1,301 @@ +%% +%% 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 new file mode 100644 index 00000000000..c5100202653 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal-specials.mf @@ -0,0 +1,200 @@ +%% +%% 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 new file mode 100644 index 00000000000..224abfd7a1b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal-uppers.mf @@ -0,0 +1,335 @@ +%% +%% 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 new file mode 100644 index 00000000000..8cd9dcb8807 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal.mf @@ -0,0 +1,131 @@ +%% +%% 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 new file mode 100644 index 00000000000..34e3fcb8d45 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal10.mf @@ -0,0 +1,43 @@ +%% +%% 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 new file mode 100644 index 00000000000..0579c8c3151 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal12.mf @@ -0,0 +1,43 @@ +%% +%% 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 new file mode 100644 index 00000000000..88c5f20ecff --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal17.mf @@ -0,0 +1,43 @@ +%% +%% 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 new file mode 100644 index 00000000000..0b95cc8bc34 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal8.mf @@ -0,0 +1,43 @@ +%% +%% 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 new file mode 100644 index 00000000000..3e07f6bab22 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bayer/universal9.mf @@ -0,0 +1,43 @@ +%% +%% 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'. |