summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/musictex/beamngen.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/musictex/beamngen.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/musictex/beamngen.mf83
1 files changed, 0 insertions, 83 deletions
diff --git a/Master/texmf-dist/fonts/source/public/musictex/beamngen.mf b/Master/texmf-dist/fonts/source/public/musictex/beamngen.mf
deleted file mode 100644
index cdd378559f9..00000000000
--- a/Master/texmf-dist/fonts/source/public/musictex/beamngen.mf
+++ /dev/null
@@ -1,83 +0,0 @@
-% Length has been changed to longueur for BCPL_string
-% Nicolas Brouard 25/10/91
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% BALKEN %
-% %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-font_x_height beamht#;
-
-def drawbeams (expr st, jj, nn) =
- save i, j, longueur, height;
- numeric i, j, longueur, height;
- longueur:= 60.0/32;
- for i=0 upto 5:
- height := longueur*st ;
- beginchar(jj*6+i, longueur, height, 0);
- clear;
- z2 = (w,h);
- z1 = origin;
- penpos1(beamht,90);
- penpos2(beamht,90);
- for j=0 upto nn-1:
- penstroke (z1e---z2e) shifted (0,beamstep*j);
- endfor;
- endchar;
- longueur := 2*longueur;
- endfor;
-enddef;
-
-def drawbeamsneg (expr st, jj, nn) =
- save i, longueur, depth;
- numeric i, longueur, depth;
- longueur:= 60.0/32;
- for i=0 upto 5:
- depth := longueur*st;
- beginchar(64+jj*6+i, longueur, 0, depth);
- clear;
- z2 = (w,d);
- z1 = origin;
- penpos1(beamht,90);
- penpos2(beamht,90);
- for j=0 upto nn-1:
- penstroke (z1e---z2e) shifted (0,beamstep*j);
- endfor;
- endchar;
- longueur := 2*longueur;
- endfor;
-enddef;
-numeric beamstep;
-numeric ss[];
-
-beamstep:=0.75nhh;
-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.4;
-ss[8]:=0.45;
-ss[9]:=0.50;
-ss[10]:=0.55;
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Balken mit positiver Steigung %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-for j=0 upto 9 :
-drawbeams(ss[j],j,beammult);
-endfor;
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Balken mit negativer Steigung %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-for j=0 upto 9 :
-drawbeamsneg(-ss[j],j,beammult);
-endfor;
-
-end;