X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ps%2Flilyponddefs.ps;h=f7974111c6008853de7b0bd483130a650393e2de;hb=9505acaaf90190158f6b66b59da13db1454cddc4;hp=7243731913f31277510410fa57143467596a6077;hpb=bbcb58184883768ca35d64451d7f693d2db11bb7;p=lilypond.git

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 7243731913..f7974111c6 100644
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -1,18 +1,11 @@
 %!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