Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / ps / lilyponddefs.ps

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index a53b452af7ba59e3785cc01c0c23a5bfd2e4763f..442ae200466f76dfac890400a8ef34d3bf28886a 100644 (file)
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -11,84 +11,21 @@
 
 
 /set-ps-scale-to-lily-scale {
-       lily-output-units output-scale mul
-       lily-output-units output-scale mul scale
+       lily-output-units output-scale mul dup scale
 } bind def
 
 
 /init-paper {
        gsave
        clippath pathbbox newpath
-       /vsize exch def
-       /hsize exch def pop pop pop
+       /paper-height exch def
+       /paper-width exch def pop pop pop
        % FIXME
        /top-margin 2 def
-       hsize line-width sub 2 div /left-margin exch def
+       paper-width line-width sub 2 div /left-margin exch def
        grestore
 } bind def
 
-
-/place-box {
-       /object exch def
-       gsave
-       % exch translate
-       translate
-       0 0 moveto
-       object
-       grestore
-} bind def
-
-%% http://bibliofile.mc.duke.edu/gww/fonts/postscript-utilities/encoding-vectors.html
-
-%/FONTLENGTH 256 bind def
-
-
-/reencode-dict 5 dict def
-
-
-%<font> <encoding> <name> reencode-font
-/reencode-font {
-       reencode-dict begin
-               /name exch def
-               /encoding exch def
-               /base-font exch def
-               % note: Needs ps level 2
-               /font base-font maxlength dict def
-               base-font {
-                       exch dup dup /FID ne exch /Encoding ne and
-                       { exch font 3 1 roll put }
-                       { pop pop } ifelse
-               } forall
-               font /FontName name put
-               font /Encoding encoding put
-               name font definefont pop
-       end
-} bind def
-
-
-% start-system
-/start-system {
-    gsave
-} bind def
-
-/start-page {
-    gsave
-    0
-    vsize translate
-} bind def
-
-
-/stop-system {
-       /the-line exch def
-       the-line stroke grestore
-} bind def
-
-
-/end-lilypond-output {
-%      showpage
-} bind def
-
-
 /init-lilypond-parameters {
        staff-line-thickness setlinewidth
        staff-height init-paper