From: fred <fred>
Date: Thu, 5 Nov 1998 15:12:24 +0000 (+0000)
Subject: lilypond-1.1.3
X-Git-Tag: release/1.5.59~5819
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ba2ae75ad04c61e1451c0532793ecdd025bb2529;p=lilypond.git

lilypond-1.1.3
---

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
new file mode 100644
index 0000000000..b5386d2818
--- /dev/null
+++ b/ps/lilyponddefs.ps
@@ -0,0 +1,180 @@
+%!PS-Adobe-1.0: lilyponddefs
+
+% hmm
+/setgray { 1 add } bind 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
+
+/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
+} bind def
+
+/vrule % width height depth
+{
+	gsave
+	3 -1 roll setlinewidth
+	neg 0 exch moveto
+	0 exch lineto stroke
+	grestore
+} bind def
+
+/draw_stem % kern width height depth
+{
+	gsave
+	4 -1 roll neg 0 translate
+	vrule
+	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
+} 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
+
+/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) show} bind def
+/empty {(E) show} 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