summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/universa/uniacc.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/universa/uniacc.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/universa/uniacc.mf109
1 files changed, 109 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/universa/uniacc.mf b/Master/texmf-dist/fonts/source/public/universa/uniacc.mf
new file mode 100644
index 00000000000..4dd4b8a73a6
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/universa/uniacc.mf
@@ -0,0 +1,109 @@
+%%
+%% This is file `uniacc.mf',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% uni.dtx (with options: `acc')
+%%
+%% 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"12",x_w#,l_h#,0) ; "The accent `" ;
+ uniend(P_T/2,(w/2,a_h+P_T/2),90,270,10) ;
+ z1 = (w/2,a_h+P_T) ; z2 = (w/2,a_h) ; z3 = (w/2+P_T,a_h) ;
+ fill z1--z2--z3--cycle ; penlabels(1,2,3) ;
+endchar ;
+
+beginchar(hex"13",x_w#,l_h#,0) ; "The accent '" ;
+ uniend(P_T/2,(w/2,a_h+P_T/2),-90,90,10) ;
+ z1 = (w/2,a_h+P_T) ; z2 = (w/2,a_h) ; z3 = (w/2-P_T,a_h) ;
+ fill z1--z2--z3--cycle ; penlabels(1,2,3) ;
+endchar ;
+
+beginchar(hex"14",x_w#,l_h#,0) ; "The accent hachek" ;
+ z1 = (w/2,a_h+p_t) ; uniend(p_t,z1,225,315,10) ;
+ z2 = z1 + p_t*(-1,-1)/sqrt(2) ; z3 = z1 + p_t*(-1,1) ;
+ z4 = z3 + (-p_t*sqrt(2),0) ; path rombe ;
+ rombe := z1--z2--z4--z3--cycle ; fill rombe ;
+ fill rombe reflectedabout ((w/2,0),(w/2,h)) ;
+ penlabels(1,2,3,4) ;
+endchar ;
+
+beginchar(hex"15",x_w#,l_h#,0) ; "The accent breve" ;
+ rad := 3p_t/2 ; uniarc(rad,p_t,(w/2,a_h+rad),180,360,10) ;
+endchar ;
+
+beginchar(hex"16",x_w#,a_h#+p_t#,0) ; "The accent macron (bar)" ;
+ pickup unipensqu ;
+ bot lft z1 = (w/2-2p_t,a_h) ; bot rt z2 = (w/2+2p_t,a_h) ;
+ draw z1--z2 ; penlabels(1,2) ;
+endchar ;
+
+beginchar(hex"17",A_w#+4/3*(l_h#-x_h#)*slantratio,l_h#,0) ;
+ "The accent circle" ;
+ rad := P_T ; unicir(rad,p_t,(w/2,h-rad),10) ;
+endchar ;
+
+beginchar(hex"18",x_w#,x_h#,2c_d#) ; "The accent cidelia" ;
+ uniarc(d/2,2P_T/3,(w/2+d/4,-d/2),90,270,10) ;
+endchar ;
+
+phi := 15 ; tmp# := 3c_d# ; define_pixels(tmp) ;
+beginchar(hex"20",tmp#*cosd(phi)+p_t#*sind(phi),l_h#,0) ;
+ "The accent bar over l" ;
+ z1 = (0,(h+p_t*cosd(phi)-tmp*sind(phi))/2) ;
+ z2 = (p_t*sind(phi),(h-p_t*cosd(phi)-tmp*sind(phi))/2) ;
+ z3 = (w,(h-p_t*cosd(phi)+tmp*sind(phi))/2) ;
+ z4 = (w-p_t*sind(phi),(h+p_t*cosd(phi)+tmp*sind(phi))/2) ;
+ fill z1--z2--z3--z4--cycle ;
+ penlabels(1,2,3,4) ;
+endchar ;
+
+beginchar(hex"5E",x_w#,l_h#,0) ; "The accent hat" ;
+ z1 = (w/2,a_h+p_t) ; uniend(p_t,z1,45,136,10) ;
+ z2 = z1 + p_t*(-1,1)/sqrt(2) ; z3 = z1 + p_t*(-1,-1) ;
+ z4 = z3 + (-p_t*sqrt(2),0) ; path rombe ;
+ rombe := z1--z2--z4--z3--cycle ; fill rombe ;
+ fill rombe reflectedabout ((w/2,0),(w/2,h)) ;
+ penlabels(1,2,3,4) ;
+endchar ;
+
+beginchar(hex"5F",x_w#,l_h#,0) ; "The accent dot" ;
+ pickup UniPencir ; bot z1 = (w/2,a_h) ; drawdot z1 ; penlabels(1) ;
+endchar ;
+
+beginchar(hex"7D",x_w#,l_h#,0) ; "The accent ''" ;
+ rad := P_T/2 ;
+ uniend(rad,(w/2-rad,a_h+rad),-90,90,10) ;
+ uniend(rad,(w/2+P_T,a_h+rad),-90,90,20) ;
+ z1 = (w/2-rad-P_T,a_h) ; z2 = (w/2-rad,a_h) ;
+ z3 = (w/2-rad,a_h+P_T) ; fill z1--z2--z3--cycle ;
+ z4 = (w/2,a_h) ; z5 = (w/2+P_T,a_h) ;
+ z6 = (w/2+P_T,a_h+P_T) ; fill z4--z5--z6--cycle ;
+ penlabels(range 1 thru 6) ;
+endchar ;
+
+beginchar(hex"7E",x_w#,l_h#,0) ; "The accent ~" ;
+ rad := (w*sqrt(2)+p_t)/4 ; temp := (2w-p_t*sqrt(2))/8 ;
+ uniarc(rad,p_t,(w/2+temp,a_h+rad),225,315,10) ;
+ uniarc(rad,p_t,(w/2-temp,a_h+rad-2temp),45,135,20) ;
+endchar ;
+
+beginchar(hex"7F",x_w#,l_h#,0) ; "The accent umlout (double dot)" ;
+ pickup UniPencir ;
+ bot z1 = (w/2-P_T,a_h) ; bot z2 = (w/2+P_T,a_h) ;
+ drawdot z1 ; drawdot z2 ; penlabels(1,2) ;
+endchar ;
+
+\endinput
+%%
+%% End of file `uniacc.mf'.