diff options
| author | Erlend Aasland <erlenda@gmail.com> | 2006-05-31 01:47:30 +0000 |
|---|---|---|
| committer | Erlend Aasland <erlenda@gmail.com> | 2006-05-31 01:47:30 +0000 |
| commit | 9f3572d98bb948c9689cd1f75401a029451fa001 (patch) | |
| tree | e7f7c702c3e2ac9b6da3bd472e22c3f51c8ade7b /ps | |
| parent | 04265f11d1f21416ccebd2dcaa1d903dc781b36e (diff) | |
Fix some bugs in the dynamic engraver and PostScript backend
Diffstat (limited to 'ps')
| -rw-r--r-- | ps/lilyponddefs.ps | 4 | ||||
| -rw-r--r-- | ps/music-drawing-routines.ps | 23 |
2 files changed, 27 insertions, 0 deletions
diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps index ad0d89a61b..442ae20046 100644 --- a/ps/lilyponddefs.ps +++ b/ps/lilyponddefs.ps @@ -6,6 +6,10 @@ % /setgray { 1 add } bind def +% To let gs load fonts from builddir, do: +% export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm + + /set-ps-scale-to-lily-scale { lily-output-units output-scale mul dup scale } bind def diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps index 8864569af1..e0f28e82a6 100644 --- a/ps/music-drawing-routines.ps +++ b/ps/music-drawing-routines.ps @@ -7,6 +7,29 @@ % TODO: use dicts or prefixes to prevent namespace pollution. +% Emulation code from Postscript Language Reference. + +/*SF +{ + exch findfont exch + dup type /arraytype eq + {makefont} + {scalefont} + ifelse + setfont +} bind def + +/languagelevel where + {pop languagelevel} + {1} +ifelse + +2 lt + { /selectfont /*SF load def } +if + +% end emulation code + /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse |