%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                             %
%                   SONDERZEICHEN                             %
%                                                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%




def alla_breve (expr trans) =
         thin := 5thinwidth; thick := 1/2 nhh;
         penpos1(thin,   0);
         penpos2(thin, -90);
         penpos3(thick,180);
         penpos4(2/3thin,  90);
         penpos5(thin,  45);
         penpos6(3/4thick,45);
         2x2r = 2x4r = x1 + 2s = w;
         x3r = 0; 2y1 = 3y2 = y4r = h;
         y3r = 2/3h;
         x5 = w -2s;
         y5 = h -2s;
         z6r = z5r;
         penstroke (z1e..z2e..z3e..z4e..z5e) transformed trans;
         currentpen := pencircle scaled (2/3thick);
         drawdot z6;
enddef;


%%%%%%%%%%%%%%%%
% "allabreve" %%
%%%%%%%%%%%%%%%%

beginchar(82, 2nhh#, 3nhh#, 0);
         clear;
         alla_breve(identity);
         z7 = z4 + 2/16 h *up;
         z8 = z2 + 2/16 h *down;
         currentpen := pencircle scaled (thin);
         draw z7--z8;

endchar;

%%%%%%%%
% "C" %%
%%%%%%%%

beginchar(83, 2nhh#, 3nhh#, 0);
         clear;
         alla_breve(identity);

endchar;

%%%%%%%%%%%%%%%
% "reverseC" %%
%%%%%%%%%%%%%%%

beginchar(84, 2nhh#, 3nhh#, 0);
         clear;
         transform T;
    xxpart T = -yypart T; xypart T = yxpart T; % T is a reflection
    (w/2,0) transformed T = (w/2,0);  (w/2,1) transformed T = (w/2,1);
         thin := 5thinwidth; thick := 1/2 nhh;
         penpos1(thin,   0);
         penpos2(thin, -90);
         penpos3(thick,180);
         penpos4(2/3thin,  90);
         penpos5(thin,  45);
         penpos6(3/4thick,45);
         2x2r = 2x4r = x1 + 2s = w;
         x3r = 0; 2y1 = 3y2 = y4r = h;
         y3r = 2/3h;
         x5 = w -2s;
         y5 = h -2s;
         z6r = z5r;
         penstroke (counterclockwise
         (z1e..z2e..z3e..z4e..z5e) transformed T);
         currentpen := pencircle scaled (2/3thick);
         drawdot (z6 transformed T);

endchar;

%%%%%%%%%%%%%%%
% "fermate1" %%
%%%%%%%%%%%%%%%

beginchar(80, 2nhw#, 1.25nhh#, 0);
         clear;
         penpos2(nhh/4,90);
         penpos4(nhh/4,90);
         y2r =  h;
         z1 =  origin; 2x2l = 2x4l = x3 = w; y4l = y3 = 0;
         penstroke z1..z2e..z3;
         currentpen:= pencircle scaled (nhh/4);
         drawdot z4;
endchar;

%%%%%%%%%%%%%%%
% "fermate2" %%
%%%%%%%%%%%%%%%

beginchar(81, 2nhw#, 0, 1.25nhh#);
         clear;
         penpos2(nhh/4,90);
         penpos4(nhh/4,90);
         y2l = -d;
         z1 =  origin; 2x2l = 2x4 = x3 = w;
         y4r = y3 = 0;
         penstroke (z1..z2e..z3);
         currentpen := pencircle scaled (nhh/4);
         drawdot z4;
endchar;