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/universa | |
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/universa')
49 files changed, 2889 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbc10.mf b/Master/texmf-dist/fonts/source/public/universa/fulbc10.mf new file mode 100644 index 00000000000..9c9f6ed86d7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbc10.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbc10.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,caps,ten') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +caps := true ; +start_font(10pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbc10.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbc12.mf b/Master/texmf-dist/fonts/source/public/universa/fulbc12.mf new file mode 100644 index 00000000000..37eb75f771d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbc12.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbc12.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,caps,twelve') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +caps := true ; +start_font(12pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbc12.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbc17.mf b/Master/texmf-dist/fonts/source/public/universa/fulbc17.mf new file mode 100644 index 00000000000..a396976a6f1 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbc17.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbc17.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,caps,seventeen') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +caps := true ; +start_font(17pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbc17.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbc8.mf b/Master/texmf-dist/fonts/source/public/universa/fulbc8.mf new file mode 100644 index 00000000000..15f7067155d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbc8.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbc8.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,caps,eight') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +caps := true ; +start_font(8pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbc8.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbc9.mf b/Master/texmf-dist/fonts/source/public/universa/fulbc9.mf new file mode 100644 index 00000000000..388a882c9a2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbc9.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbc9.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,caps,nine') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +caps := true ; +start_font(9pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbc9.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbo10.mf b/Master/texmf-dist/fonts/source/public/universa/fulbo10.mf new file mode 100644 index 00000000000..ec5e56bb7af --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbo10.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbo10.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,slanted,ten') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +slant := true ; +start_font(10pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbo10.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbo12.mf b/Master/texmf-dist/fonts/source/public/universa/fulbo12.mf new file mode 100644 index 00000000000..5187b3f9b6f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbo12.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbo12.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,slanted,twelve') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +slant := true ; +start_font(12pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbo12.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbo17.mf b/Master/texmf-dist/fonts/source/public/universa/fulbo17.mf new file mode 100644 index 00000000000..e9631dc8ab9 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbo17.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbo17.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,slanted,seventeen') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +slant := true ; +start_font(17pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbo17.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbo8.mf b/Master/texmf-dist/fonts/source/public/universa/fulbo8.mf new file mode 100644 index 00000000000..0438fe42a5d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbo8.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbo8.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,slanted,eight') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +slant := true ; +start_font(8pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbo8.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbo9.mf b/Master/texmf-dist/fonts/source/public/universa/fulbo9.mf new file mode 100644 index 00000000000..7ee8d2dc42a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbo9.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbo9.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,slanted,nine') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +slant := true ; +start_font(9pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbo9.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbr10.mf b/Master/texmf-dist/fonts/source/public/universa/fulbr10.mf new file mode 100644 index 00000000000..7b93fd11728 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbr10.mf @@ -0,0 +1,31 @@ +%% +%% This is file `fulbr10.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,ten') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +start_font(10pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbr10.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbr12.mf b/Master/texmf-dist/fonts/source/public/universa/fulbr12.mf new file mode 100644 index 00000000000..9b783c4d1e7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbr12.mf @@ -0,0 +1,31 @@ +%% +%% This is file `fulbr12.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,twelve') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +start_font(12pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbr12.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbr17.mf b/Master/texmf-dist/fonts/source/public/universa/fulbr17.mf new file mode 100644 index 00000000000..4a4cb1c57c5 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbr17.mf @@ -0,0 +1,31 @@ +%% +%% This is file `fulbr17.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,seventeen') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +start_font(17pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbr17.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbr8.mf b/Master/texmf-dist/fonts/source/public/universa/fulbr8.mf new file mode 100644 index 00000000000..04b994a0182 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbr8.mf @@ -0,0 +1,31 @@ +%% +%% This is file `fulbr8.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,eight') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +start_font(8pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbr8.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbr9.mf b/Master/texmf-dist/fonts/source/public/universa/fulbr9.mf new file mode 100644 index 00000000000..e5cb1401aa2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbr9.mf @@ -0,0 +1,31 @@ +%% +%% This is file `fulbr9.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,nine') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +start_font(9pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbr9.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbst10.mf b/Master/texmf-dist/fonts/source/public/universa/fulbst10.mf new file mode 100644 index 00000000000..4e218f98a47 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbst10.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbst10.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,strict,ten') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +strict := true ; +start_font(10pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbst10.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbst12.mf b/Master/texmf-dist/fonts/source/public/universa/fulbst12.mf new file mode 100644 index 00000000000..8a4d50436b1 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbst12.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbst12.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,strict,twelve') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +strict := true ; +start_font(12pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbst12.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbst17.mf b/Master/texmf-dist/fonts/source/public/universa/fulbst17.mf new file mode 100644 index 00000000000..d0b6ea83264 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbst17.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbst17.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,strict,seventeen') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +strict := true ; +start_font(17pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbst17.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbst8.mf b/Master/texmf-dist/fonts/source/public/universa/fulbst8.mf new file mode 100644 index 00000000000..667b7f6448f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbst8.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbst8.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,strict,eight') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +strict := true ; +start_font(8pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbst8.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulbst9.mf b/Master/texmf-dist/fonts/source/public/universa/fulbst9.mf new file mode 100644 index 00000000000..937f247707c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulbst9.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulbst9.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,bold,strict,nine') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +bold := true ; +strict := true ; +start_font(9pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulbst9.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmc10.mf b/Master/texmf-dist/fonts/source/public/universa/fulmc10.mf new file mode 100644 index 00000000000..1ab6a18ef1f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmc10.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmc10.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,caps,ten') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +caps := true ; +start_font(10pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmc10.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmc12.mf b/Master/texmf-dist/fonts/source/public/universa/fulmc12.mf new file mode 100644 index 00000000000..4c99016720a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmc12.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmc12.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,caps,twelve') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +caps := true ; +start_font(12pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmc12.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmc17.mf b/Master/texmf-dist/fonts/source/public/universa/fulmc17.mf new file mode 100644 index 00000000000..4f3d469468e --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmc17.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmc17.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,caps,seventeen') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +caps := true ; +start_font(17pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmc17.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmc8.mf b/Master/texmf-dist/fonts/source/public/universa/fulmc8.mf new file mode 100644 index 00000000000..fbcc9e8ab38 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmc8.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmc8.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,caps,eight') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +caps := true ; +start_font(8pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmc8.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmc9.mf b/Master/texmf-dist/fonts/source/public/universa/fulmc9.mf new file mode 100644 index 00000000000..16d998eb6bc --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmc9.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmc9.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,caps,nine') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +caps := true ; +start_font(9pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmc9.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmo10.mf b/Master/texmf-dist/fonts/source/public/universa/fulmo10.mf new file mode 100644 index 00000000000..e275580fa08 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmo10.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmo10.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,slanted,ten') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +slant := true ; +start_font(10pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmo10.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmo12.mf b/Master/texmf-dist/fonts/source/public/universa/fulmo12.mf new file mode 100644 index 00000000000..27f82bf9e11 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmo12.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmo12.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,slanted,twelve') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +slant := true ; +start_font(12pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmo12.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmo17.mf b/Master/texmf-dist/fonts/source/public/universa/fulmo17.mf new file mode 100644 index 00000000000..aad5cd800f0 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmo17.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmo17.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,slanted,seventeen') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +slant := true ; +start_font(17pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmo17.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmo8.mf b/Master/texmf-dist/fonts/source/public/universa/fulmo8.mf new file mode 100644 index 00000000000..c383a76dc1a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmo8.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmo8.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,slanted,eight') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +slant := true ; +start_font(8pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmo8.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmo9.mf b/Master/texmf-dist/fonts/source/public/universa/fulmo9.mf new file mode 100644 index 00000000000..527c58ebd62 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmo9.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmo9.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,slanted,nine') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +slant := true ; +start_font(9pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmo9.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmr10.mf b/Master/texmf-dist/fonts/source/public/universa/fulmr10.mf new file mode 100644 index 00000000000..9ec12a7bc74 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmr10.mf @@ -0,0 +1,31 @@ +%% +%% This is file `fulmr10.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,ten') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +start_font(10pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmr10.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmr12.mf b/Master/texmf-dist/fonts/source/public/universa/fulmr12.mf new file mode 100644 index 00000000000..fd849054193 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmr12.mf @@ -0,0 +1,31 @@ +%% +%% This is file `fulmr12.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,twelve') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +start_font(12pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmr12.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmr17.mf b/Master/texmf-dist/fonts/source/public/universa/fulmr17.mf new file mode 100644 index 00000000000..efeb2f06d06 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmr17.mf @@ -0,0 +1,31 @@ +%% +%% This is file `fulmr17.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,seventeen') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +start_font(17pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmr17.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmr8.mf b/Master/texmf-dist/fonts/source/public/universa/fulmr8.mf new file mode 100644 index 00000000000..05c0c81c61e --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmr8.mf @@ -0,0 +1,31 @@ +%% +%% This is file `fulmr8.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,eight') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +start_font(8pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmr8.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmr9.mf b/Master/texmf-dist/fonts/source/public/universa/fulmr9.mf new file mode 100644 index 00000000000..93495cbcf8a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmr9.mf @@ -0,0 +1,31 @@ +%% +%% This is file `fulmr9.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,nine') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +start_font(9pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmr9.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmst10.mf b/Master/texmf-dist/fonts/source/public/universa/fulmst10.mf new file mode 100644 index 00000000000..1e2b0857195 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmst10.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmst10.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,strict,ten') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +strict := true ; +start_font(10pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmst10.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmst12.mf b/Master/texmf-dist/fonts/source/public/universa/fulmst12.mf new file mode 100644 index 00000000000..82e86948cd2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmst12.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmst12.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,strict,twelve') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +strict := true ; +start_font(12pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmst12.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmst17.mf b/Master/texmf-dist/fonts/source/public/universa/fulmst17.mf new file mode 100644 index 00000000000..9b5bb0d8b62 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmst17.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmst17.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,strict,seventeen') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +strict := true ; +start_font(17pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmst17.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmst8.mf b/Master/texmf-dist/fonts/source/public/universa/fulmst8.mf new file mode 100644 index 00000000000..346f7c55ce1 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmst8.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmst8.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,strict,eight') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +strict := true ; +start_font(8pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmst8.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/fulmst9.mf b/Master/texmf-dist/fonts/source/public/universa/fulmst9.mf new file mode 100644 index 00000000000..31208f7a0fd --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/fulmst9.mf @@ -0,0 +1,32 @@ +%% +%% This is file `fulmst9.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `font,medium,strict,nine') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if unknown unibase : input unibase; fi; + +medium := true ; +strict := true ; +start_font(9pt#) ; +input uniupp ; input unilow ; input unidig ; input unispe ; +input unilig ; input unipun ; input uniacc ; input uniext ; + +end_font; + +\endinput +%% +%% End of file `fulmst9.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/uniacc.mf b/Master/texmf-dist/fonts/source/public/universa/uniacc.mf new file mode 100644 index 00000000000..4dd4b8a73a6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/uniacc.mf @@ -0,0 +1,109 @@ +%% +%% This is file `uniacc.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `acc') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +beginchar(hex"12",x_w#,l_h#,0) ; "The accent `" ; + uniend(P_T/2,(w/2,a_h+P_T/2),90,270,10) ; + z1 = (w/2,a_h+P_T) ; z2 = (w/2,a_h) ; z3 = (w/2+P_T,a_h) ; + fill z1--z2--z3--cycle ; penlabels(1,2,3) ; +endchar ; + +beginchar(hex"13",x_w#,l_h#,0) ; "The accent '" ; + uniend(P_T/2,(w/2,a_h+P_T/2),-90,90,10) ; + z1 = (w/2,a_h+P_T) ; z2 = (w/2,a_h) ; z3 = (w/2-P_T,a_h) ; + fill z1--z2--z3--cycle ; penlabels(1,2,3) ; +endchar ; + +beginchar(hex"14",x_w#,l_h#,0) ; "The accent hachek" ; + z1 = (w/2,a_h+p_t) ; uniend(p_t,z1,225,315,10) ; + z2 = z1 + p_t*(-1,-1)/sqrt(2) ; z3 = z1 + p_t*(-1,1) ; + z4 = z3 + (-p_t*sqrt(2),0) ; path rombe ; + rombe := z1--z2--z4--z3--cycle ; fill rombe ; + fill rombe reflectedabout ((w/2,0),(w/2,h)) ; + penlabels(1,2,3,4) ; +endchar ; + +beginchar(hex"15",x_w#,l_h#,0) ; "The accent breve" ; + rad := 3p_t/2 ; uniarc(rad,p_t,(w/2,a_h+rad),180,360,10) ; +endchar ; + +beginchar(hex"16",x_w#,a_h#+p_t#,0) ; "The accent macron (bar)" ; + pickup unipensqu ; + bot lft z1 = (w/2-2p_t,a_h) ; bot rt z2 = (w/2+2p_t,a_h) ; + draw z1--z2 ; penlabels(1,2) ; +endchar ; + +beginchar(hex"17",A_w#+4/3*(l_h#-x_h#)*slantratio,l_h#,0) ; + "The accent circle" ; + rad := P_T ; unicir(rad,p_t,(w/2,h-rad),10) ; +endchar ; + +beginchar(hex"18",x_w#,x_h#,2c_d#) ; "The accent cidelia" ; + uniarc(d/2,2P_T/3,(w/2+d/4,-d/2),90,270,10) ; +endchar ; + +phi := 15 ; tmp# := 3c_d# ; define_pixels(tmp) ; +beginchar(hex"20",tmp#*cosd(phi)+p_t#*sind(phi),l_h#,0) ; + "The accent bar over l" ; + z1 = (0,(h+p_t*cosd(phi)-tmp*sind(phi))/2) ; + z2 = (p_t*sind(phi),(h-p_t*cosd(phi)-tmp*sind(phi))/2) ; + z3 = (w,(h-p_t*cosd(phi)+tmp*sind(phi))/2) ; + z4 = (w-p_t*sind(phi),(h+p_t*cosd(phi)+tmp*sind(phi))/2) ; + fill z1--z2--z3--z4--cycle ; + penlabels(1,2,3,4) ; +endchar ; + +beginchar(hex"5E",x_w#,l_h#,0) ; "The accent hat" ; + z1 = (w/2,a_h+p_t) ; uniend(p_t,z1,45,136,10) ; + z2 = z1 + p_t*(-1,1)/sqrt(2) ; z3 = z1 + p_t*(-1,-1) ; + z4 = z3 + (-p_t*sqrt(2),0) ; path rombe ; + rombe := z1--z2--z4--z3--cycle ; fill rombe ; + fill rombe reflectedabout ((w/2,0),(w/2,h)) ; + penlabels(1,2,3,4) ; +endchar ; + +beginchar(hex"5F",x_w#,l_h#,0) ; "The accent dot" ; + pickup UniPencir ; bot z1 = (w/2,a_h) ; drawdot z1 ; penlabels(1) ; +endchar ; + +beginchar(hex"7D",x_w#,l_h#,0) ; "The accent ''" ; + rad := P_T/2 ; + uniend(rad,(w/2-rad,a_h+rad),-90,90,10) ; + uniend(rad,(w/2+P_T,a_h+rad),-90,90,20) ; + z1 = (w/2-rad-P_T,a_h) ; z2 = (w/2-rad,a_h) ; + z3 = (w/2-rad,a_h+P_T) ; fill z1--z2--z3--cycle ; + z4 = (w/2,a_h) ; z5 = (w/2+P_T,a_h) ; + z6 = (w/2+P_T,a_h+P_T) ; fill z4--z5--z6--cycle ; + penlabels(range 1 thru 6) ; +endchar ; + +beginchar(hex"7E",x_w#,l_h#,0) ; "The accent ~" ; + rad := (w*sqrt(2)+p_t)/4 ; temp := (2w-p_t*sqrt(2))/8 ; + uniarc(rad,p_t,(w/2+temp,a_h+rad),225,315,10) ; + uniarc(rad,p_t,(w/2-temp,a_h+rad-2temp),45,135,20) ; +endchar ; + +beginchar(hex"7F",x_w#,l_h#,0) ; "The accent umlout (double dot)" ; + pickup UniPencir ; + bot z1 = (w/2-P_T,a_h) ; bot z2 = (w/2+P_T,a_h) ; + drawdot z1 ; drawdot z2 ; penlabels(1,2) ; +endchar ; + +\endinput +%% +%% End of file `uniacc.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/unibase.mf b/Master/texmf-dist/fonts/source/public/universa/unibase.mf new file mode 100644 index 00000000000..27e04d9581d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/unibase.mf @@ -0,0 +1,279 @@ +%% +%% This is file `unibase.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `unibase') +%% +%% Copyright (C) 1998 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 (uni.dtx +%% and uni.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 package; if not, write to the +%% Free Software Foundation, Inc., +%% 675 Mass Ave, Cambridge, +%% MA 02139, USA. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +unibase := 1 ; +string univer ; +univer = "2.0" ; +if proofing > 1 : + message "Base file for font `universal', version " & univer ; +fi +boolean medium , slant , bold , caps , strict ; +medium := false ; slant := false ; bold := false ; +caps := false ; strict := false ; +font_identifier:="universal"; + +def start_font(expr size) = + u# := size/18 ; + mode_setup; + x_h# := 8u# ; x_w# := 8u# ; m_w# := 11u# ; l_h# := 13u# ; + p_d# := 5u# ; l_s# := 2u# ; r_s# := 2u# ; A_w# := 10u# ; + M_w# := 14u# ; c_d# := 3u#/2 ; C_d# := 2u# ; + if (medium and bold) : + message "Font can't be both medium and bold, making medium font." ; + medium := true ; + fi; + if medium : p_t# := 2u#/3 ; P_t# := u# ; P_T# := u# ; fi ; + if bold : P_T# := 3u#/2 ; p_t# := 3u#/2 ; P_t# := 2u# ; fi ; + a_h# := x_h#+p_t#/2 ; + if (slant and (caps or strict)) : double_shape := 1 ; fi ; + if (caps and (slant or strict)) : double_shape := 1 ; fi ; + if (strict and (caps or slant)) : double_shape := 1 ; fi ; + if known double_shape : + message "Font cannot be two shapes, doing upright shape." ; + slant := false ; caps := false ; strict := false ; + fi ; + if slant : slantratio := 1/6 ; else: slantratio := 0 ; fi ; + currenttransform := identity slanted slantratio ; + font_x_height 8u# ; font_quad 12u#+2u# ; + font_normal_space 8u# ; font_normal_stretch 3u# ; + font_normal_shrink 2u# ; font_extra_space 2u# ; + font_coding_scheme:="TeX text" ; font_size 18u# ; + spanish_shriek:=hex"3C" ; spanish_query:=hex"3E"; + define_pixels(u,x_h,x_w,m_w,l_h,p_d,A_w,M_w,c_d,C_d,a_h); + define_blacker_pixels(p_t,P_t,P_T); + picture e_pic, a_pic ; + do_pens ; + extra_beginchar := extra_beginchar&"fit_font;" ; + extra_endchar := extra_endchar& + "end_fit_font;extra_proof_rules;charcode:=charcode+code_offset;" ; + code_offset := 0 ; +enddef; + +def do_pens = + clear_pen_memory ; + pickup pencircle scaled P_T slanted slantratio ; + UniPencir := savepen ; + pickup pencircle scaled p_t slanted slantratio ; + unipencir := savepen ; + pickup pencircle scaled P_t slanted slantratio ; + Unipencir := savepen ; + pickup pensquare scaled P_T slanted slantratio ; + UniPensqu := savepen ; + pickup pensquare scaled p_t slanted slantratio ; + unipensqu := savepen ; + pickup pensquare scaled P_t slanted slantratio ; + Unipensqu := savepen ; +enddef ; + +def fit_font = + l := -hround(l_s#*hppp) ; interim xoffset := -l ; + charwd := charwd+l_s#+r_s# ; r := l+hround(charwd*hppp) ; + w := r-hround(r_s#*hppp) ; + italcorr charht*slantratio ; +enddef; + +def end_fit_font = + w := r+l ; +enddef; + +def extra_proof_rules = + if proofing > 1 : + for xa = l,r,w/2: proofrule((xa,-d), (xa,h)) ; endfor ; + for ya = 0,h/4,h/2,3h/4,h: proofrule((l,ya), (r,ya)) ; endfor ; + if d > 0 : + proofrule((l,-d/2), (r,-d/2)) ; + proofrule((l,-d), (r,-d)) ; + fi + fi +enddef ; + +def end_font = + 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 "`" : "`" kern -l_s#-r_s#+p_t# ; + ligtable "'" : "'" kern -l_s#-r_s#+p_t# , + "?" kern 2u#, "!" kern 2u# ; + ligtable "-" : "-" =: hex"7B" ; + ligtable hex"7B" : "-" =: hex"7C" ; + ligtable hex"22" : hex"22" kern -l_s#-r_s# ; + ligtable hex"5C" : hex"5C" kern -l_s#-r_s# ; + ligtable hex"20" : + "l" kern -3c_d#*cosd(15)-p_t#*sind(15)-l_s#-r_s# , + "L" kern -3c_d#*cosd(15)-p_t#*sind(15)-l_s#-r_s# ; + bye +enddef; + +def do_caps(expr offset) = + sc_shrink := x_h#/l_h# ; + P_t# := sc_shrink*P_t# ; l_h# := sc_shrink*l_h# ; + A_w# := sc_shrink*A_w# ; M_w# := sc_shrink*M_w# ; + C_d# := sc_shrink*C_d# ; + code_offset := offset ; + define_pixels(l_h,A_w,M_w,C_d) ; + define_blacker_pixels(P_t) ; + do_pens ; +enddef ; + +def end_do_caps = + no_shrink := 1/sc_shrink ; + P_t# := no_shrink*P_t# ; l_h# := no_shrink*l_h# ; + A_w# := no_shrink*A_w# ; M_w# := no_shrink*M_w# ; + C_d# := no_shrink*C_d# ; + code_offset := 0 ; + define_pixels(l_h,A_w,M_w,C_d) ; + define_blacker_pixels(P_t) ; + do_pens ; +enddef ; + +def no_adjust= + old_begin_adjust := extra_beginchar ; + old_end_adjust := extra_endchar ; + extra_beginchar := " " ; + extra_endchar := + "extra_proof_rules;charcode:=charcode+code_offset" ; +enddef; + +def restore_adjust= + extra_beginchar := old_begin_adjust ; + extra_endchar := old_end_adjust ; +enddef; +string old_begin_adjust, old_end_adjust ; + +def unicir(expr rad, thick, center, m)= + pickup pensquare scaled thick; + top z[m] = (0,rad) + center ; penpos[m](thick,90) ; + lft z[m+1] = (-rad,0) + center ; penpos[m+1](thick,180) ; + bot z[m+2] = (0,-rad) + center ; penpos[m+2](thick,270) ; + rt z[m+3] = (rad,0) + center ; penpos[m+3](thick,0) ; + penstroke z[m]e{left}..z[m+1]e{down}.. + z[m+2]e{right}..z[m+3]e{up}..cycle ; + penlabels(range m thru m+3); +enddef; + +def uniarc(expr rad, thick, center, ang_a, ang_b, m)= + pickup pensquare scaled thick ; + path arc.l, arc.r, arc.e ; n:=m ; ang_c := abs(ang_b-ang_a) ; + if ang_c >= 360 : + unicir(rad,center,n) ; + else: + top z[n] = (0,rad) + center ; penpos[n](thick,90) ; + arc.r := z[n]r{left} ; + arc.l := z[n]l{left} ; + if ang_c > 90 : + n := n+1 ; lft z[n] = (-rad,0) + center ; penpos[n](thick,180) ; + arc.r := arc.r&z[n-1]r..z[n]r{down} ; + arc.l := arc.l&z[n-1]l..z[n]l{down} ; + if ang_c > 180 : +n := n+1 ; bot z[n] = (0,-rad) + center ; penpos[n](thick,270) ; +arc.r := arc.r&z[n-1]r..z[n]r{right} ; +arc.l := arc.l&z[n-1]l..z[n]l{right} ; +if ang_c > 270 : + n := n+1 ; rt z[n] = (rad,0) + center ; penpos[n](thick,0) ; + arc.r := arc.r&z[n-1]r..z[n]r{up} ; + arc.l := arc.l&z[n-1]l..z[n]l{up} ; +fi ; + fi ; + fi ; + n:=n+1 ; z[n] = z[m] rotatedabout(center,ang_c) ; + penpos[n](thick,90+ang_c) ; + arc.r := arc.r&z[n-1]r..z[n]r{dir(180+ang_c)} ; + arc.l := arc.l&z[n-1]l..z[n]l{dir(180+ang_c)} ; + arc.e := arc.l--reverse arc.r--cycle; + fill (arc.e rotatedabout(center,-90+ang_a)); + fi; + penlabels(range m thru n); +enddef; + +def uniend(expr rad, center, ang_a, ang_b, m)= + path arc ; n:=m ; ang_c := abs(ang_b-ang_a) ; + if ang_c >= 360 : + Rad := 2*rad ; + pickup pencircle scaled Rad ; z[n]=center ; drawdot z[n] ; + else: + z[n] = (0,rad) + center ; arc := center{up}--z[n]{left} ; + if ang_c > 90 : + n := n+1 ; z[n] = (-rad,0) + center ; + arc := arc&z[n-1]..z[n]{down} ; + if ang_c > 180 : +n := n+1 ; z[n] = (0,-rad) + center ; +arc := arc&z[n-1]..z[n]{right} ; +if ang_c > 270 : + n := n+1 ; z[n] = (rad,0) + center ; + arc := arc&z[n-1]..z[n]{up} ; +fi ; + fi ; + fi ; + n := n+1 ; z[n] = z[m] rotatedabout(center,ang_c) ; + arc := arc&z[n-1]..z[n]{dir(180+ang_c)}--cycle ; + fill (arc rotatedabout(center,-90+ang_a)); + fi; + penlabels(range m thru n); +enddef; + + +def unilne(expr thick, start, stop, endcutstart, endcutstop, m)= + pickup pensquare scaled thick; + if endcutstart = endcutstop : + if endcutstart = 0 : + lft bot z[m] = start ; rt top z[m+1] = stop ; + ang_c := angle(z[m+1]-z[m]) ; + penpos[m](thick,-90+ang_c) ; + penpos[m+1](thick,-90+ang_c) ; + elseif endcutstart > 0 : + lft z[m] = start ; rt z[m+1] = stop ; + ang_c := angle(z[m+1]-z[m]) ; + penpos[m](thick/sind(ang_c),0) ; + penpos[m+1](thick/sind(ang_c),0) ; + elseif endcutstart < 0: + bot z[m] = start ; top z[m+1] = stop ; + ang_c := angle(z[m+1]-z[m]) ; + penpos[m](thick/cosd(ang_c),90) ; + penpos[m+1](thick/cosd(ang_c),90) ; + fi; + penstroke z[m]e--z[m+1]e ; + else : + message "Different endcuts on unilne not implemented yet."; + fi; + n := m + 1 ; + penlabels(range m thru n); +enddef; + +\endinput +%% +%% End of file `unibase.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/unidig.mf b/Master/texmf-dist/fonts/source/public/universa/unidig.mf new file mode 100644 index 00000000000..415a7f3b9be --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/unidig.mf @@ -0,0 +1,119 @@ +%% +%% This is file `unidig.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `dig') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +beginchar("0",A_w#,l_h#,0) ; "The number 0" ; + uniarc(w/2,p_t,(w/2,h-w/2),0,180,10) ; + uniarc(w/2,p_t,(w/2,w/2),180,360,20) ; + pickup unipensqu ; + top lft z1 = (0,h-w/2) ; bot lft z2 = (0,w/2) ; draw z1--z2 ; + top rt z3 = (w,h-w/2) ; bot rt z4 = (w,w/2) ; draw z3--z4 ; + penlabels(1,2,3,4) ; +endchar; + +beginchar("1",2c_d#,l_h#,0) ; "The number 1" ; + uniend(p_t,(w-p_t,h-p_t),0,90,10) ; + pickup unipensqu ; + lft top z1 = (0,h) ; rt top z2 = (w-p_t,h) ; draw z1--z2 ; + rt top z3 = (w,h-p_t) ; rt bot z4 = (w,0) ; draw z3--z4 ; + penlabels(1,2,3,4) ; +endchar; + +beginchar("2",A_w#,l_h#,0) ; "The number 2" ; + uniarc(w/2,p_t,(w/2,h-w/2),0,180,10) ; + phi := angle((w,h-w/2)-(0,p_t)) ; + z1 = (w-p_t,h-w/2) ; z2 = z1 + p_t*(sind(phi),-cosd(phi)) ; + z3 = (p_t,p_t) ; z4 = z3 + p_t*(-sind(phi),cosd(phi)) ; + fill z1--z2--z3--z4--cycle ; + uniend(p_t,z1,270+phi,360,20) ; + uniend(p_t,z3,90+phi,270,30) ; + pickup unipensqu ; + bot lft z5 = (p_t,0) ; bot rt z6 = (w,0) ; draw z5--z6 ; + penlabels(range 1 thru 6) ; +endchar; + +beginchar("3",A_w#,l_h#,0) ; "The number 3" ; + path arc_a, arc_b ; + arc_a = (w,h-w/2)..(w/2,h-w) ; arc_b = (w,w/2)..(w/2,w) ; + z3 = arc_a intersectionpoint arc_b ; phi := angle(z3-(w/2,w/2)) ; + uniarc(w/2,p_t,(w/2,h-w/2),-phi,180,10) ; + uniarc(w/2,p_t,(w/2,w/2),-180,phi,20) ; + pickup unipensqu ; + rt z1 = (w/2*(1+cosd(phi)),h/2) ; lft z2 = (w/2,h/2) ; draw z1--z2 ; + penlabels(1,2) ; +endchar; + +beginchar("4",A_w#,l_h#,0) ; "The number 4" ; + z1 = (w-p_t,h-p_t) ; z2 = z1 + p_t*(-1/sqrt(2),1/sqrt(2)) ; + z3 = (p_t,h-w+p_t) ; z4 = z3 + p_t*(-1/sqrt(2),1/sqrt(2)) ; + fill z1--z2--z4--z3--cycle ; + uniend(p_t,z1,0,135,10) ; + uniend(p_t,z3,135,270,20) ; + pickup unipensqu ; + top rt z5 = (w,h-p_t) ; bot rt z6 = (w,0) ; draw z5--z6 ; + bot lft z7 = (p_t,h-w) ; bot rt z8 = (w,h-w) ; draw z7--z8 ; + penlabels(range 1 thru 8) ; +endchar; + +beginchar("5",A_w#,l_h#,0) ; "The number 5" ; + rad := 9w/20 ; + uniarc(rad,p_t,(w-rad,rad),-150,90,10) ; + uniend(p_t,(p_t,h-p_t),90,180,20) ; + uniend(p_t,(p_t,2rad),180,270,30) ; + pickup unipensqu ; + top lft z1 = (p_t,2rad) ; top rt z2 = (w-rad,2rad) ; draw z1--z2 ; + bot lft z3 = (0,2rad) ; top lft z4 = (0,h-p_t) ; draw z3--z4 ; + top lft z5 = (p_t,h) ; top rt z6 = (w,h) ; draw z5--z6 ; + penlabels(range 1 thru 6) ; +endchar; + +beginchar("6",A_w#,l_h#,0) ; "The number 6" ; + unicir(w/2,p_t,(w/2,w/2),10) ; + uniarc(w/2,p_t,(w/2,h-w/2),60,180,20) ; + pickup unipensqu ; + top lft z1 = (0,h-w/2) ; bot lft z2 = (0,w/2) ; draw z1--z2 ; + penlabels(1,2) ; +endchar; + +beginchar("7",A_w#,l_h#,0) ; "The number 7" ; + z1 = (w-p_t,h-p_t) ; phi := angle(z1) ; + uniend(p_t,z1,-90+phi,90,10) ; + z2 = z1 + p_t*(cosd(90-phi),-sind(90-phi)) ; + z3 = (p_t/cosd(90-phi),0) ; z4 = (0,0) ; + fill z1--z2--z3--z4--cycle ; + pickup unipensqu ; + top lft z5 = (0,h) ; top rt z6 = (w-p_t,h) ; draw z5--z6 ; + penlabels(range 1 thru 6) ; +endchar; + +beginchar("8",1/2*(l_h#+p_t#),l_h#,0) ; "The number 8" ; + unicir(w/2,p_t,(w/2,w/2),10) ; + unicir(w/2,p_t,(w/2,h-w/2),20) ; +endchar; + +beginchar("9",A_w#,l_h#,0) ; "The number 9" ; + unicir(w/2,p_t,(w/2,h-w/2),10) ; + uniarc(w/2,p_t,(w/2,w/2),-150,0,20) ; + pickup unipensqu ; + top rt z1 = (w,h-w/2) ; bot rt z2 = (w,w/2) ; draw z1--z2 ; + penlabels(1,2) ; +endchar; + +\endinput +%% +%% End of file `unidig.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/uniext.mf b/Master/texmf-dist/fonts/source/public/universa/uniext.mf new file mode 100644 index 00000000000..587e6a048a6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/uniext.mf @@ -0,0 +1,239 @@ +%% +%% This is file `uniext.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `ext') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +currenttransform := identity ; + +beginchar(hex"00",l_h#,l_h#,0) ; "The filled square symbol" ; + z1 = (0,0) ; z2 = (w,0) ; z3 = (w,h) ; z4 = (0,h) ; + fill z1--z2--z3--z4--cycle ; + penlabels(1,2,3,4) ; +endchar ; + +beginchar(hex"01",l_h#,l_h#,0) ; "The filled circle symbol" ; + z1 = (w,h/2) ; z2 = (w/2,h) ; z3 = (0,h/2) ; z4 = (w/2,0) ; + fill z1..z2..z3..z4..cycle ; + penlabels(1,2,3,4) ; +endchar ; + +beginchar(hex"02",l_h#,l_h#,0) ; "The filled triangle symbol" ; + z1 = (0,0) ; z2 = (w,0) ; z3 = (w/2,h) ; + fill z1--z2--z3--cycle ; + penlabels(1,2,3) ; +endchar ; + +beginchar(hex"03",2l_h#,2l_h#,0) ; "The bauhaus-head symbol" ; + unicir(w/2,2c_d/9,(w/2,w/2),40) ; + a1 := .702h ; a2 := .561h ; a3 := .491h ; a4 := .351h ; + a5 := .272h ; a6 := .140h ; + b1 := .202w ; b2 := .307w ; b3 := .412w ; b4 := .447w ; + b5 := .465w ; b6 := .518w ; b7 := .588w ; b8 := .623w ; + temp := c_d/6 ; pickup pensquare scaled temp ; + 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 ; + lft bot z9 = (b4,a4) ; lft bot z10 = (b7,a4) ; draw z9--z10 ; + lft bot z11 = (b2,a6) ; rt bot z12 = (b6,a6) ; draw z11--z12 ; + temp := 3c_d/5 ; pickup pensquare scaled temp ; + lft top z13 = (b5,a5) ; rt top z14 = (b6,a5) ; draw z13--z14 ; + z15 = (b6,a4) ; z16 = (b7,a4) ; z17 = (b7,a6) ; z18 = (b6,a6) ; + fill z15--z16--z17--z18--cycle ; + 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 ; + z27 = (w/2,h) ; z28 = (w,h/2) ; z29 = (w/2,0) ; z30 = (0,h/2) ; + headcircle := z27..z28..z29..z30..cycle ; + z31 = noselft intersectiontimes headcircle ; + z32 = nosert intersectiontimes headcircle ; + parttop = subpath(y31,y32) of headcircle ; + z33 = neckrt intersectiontimes headcircle ; + z34 = necklft intersectiontimes headcircle ; + partbot = subpath(y34,y33) of headcircle ; + fill z19--parttop--z22--cycle ; + fill z23--partbot--z26--cycle ; + penlabels(range 1 thru 34) ; +endchar ; + +beginchar(hex"04",2l_h#,2l_h#,0) ; "The bauhaus-forms symbol" ; + phi := 36.673 ; + thn_pen := 2c_d/9 ; med_pen := 3c_d/9 ; thk_pen := 4c_d/9 ; + unicir(w/2,thn_pen,(w/2,w/2),20) ; + z1 = (thn_pen+med_pen,h/2) ; + z2 = (.6433w-med_pen,.9790h-med_pen) ; + z3 = (.6433w-med_pen,.0210h+med_pen) ; + uniend(med_pen,z1,phi+90,270-phi,30) ; + uniend(med_pen,z2,0,phi+90,40) ; + uniend(med_pen,z3,270-phi,360,50) ; + z4 = z1 + med_pen*(-sind(phi),cosd(phi)) ; + z5 = z2 + med_pen*(-sind(phi),cosd(phi)) ; + path sl_line ; sl_line = z1--z4--z5--z2--cycle ; fill sl_line ; + fill sl_line reflectedabout((0,h/2),(w,h/2)) ; + pickup pensquare scaled med_pen ; + lft bot z6 = z2 ; lft top z7 = z3 ; draw z6--z7 ; + z8 = (.3687w+thk_pen,.2254h+thk_pen) ; + z9 = (.9179w-thk_pen,.2254h+thk_pen) ; + z10 = (.9179w-thk_pen,.7746h-thk_pen) ; + z11 = (.3687w+thk_pen,.7746h-thk_pen) ; + uniend(thk_pen,z8,180,270,60) ; + uniend(thk_pen,z9,270,360,70) ; + uniend(thk_pen,z10,0,90,80) ; + uniend(thk_pen,z11,90,180,90) ; + pickup pensquare scaled thk_pen ; + lft top z12 = z8 ; rt top z13 = z9 ; draw z12--z13 ; + lft bot z14 = z9 ; lft top z15 = z10 ; draw z14--z15 ; + bot rt z16 = z10 ; bot lft z17 = z11 ; draw z16--z17 ; + top rt z18 = z11 ; bot rt z19 = z8 ; draw z18--z19 ; + penlabels(range 1 thru 19) ; +endchar ; + +currenttransform := identity slanted slantratio ; + +if not caps : + for temp = 1,2 : + if temp = 2 : code_offset := 3 ; fi ; + beginchar(hex"05",x_w#,l_h#,0) ; "The letter eth" ; + unicir(w/2,p_t,(w/2,w/2),10) ; + uniarc(w/2,p_t,(w/2,h-w/2),0,120,20) ; + pickup unipensqu ; + top rt z1 = (w,h-w/2) ; bot rt z2 = (w,w/2) ; draw z1--z2 ; + z3 = (w/2,h-w/2+p_t/sqrt(2)) ; z4 = (w/2+p_t/sqrt(2),h-w/2) ; + z5 = (w,h-p_t/sqrt(2)) ; z6 = (w-p_t/sqrt(2),h) ; + fill z3--z4--z5--z6--cycle ; + penlabels(range 1 thru 6) ; + endchar ; + + beginchar(hex"06",x_w#,x_h#,p_d#) ; "The letter eng" ; + uniarc(w/2,p_t,(w/2,h-w/2),0,180,10) ; + pickup unipensqu ; + top lft z1 = (0,h-w/2) ; bot lft z2 = (0,0) ; draw z1--z2 ; + top rt z3 = (w,h-w/2) ; bot rt z4 = (w,-d) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar ; + + beginchar(hex"07",x_w#,l_h#,p_d#) ; "The letter thorn" ; + rad := (h+d)/4 ; + uniarc(rad,p_t,(w-rad,rad),-90,90,10) ; + pickup unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,-d) ; draw z1--z2 ; + top lft z3 = (p_t,2rad) ; top rt z4 = (w-rad,2rad) ; + bot lft z5 = (p_t,0) ; bot rt z6 = (w-rad,0) ; + draw z3--z4 ; draw z5--z6 ; + penlabels(range 1 thru 6) ; + endchar ; + exitif (not strict) ; + if temp = 2 : code_offset := 0 ; fi ; + endfor ; +fi ; + +if not strict : + for temp = 1,2 : + if temp = 2 : do_caps(-3) ; fi ; + + beginchar(hex"08",A_w#,l_h#,0) ; "The variant letter Q"; + unicir(w/2,P_t,(w/2,h-w/2),10) + pickup Unipensqu ; + rt top z1 = (w,h-w/2) ; rt bot z2 = (w,0) ; draw z1--z2 ; + penlabels(1,2); + endchar ; + + beginchar(hex"09",A_w#,l_h#,0) ; "The letter Eng" ; + rad := 3C_d ; + uniarc(w/2,P_t,(w/2,h-w/2),0,180,10) ; + uniarc(rad,P_t,(w-rad,rad),-90,0,20) ; + pickup Unipensqu ; + top lft z1 = (0,h-w/2) ; bot lft z2 = (0,0); draw z1--z2 ; + top rt z3 = (w,h-w/2) ; bot rt z4 = (w,rad) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar ; + + beginchar(hex"0A",A_w#,l_h#,0) ; "The letter Thorn" ; + rad := h/4 ; + uniarc(rad,P_t,(w-rad,h/2),-90,90,10) ; + pickup Unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,0) ; draw z1--z2 ; + top lft z3 = (P_t,h/2+rad) ; top rt z4 = (w-rad,h/2+rad) ; + bot lft z5 = (P_t,h/2-rad) ; bot rt z6 = (w-rad,h/2-rad) ; + draw z3--z4 ; draw z5--z6 ; + penlabels(range 1 thru 6) ; + endchar ; + exitif (not caps) ; + if temp = 2 : end_do_caps ; fi ; + endfor ; +fi ; + +beginchar(hex"0B",x_w#,x_h#,2c_d#) ; "The accent ogoneck" ; + uniarc(d/2,2P_T/3,(w/2-d/4,-d/2),-90,90,10) ; +endchar ; + +beginchar(hex"0C",3c_d#,l_h#,p_d#) ; "The left brace ({)" ; + uniarc(2c_d,p_t,(3c_d,h-2c_d),90,180,10) ; + uniarc(2c_d,p_t,(3c_d,-d+2c_d),180,270,20) ; + pickup unipensqu ; + top lft z1 = (c_d,h-2c_d) ; bot lft z2 = (c_d,-d+2c_d) ; draw z1--z2 ; + lft z3 = (0,(h-d)/2) ; rt z4 = (c_d,(h-d)/2) ; draw z3--z4 ; + penlabels(1,2,3,4) ; +endchar ; + +beginchar(hex"0D",3c_d#,l_h#,p_d#) ; "The right brace (})" ; + uniarc(2c_d,p_t,(0,h-2c_d),0,90,10) ; + uniarc(2c_d,p_t,(0,-d+2c_d),270,360,20) ; + pickup unipensqu ; + top rt z1 = (w-c_d,h-2c_d) ; bot rt z2 = (w-c_d,-d+2c_d) ; + draw z1--z2 ; + rt z3 = (w,(h-d)/2) ; lft z4 = (w-c_d,(h-d)/2) ; draw z3--z4 ; + penlabels(1,2,3,4) ; +endchar ; + +beginchar(hex"0E",(l_h#+p_d#+2p_t#)/3,l_h#,p_d#) ; + "The Paragraph sign" ; + uniarc(w/2,p_t,(w/2,h-w/2),30,270,10) ; + uniarc(w/2,p_t,(w/2,w/2-d),-150,90,20) ; + unicir(w/2,p_t,(w/2,(h-d)/2),30) ; +endchar ; + +beginchar(hex"0F",p_t#,l_h#,p_d#) ; "The symbol bar (|)" ; + pickup unipensqu ; + lft top z1 = (0,h) ; lft bot z2 = (0,-d) ; draw z1--z2 ; + penlabels(1,2); +endchar ; + +beginchar(hex"22",2x_w#/3,x_h#,0) ; "The single left guillomot" ; + z1 = (p_t,h/2) ; z2 = (w,h) ; phi := angle(z2-z1) ; + uniend(p_t,(z1),90+phi,270-phi,10) ; + z3 = (w-p_t/sind(phi),h) ; z4 = z1 + p_t*(-sind(phi),cosd(phi)) ; + path rombe ; rombe := z1--z2--z3--z4--cycle ; fill rombe ; + fill rombe reflectedabout ((0,h/2),(w,h/2)) ; + penlabels(1,2,3,4) ; +endchar ; + +beginchar(hex"5C",2x_w#/3,x_h#,0) ; "The single right guillomot"; + z1 = (w-p_t,h/2) ; z2 = (0,h) ; phi := 180-angle(z2-z1) ; + uniend(p_t,(z1),phi-90,90-phi,10) ; + z3 = (p_t/sind(phi),h) ; z4 = z1 + p_t*(sind(phi),cosd(phi)) ; + path rombe ; rombe := z1--z2--z3--z4--cycle ; fill rombe ; + fill rombe reflectedabout ((0,h/2),(w,h/2)) ; + penlabels(1,2,3,4) ; +endchar ; + +\endinput +%% +%% End of file `uniext.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/unilig.mf b/Master/texmf-dist/fonts/source/public/universa/unilig.mf new file mode 100644 index 00000000000..540f79876cb --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/unilig.mf @@ -0,0 +1,110 @@ +%% +%% This is file `unilig.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `lig') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if caps: + beginchar(hex"19",5/2x_w#,x_h#,0) ; "Ligature SS" ; + temp := (h+p_t)/4 ; + uniarc(temp,p_t,(temp,temp),180,270,10) ; + uniarc(temp,p_t,(2w/5-temp,temp),270,450,20) ; + uniarc(temp,p_t,(temp,h-temp),90,270,30) ; + uniarc(temp,p_t,(2w/5-temp,h-temp),0,90,40) ; + pickup unipensqu ; + bot lft z1 = (temp,0) ; bot rt z2 = (2w/5-temp,0) ; + lft z3 = (temp,h/2) ; rt z4 = (2w/5-temp,h/2) ; + top lft z5 = (temp,h) ; top rt z6 = (2w/5-temp,h) ; + draw z1--z2 ; draw z3--z4 ; draw z5--z6 ; + penlabels(1,2,3,4,5,6) ; + currentpicture := currentpicture + (currentpicture shifted + (3/5w,0)) ; + endchar ; + +else: + beginchar(hex"19",(l_h#+3p_t#)/2,l_h#,p_t#) ; "Ligature ss" ; + rad := (w-p_t)/2 ; + uniarc(rad,p_t,(p_t+rad,h-rad),-90,180,10) ; + uniarc(rad,p_t,(p_t+rad,rad),-90,90,20) ; + pickup unipensqu ; + top lft z1 = (p_t,h-rad) ; bot lft z2 = (p_t,-d) ; draw z1--z2 ; + lft z3 = (0,h/2) ; rt z4 = (w-rad,h/2) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar ; +fi ; + +if not caps : + for temp = 1,2 : + if temp = 2 : code_offset := 3 ; fi ; + beginchar(hex"1A",2x_w#-p_t#,x_h#,0) ; "Ligature ae" ; + currentpicture := a_pic + ( e_pic shifted ((w-p_t)/2,0)) ; + endchar ; + + beginchar(hex"1B",2x_w#-p_t#,x_h#,0) ; "Ligature oe" ; + unicir(h/2,p_t,(h/2,h/2),10) ; + currentpicture := currentpicture + (e_pic shifted ((w-p_t)/2,0)) ; + endchar ; + + beginchar(hex"1C",x_w#,x_h#,0) ; "Ligature o/" ; + unicir(w/2,p_t,(w/2,h/2),10) ; + unilne(p_t,(0,0),(w,h),1,1,20) ; + endchar ; + exitif (not strict) ; + if temp = 2 : code_offset := 0 ; fi ; + endfor ; +fi ; + +if not strict : + for temp = 1,2 : + if temp = 2 : do_caps(-3) ; fi ; + + beginchar(hex"1D",M_w#,l_h#,0) ; "Ligature AE" ; + uniarc(w/2,P_t,(w/2,h-w/2),90,180,21) ; + uniend(P_t,((w+P_t)/2,P_t),180,270,30) ; + pickup Unipensqu ; + top lft z1 = (w/2,h) ; top rt z2 = (w,h) ; + top lft z3 = (0,h-w/2) ; bot lft z4 = (0,0) ; + lft z5 = (0,h/2) ; rt z6 = (w,h/2) ; + bot lft z7 = ((w+P_t)/2,0) ; bot rt z8 = (w,0) ; + top z9 = (w/2,h) ; bot z10 = (w/2,P_t) ; + draw z1--z2 ; draw z3--z4 ; draw z5--z6 ; + draw z7--z8 ; draw z9--z10 ; + penlabels(range 1 thru 10) ; + endchar ; + + beginchar(hex"1E",M_w#,l_h#,0) ; "Ligature OE" ; + uniarc(h/2,P_t,(h/2,h/2),90,270,10) ; + pickup Unipensqu ; + top lft z1 = (h/2,h) ; top rt z2 = (w,h) ; draw z1--z2 ; + lft z3 = (h/2,h/2) ; rt z4 = (w,h/2) ; draw z3--z4 ; + bot lft z5 = (h/2,0) ; bot rt z6 = (w,0) ; draw z5--z6 ; + top z7 = (h/2,h) ; bot z8 = (h/2,0) ; draw z7--z8 ; + penlabels(range 1 thru 8) ; + endchar ; + + beginchar(hex"1F",l_h#,l_h#,0) ; "Liguture O/" ; + unicir(w/2,P_t,(w/2,h/2),10) ; + unilne(P_t,(0,0),(w,h),1,1,20) ; + endchar ; + + exitif (not caps) ; + if temp = 2 : end_do_caps ; fi ; + endfor ; +fi ; + +\endinput +%% +%% End of file `unilig.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/unilow.mf b/Master/texmf-dist/fonts/source/public/universa/unilow.mf new file mode 100644 index 00000000000..13332715391 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/unilow.mf @@ -0,0 +1,247 @@ +%% +%% This is file `unilow.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `low') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if not caps : + + beginchar("a",x_w#,x_h#,0); "The letter a"; + uniarc(w/2,p_t,(w/2,h/2),0,290,10); + pickup unipensqu ; + z1 = ((cosd(290)*(w-p_t)+w)/2,(sind(290)*(w-p_t)+w)/2); + z2 = (w-p_t/2,2h/5) ; penpos1(p_t,-70); penpos2(p_t,-45); + fill z1l{dir(20)}..z2l{dir(45)}-- + z2r{dir(225)}..z1r{dir(200)}--cycle; + top rt z3 = (w,.5h) ; bot rt z4 = (w,0) ; draw z3{down}--z4 ; + penlabels(1,2,3,4); + a_pic := currentpicture ; + endchar; + + beginchar("b",x_w#,l_h#,0); "The letter b"; + unicir(w/2,p_t,(w/2,w/2),10); + pickup unipensqu ; + lft bot z1 = (0,w/2) ; lft top z2 = (0,h) ; draw z1{up}--z2 ; + penlabels(1,2); + endchar; + + beginchar("c",x_w#*(1+cosd(30))/2,x_h#,0); "The letter c"; + uniarc(h/2,p_t,(h/2,h/2),30,330,10); + endchar; + + beginchar("d",x_w#,l_h#,0); "The letter d"; + unicir(w/2,p_t,(w/2,w/2),10); + pickup unipensqu ; + rt bot z1 = (w,w/2) ; rt top z2 = (w,h) ; draw z1{up}--z2 ; + penlabels(1,2); + endchar; + + beginchar("e",x_w#,x_h#,0); "The letter e"; + uniarc(w/2,p_t,(w/2,h/2),0,330,10); + temp := p_t/2 ; + pickup pensquare xscaled p_t yscaled temp slanted slantratio ; + top rt z1 = (w,h/2) ; drawdot z1 ; + pickup unipensqu ; + z2 = (p_t,h/2) ; z3 = (w-p_t,h/2) ; draw z2--z3 ; + penlabels(1,2,3); + e_pic := currentpicture ; + endchar; + + beginchar("f",4p_t#,l_h#,0); "The letter f"; + uniarc(3/4w,p_t,(3/4w,h-3/4w),90,180,10); + pickup unipensqu ; + top rt z1 = (w,h) ; drawdot z1 ; + lft top z2 = (0,h-3/4w) ; bot lft z3 = (0,0) ; draw z2--z3 ; + top lft z4 = (0,x_h) ; top rt z5 = (w,x_h) ; draw z4--z5 ; + penlabels(1,2,3,4,5); + endchar; + + beginchar("g",x_w#,x_h#,p_d#); "The letter g" ; + uniarc(w/2,p_t,(w/2,h/2),30,360,10) ; + pickup unipensqu ; + top rt z1 = (w,h/2) ; bot rt z2 = (w,-d) ; draw z1--z2; + penlabels(1,2); + endchar; + + beginchar("h",x_w#,l_h#,0); "The letter h" ; + uniarc(w/2,p_t,(w/2,w/2),0,180,10) ; + pickup unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,0) ; draw z1--z2 ; + top rt z3 = (w,x_h-w/2) ; bot rt z4 = (w,0) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar; + + beginchar("i",p_t#,l_h#,0) ; "The letter i" ; + pickup unipensqu ; + top lft z1 = (0,x_h) ; bot lft z2 = (0,0) ; draw z1--z2 ; + pickup unipencir ; + top lft z3 = (0,h) ; drawdot z3 ; + penlabels(1,2,3) ; + endchar; + + beginchar("j",p_t#,l_h#,p_d#); "The letter j" ; + pickup unipensqu ; + top lft z1 = (0,x_h) ; bot lft z2 = (0,-d) ; draw z1--z2 ; + pickup unipencir ; + top lft z3 = (0,h) ; drawdot z3 ; + penlabels(1,2,3) ; + endchar; + + beginchar("k",(x_h#+3p_t#)/2,x_h#,0) ; "The letter k" ; + uniarc((h+p_t)/2,p_t,(p_t,h),270,360,10) ; + uniarc((h+p_t)/2,p_t,(p_t,0),0,90,20) ; + pickup unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,0) ; draw z1--z2 ; + penlabels(1,2); + endchar; + + beginchar("l",p_t#,l_h#,0) ; "The letter l" ; + pickup unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,0) ; draw z1--z2; + penlabels(1,2); + endchar; + + beginchar("m",m_w#,x_h#,0) ; "The letter m" ; + temp := .25*(w+p_t); + uniarc(temp,p_t,(temp,h-temp),0,180,10) ; + uniarc(temp,p_t,(w-temp,h-temp),0,180,20) ; + pickup unipensqu ; + top lft z1 = (0,h-temp) ; bot lft z2 = (0,0) ; draw z1--z2 ; + top z3 = (w/2,h-temp) ; bot z4 = (w/2,0) ; draw z3--z4 ; + top rt z5 = (w,h-temp) ; bot rt z6 = (w,0) ; draw z5--z6 ; + penlabels(1,2,3,4,5,6); + endchar; + + beginchar("n",x_w#,x_h#,0); "The letter n" ; + uniarc(w/2,p_t,(w/2,h-w/2),0,180,10) ; + pickup unipensqu ; + top lft z1 = (0,h-w/2) ; bot lft z2 = (0,0) ; draw z1--z2 ; + top rt z3 = (w,h-w/2) ; bot rt z4 = (w,0) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar; + + beginchar("o",x_w#,x_h#,0) ; "The letter o"; + unicir(w/2,p_t,(w/2,h/2),10); + endchar; + + beginchar("p",x_w#,x_h#,p_d#) ; "The letter p" ; + unicir(w/2,p_t,(w/2,w/2),10); + pickup unipensqu ; + lft top z1 = (0,h/2) ; lft bot z2 = (0,-d) ; draw z1--z2 ; + penlabels(1,2); + endchar; + + beginchar("q",x_w#,x_h#,p_d#) ; "The letter q" ; + unicir(w/2,p_t,(w/2,w/2),10); + pickup unipensqu ; + rt top z1 = (w,h/2) ; rt bot z2 = (w,-d) ; draw z1--z2 ; + penlabels(1,2); + endchar; + + beginchar("r",3p_t#,x_h#,0) ; "The letter r" ; + uniarc(w,p_t,(w,h-w),90,180,10) ; + pickup unipensqu ; + top lft z1 = (0,h-w) ; bot lft z2 = (0,0) ; draw z1--z2; + penlabels(1,2); + endchar; + + beginchar("s",x_w#,x_h#,0) ; "The letter s" ; + temp := (h+p_t)/4 ; + uniarc(temp,p_t,(temp,temp),180,270,10) ; + uniarc(temp,p_t,(w-temp,temp),270,450,20) ; + uniarc(temp,p_t,(temp,h-temp),90,270,30) ; + uniarc(temp,p_t,(w-temp,h-temp),0,90,40) ; + pickup unipensqu ; + bot lft z1 = (temp,0) ; bot rt z2 = (w-temp,0) ; draw z1--z2 ; + lft z3 = (temp,h/2) ; rt z4 = (w-temp,h/2) ; draw z3--z4 ; + top lft z5 = (temp,h) ; top rt z6 = (w-temp,h) ; draw z5--z6 ; + penlabels(1,2,3,4,5,6) ; + endchar; + + beginchar("t",p_t#+2c_d#,l_h#,0); "The letter t" ; + pickup unipensqu ; + top z1 = (w/2,h) ; bot z2 = (w/2,0) ; draw z1--z2 ; + top lft z3 = (0,x_h) ; top rt z4 = (w,x_h) ; draw z3--z4 ; + penlabels(1,2,3,4); + endchar; + + beginchar("u",x_w#,x_h#,0); "The letter u" ; + uniarc(w/2,p_t,(w/2,w/2),180,360,10) ; + pickup unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,w/2) ; draw z1--z2 ; + top rt z3 = (w,h) ; bot rt z4 = (w,w/2) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar; + + beginchar("v",x_w#,x_h#,0); "The letter v" ; + unilne(p_t,(0,h),(w/2,p_t),1,1,10); + unilne(p_t,(w/2,p_t),(w,h),1,1,20); + uniarc(p_t,p_t,(w/2,p_t),180,360,30); + endchar; + + beginchar("w",m_w#,x_h#,0) ; "The letter w" ; + temp := .25*(w+p_t); + uniarc(temp,p_t,(temp,temp),180,360,10) ; + uniarc(temp,p_t,(w-temp,temp),180,360,20) ; + pickup unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,temp) ; draw z1--z2 ; + top z3 = (w/2,h) ; bot z4 = (w/2,temp) ; draw z3--z4 ; + top rt z5 = (w,h) ; bot rt z6 = (w,temp) ; draw z5--z6 ; + penlabels(1,2,3,4,5,6); + endchar; + + beginchar("x",x_w#,x_h#,0) ; "The letter x" ; + uniarc(h/2,p_t,(p_t/2,h/2),270,90,10); + uniarc(h/2,p_t,(w-p_t/2,h/2),90,270,20); + temp := (w-h+p_t)/2 ; + pickup pensquare xscaled temp yscaled p_t slanted slantratio ; + lft top z1 = (0,h) ; drawdot z1 ; + lft bot z2 = (0,0) ; drawdot z2 ; + rt top z3 = (w,h) ; drawdot z3 ; + rt bot z4 = (w,0) ; drawdot z4 ; + penlabels(1,2,3,4); + endchar; + + beginchar("y",x_w#,x_h#,p_d#); "The letter y" ; + uniarc(w/2,p_t,(w/2,w/2),180,360,10) ; + pickup unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,w/2); draw z1--z2 ; + top rt z3 = (w,h) ; bot rt z4 = (w,-d) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar; + + beginchar("z",x_w#,x_h#,0) ; "The letter z" ; + pickup unipensqu ; + top lft z1 = (0,h) ; top rt z2 = (w-p_t,h) ; draw z1--z2 ; + bot lft z3 = (p_t,0) ; bot rt z4 = (w,0) ; draw z3--z4 ; + phi := angle((w,h-p_t)-(0,p_t)) ; % Uuuuupps !?!!!!!! + z5 = (p_t,p_t) ; z6 = z5 + p_t*(-sind(phi),cosd(phi)) ; + z7 = (w-p_t,h-p_t) ; z8 = z7 + p_t*(sind(phi),-cosd(phi)) ; + uniend(p_t,z5,90+phi,270,10); + uniend(p_t,z7,-90+phi,90,20); + fill z5--z6--z7--z8--cycle ; + penlabels(range 1 thru 8); + endchar; + +else : + do_caps(ASCII"a" - ASCII"A") ; + input uniupp ; + end_do_caps ; +fi ; + +\endinput +%% +%% End of file `unilow.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/unipun.mf b/Master/texmf-dist/fonts/source/public/universa/unipun.mf new file mode 100644 index 00000000000..9fdb2cf625a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/unipun.mf @@ -0,0 +1,170 @@ +%% +%% This is file `unipun.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `pun') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +beginchar("!",P_T#,l_h#,0) ; "The exclamation mark (!)" ; + pickup UniPensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,2P_T) ; draw z1--z2 ; + pickup UniPencir ; + bot lft z3 = (0,0) ; drawdot z3 ; + penlabels(1,2,3) ; +endchar; + +beginchar("(",x_w#/2,l_h#,p_d#) ; "The left paranthesis (()" ; + z1 = (w,h) ; z2 = (p_t,(h-d)/2) ; z3 = (w,-d) ; + z4 = (w-p_t,-d) ; z5 = (0,(h-d)/2) ; z6 = (w-p_t,h) ; + fill z1..z2..z3--z4..z5..z6--cycle ; + penlabels(range 1 thru 6) ; +endchar; + +beginchar(")",x_w#/2,l_h#,p_d#) ; "The right paranthesis ())" ; + z1 = (p_t,h) ; z2 = (w,(h-d)/2) ; z3 = (p_t,-d) ; + z4 = (0,-d) ; z5 = (w-p_t,(h-d)/2) ; z6 = (0,h) ; + fill z1..z2..z3--z4..z5..z6--cycle ; + penlabels(range 1 thru 6) ; +endchar; + +beginchar("#",x_w#,x_h#,0) ; "The hash mark (#)" ; + unilne(p_t,(0,0),(w/2,h),1,1,10) ; + unilne(p_t,(w/2,0),(w,h),1,1,20) ; + pickup unipensqu ; + top lft z1 = (0,(h-c_d)/2) ; top rt z2 = (w,(h-c_d)/2) ; + bot lft z3 = (0,(h+c_d)/2) ; bot rt z4 = (w,(h+c_d)/2) ; + draw z1--z2 ; draw z3--z4 ; + penlabels(1,2,3,4) ; +endchar; + +beginchar("%",x_w#,l_h#,0) ; "The percent sign (%)" ; + temp := 3c_d/2 ; + unicir(temp,p_t,(temp,h-temp),10) ; + unicir(temp,p_t,(w-temp,temp),20) ; + unilne(p_t,(0,0),(w,h),1,1,30) ; +endchar; + +beginchar("'",2P_T#,l_h#,0) ; "The apostrophe (')" ; + uniend(w/2,(w/2,h-w/2),0,180,10) ; + z1 = (0,h-w/2) ; z2 = (w,h-w/2) ; z3 = (0,h-3w/2) ; + fill z1--z2--z3--cycle ; penlabels(1,2,3) ; +endchar; + +beginchar("*",x_w#,l_h#,0) ; "The ast (*)" ; + path rect ; + temp := h-(w*sind(60)-p_t*cosd(60))/2 ; + pickup unipensqu ; + lft z1 = (0,temp) ; rt z2 = (w,temp) ; draw z1--z2 ; + rect = (bot lft z1)--(top lft z1)--(top rt z2)--(bot rt z2)--cycle ; + fill rect rotatedabout((w/2,temp),60) ; + fill rect rotatedabout((w/2,temp),120) ; + penlabels(1,2) ; +endchar; + +beginchar("+",x_w#,x_h#,0) ; "The plus sign (+)" ; + pickup unipensqu ; + lft z1 = (0,w/2) ; rt z2 = (w,w/2) ; draw z1--z2 ; + bot z3 = (w/2,0) ; top z4 = (w/2,w) ; draw z3--z4 ; +endchar; + +beginchar(",",2P_T#,2P_T#,2P_T#) ; "The punctuation ," ; + uniend(w/2,(w/2,0),0,180,10) ; + z1 = (0,0) ; z2 = (w,0) ; z3 = (0,-d) ; + fill z1--z2--z3--cycle ; penlabels(1,2,3) ; +endchar; + +beginchar("-",4x_w#/5,x_h#,0) ; "The hyphen (-)" ; + pickup unipensqu ; + lft z1 = (0,h/2) ; rt z2 = (w,h/2) ; draw z1--z2 ; + penlabels(1,2); +endchar; + +beginchar(".",2P_T#,2P_T#,0) ; "The punctuation ." ; + uniend(w/2,(w/2,h/2),0,360,10) ; +endchar; + +beginchar("/",x_w#,l_h#,0) ; "The slash (/)" ; + unilne(p_t,(0,0),(w,h),1,1,10) ; +endchar; + +beginchar(":",2P_T#,x_h#,0) ; "The punctuation :" ; + uniend(w/2,(w/2,h-w/2),0,360,10) ; + uniend(w/2,(w/2,w/2),0,360,20) ; +endchar; + +beginchar(";",2P_T#,x_h#,2P_T#) ; "The punctuation ;" ; + uniend(w/2,(w/2,h-w/2),0,360,10) ; + uniend(w/2,(w/2,0),0,180,20) ; + z2 = (0,0) ; z3 = (w,0) ; z4 = (0,-d) ; fill z2--z3--z4--cycle ; + penlabels(1,2,3,4) ; +endchar; + +beginchar("=",x_w#,x_h#,0) ; "The equal sign (=)" ; + pickup unipensqu ; + top lft z1 = (0,(h-p_t)/2) ; top rt z2 = (w,(h-p_t)/2) ; + bot lft z3 = (0,(h+p_t)/2) ; bot rt z4 = (w,(h+p_t)/2) ; + draw z1--z2 ; draw z3--z4 ; + penlabels(1,2,3,4) ; +endchar; + +beginchar("@",l_h#,l_h#,0) ; "The at sign (@)" ; + uniarc(w/2,p_t,(w/2,h/2),0,240,10) ; + unicir(w/3,p_t,(2w/3,w/3),20) ; + pickup unipensqu ; + top rt z1 = (w,w/2) ; bot rt z2 = (w,0) ; draw z1--z2 ; + penlabels(1,2) ; +endchar; + +beginchar("[",3p_t#,l_h#,p_d#) ; "The left bracket ([)" ; + uniend(p_t,(p_t,h-p_t),90,180,10) ; + uniend(p_t,(p_t,-d+p_t),180,270,20) ; + pickup unipensqu ; + top lft z1 = (p_t,h) ; top rt z2 = (w,h) ; draw z1--z2 ; + top lft z3 = (0,h-p_t) ; bot lft z4 = (0,-d+p_t) ; draw z3--z4 ; + bot lft z5 = (p_t,-d) ; bot rt z6 = (w,-d) ; draw z5--z6 ; + penlabels(range 1 thru 6) ; +endchar; + +beginchar("]",3p_t#,l_h#,p_d#) ; "The right braket (])" ; + uniend(p_t,(w-p_t,h-p_t),0,90,10) ; + uniend(p_t,(w-p_t,-d+p_t),270,360,20) ; + pickup unipensqu ; + top lft z1 = (0,h) ; top rt z2 = (w-p_t,h) ; draw z1--z2 ; + top rt z3 = (w,h-p_t) ; bot rt z4 = (w,-d+p_t) ; draw z3--z4 ; + bot lft z5 = (0,-d) ; bot rt z6 = (w-p_t,-d) ; draw z5--z6 ; + penlabels(range 1 thru 6) ; +endchar; + +beginchar("`",2P_T#,l_h#,0) ; "The reversed apostroph (`)" ; + uniend(w/2,(w/2,h-w),180,360,10) ; + z1 = (0,h) ; z2 = (0,h-w) ; z3 = (w,h-w) ; fill z1--z2--z3--cycle ; + penlabels(1,2,3) ; +endchar; + +beginchar(hex"7B",m_w#,x_h#,0) ; "The en-dash (--)" ; + pickup unipensqu ; + lft z1 = (0,h/2) ; rt z2 = (w,h/2) ; draw z1--z2 ; + penlabels(1,2) ; +endchar; + +beginchar(hex"7C",M_w#,x_h#,0) ; "The em-dash (---)" ; + pickup unipensqu ; + lft z1 = (0,h/2) ; rt z2 = (w,h/2) ; draw z1--z2 ; + penlabels(1,2) ; +endchar; + +\endinput +%% +%% End of file `unipun.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/unispe.mf b/Master/texmf-dist/fonts/source/public/universa/unispe.mf new file mode 100644 index 00000000000..8f728daa191 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/unispe.mf @@ -0,0 +1,82 @@ +%% +%% This is file `unispe.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `spe') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +beginchar(hex"10",p_t#,x_h#,0) ; "The dotless letter i" ; + pickup unipensqu ; + bot lft z1 = (0,0) ; top lft z2 = (0,h) ; draw z1--z2; + penlabels(1,2); +endchar; + +beginchar(hex"11",p_t#,x_h#,p_d#) ; "The dotless letter j" ; + pickup unipensqu ; + bot lft z1 = (0,-d) ; top lft z2 = (0,h) ; draw z1--z2 ; + penlabels(1,2); +endchar; + +beginchar("$",(l_h#-c_d#+p_t#)/2,l_h#,c_d#) ; "The dollar sign ($)" ; + uniarc(w/2,p_t,(w/2,w/2),180,450,10) ; + uniarc(w/2,p_t,(w/2,h-c_d-w/2),0,270,20) ; + pickup unipensqu ; + top z1 = (w/2,h) ; bot z2 = (w/2,-d) ; draw z1--z2 ; + penlabels(1,2) ; +endchar; + +beginchar("&",(l_h#+p_t#)/2+c_d#,l_h#,c_d#) ; "The ampersand (&)" ; + rad := (w-c_d)/2 ; + unicir(rad,p_t,(rad,h-rad),10) ; + uniarc(rad,p_t,(rad,rad),0,270,20) ; + pickup unipensqu ; + lft bot z1 = (rad,0) ; rt bot z2 = (w,0) ; draw z1--z2 ; + rt top z3 = (w-c_d,rad) ; rt bot z4 = (w-c_d,-d) ; draw z3--z4 ; + penlabels(1,2,3,4) ; +endchar; + +beginchar("?",l_h#-5c_d#/2,l_h#,0) ; "The question mark (?)" ; + temp := angle((P_T,-w/2)) - 0.01 ; + uniarc(w/2,P_T,(w/2,h-w/2),temp,180,10) ; + uniend(P_T,((w+P_T)/2,h-w),90,180,20) ; + uniend(P_T,((w+P_T)/2,h-w+P_T),270,360+temp,30) ; + pickup UniPensqu ; + top z1 = (w/2,h-w) ; bot z2 = (w/2,2P_T) ; draw z1--z2 ; + pickup UniPencir ; + bot z3 = (w/2,0) ; drawdot z3 ; + penlabels(1,2,3) ; +endchar; + +beginchar(spanish_query,l_h#-5c_d#/2,x_h#,p_d#) ; "The Spanish query" ; + temp := angle((-P_T,w/2))-0.01 ; + uniarc(w/2,P_T,(w/2,-d+w/2),temp,360,10) ; + uniend(P_T,((w-P_T)/2,-d+w),270,360,20) ; + uniend(P_T,((w-P_T)/2,-d+w-P_T),90,temp,30) ; + pickup UniPensqu ; + bot z1 = (w/2,-d+w) ; top z2 = (w/2,h-2P_T) ; draw z1--z2 ; + pickup UniPencir ; + top z3 = (w/2,h) ; drawdot z3 ; + penlabels(1,2,3) ; +endchar; + +beginchar(spanish_shriek,P_T#,x_h#,p_d#) ; "The Spanish shriek" ; + pickup UniPencir ; top z1 = (w/2,h) ; drawdot z1 ; + pickup UniPensqu ; top z2 = (w/2,h-2P_T) ; bot z3 = (w/2,-d) ; + draw z2--z3 ; penlabels(1,2,3) ; +endchar; + +\endinput +%% +%% End of file `unispe.mf'. diff --git a/Master/texmf-dist/fonts/source/public/universa/uniupp.mf b/Master/texmf-dist/fonts/source/public/universa/uniupp.mf new file mode 100644 index 00000000000..2890fa5557c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/universa/uniupp.mf @@ -0,0 +1,264 @@ +%% +%% This is file `uniupp.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% uni.dtx (with options: `upp') +%% +%% Copyright (C) 1998 Christian Holm. +%% +%% 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. +%% +%% See the file uni.dtx for further comments and documentation. +%% + + +if not strict : + + beginchar("A",A_w#,l_h#,0); "The letter A"; + uniarc(w/2,P_t,(w/2,h-w/2),0,180,10); + pickup Unipensqu ; + top lft z1 = (0,h-w/2) ; bot lft z2 = (0,0) ; draw z1--z2 ; + top rt z3 = (w,h-w/2) ; bot rt z4 = (w,0) ; draw z3--z4 ; + lft z5 = (0,h/2) ; rt z6 = (w,h/2) ; draw z5--z6 ; + penlabels(1,2,3,4,5,6); + endchar; + + beginchar("B",A_w#,l_h#,0) ; "The letter B" ; + rad := 1/4(h+P_t) ; + uniarc(rad,P_t,(w-rad,h-rad),-90,90,10) ; + uniarc(rad,P_t,(w-rad,rad),-90,90,20) ; + uniend(P_t,(P_t,h-P_t),90,180,30) ; + uniend(P_t,(P_t,P_t),180,270,40) ; + pickup Unipensqu ; + top lft z1 = (0,h-P_t) ; bot lft z2 = (0,P_t) ; draw z1--z2 ; + top lft z3 = (P_t,h) ; top rt z4 = (w-rad,h) ; draw z3--z4 ; + lft z5 = (P_t,h/2) ; rt z6 = (w-rad,1/2h) ; draw z5--z6 ; + bot lft z7 = (P_t,0) ; bot rt z8 = (w-rad,0) ; draw z7--z8 ; + penlabels(range 1 thru 8); + endchar; + + beginchar("C",l_h#*(1+cosd(30))/2,l_h#,0); "The letter C"; + uniarc(h/2,P_t,(h/2,h/2),30,330,10); + endchar; + + beginchar("D",A_w#,l_h#,0); "The letter D"; + uniarc(1/2h,P_t,(w-1/2h,1/2h),-90,90,10); + uniend(P_t,(P_t,h-P_t),90,180,20); + uniend(P_t,(P_t,P_t),180,270,30); + pickup Unipensqu ; + top lft z1 = (0,h-P_t) ; bot lft z2 = (0,P_t) ; draw z1--z2 ; + top lft z3 = (P_t,h) ; top rt z4 = (w-1/2h,h) ; draw z3--z4 ; + bot lft z5 = (P_t,0) ; bot rt z6 = (w-1/2h,0) ; draw z5--z6 ; + penlabels(1,2) ; + endchar; + + beginchar("E",A_w#,l_h#,0); "The letter E" ; + uniend(P_t,(P_t,h-P_t),90,180,10); + uniend(P_t,(P_t,P_t),180,270,20); + pickup Unipensqu ; + lft top z1 = (P_t,h) ; rt top z2 = (w,h) ; draw z1--z2 ; + lft z3 = (P_t,h/2) ; rt z4 = (w,h/2) ; draw z3--z4 ; + lft bot z5 = (P_t,0) ; rt bot z6 = (w,0) ; draw z5--z6 ; + lft top z7 = (0,h-P_t) ; lft bot z8 = (0,P_t) ; draw z7--z8 ; + penlabels(range 1 thru 8) ; + endchar; + + beginchar("F",A_w#,l_h#,0); "The letter F" ; + uniend(P_t,(P_t,h-P_t),90,180,10); + pickup Unipensqu ; + lft top z1 = (P_t,h) ; rt top z2 = (w,h) ; draw z1--z2 ; + lft z3 = (P_t,h/2) ; rt z4 = (w,h/2) ; draw z3--z4 ; + lft top z5 = (0,h-P_t) ; lft bot z6 = (0,0) ; draw z5--z6 ; + penlabels(range 1 thru 8); + endchar; + + beginchar("G",l_h#,l_h#,0); "The letter G" ; + uniarc(w/2,P_t,(w/2,h/2),30,360,10) ; + pickup Unipensqu ; + top rt z1 = (w,h/2) ; bot rt z2 = (w,0) ; + draw z1--z2; + penlabels(1,2); + endchar; + + beginchar("H",A_w#,l_h#,0); "The letter H" ; + pickup Unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,0) ; draw z1--z2 ; + top rt z3 = (w,h) ; bot rt z4 = (w,0) ; draw z3--z4 ; + lft z5 = (0,h/2) ; rt z6 = (w,h/2) ; draw z5--z6 ; + penlabels(1,2,3,4,5,6); + endchar; + + beginchar("I",P_t#,l_h#,0); "The letter I" ; + pickup Unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,0) ; draw z1--z2 ; + penlabels(1,2); + endchar; + + beginchar("J",P_t#+2C_d#,l_h#,0); "The letter J"; + uniend(P_t,(w-P_t,P_t),270,360,10); + pickup Unipensqu ; + lft bot z1 = (0,0) ; rt bot z2 = (w-P_t,0) ; draw z1--z2 ; + rt bot z3 = (w,P_t) ; rt top z4 = (w,h) ; draw z3--z4 ; + penlabels(1,2,3,4); + endchar; + + beginchar("K",(l_h#+3P_t#)/2,l_h#,0) ; "The letter K" ; + uniarc((h+P_t)/2,P_t,(P_t,h),270,360,10) ; + uniarc((h+P_t)/2,P_t,(P_t,0),0,90,20) ; + pickup Unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,0) ; draw z1--z2 ; + penlabels(1,2); + endchar; + + beginchar("L",P_t#+2C_d#,l_h#,0) ; "The letter L" ; + uniend(P_t,(P_t,P_t),180,270,10) ; + pickup Unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,P_t) ; draw z1--z2 ; + bot lft z3 = (P_t,0) ; bot rt z4 = (w,0) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar; + + beginchar("M",M_w#,l_h#,0) ; "The letter M" ; + temp := .25*(w+P_t); + uniarc(temp,P_t,(temp,h-temp),0,180,10) ; + uniarc(temp,P_t,(w-temp,h-temp),0,180,20) ; + pickup Unipensqu ; + top lft z1 = (0,h-temp) ; bot lft z2 = (0,0) ; draw z1--z2 ; + top z3 = (w/2,h-temp) ; bot z4 = (w/2,0) ; draw z3--z4 ; + top rt z5 = (w,h-temp) ; bot rt z6 = (w,0) ; draw z5--z6 ; + penlabels(1,2,3,4,5,6); + endchar; + + beginchar("N",A_w#,l_h#,0); "The letter N" ; + uniarc(w/2,P_t,(w/2,h-w/2),0,180,10) ; + pickup Unipensqu ; + top lft z1 = (0,h-w/2) ; bot lft z2 = (0,0); draw z1--z2 ; + top rt z3 = (w,h-w/2) ; bot rt z4 = (w,0) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar; + + beginchar("O",l_h#,l_h#,0) ; "The letter O"; + unicir(w/2,P_t,(w/2,h/2),10); + endchar; + + beginchar("P",A_w#,l_h#,0) ; "The letter P"; + unicir(w/2,P_t,(w/2,h-w/2),10) + pickup Unipensqu ; + lft top z1 = (0,h-w/2) ; lft bot z2 = (0,0) ; draw z1--z2 ; + penlabels(1,2); + endchar; + + beginchar("Q",l_h#,l_h#,p_d#) ; "The letter Q"; + unicir(w/2,P_t,(w/2,w/2),10); + pickup Unipensqu ; + top z1 = (w/2,3P_t) ; bot z2 = (w/2,-d) ; draw z1--z2 ; + penlabels(1,2); + endchar; + + beginchar("R",A_w#,l_h#,0) ; "The letter R"; + unicir(w/2,P_t,(w/2,h-w/2),10) ; + rad := h-w+P_t ; + uniarc(rad,P_t,(w-rad,0),0,90,20) ; + pickup Unipensqu ; + lft top z1 = (0,h-w/2) ; bot lft z2 = (0,0) ; draw z1--z2 ; + temp := w/2-rad ; + if temp>0 : + pickup pensquare xscaled temp yscaled P_t ; + lft top z3 = (1/2w,rad) ; drawdot z3 ; + fi; + penlabels(1,2,3) ; + endchar; + + beginchar("S",A_w#,l_h#,0) ; "The letter S" ; + temp := (h+P_t)/4 ; + uniarc(temp,P_t,(temp,temp),180,270,10) ; + uniarc(temp,P_t,(w-temp,temp),270,450,20) ; + uniarc(temp,P_t,(temp,h-temp),90,270,30) ; + uniarc(temp,P_t,(w-temp,h-temp),0,90,40) ; + pickup Unipensqu ; + bot lft z1 = (temp,0) ; bot rt z2 = (w-temp,0) ; draw z1--z2 ; + lft z3 = (temp,h/2) ; rt z4 = (w-temp,h/2) ; draw z3--z4 ; + top lft z5 = (temp,h) ; top rt z6 = (w-temp,h) ; draw z5--z6 ; + penlabels(1,2,3,4,5,6) ; + endchar; + + beginchar("T",A_w#,l_h#,0); "The letter T" ; + pickup Unipensqu ; + top z1 = (w/2,h) ; bot z2 = (w/2,0) ; draw z1--z2 ; + top lft z3 = (0,h) ; top rt z4 = (w,h) ; draw z3--z4 ; + penlabels(1,2,3,4); + endchar; + + beginchar("U",A_w#,l_h#,0); "The letter U" ; + uniarc(w/2,P_t,(w/2,w/2),180,360,10) ; + pickup Unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,w/2) ; draw z1--z2 ; + top rt z3 = (w,h) ; bot rt z4 = (w,w/2) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar; + + beginchar("V",A_w#,l_h#,0); "The letter V" ; + unilne(P_t,(0,h),(w/2,P_t),1,1,10); + unilne(P_t,(w/2,P_t),(w,h),1,1,20); + uniarc(P_t,P_t,(w/2,P_t),180,360,30); + endchar; + + beginchar("W",M_w#,l_h#,0) ; "The letter W" ; + temp := .25*(w+P_t); + uniarc(temp,P_t,(temp,temp),180,360,10) ; + uniarc(temp,P_t,(w-temp,temp),180,360,20) ; + pickup Unipensqu ; + top lft z1 = (0,h) ; bot lft z2 = (0,temp) ; draw z1--z2 ; + top z3 = (w/2,h) ; bot z4 = (w/2,temp) ; draw z3--z4 ; + top rt z5 = (w,h) ; bot rt z6 = (w,temp) ; draw z5--z6 ; + penlabels(1,2,3,4,5,6); + endchar; + + beginchar("X",l_h#,l_h#,0) ; "The letter X" ; + uniarc(h/2,P_t,(P_t/2,h/2),270,90,10); + uniarc(h/2,P_t,(w-P_t/2,h/2),90,270,20); + temp := (h-w+P_t)/2 ; + pickup pensquare xscaled temp yscaled P_t slanted slantratio ; + lft top z1 = (0,h) ; draw z1 ; + lft bot z2 = (0,0) ; draw z2 ; + rt top z3 = (w,h) ; draw z3 ; + rt bot z4 = (w,0) ; draw z4 ; + penlabels(1,2,3,4); + endchar; + + beginchar("Y",A_w#,l_h#,0); "The letter Y" ; + uniarc(w/2,P_t,(w/2,h-P_t),180,360,10) ; + pickup Unipensqu ; + top lft z1 = (0,h) ; drawdot z1 ; + top rt z2 = (w,h) ; drawdot z2 ; + top z3 = (w/2,h-w/2) ; bot z4 = (w/2,0) ; draw z3--z4 ; + penlabels(1,2,3,4) ; + endchar; + + beginchar("Z",A_w#,l_h#,0) ; "The letter Z" ; + pickup Unipensqu ; + top lft z1 = (0,h) ; top rt z2 = (w-P_t,h) ; draw z1--z2 ; + bot lft z3 = (P_t,0) ; bot rt z4 = (w,0) ; draw z3--z4 ; + phi := angle((w,h-P_t)-(0,P_t)) ; + z5 = (P_t,P_t) ; z6 = z5 + P_t*(-sind(phi),cosd(phi)) ; + z7 = (w-P_t,h-P_t) ; z8 = z7 + P_t*(sind(phi),-cosd(phi)) ; + uniend(P_t,z5,90+phi,270,10); + uniend(P_t,z7,-90+phi,90,20); + fill z5--z6--z7--z8--cycle ; + penlabels(range 1 thru 8); + endchar; + +else : + code_offset := ASCII"A" - ASCII"a" ; + input unilow ; + code_offset := 0 ; +fi ; + +\endinput +%% +%% End of file `uniupp.mf'. |