% Computer Modern Roman 12 point crossed-out if unknown cmbase: input cmbase fi def crossout = pickup crisp.nib; pos100(1rule_thickness,90); pos101(1rule_thickness,90); %pos200(1rule_thickness,90); pos201(1rule_thickness,90); %pos300(1rule_thickness,90); pos301(1rule_thickness,90); top y100r=top y101r=.6x_height; lft x100=-u; rt x101=w+u; %top y200r=top y201r=-.6desc_depth; lft x200=-u; rt x201=w+u; %top y300r=top y301r=-1.2desc_depth; lft x300=-u; rt x301=w+u; filldraw stroke z100e--z101e; % bar %filldraw stroke z200e--z201e; % bar %filldraw stroke z300e--z301e; % bar %penlabels(100,101); %penlabels(200,201); %penlabels(300,301); enddef; extra_endchar:=extra_endchar&"crossout"; input cmr12