diff options
| author | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2004-09-06 23:01:58 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2004-09-06 23:01:58 +0000 |
| commit | b5019963bc908deaf965ba3dd56948ced811a385 (patch) | |
| tree | 07fee62564d85adc7fbf5a5ef136f48f7e8ee2be /ps/lilyponddefs.ps | |
| parent | fffb3f4ca81f3e188e81c85e633b8e3ecfaca381 (diff) | |
* scm/framework-ps.scm (output-framework): handle landscape settings.
* ps/lilyponddefs.ps: cleanup.
Diffstat (limited to 'ps/lilyponddefs.ps')
| -rw-r--r-- | ps/lilyponddefs.ps | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps index edd8448155..f4897127c9 100644 --- a/ps/lilyponddefs.ps +++ b/ps/lilyponddefs.ps @@ -12,19 +12,19 @@ /set-ps-scale-to-lily-scale { output-scale output-scale scale } bind def - /init-paper { - gsave - .1 setlinewidth - clippath pathbbox newpath - /vsize exch def - /hsize exch def pop pop pop pop - % FIXME - /top-margin 2 def + gsave + .1 setlinewidth + clippath pathbbox newpath + /vsize exch def + /hsize exch def pop pop pop + % FIXME + /top-margin 2 def hsize line-width sub 2 div /left-margin exch def - grestore + grestore } bind def + /place-box { /object exch def @@ -65,8 +65,8 @@ /start-system % x y { gsave - exch output-scale mul exch - output-scale mul vsize exch sub translate + 0 + vsize translate } bind def /stop-system @@ -82,10 +82,9 @@ staff-line-thickness setlinewidth -% set postscript paper size -paper-size -% initialise paper dimensions staff-height init-paper + + % end lilyponddefs.ps |