X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=ps%2Flilyponddefs.ps;h=ad0d89a61bc1f9140dc63ea56cd67516f1fa5f24;hb=ce593a5d9614d463ac0255eac17ceb50ce3bcc29;hp=a53b452af7ba59e3785cc01c0c23a5bfd2e4763f;hpb=9327175383c509e6e7e2677b9dfc0cb55a362901;p=lilypond.git

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index a53b452af7..ad0d89a61b 100644
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -6,89 +6,22 @@
 
 % /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
 
-%% 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