diff options
Diffstat (limited to 'macros/mtex/metafont/sonder16.mf')
-rw-r--r-- | macros/mtex/metafont/sonder16.mf | 112 |
1 files changed, 112 insertions, 0 deletions
diff --git a/macros/mtex/metafont/sonder16.mf b/macros/mtex/metafont/sonder16.mf new file mode 100644 index 0000000000..8421dee032 --- /dev/null +++ b/macros/mtex/metafont/sonder16.mf @@ -0,0 +1,112 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% % +% 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; |