summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/universa/unidig.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 23:38:21 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 23:38:21 +0000
commit215012a8d684889983ec2c0629e1c704e6853d9c (patch)
treeebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/universa/unidig.mf
parent1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (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/unidig.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/universa/unidig.mf119
1 files changed, 119 insertions, 0 deletions
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'.