X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ps%2Flilyponddefs.ps;h=f7974111c6008853de7b0bd483130a650393e2de;hb=HEAD;hp=4aa7edbdc25e595adba28fcfd2af5b86fb608c00;hpb=9e90e53ba3a141e1e4f4a32ccaa7b36b0daecf1a;p=lilypond.git

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 4aa7edbdc2..f7974111c6 100644
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -1,203 +1,29 @@
-%!PS-Adobe-1.0: lilyponddefs
+%!PS-Adobe-2.0: lilyponddefs.ps
+%
+% Functions for direct PostScript output
 
-% hmm
-/setgray { 1 add } bind def
+% /setgray { 1 add } bind def
 
-% urg
-1 /stafflinethickness exch def
-
-/xoffset 30 def
-/yoffset 700 def
-/staffrulethickness 1 def
-/staffheight 20 def
-
-/placebox
-{
-	/object exch def
-	gsave
-	%exch translate
-	translate
-	0 0 moveto
-	object
-	grestore
-} bind def
-
-/setbold % '(' text ')'
-{
-	settext
-} bind def
- 
-/settext % '(' text ')'
-{
-	gsave
-	% urg
-	/Times-Roman findfont 12 scalefont setfont
-	show
-	grestore
-} bind def
-
-/setfinger % '(' text ')'
-{
-	gsave
-	% urg
-	/feta-nummer5 findfont 12 scalefont setfont
-	show
-	grestore
-} bind def
-
-/setitalic % '(' text ')'
-{
-	gsave
-	% urg
-	/Times-Italic findfont 12 scalefont setfont
-	show
-	grestore
+/set-ps-scale-to-lily-scale {
+	lily-output-units output-scale mul dup scale
 } bind def
 
-/vrule % width depth height
-{
-	gsave
-	3 -1 roll setlinewidth
-	%neg 0 exch moveto
-	0 exch moveto
-	neg 0 exch lineto stroke
-	grestore
-} bind def
 
-/draw_stem % breapth width depth height
-{
+/init-paper {
 	gsave
-	4 -1 roll neg 0 translate
-	vrule
+	clippath pathbbox newpath
+	/paper-height exch def
+	/paper-width exch def pop pop pop
+	% FIXME
+	/top-margin 2 def
+	paper-width line-width sub 2 div /left-margin exch def
 	grestore
 } bind def
 
-/extender % width
-{
-	gsave
-	0 0 moveto
-	stafflinethickness 0.8 mul setlinewidth
-	0 lineto stroke
-	grestore
-} bind def
-
-/widthbar % height width
-{
-	gsave
-	setlinewidth
-	2 div dup neg 0 exch moveto
-	0 exch lineto stroke
-	2 div
-	grestore
-} bind def
-
-/thickbar % height
-{
-	stafflinethickness 2 mul widthbar
-} bind def
-
-/thinbar % height
-{
-	stafflinethickness 1.6 mul widthbar
-} bind def
-
-/maatstreep % height
-{
-	thinbar
-} bind def
-
-/fatdoublebar
-{
-	thickbar
+/init-lilypond-parameters {
+	staff-line-thickness setlinewidth
+	staff-height init-paper
 } bind def
 
-/finishbar
-{
-	thickbar
-} bind def
-
-/generalmeter % num den
-{
-	pop pop
-} bind def
-
-/pianobrace % '(' char ')'
-{
-	gsave
-	/feta-braces20 findfont 12 scalefont setfont%
-	show
-	grestore
-} bind def
-
-/doublebar
-{
-	thinbar
-} bind def
-
-/repeatbar
-{
-	thickbar
-} bind def
-
-/repeatbarstartrepeat
-{
-	thickbar
-} bind def
-
-/startbar
-{
-	thickbar
-} bind def
-
-/startrepeat
-{
-	thickbar
-} bind def
-
-/stoprepeat
-{
-	thickbar
-} bind def
-
-/start_line
-{ 
-	gsave
-	xoffset yoffset translate
-} bind def
-
-/stop_line
-{ 
-	/object exch def
-	0 0 moveto pathbbox exch pop sub exch pop
-	object
-	grestore
-	yoffset add /yoffset exch def
-	% urg...
-	yoffset staffheight 8 mul sub /yoffset exch def
-} bind def
-
-/unknown { (U) setbold } bind def
-/empty { (E) setbold } bind def
-
-/turnOnExperimentalFeatures { } bind def
-
-/rulesym % thick length
-{
-	gsave
-	exch setlinewidth
-	0 lineto stroke
-	grestore
-} bind def
-
-(lily.ps) findlibfile 
-{
-	exch pop //systemdict /run get exec
-} 
-{ 
-	/undefinedfilename signalerror 
-} ifelse
-
-stafflinethickness setlinewidth
 
-% see if we're there...
-% 10 setlinewidth 0 0 moveto 400 800 lineto stroke
+% end lilyponddefs.ps