% Macros to draw superscript apostrophe accents using accent-pointed chardefs
% map files and hacccm   (apostrophe's tail is truncated)

cmchar "glottalic (apostrophe) accent";
beginchar(glottalic,5u#,asc_height#,0);
italcorr asc_height#*slant+.5dot_size#-2u#;
adjust_fit(0,0); numeric comdot; comdot=min(dot_size,2u);
x1-.5comdot=hround(.5w-.5comdot); y1+.5comdot=h;
comma(1,a,comdot,.25u,.5comma_depth); 
if square_dots: else:
   if bot y.a3r < 1 + vround 1.05x_height: currentpicture:= currentpicture shifted(comdot*slant,comdot*aspect_ratio);
   else: show bot y.a3r,x_height;
fi fi
makeACCENT(GlotPic);
penlabels(1); endgroup;

extra_endchar:=
  " czu; ap(GlotPic);  ah; oechar; ";
boolean dotson; dotson=false; %  omit dots on i, j, and possibly etc.

def cp = gltl enddef;