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/unidig.mf | |
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/unidig.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/universa/unidig.mf | 119 |
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'. |