diff options
| author | Jan Nieuwenhuizen <janneke@gnu.org> | 2001-04-22 15:11:37 +0200 |
|---|---|---|
| committer | Jan Nieuwenhuizen <janneke@gnu.org> | 2001-04-22 15:11:37 +0200 |
| commit | 469b0c1660e8481379eb5a5c032feb3600e1c530 (patch) | |
| tree | 932dec428bb3bc9b3ecf540de7380889ff6bffe5 /ps/lilyponddefs.ps | |
| parent | 7b486351e47a4459277f0dd4eff5796f76aea50d (diff) | |
patch::: 1.3.149.jcn3
1.3.149.jcn3
============
* Bugfix: markup text: lines with markup.
* Fixed line height in postscript output.
---
Generated by janneke@gnu.org,
From = lilypond-1.3.149.jcn2, To = lilypond-1.3.149.jcn3
usage
cd lilypond-source-dir; patch -E -p1 < lilypond-1.3.149.jcn3.diff
Patches do not contain automatically generated files
or (urg) empty directories,
i.e., you should rerun autoconf, configure
Diffstat (limited to 'ps/lilyponddefs.ps')
| -rw-r--r-- | ps/lilyponddefs.ps | 33 |
1 files changed, 9 insertions, 24 deletions
diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps index d4994a0e0f..899b0f0061 100644 --- a/ps/lilyponddefs.ps +++ b/ps/lilyponddefs.ps @@ -69,8 +69,11 @@ grestore } bind def -/start-line -{ +/start-line % height +{ + dup base-line-skip gt { + /line-height exch def + } if line-y top-margin sub base-line-skip lt { showpage /line-y vsize top-margin sub def @@ -82,29 +85,10 @@ /stop-line { /the-line exch def - 0 0 moveto the-line clippath pathbbox + the-line stroke grestore - exch 4 -1 roll - sub - 3 1 roll - exch sub - %pstack - % - % ugh: now we should have `width height' on stack, - % but it's probably just the width and height of last element - % (the last staff) - % How do we get all heights of all staffs in a line? - % - % output-scale div neg line-y add /line-y exch def - % - % discarding height... - pop - % - % discard width - pop - % use fixed base-line-skip for now - line-y base-line-skip output-scale mul sub /line-y exch def + line-y line-height output-scale mul sub /line-y exch def } bind def % FIXME: font definitions should come from LilyPond @@ -215,11 +199,12 @@ /turnOnExperimentalFeatures { } bind def - staff-line-thickness setlinewidth +% set postscript paper size paper-size +% initialise paper dimensions staff-height init-paper /line-x left-margin def |