diff options
Diffstat (limited to 'macros/mtex/metafont/beam16.mf')
-rw-r--r-- | macros/mtex/metafont/beam16.mf | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/macros/mtex/metafont/beam16.mf b/macros/mtex/metafont/beam16.mf deleted file mode 100644 index 03239d1784..0000000000 --- a/macros/mtex/metafont/beam16.mf +++ /dev/null @@ -1,79 +0,0 @@ -input musicdef -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% % -% BALKEN % -% % -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - - -font_x_height beamht#; - -def drawbeams (expr st, jj) = - save i, length, height; - numeric i, length, height; - length:= 0.5; - for i=0 upto 7: - height := length*st + beamht#; - beginchar(jj*8+i, length, height, 0); - clear; - % x2 = w; x1 = 0; - z2r = (w,h); - z1l = origin; - penpos1(beamht,90); - penpos2(beamht,90); - penstroke z1e---z2e; - endchar; - length := 2*length; - endfor; -enddef; - -def drawbeamsneg (expr st, jj) = - save i, length, depth; - numeric i, length, depth; - length:= 0.5; - for i=0 upto 7: - depth := length*st - beamht#; - beginchar(jj*8+i, length, 0, depth); - clear; - z2l = (w,d); - z1r = origin; - penpos1(beamht,90); - penpos2(beamht,90); - penstroke z1e---z2e; - endchar; - length := 2*length; - endfor; -enddef; - -numeric ss[]; - -ss[0]:=0.05; -ss[1]:=0.10; -ss[2]:=0.15; -ss[3]:=0.20; -ss[4]:=0.25; -ss[5]:=0.30; -ss[6]:=0.35; -ss[7]:=0.45; - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Balken mit positiver Steigung % -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -for j=0 upto 7 : -drawbeams(ss[j],j); -endfor; - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Balken mit negativer Steigung % -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -for j=0 upto 7 : -drawbeamsneg(-ss[j],j+8); -endfor; - -end; - |