%% This file is public domain. %% Originally written 1990, Alan Hoenig. %% Notice added by Clea F. Rees 2010/12/13 following correspondence between Alan Hoenig and Karl Berry. % Program files for formal Computer Duerer fonts. % Modified 24-July-1990 DAH: Split lines longer than 80 columns %% def checkthin= if thin-currentbreadth0; forsuffixes $$=l, r: x7$$:=x7$$-.1u; endfor x7:=x7-.1u; endfor x6r=x7r; x6l=x7l; bot y6r=ypart point t1 of p; bot y6l=ypart point t2 of p'; z6=.5[z6r,z6l]; p:= subpath(0,t1) of p..(z6r-xeps+yeps)--(z6l+xeps+yeps).. subpath(t2,infinity) of p'..(z1l+xeps)--cycle; filldraw p; filldraw z6l--z7l--z7r--z6r--cycle; if serifs: serif(7,6,a,serif_darkness,-cap_jut); serif(7,6,b,serif_darkness, cap_jut); fi penlabels(0,1,2,3,4,5,6,7); endchar; cmchar "The letter H"; beginchar("H", u#+2cap_jut#+.8side#, cap_height#,0); adjust_fit(cap_serif_fit#, cap_serif_fit#); pickup tiny.nib; forsuffixes t=1,2,3,4: pos.t(thick,0); endfor lft x1l=lft x2l=.5u+cap_jut; bot y2=0; top y1=h; filldraw stroke z1e--z2e; % left vertical stem x3=x4=w-x1; y3=y1; y4=y2; filldraw stroke z3e--z4e; % right vertical stem pos5(thin, 90); pos6(thin,90); x5=.5[x1r,x1l]; x6=w-x5; top y5r=top y6r=h/2; filldraw stroke z5e--z6e; % horizontal crossbar if serifs: serif(1,2,a,serif_darkness,-cap_jut); serif(1,2,b,serif_darkness,cap_jut); serif(2,1,c,serif_darkness,-cap_jut); serif(2,1,d,serif_darkness,cap_jut); serif(3,4,e,serif_darkness,-cap_jut); serif(3,4,f,serif_darkness,cap_jut); serif(4,3,g,serif_darkness,-cap_jut); serif(4,3,h,serif_darkness,cap_jut); fi labels(1,2,3,4,5,6); endchar; cmchar "The letter I"; beginchar("I", .5u#+2cap_jut#+cap_stem#+.5u#, cap_height#,0); adjust_fit(cap_serif_fit#, cap_serif_fit#); pickup tiny.nib; checkthin; pos1(cap_stem,0); pos2(cap_stem,0); x1=x2=hround(w/2); top y1=h; bot y2=0; filldraw stroke z1e--z2e; % vertical stem if serifs: serif(1, 2, a, serif_darkness, -cap_jut); serif(1, 2, b, serif_darkness, cap_jut); % top lft,rt serif(2, 1, c, serif_darkness, -cap_jut); serif(2, 1, d, serif_darkness, cap_jut); % bot lft,rt fi penlabels(1, 2); endchar; cmchar "The letter J"; beginchar("J",u#+3thick#+cap_jut#,cap_height#, 1/4 cap_height#); adjust_fit(0, cap_serif_fit#); pickup tiny.nib; pos1(thick,0); pos2(thick,0); pos3(thin, -90); top y1=h; rt x1r=w-.5u-cap_jut; x2=x1; bot y2=0; lft x3=.5u; bot y3r=-d; filldraw stroke z1e--z2e{down}..{left}z3e; if serifs: serif(1,2,a,serif_darkness,-cap_jut); serif(1,2,b,serif_darkness,cap_jut); fi penlabels(1,2,3); endchar; cmchar "The letter K"; beginchar("K", 3/2u#+cap_jut#+.9side#, cap_height#,0); adjust_fit(cap_serif_fit#,0); pickup tiny.nib; pair durer[]; % represent D\"urer's corner points durer1=(.5u,h); durer2=(w-u,h); durer3=(xpart durer1,0); durer4=(xpart durer2,0); numeric diag_angle[]; diag_angle1=angle(durer2-durer3); diag_angle2=angle(durer1-durer4); numeric alpha; alpha=((xpart durer2 - xpart durer1)++h)/h; pos1(thick,0); pos2(thick,0); lft x1l=lft x2l=.5u+cap_jut; top y1=h; bot y2=0; filldraw stroke z1e--z2e; % left stem pos3(alpha*thin,0); pos4(alpha*thin,0); rt x4r=rt x1r; y4=h/2; top y3=h; z3r-z4r=whatever*(durer2-durer3); z0=whatever[z1r,z2r]=whatever[z3l,z4l]; filldraw z0--z3l--z3r--z4r--cycle; % upper diagonal stroke pos5(thick,diag_angle1); z5=whatever[z3,z4]; z0-z5l=whatever*(durer1-durer4); numeric nibs; nibs=.5thin; if monospace or not serifs: nibs:=thin; fi pos6(nibs,90); bot rt z6l=durer4; z5l-z7l=whatever*(durer1-durer4); z.g=(xpart durer2-thin,h/2); z.g-z7l=whatever*(durer2-durer3); z.h=(xpart durer2, h/4); if monospace or not serifs: z.g else: z.h fi-z7r=whatever*(durer2-durer3); z5r-z7r=whatever*(durer1-durer4); if serifs or not monospace: % reset x7 if necessary if (x7r-x1l)/(x6-x1l)>.82: numeric temp; temp=x7r; x7r:=.82*(x6-x1l)+x1l; temp:=temp-x7r; x7l:=x7l-temp; fi fi %!!!Bug--Missing fi on this line. filldraw z5r--z5l--z7l{z7l-z5l}..{right}z6l--z6r{left}..{durer1-durer4}z7r --cycle; if serifs: numeric old_jut, old_brack; old_jut=cap_jut; old_brack=bracket; serif(1,2,a,serif_darkness,-cap_jut); serif(1,2,b,serif_darkness,cap_jut); serif(2,1,c,serif_darkness,-cap_jut); serif(2,1,d,serif_darkness,cap_jut); bracket:=.5old_brack;cap_jut:=.5old_jut; if not monospace: serif(3,4,e,serif_darkness,-cap_jut); fi bracket:=2old_brack; cap_jut:=2old_jut; serif(3,4,f,.6serif_darkness,if monospace:.7 fi cap_jut); cap_jut:=old_jut; bracket:=old_brack; fi penlabels(0,1,2,3,4,5,6,7); endchar; cmchar "The letter L"; numeric topbar_; if monospace: topbar_=11/15; else: topbar_=17/30; fi % Duerer's wierd value beginchar("L", hstretch*(topbar_+1/6)*side#+u#, cap_height#,0); adjust_fit(cap_serif_fit#,0); pickup tiny.nib; pos1(cap_stem,0); pos2(cap_stem,0); lft x1l=lft x2l=.5u+cap_jut; top y1=h; bot y2=0; filldraw stroke z1e--z2e; % stem pickup crisp.nib; % prepare for arms and serifs pos3(thin,90); pos4(dslab,0); rt x4l=topbar_*side; bot y4=vround(h-vstretch*thick); pos8(thin,-90); pos9(dslab,0); x8=x2; bot y8r=0; rt x9r=hround(w-.5u); y9=y8r+thin+vstretch*1/6side; foot(8,9,g,serif_darkness,x9-x4-thick); % lower arm if serifs: serif(1,2,a,serif_darkness,-cap_jut); serif(2,1,b,serif_darkness,-cap_jut); serif(1,2,d,serif_darkness,cap_jut); if not monospace: temp_:=slab; slab:=thin; serif(2,1,c,serif_darkness,cap_jut); slab:=temp_; fi fi penlabels(0,1,2,3,4,5,6,7,8,9); endchar; % end of "L" cmchar"The letter M"; beginchar("M", u#+2cap_jut#+.8side#, cap_height#, 0); adjust_fit(cap_serif_fit#, cap_serif_fit#); pickup tiny.nib; pos1(thin,0); pos2(thin,0); lft x1l=lft x2l=.5u+cap_jut; top y1=h; bot y2=0; pos3(thick,0); pos4(thick,0); x3r=x4r=w-x1l; top y3=h; bot y4=0; filldraw stroke z1e--z2e; % left vertical stem filldraw stroke z3e--z4e; % right vertical stem numeric long, short, hypot, alpha; long=h-bracket; short=w/2-thin-cap_jut; hypot=long++short; alpha=hypot/long; pos5(alpha*thick,0); pos6(alpha*thick,0); z5l=z1l; bot lft z6l=(w/2-.5currentbreadth,if not monospace:0 else:h/3 fi); pos7(alpha*thin,0); pos8(alpha*thin,0); z6l=z7r; z8l=z3l; z0=whatever[z5r,z6r]=whatever[z7l,z8l]; filldraw z5r--z0--z8l--z8r--z6l--z5l--cycle; if serifs: serif(2,1,a,serif_darkness,-cap_jut); serif(1,2,b,serif_darkness,-cap_jut); % left serifs serif(3,4,c,serif_darkness, cap_jut); serif(4,3,d,serif_darkness, cap_jut); % right serifs serif(2,1,e,serif_darkness,cap_jut); serif(4,3,f,serif_darkness,-cap_jut); % lower, inner serifs fi penlabels(0,1,2,3,4,5,6,7,8); endchar; cmchar "The letter N"; beginchar("N", u#+2cap_jut#+.8side#, cap_height#,0); adjust_fit(cap_serif_fit#, cap_serif_fit#); pickup tiny.nib; numeric long, short, hypot, alpha; long=h; short=side-2cap_jut; hypot=long++short; alpha=hypot/long; pos1(thin,0); pos2(thin,0); lft x1l=lft x2l=.5u+cap_jut; top y1=h; bot y2=0; pos3(thin,0); pos4(thin,0); x3=x4; x3r=w-x1l; y3=y1; y4=y2-o; pos 5(alpha*thick,0); pos6(alpha*thick,0); z5r=z1r; z6l=z4r; z0=whatever[z1r,z2r]=whatever[z5l,z6l]; % under notch point z0'=whatever[z5r,z6r]=whatever[z3l,z4l]; filldraw z1r--z1l--z2l--z2r--z0--z6l--z3r--z3l--z0'--cycle; if serifs: serif(2,1,b,serif_darkness,-cap_jut); serif(2,1,c,serif_darkness,cap_jut); % bottom, left serifs serif(3,4,d,serif_darkness,-cap_jut);serif(3,4,e,serif_darkness,cap_jut); % top right serifs z.a=(x1l-1.5cap_jut,y1); pickup tiny.nib; filldraw z0{z0-z4r}..{left}(z.a-(0,eps))..z.a--z1r--cycle; fi penlabels(0,0',1,2,3,4,5,6); endchar; cmchar "The letter O"; beginchar("O", 2u#+side#, cap_height#, 0); adjust_fit(0,0); pair durer[]; x2r=u; x4r=w-u; y1r=h+o; y3r=-o; z0=(w/2,h/2); z0=.5[z5,z6]; numeric axis_angle; durer1=(x2r,y1r-o); durer2=(x4r, ypart durer1); durer3=(xpart durer1, y3r+o); durer4=(xpart durer2, ypart durer3); axis_angle=angle(durer2-durer3); z5-z6=(thick,0)rotated axis_angle; y2r=y6; y4r=y5; x1r=x5; x3r=x6; forsuffixes $=1,2,3,4: z$=.5[z$l,z$r]; endfor x1l=x3r; y1l-y6=y6-y3r; x5-x2l=x4r-x5; y2l=y4r; x3l=x1r; y1r-y5=y5-y3l; x4l-x6=x6-x2r; y4l=y2r; path p,p'; p=pulled_arc.r(1,2)&reverse pulled_arc.r(3,2)& pulled_arc.r(3,4)&reverse pulled_arc.r(1,4)&cycle; path anti_diag; anti_diag=z0--durer1; z21r=p intersectionpoint anti_diag; penpos21(thin, axis_angle+90); x43r=w-x21r; y43r=h-y21r; penpos43(thin, axis_angle+270); path diag; diag=z0--durer2; z41r=diag intersectionpoint p; penpos41(thick, axis_angle); x32r=w-x41r; y32r=h-y41r; penpos32(thick, axis_angle+180); if not monospace: p'= z1l{left}..z21l..z2l{down}..z32l.. z3l{right}..z43l.. z4l{up}..z41l..{left}cycle; else:p'=z1l..z21l..z32l..z3l..z43l..z41l..cycle; fi fill p; unfill p'; penlabels(0,1,2,3,4,5,6,21,32,43,41); endchar; cmchar "The letter P"; beginchar("P", 1.5u#+P_width#, cap_height#, 0); adjust_fit(cap_serif_fit#, 0); pickup tiny.nib; pos1(thick,0); pos2(thick,0); top lft z1l=(.5u+cap_jut,h); bot lft z2l=(.5u+cap_jut,0); filldraw stroke z1e--z2e; % vertical stem pos3(thin,90); pos4(thin,90); pos5(thick,0); pos6(if not monospace and serifs: .5thin else:thin fi,-90); top y3r=top y4r=h; x3=x1; x4=x1r+thick; filldraw stroke z3e--z4e; x6=x4; y6=hround h/2; rt x5r=hround(w-u); y5=.5[y4,y6]; y7=y6; if serifs: x7=.75[rt x1r, x6]; else: x7=x3; fi pos7(if not monospace and serifs:.5thin else:thin fi,-90); filldraw stroke pulled_super_arc.e(4,5,eta)&pulled_super_arc.e(5,6,eta) ..z7e; % lobe if serifs: serif(1,2,a,serif_darkness,-cap_jut); serif(2,1,b,serif_darkness,-cap_jut); serif(2,1,c,serif_darkness,cap_jut); fi penlabels(1,2,3,4,5,6,7); endchar; cmchar "The letter Q"; beginchar("Q", 2u#+side#, cap_height#, 0); adjust_fit(0,0); pair durer[]; x2r=u; x4r=w-u; y1r=h+o; y3r=-o; z0=(w/2,h/2); z0=.5[z5,z6]; numeric axis_angle; durer1=(x2r,y1r-o); durer2=(x4r, ypart durer1); durer3=(xpart durer1, y3r+o); durer4=(xpart durer2, ypart durer3); axis_angle=angle(durer2-durer3); z5-z6=(thick,0)rotated axis_angle; y2r=y6; y4r=y5; x1r=x5; x3r=x6; forsuffixes $=1,2,3,4: z$=.5[z$l,z$r]; endfor x1l=x3r; y1l-y6=y6-y3r; x5-x2l=x4r-x5; y2l=y4r; x3l=x1r; y1r-y5=y5-y3l; x4l-x6=x6-x2r; y4l=y2r; path p,p'; p=pulled_arc.r(1,2)&reverse pulled_arc.r(3,2)& pulled_arc.r(3,4)&reverse pulled_arc.r(1,4)&cycle; path anti_diag; anti_diag=z0--durer1; z21r=p intersectionpoint anti_diag; penpos21(thin, axis_angle+90); x43r=w-x21r; y43r=h-y21r; penpos43(thin, axis_angle+270); path diag; diag=z0--durer2; z41r=diag intersectionpoint p; penpos41(thick, axis_angle); x32r=w-x41r; y32r=h-y41r; penpos32(thick, axis_angle+180); if not monospace: p'= z1l{left}..z21l..z2l{down}..z32l.. z3l{right}..z43l.. z4l{up}..z41l..{left}cycle; else:p'=z1l..z21l..z32l..z3l..z43l..z41l..cycle; fi fill p; unfill p'; % now for the tail! numeric thick',thick''; thick'=(1-tail_corr)*thick; thick''=(1+tail_corr)*thick; numeric tail_slope; tail_slope=-20/36; % measured from D\"urer's figure z10r=p intersectionpoint (z0--(x4r,0)); z10l=p intersectionpoint (quartercircle rotated 180 scaled 2thick' shifted z10r); y12r-y10r=tail_slope*(x12r-x10r); x12r=4/3x4r; numeric tail_angle; tail_angle=angle(z10r-z12r)-90; penpos12(thick',tail_angle); penpos11(thick'', tail_angle); z11=(x4r,0); if not monospace: x14=19/8 x4r; y14=-3/8h; penpos14(max(2,eps),90); numeric tail_length; tail_length=x14-x10r; penpos13(max(2,tail_corr*thick),90); x13=x14-1/9tail_length; y13=(1+.25tail_corr)*y14; fi fill stroke z10.e..z11.e..z12.e if not monospace:..z13.e{right}..z14.e fi; penlabels(0,1,2,3,4,5,6,10,11,12,13,14,15); endchar; cmchar "The letter R"; beginchar("R", .5u#+max(cap_jut#+.9side#,1.5P_width#), cap_height#,0); adjust_fit(cap_serif_fit#,0); pickup tiny.nib; pos1(thick,0); pos2(thick,0); top lft z1l=(.5u+cap_jut,h); bot lft z2l=(.5u+cap_jut,0); filldraw stroke z1e--z2e; % vertical stem pos3(thin,90); pos4(thin,90); pos5(thick,0); pos6(thin, -90); top y3r=top y4r=h; x3=x1; x4=x1r+thick; x6=x4; y6=hround h/2; rt x5r=hround(.5u+P_width if not monospace: +1/2thin fi); y5=.5[y4,y6]; y7=y6; x7=x3; pos7(thin, -90); filldraw stroke z3e--pulled_super_arc.e(4,5,eta)& pulled_super_arc.e(5,6,eta)..z7e; % lobe numeric half_letter_width; 2half_letter_width+1/2u=w; if serifs: half_letter_width:=half_letter_width+1/2u; else: half_letter_width:=half_letter_width-1.6thin; fi path p; p=pulled_super_arc.r(5,6,eta)..z7r; z0r=p intersectionpoint ((half_letter_width,0)--(half_letter_width,h)); path circ_; circ_= (((halfcircle scaled 2thick) rotated 180) shifted z0r); z0l= p intersectionpoint circ_; if not monospace: z0'=(.45[half_letter_width,w],0); else: z0'=(.42[half_letter_width,w],0); fi numeric tail_angle; tail_angle=angle(z0l-z0'); penpos8(thick, tail_angle-90); z8l=whatever[z0', z0l]; x8=1/5[half_letter_width,w]; penpos9(2/3thick,tail_angle-90); z9r=whatever[z0r, z8r]; x9r=.5[half_letter_width, w]; %penpos10(if monospace:1/2 fi dslab,90); z10l=(w,0); penpos10(if monospace:1/2 dslab else: .5thin fi,90); z10l=(w,0); fill z0l--z8l...{right}z10l--z10r{-w,1/4h}..z9r--z0r--cycle; % tail if serifs: serif(1,2,a,serif_darkness,-cap_jut); serif(2,1,b,serif_darkness,-cap_jut); serif(2,1,c,serif_darkness,cap_jut); fi penlabels(0,1,2,3,4,5,6,7,8,9,10); labels(0'); endchar; cmchar "The Knuthian S"; beginchar("S", 2u#+1/2 side# if not monospace:+thick# fi, cap_height#, 0); adjust_fit(0,0); pickup tiny.nib; pair durer[]; % points to contain corner coords of Durer square ypart durer3=ypart durer4=0; xpart durer4-xpart durer1=side; xpart durer1=u-1.5thick; durer1=(xpart durer3, h); durer2=(xpart durer 4, ypart durer1); numeric slope, diag_angle; diag_angle=angle(durer2-durer3); slope=-if not monospace: 3/4 else: 1/2 fi h/(xpart durer4-xpart durer3); pos0(thick,diag_angle); x0=.52[xpart durer1, xpart durer2]; y0=h/2; lft x3l=u if not monospace:+2/3thick fi; rt x3r=lft x3l+5/6thick; pos2(thin,-diag_angle); top y2l=h+o; if x0-x3r>thick: x2l=x0 if monospace:+.4thin fi; else: x2l=x0r; slope:=-1/2; fi %if not monospace: % if x2-rt x3r