summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/universa/unilow.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/universa/unilow.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/universa/unilow.mf247
1 files changed, 247 insertions, 0 deletions
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'.
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-08 15:57:30 +0000