% Macros to draw ogonek (polish hook) accents using accent-pointed chardefs
% map files and hacccm 

%cmchar "Ogonek accent";
beginchar(oct"030",8u#,0,.875desc_depth#);
adjust_fit(0,0);
 pickup crisp.nib; pos1(hair,0); 
 pos4(stem,0); if hefty: pos5(hair,90); else: pos5(.15[hair,stem],90); fi
 x1=.5w;  x4=x1-1.5u; x5=x1+.5u;
 %top y1=0; 
 if monospace: y1=oo+ else: bot y1= fi cdilorigin; 
 x11=x1; 
 y4=.675[y1,y5]; bot y5=-.875desc_depth-o;
 x6=x5+stem+.25dot_size; y6=y5r+.25dot_size;
 pos6(hair,180);
 filldraw stroke z1e...z4e{down}...{right}z5e...z6e;  % hook
makeACCENT(OgonPic);
endgroup;


extra_endchar:=" czd ap(OgonPic); oechar; ";

boolean dotson; dotson=true; % don't omit dots on i, j, and possibly etc.

def cp = ogon enddef;