home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / tex / mutex.arc / MF.ARC / MUSICDEF.MF < prev    next >
Encoding:
Text File  |  1990-03-06  |  1.5 KB  |  59 lines
  1. % this is musicdef.mf
  2. %
  3. %
  4. % hier evtl. mode fuer gewuenschten output setzen
  5. %
  6. %  AGFA P400 mode: for devices that print 406 pixels per inch
  7. %  mode_def agfa  =
  8. %   proofing:=0;
  9. %   fontmaking:=1;
  10. %   tracingtitles:=0;
  11. %   pixels_per_inch:=406;
  12. %   blacker:=0.65;
  13. %   fillin:=0;
  14. %   o_correction:=1;
  15. %   enddef;
  16. %  localfont:=agfa;
  17. %  mode:=agfa;
  18.   mode_setup;
  19. %
  20. %
  21. %mode_def ibm =    % ibm mode: for the IBM3820
  22. % proofing:=0;      % no, we're not making proofs
  23. % fontmaking:=1;      % yes, we are making a font
  24. % tracingtitles:=0;    % no, don't show titles in the log
  25. % pixels_per_inch:=240;
  26. % blacker:=.78;      % (this value is conjectural)
  27. % fillin:=0.25;      % (ditto)
  28. % o_correction:=.5;    % (ditto)
  29. % enddef;
  30. %
  31. fontmaking:=1;
  32. turningcheck:=0;
  33. displaying:=1;
  34. designsize:=16;
  35. nhh#:=1/4designsize; %noteheadheight
  36. nhw#:=1.2nhh#; %noteheadwidth
  37. beamht#:=0.6nhh#; %Balkenst"arke
  38. nhh:=nhh#*pt; %noteheadheight *pt
  39. nhw:=nhw#*pt; %noteheadwidth  *pt
  40. thinwidth := 0.1pt;
  41. beamht := beamht#*pt;
  42. s := 10thinwidth;
  43. S := 1/16designsize;
  44. %pair constants
  45. pair ne,se,sw,nw; %northeast,southeast,southwest,northwest
  46. ne = up+right; se = down+right; sw = down+left; nw = up+left;
  47. openit;
  48. def clear =
  49.   numeric x[],y[],x[]l,y[]l,x[]r,y[]r,dx[],dy[];
  50.   pair    sh[];
  51. enddef;
  52. %
  53. pickup pencircle scaled (0.1pt);
  54. def penstrike text t =
  55.  forsuffixes e = l,r: path_.e:=t; endfor
  56.  if cycle path_.l: cyclestroke_
  57.  else: filldraw path_.l -- reverse path_.r -- cycle fi enddef;
  58. %
  59.