summaryrefslogtreecommitdiff
path: root/macros/mtex/metafont/sonder16.mf
diff options
context:
space:
mode:
Diffstat (limited to 'macros/mtex/metafont/sonder16.mf')
-rw-r--r--macros/mtex/metafont/sonder16.mf112
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;