X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ps%2Flilyponddefs.ps;h=f7974111c6008853de7b0bd483130a650393e2de;hb=90e4d7057f3857da049dfda3d130017d4719bd6b;hp=536e7c36f4b60bec810658da486a2142424f7ea5;hpb=e12737ca6703c9894ad0b5be0b78897a5b68ab23;p=lilypond.git

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 536e7c36f4..f7974111c6 100644
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -1,67 +1,25 @@
 %!PS-Adobe-2.0: lilyponddefs.ps
-% TODO:
-%  * junk all magic, start-line/stop-line just: placebox @ x.y
 %
 % Functions for direct PostScript output
 
 % /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
-	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
-	grestore
-} bind def
-
-
-/place-box {
-	/object exch def
-	gsave
-	% exch translate
-	translate
-	0 0 moveto
-	object
+	paper-width line-width sub 2 div /left-margin exch def
 	grestore
 } 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