cmchar "The letter Yogh"; beginchar("G",11u#,cap_height#,0); italcorr cap_height#*slant-.5serif_fit#-.3u#; adjust_fit(0,0); numeric arm_thickness,arm_thickness#,z_stem; arm_thickness# = .7[cap_hair#,cap_stem#] ; define_whole_vertical_blacker_pixels(arm_thickness) ; z_stem = .1[vair,cap_stem] ; pickup tiny.nib; rt x1r=rt x2r=hround(w-1.2u); top y1=h; y2=min(y1,h-2/3arm_thickness); lft x3l = hround .45w ; bot y3 = vround .6h ; numeric alpha; alpha=diag_ratio(1,z_stem-tiny,y2-y3,x2r-x3l-slant*(y2-y3)); penpos1(alpha*(z_stem-tiny),0); penpos2(alpha*(z_stem-tiny),0); penpos3(alpha*(z_stem-tiny),0); pair delta; delta=penoffset z3-z1 of currentpen; fill top lft z1l--z1l+delta---z3l+delta..lft z3l ..bot z3r--z3r-delta---rt z1r..top z1r ---cycle; % diagonal z99 = rt z1r ; z98 = z99 + (u,0) ; % for cutting away z97 = z99 + 2u*(z3-z1) ; z96 = z97 + (u,0) ; pickup crisp.nib; pos5(arm_thickness,90); pos6(cap_hair,180); top y5r=h; x5=x1; lft x6r=hround .75u; y6=good.y(y5l-beak/1.6)-eps; arm(5,6,a,beak_darkness**.8,-.4beak_jut); % upper arm and beak % now cut away the excess arm erase fill z99 --- z98 --- z96 --- z97 --- cycle ; pickup fine.nib ; pos10'(vair,90) ; pos11(cap_curve,0) ; pos12(.1[vair,cap_curve],-90) ; z10' - z3 = whatever*dir 30 ; x10' = x3 + u ; x10 = x10' ; y10r = good.y y10'r ; pos10(vair,90) ; bot y12r = -o ; x12 = .5w ; y11 = .5[y10,y12] ; rt x11r = hround(w-.9u) ; z3' = z3 ; z3'l = z3r ; z3'r = z3l ; filldraw stroke z3'e .. z10e{right} ; filldraw stroke pulled_arc.e(10,11) & pulled_arc.e(11,12) ; if serifs: pos13(hair,-180) ; y13=.8bar_height ; lft x13r = hround .8u ; pos14(flare,-180) ; bulb(12,13,14) ; else: pos13(5/7[vair,flare],angle(-3u,-h)) ; lft x13r = hround .9u ; y13 = .8bar_height ; x13l := good.x x13l ; y13l := good.y y13l ; filldraw stroke term.e(12,13,left,1,4) ; fi penlabels(1,2,3,4,5,6,7,8,10,11,12,13,14); endchar; cmchar "The letter Thorn" ; beginchar("T",12u#,cap_height#,0); italcorr .7cap_height#*slant-.5u#; adjust_fit(cap_serif_fit#,0); pickup tiny.nib; penpos1(cap_stem-tiny,0); penpos2(cap_stem-tiny,0); pos0(cap_stem',0); pos0'(cap_stem,0); pos8(cap_stem',0); pos8'(cap_stem,0); lft x1l=hround max(2u,3u-.5cap_stem'); top y1=h; bot y2=0; x1l=x2l=x0l=x0'l=x8l=x8'l; y0=y0'=y7; y8=y8'=y3; penpos3(.5[vair,cap_band],90); penpos4(.5[vair,cap_band],90); penpos5(cap_curve if hefty:-3stem_corr fi,0); penpos6(.5[vair,cap_band],-90); penpos7(.5[vair,cap_band],-90); y4=y3; y5=.5[y4l,y6l]; y6=y7; x3=x1 ; .5[y3r, y7r]=vround .52h; y3r = vround 0.78h ; x7=x2; x4=x6=.5w+.75u; x5r=hround(w-u); x4l:=x6l:=x4-.25cap_curve; filldraw stroke z1e--z8'e--z8e--z0e--z0'e--z2e; % stem fill stroke z3e..pulled_arc.e(4,5) & pulled_arc.e(5,6)..z7e; % lobe if serifs: dish_serif(1,0,a,1/3,cap_jut,b,1/3,cap_jut); % upper serif dish_serif(2,0',c,1/3,cap_jut,d,1/3,cap_jut); fi % lower serif math_fit(0,ic#-2.5u#); penlabels(0,1,2,3,4,5,6,7); endchar; cmchar "The letter Edh"; beginchar("D",13.5u#,cap_height#,0); italcorr .7cap_height#*slant-.5u#; adjust_fit(cap_serif_fit#,0); pickup tiny.nib; pos1(cap_stem',0); pos2(cap_stem',0); lft x1l=lft x2l=hround max(2u,3u-.5cap_stem'); top y1=h; bot y2=0; filldraw stroke z1e--z2e; % stem penpos3(cap_band,90); penpos4(cap_band,90); penpos5(cap_curve-stem_corr,0); penpos6(cap_band,-90); penpos7(cap_band,-90); z3r=top z1; y4=y3; y5=.51[y4,y6]; y6=y7; z7r=bot z2; x4=x6=.5w+.25u; x5r=hround(w-u); x4l:=x6l:=x4-.25cap_curve; fill stroke z3e..pulled_arc.e(4,5) & pulled_arc.e(5,6)..z7e; % lobe if serifs: nodish_serif(1,2,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif nodish_serif(2,1,c,1/3,cap_jut,d,1/3,.5cap_jut); fi % lower serif pickup crisp.nib ; % now the edh bar pos8(cap_band,90) ; pos9(cap_band,90) ; top y8r = vround(.52h + .5cap_band) ; y9 = y8 ; lft x8 = 0 ; x1 - x8 = x9 - x1 ; filldraw stroke z8e --- z9e ; math_fit(0,ic#-.5u#); penlabels(1,2,3,4,5,6,7); endchar;