%***************************************************************************** % Copyright (c) 1989 by N. N. Billawala %***************************************************************************** % widths.mf a file containing width calculation information for the chars % Essentially all width information is contained in this file to eliminate % the need to alter the individual character files if width changes are desired. % Parts of characters are separated so that amounts can be altered as shapes % change for the lowercase, the stems are all generally of the same weight, % with possible variation in diagonals. % The uppercase has more variation in combination of thin/thick vertical % stems, so the method for choosing widths was changed to depend on % stem weights and an idea of proportions % Fixed width characters and numbers have a constant total width, % but reference and fitting proportions vary within this space % Punctuation was partly based on uc/lc widths, but otherwise % independent amounts given. vardef variable_character_reference_widths= save thick,thin,thickk,thinn,bowll; thick=stem.uc#/max(width#,1); uc:=.35*boldness; uc1=.35*boldness; uc4=.35; % always=.35; uc2:=1+if boldness<1:.25 else:0 fi; % uc2 for diagonals thin=thin_stem.uc#/max(width#,1); lc.arch_space:=.21*boldness; thickk=stem.lc#/max(width#,1); lc.bowl_space:=.24*boldness; thinn=thin_stem.lc#/max(width#,1); lc.o_space:=.27*boldness; bowll=bowlstem.lc#/max(width#,1); lc.diagonal_space:=.3*boldness; i_w=thickk; % i l the "_w" is for "width" j_w=thickk+.55*lc.arch_space; % j s_w=uc2*(thickk+lc.o_space); % s t z *** c_w=uc2*(bowll+lc.o_space); % c *** a_w=thickk+bowll+lc.arch_space; % a(halfbowl) b_w=thickk+bowll+lc.bowl_space; % b a d e g p q k ss-lig r_w=2thickk+.5*lc.arch_space; % r f n_w=2thickk+lc.arch_space; % n h u m_w=3thickk+2*lc.arch_space; % m o_w=2bowll+lc.bowl_space; % g(halfbowl) oo_w=2bowll+lc.o_space; % o v_w=(uc2)*(thickk+thinn)+lc.diagonal_space; % v x y *** w_w=(uc2)*(thickk+thinn)+thickk+1.5lc.diagonal_space; % w *** oe_w=oo_w+o_w-bowll; % oe ae_w=2b_w-bowll; % ae accent_w=.8n_w; % accents I_w=thick; % I J_w=thick+.5uc; % J E_w=thick+.85uc4; % E F L GAMMA **** T_w=thick+1.25uc1; % T **** B_w=2thick+.75uc; % B P R_w=2thick+.85uc1; % R PI XI K ****SIGMA H_w=2thick+uc; % H C D_w=2thick+1.1uc; % D G O_w=2thick+1.25uc; % O Q DELTA THETA N_w=H_w; % N S_w=thick+thin+.75uc; % S Z **** U_w=thick+thin+uc; % U **** A_w=(uc2)*(thick+thin)+1.25uc1; % A V Y LAMBDA X **** M_w=(uc2)*2(thick+thin)+1.25uc; % M W_w=(uc2)*(2thick+thin)+1.5uc1; % W **** AE_w=E_w+2/3*A_w; % AEligature OE_w=E_w+O_w-thick; % OEligature v_a=.50; % for straight strokes the "v_" is for "variable" v_b=.42; % for arches v_c=.28; % for bowls v_d=.24; % for thick diagonals v_e=v_d-(thickk-thinn); % for thin diagonals v_f=.20; % for half open shapes v_g=.10; % for open strokes v_h=.08; % for open strokes v_A=.5; % for thick straight v_B=v_A-(thick-thin); % for thin straight v_C=.2; % for bowls v_D=.16; % for thick diagonals v_E=v_D-(thick-thin); % for thin diagonals v_F=.2; % for half open sides v_G=.16; % for half-very open sides v_H=.12; % for very open sides v_I=.1; % for the L enddef; variable_character_reference_widths; %***** for numbers ***** num_width_a#=.2width#; num_fit_a#+num_width_a#=.55width#; % 1 num_width_b#=.4width#; num_fit_b#+num_width_b#=.55width#; % 2 3 5 7 $ num_width_c#=.44width#; num_fit_c#+num_width_c#=.55width#; % 6 9 0 num_width_d#=.47width#; num_fit_d#+num_width_d#=.55width#; % 8 num_width_e#=.50width#; num_fit_e#+num_width_e#=.55width#; % 4 %***** for single pitch fonts ***** % *_*mono# gives the character reference width within the total per char width % *_mfit# is the amount of space left after the reference width is taken away % *_*mono#+*_mfit# give the total width of the character % In the case of single pitch fonts, the total width is always the same. % In cases where, e.g., three instead of only one width is desired, the % value of 1*mono# can be changed a_mono#:=.6mono#; a_mfit#+a_mono#=mono#; % fjrJ',.:; b_mono#:=.7mono#; b_mfit#+b_mono#=mono#; % "mid" width c_mono#:=.75mono#; c_mfit#+c_mono#=mono#; % abdgkpq069 d_mono#:=.8mono#; d_mfit#+d_mono#=mono#; % eotvxyz4689CDGKOQ%&*^ e_mono#:=.9mono#; e_mfit#+e_mono#=mono#; % AVXY4 f_mono#:=.9mono#; f_mfit#+f_mono#=mono#; % mwMW@ ae oe AE OE define_pixels(a_mono,b_mono,c_mono,d_mono,e_mono,f_mono, a_mfit,b_mfit,c_mfit,d_mfit,e_mfit,f_mfit); % The following give fit adjustments for single pitch characters m_a=.5; % this amt is always .5 m_b=.55; m_bb+m_b=1; % BDEFGKPR7 m_c=.55; m_cc+m_c=1; % abdghkmnpqu() m_d=.6; m_dd+m_d=1; % C m_e=.65; m_ee+m_e=1; % cflrt AE [] m_f=.75; m_ff+m_f=1; % JL %********** % need to account for serifs % recognizing that a straight ascender may carry different visual value as % straight of x-height %**********