summaryrefslogtreecommitdiff
path: root/macros/mtex/metafont/musicdef.mf
diff options
context:
space:
mode:
Diffstat (limited to 'macros/mtex/metafont/musicdef.mf')
-rw-r--r--macros/mtex/metafont/musicdef.mf71
1 files changed, 71 insertions, 0 deletions
diff --git a/macros/mtex/metafont/musicdef.mf b/macros/mtex/metafont/musicdef.mf
new file mode 100644
index 0000000000..fbbef58249
--- /dev/null
+++ b/macros/mtex/metafont/musicdef.mf
@@ -0,0 +1,71 @@
+% 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;
+%