summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/universa/uniupp.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/universa/uniupp.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/universa/uniupp.mf264
1 files changed, 264 insertions, 0 deletions
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'.