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