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

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