diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/universa/unispe.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/universa/unispe.mf | 82 |
1 files changed, 82 insertions, 0 deletions
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'. |