% blackboard typefaces by Anthony Phan. % file: mbbromxu.mf (extended roman uppercase) % last modification: 25.10.2001. % Crossed letters are no more generated. % They appear only with Cork encoding. def horizontal_rules_list=0.4cap_height,0.5cap_height,0.6cap_height, -body_depth,-desc_depth,cap_height,asc_height,body_height enddef; use_rule2; beginchar(bbAE,15.25u#+2appr#,cap_height#,0); "The letter AE"; italcorr cap_height#*slant-.5u#; pickup circle.nib; rt x5=rt x8=w-apprr; rt x5-lft x6=rt x8-lft x7=hround 7.5u; top y5=top y9=top y6=h; bot y7=bot y10=bot y8=0; lft x11=x10=x9=x6+hthick; bot y11=bot y12=vround 0.5h; rt x12=w-apprr-hround 0.7u; z1l=(apprl-0.5u,0); z2l=(lft x6,h); penpos1(diag_width(thin,z2l-z1l),0); penpos2(diag_width(thin,z2l-z1l),0); y0=y2l; x0=x6; z2a=whatever[z6,z7]; z2a=whatever[z1r,z2r]; bot y3=bot y4=vround 0.25h; x4=x6; z3=whatever[z1,z2]; fill z1l--z1r--z2a--z0--z2l--cycle; draw z3..z4; draw z9..z10; pickup square.nib; draw z5--z6--z7--z8; draw z11..z12; labels(range 3 thru 12); penlabels(0,1,2); math_fit(0,0.5ic#); endchar; beginchar(bbOE,16u#+2appr#,cap_height#,0); "The letter OE"; italcorr cap_height#*slant-.5u#;% not perfect at all... numeric t[]; pickup circle.nib; y1=y3=0.5[y4,y2]; top y2=h+o; bot y4=-o; x2=x4=0.5[x3,x1]; lft x3=apprl; x1=x13+hThick-hthick; rt x9=rt x12=w-apprr; rt x9-lft x10=rt x12-lft x11=hround 7.5u; top y9=top y13=top y10=h; bot y11=bot y14=bot y12=0; lft x15=x14=x13=x10+hthick; bot y15=bot y16=vround 0.5h; rt x16=w-apprr-hround 0.7u; tmp_path:=superellipse(z1,z2,z3,z4,superness); bbbowl(z2,z3,z4,hThick) tmp_path; t1=xpart(tmp_path intersectiontimes ((x10,y2)..(x10,y3))); t2=xpart(tmp_path intersectiontimes ((x10,y3)..(x10,y4))); z7=point t2 of tmp_path; z8=point t1 of tmp_path; draw z10..z8&subpath(t1,t2) of tmp_path&z7..z11; draw z13..z14; pickup square.nib; draw z9--z10--z11--z12; draw z15..z16; labels(range 1 thru 16); math_fit(0,0.5ic#); endchar; beginchar(bbslash_O,13u#+2appr#,cap_height#+0.5desc_depth#,0.5desc_depth#); "The letter slash O"; italcorr 0.7cap_height#*slant-.5u#; pickup circle.nib; bbcircle1(apprl,w-apprr,cap_height+o,-o); draw last_path; bbbowl(z1b,z1a,z1d,hThick) last_path; z3=z.bowl.top; bbbowl(z1b,z1c,z1d,hThick) last_path; z2=z.bowl.bot; y4=-d; y5=h; z4=whatever[z2,z3]; z5=whatever[z2,z3]; penpos4(diag_width(thin,z3-z2),0); penpos5(diag_width(thin,z3-z2),0); penstroke z4e..z5e; penlabels(2,3,4,5); math_fit(0.3cap_height#*slant-0.5u#,ic#); endchar; iff known bbEng: beginchar(bbEng,12u#+Appr#+appr#,cap_height#,0); "The letter Eng"; italcorr 0.8cap_height#*slant-.5u#; pickup circle.nib; lft x1=lft x3=Apprl; rt x7=rt x8=w-apprr; x4-x3=x2-x1=hthick; x5=x4; x6=0.5[x4,x7]; x9=0.5[x10,x8]; rt x8-lft x10=hround(7.2u); if x10