diff options
author | Norbert Preining <norbert@preining.info> | 2024-01-31 03:01:01 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-01-31 03:01:01 +0000 |
commit | 79e1bbc1ad6b308aa2074540b2afd43b6a72ce03 (patch) | |
tree | 32074e03eec88cf72e5973ddff176a0534c77dff /macros/mtex/metafont/musicdef.mf | |
parent | 084f5d8435744b7ea7ef487ec111a7bfd100ed62 (diff) |
CTAN sync 202401310301
Diffstat (limited to 'macros/mtex/metafont/musicdef.mf')
-rw-r--r-- | macros/mtex/metafont/musicdef.mf | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/macros/mtex/metafont/musicdef.mf b/macros/mtex/metafont/musicdef.mf deleted file mode 100644 index fbbef58249..0000000000 --- a/macros/mtex/metafont/musicdef.mf +++ /dev/null @@ -1,71 +0,0 @@ -% this is musicdef.mf -% -% -% hier evtl. mode fuer gewuenschten output setzen -% -% AGFA P400 mode: for devices that print 406 pixels per inch -% mode_def agfa = -% proofing:=0; -% fontmaking:=1; -% tracingtitles:=0; -% pixels_per_inch:=406; -% blacker:=0.65; -% fillin:=0; -% o_correction:=1; -% enddef; -% localfont:=agfa; -% mode:=agfa; -% -% low resolution music fonts are not very nice - but you need something... - mode_def atari = - proofing:=0; - fontmaking:=1; - tracingtitles:=0; - pixels_per_inch:=96; - blacker:=1.0; - fillin:=0; - o_correction:=1; - enddef; - localfont:=atari; - mode:=atari; - mode_setup; -% -% -%mode_def ibm = % ibm mode: for the IBM3820 -% proofing:=0; % no, we're not making proofs -% fontmaking:=1; % yes, we are making a font -% tracingtitles:=0; % no, don't show titles in the log -% pixels_per_inch:=240; -% blacker:=.78; % (this value is conjectural) -% fillin:=0.25; % (ditto) -% o_correction:=.5; % (ditto) -% enddef; -% -fontmaking:=1; -turningcheck:=0; -displaying:=1; -designsize:=16; -nhh#:=1/4designsize; %noteheadheight -nhw#:=1.2nhh#; %noteheadwidth -beamht#:=0.6nhh#; %Balkenst"arke -nhh:=nhh#*pt; %noteheadheight *pt -nhw:=nhw#*pt; %noteheadwidth *pt -thinwidth := 0.1pt; -beamht := beamht#*pt; -s := 10thinwidth; -S := 1/16designsize; -%pair constants -pair ne,se,sw,nw; %northeast,southeast,southwest,northwest -ne = up+right; se = down+right; sw = down+left; nw = up+left; -openit; -def clear = - numeric x[],y[],x[]l,y[]l,x[]r,y[]r,dx[],dy[]; - pair sh[]; -enddef; -% -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; -% |