diff options
Diffstat (limited to 'macros/mtex/metafont/noten16.mf')
-rw-r--r-- | macros/mtex/metafont/noten16.mf | 292 |
1 files changed, 0 insertions, 292 deletions
diff --git a/macros/mtex/metafont/noten16.mf b/macros/mtex/metafont/noten16.mf deleted file mode 100644 index 6aff8ab739..0000000000 --- a/macros/mtex/metafont/noten16.mf +++ /dev/null @@ -1,292 +0,0 @@ -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% % -% NOTENKOEPFE UND FAEHNCHEN % -% % -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% -% -% -% -%%%%%%%%%%%%%%% -%%notenkoepfe % -%%%%%%%%%%%%%%% -% -% -% -% -def drawnoteb(expr noteheadwidth, theta_a, theta_b, theta_c, -width_a, width_b) = - % .l - penpos1(width_a, theta_a); % .2 - % .r - penpos3(width_a, 180+theta_a); %.l.1.r .r.3.l - % .r - penpos2(width_b, 180+theta_b); % .4 - % .l - penpos4(width_b, theta_b); % - y1 = y3 = 0; - x2 = x4 = 1/2noteheadwidth; - x1l= 0; x3l = w; y2l = h; y4l = -h; - penstroke (z1e{up}..z2e{right}..z3e{down}..z4e{left}..cycle) - rotatedaround((origin +1/2w*right),theta_c); - enddef; -% -% -%%%%%%%%%%%%%%% -%% flags % -%%%%%%%%%%%%%%% -% -% -% -pickup pencircle scaled (0.1pt); -def penstrike text t = - forsuffixes e = l,r: path_.e:=t; endfor - if cycle path_.l: cyclestroke_ - else: filldraw path_.l -- reverse path_.r -- cycle fi enddef; -def flagshape (suffix i) (expr width, height, thicka, thin, shift) = - pair intersectionp; % - thick := 1/3 height; - sh[-3] = origin; - sh[i] = shift; % .1 - penpos[i](thick,90); % - penpos[i+1]( 3thin ,90); % .2 - penpos[i+2](thin,0); % - penpos[i+3](thin,0); % .3 - x[i] = -1/16mm; % - y[i]r = height; % .4 - x[i+1] = 3/8width; % - y[i+1] = height - thick; % - y[i+3] = 0; - x[i+2]r = x[i+3]+2s= width; - y[i+2]r = height - 2thick; - if i>1: intersectionp = z[i-2]; - else : intersectionp = z[i+3]; - fi; - penstrike (z[i]e{dir(angle(z[i+1]e-z[i]e)-15)} - ..z[i+1]e{z[i+1]e-z[i]e} - ..z[i+2]e{down}..intersectionp shifted (sh[i-4]-sh[i])) - shifted sh[i]; - for n=0 upto 3: - k:=i+n; - penlabels(k);endfor; - enddef; - -%def flagshaper (suffix i) (expr width, height, thicka, thin, shift) = -% pair intersectionp; % -% thick := 1/3 height; -% sh[-3] := origin+shift; -% sh[i] = shift; % .1 -% penpos[i](thick,90); % -% penpos[i+1]( 3thin ,90); % .2 -% penpos[i+2](thin,0); % -% penpos[i+3](thin,0); % .3 -% x[i] = 0; % -% y[i]r = height; % .4 -% x[i+1] = 3/8width; % -% y[i+1] = height - thick; % -% y[i+3] = 0; -% x[i+2]r = x[i+3]+2s= width; -% y[i+2]r = height - 2thick; -% if i>1: intersectionp = z[i-2]; -% else : intersectionp = z[i+3]; -% fi; -% penstroke (counterclockwise -% (z[i]e{dir(angle(z[i+1]e-z[i]e)-15)} -% ..z[i+1]e{z[i+1]e-z[i]e} -% ..z[i+2]e{down}..intersectionp shifted (-sh[i-4]+sh[i])) -% reflectedabout (z1r scaled 0.5, -% z1r scaled 0.5+right) ) -% shifted sh[i]; -% for n=0 upto 3: -% k:=i+n; -% penlabels(k);endfor; -% enddef; - -def flagshaper (suffix i) (expr width, height, thicka, thin, shift) = - pair intersectionp; % - thick := 1/3 height; - sh[-3] := origin+shift; - sh[i] = shift; % .1 - penpos[i](thick,90); % - penpos[i+1]( 3thin ,90); % .2 - penpos[i+2](thin,0); % - penpos[i+3](thin,0); % .3 - x[i] = 0; % - y[i]r = height; % .4 - x[i+1] = 3/8width; % - y[i+1] = height - thick; % - y[i+3] = 0; - x[i+2]r = x[i+3]+2s= width; - y[i+2]r = height - 2thick; - if i>1: intersectionp = z[i-2]; - else : intersectionp = z[i+3]; - fi; - penstrike (counterclockwise - (z[i]e{dir(angle(z[i+1]e-z[i]e)-15)} - ..z[i+1]e{z[i+1]e-z[i]e} - ..z[i+2]e{down}..intersectionp shifted (-sh[i-4]+sh[i])) - reflectedabout (z1r scaled 0.5, - z1r scaled 0.5+right) ) - shifted sh[i]; - enddef; - - -%%%%%%%%%%%%%%% -%% volle Note % -%%%%%%%%%%%%%%% - -beginchar(33, nhw#, .5nhh#, .5nhh#); - w:=w+2thinwidth; - drawnoteb(w, 0, 90, 20, w/2, nhh/2); -endchar; - -%%%%%%%%%%%%%%% -%% halbe Note % -%%%%%%%%%%%%%%% - -beginchar(34, nhw#, .5nhh#, .5nhh#); - w:=w+2thinwidth; - drawnoteb(w, 0, 90, 20, 3*thinwidth, nhh/4); -endchar; - -%%%%%%%%%%%%%%% -%% ganze Note % -%%%%%%%%%%%%%%% - -beginchar (35,1.5nhh#, .5nhh#, .5nhh#); - drawnoteb(w, 0, 85, 0, nhh/3, 3*thinwidth); -endchar; - -%%%%%%%%%%%%%%%%%%%%%%% -%% "8flag nach unten" % -%%%%%%%%%%%%%%%%%%%%%%% - -beginchar(40, 0, 3nhh#, 0); - clear; - w:=nhw; - flagshape (1,w, h, nhh, 5thinwidth, origin); - w:=0; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%% -%% "16flag nach unten" % -%%%%%%%%%%%%%%%%%%%%%%%% - -beginchar(41, 0, 3.25nhh#, 0); - clear; - w:=nhw; - flagshape (1, w, 2.5nhh, 2/3nhh, 5thinwidth, origin); - flagshape (5,.95 w, 2.25 nhh, 2/3nhh, 5thinwidth, (0,nhh)); - w:=0; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%% -%% "32flag nach unten" % -%%%%%%%%%%%%%%%%%%%%%%%% - -beginchar(42, 0, 3.75 nhh#, 0); - clear; - w:=nhw; - flagshape (1, w, 2.5nhh, 2/3nhh, 5thinwidth, origin); - flagshape (5, .95w, 2.25 nhh, 2/3nhh, 5thinwidth, (0,nhh)); - flagshape (9, .9w, 2 nhh, 2/3nhh, 5thinwidth, (0,1.75nhh)); - w:=0; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%% -%% "64flag nach unten" % -%%%%%%%%%%%%%%%%%%%%%%%% - -beginchar(43, 0, 4.25nhh#, 0); - clear; - w:=nhw; - flagshape (1, w, 2.5nhh, 2/3nhh, 5thinwidth, origin); - flagshape (5,.95 w, 2.25 nhh, 2/3nhh, 5thinwidth, (0,nhh)); - flagshape (9,.9w, 2 nhh, 2/3nhh, 5thinwidth, (0,1.75nhh)); - flagshape(13,0.85w, 2nhh, 2/3nhh, 5thinwidth, (0,2.25nhh)); - w:=0; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%% -%% "128flag nach unten" % -%%%%%%%%%%%%%%%%%%%%%%%%% - -beginchar(44, 0, 4.5nhh#, 0); - clear; - w:=nhw; - flagshape (1, w, 2.5nhh, 2/3nhh, 5thinwidth, origin); - flagshape (5, w, 2.25nhh, 2/3nhh, 5thinwidth, (0,nhh)); - flagshape (9, w, 2 nhh, 2/3nhh, 5thinwidth, (0,1.75nhh)); - flagshape(13,0.9 w, 2nhh, 2/3nhh, 5thinwidth, (0,2.25nhh)); - flagshape(17,0.9 w, 1.5nhh, 1/3nhh, 5thinwidth, (0,3nhh)); - w:=0; -endchar; - -%%%%%%%%%%%%%%%%%%%%%% -%% "8flag nach oben" % -%%%%%%%%%%%%%%%%%%%%%% - -beginchar(45, 0, 3nhh#, 0); - clear; - w:=nhw; - flagshaper(1,w, h, nhh, 5thinwidth, origin); - penlabels(1,2,3,4); - w:=0; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%% -%% "16flag nach oben" % -%%%%%%%%%%%%%%%%%%%%%%% - -beginchar(46, 0, 3.25nhh#, 0); - clear; - w:=nhw; - flagshaper(1, w, 2.5nhh, 2/3nhh, 5thinwidth, (0,0.75nhh)); - flagshaper(5, w, 2.25 nhh, 2/3nhh, 5thinwidth,(0,-0.25nhh)); - penlabels(1,2,3,4,5,6,7,8); - w:=0; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%% -%% "32flag nach oben" % -%%%%%%%%%%%%%%%%%%%%%%% - -beginchar(47, 0, 3.75 nhh#, 0); - clear; - w:=nhw; - flagshaper(1, w, 2.5nhh, 2/3nhh, 5thinwidth, (0,1.5nhh)); - flagshaper(5, w, 2.5nhh, 2/3nhh, 5thinwidth, (0,0.75nhh)); - flagshaper(9, .95w, 2.25 nhh, 2/3nhh, 5thinwidth, origin); - penlabels(1,2,3,4,5,6,7,8,9,10,11,12); - w := 0; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%% -%% "64flag nach oben" % -%%%%%%%%%%%%%%%%%%%%%%% - -beginchar(48, 0, 4.25nhh#, 0); - clear; - w:=nhw; - flagshaper(1, w, 2.5nhh, 2/3nhh, 5thinwidth, (0,1.75nhh)); - flagshaper(5, w, 2.25 nhh, 2/3nhh, 5thinwidth, (0,1nhh)); - flagshaper(9,w, 2 nhh, 2/3nhh, 5thinwidth, (0,0.34nhh)); - flagshaper(13,0.9w, 2nhh, 2/3nhh, 5thinwidth, (0,-0.32nhh)); - penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); - w := 0; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%% -%% "128flag nach oben" % -%%%%%%%%%%%%%%%%%%%%%%%% - -beginchar(49, 0, 4.5nhh#, 0); - clear; - w:=nhw; - flagshaper (1, w, 2.25nhh, 2/3nhh, 5thinwidth, (0,2.5nhh)); - flagshaper (5, w, 2.25nhh, 2/3nhh, 5thinwidth, (0,1.75nhh)); - flagshaper (9, w, 2 nhh, 2/3nhh, 5thinwidth, (0,1nhh)); - flagshaper(13,0.9 w, 2nhh, 2/3nhh, 5thinwidth, (0,0.5nhh)); - flagshaper(17,0.9 w, 2nhh, 1/3nhh, 5thinwidth, (0,0nhh)); - w := 0; -endchar; |