X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ps%2Flilyponddefs.ps;h=536e7c36f4b60bec810658da486a2142424f7ea5;hb=0df564d0a0db8bfa46f06a7828d85bb9bda3ba71;hp=bdeec36366094345a5c0f7b916553c18e25bd37d;hpb=df3ce6aaa1bef3c28f656b82c3ae1d0b47bd98f4;p=lilypond.git

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index bdeec36366..536e7c36f4 100644
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -11,82 +11,61 @@
 
 
 /set-ps-scale-to-lily-scale {
-    lily-output-units output-scale mul
-    lily-output-units output-scale mul scale } bind def
+	lily-output-units output-scale mul
+	lily-output-units output-scale mul scale
+} bind def
+
 
 /init-paper {
- 	gsave
-  	.1 setlinewidth
-  	clippath pathbbox newpath
-  	/vsize exch def
-  	/hsize exch def pop pop pop 
- 	% FIXME
- 	/top-margin 2 def
+	gsave
+	clippath pathbbox newpath
+	/vsize exch def
+	/hsize exch def pop pop pop
+	% FIXME
+	/top-margin 2 def
 	hsize line-width sub 2 div /left-margin exch def
- 	grestore
+	grestore
 } bind def
 
-  
-/place-box
-{
+
+/place-box {
 	/object exch def
 	gsave
-	%exch translate
+	% 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
-
-%<font> <encoding> <name> reencode-font
-/reencode-dict 5 dict def
-/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
+
+% start-system
+/start-system {
+    gsave
 } bind def
 
-/start-system % x y
-{
+/start-page {
     gsave
     0
     vsize translate
 } bind def
 
-/stop-system
-{ 
-    /the-line exch def
-    the-line stroke grestore
+
+/stop-system {
+	/the-line exch def
+	the-line stroke grestore
 } bind def
 
-/end-lilypond-output
-{
-%    showpage
+
+/end-lilypond-output {
+%	showpage
 } bind def
 
-staff-line-thickness setlinewidth
 
+/init-lilypond-parameters {
+	staff-line-thickness setlinewidth
+	staff-height init-paper
+} bind def
 
-staff-height init-paper
- 
-pstack
 
 % end lilyponddefs.ps