X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ps%2Flilyponddefs.ps;h=442ae200466f76dfac890400a8ef34d3bf28886a;hb=582186f60e5103f11a0cc54cc5dfb3319b9ea114;hp=5b11abc29ec0d8eecdf3d2b90576fd7b220722c7;hpb=233032344e92522ec0088321f6ff5c6d74cb6594;p=lilypond.git

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 5b11abc29e..442ae20046 100644
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -11,85 +11,24 @@
 
 
 /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
-	.1 setlinewidth
 	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
-
-
-% <x> <y> start-system
-/start-system {
-	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
-	pstack
 } bind def