%% %% This is file `uniupp.mf', %% generated with the docstrip utility. %% %% The original source files were: %% %% universa.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 universa.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'.