patch::: 1.3.95.tca2

[lilypond.git] / ps / lilyponddefs.ps

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 7bc7ae58ea4e5b468f9765af7dac2f22a1339260..768713c521ed18dee5fcc4658300798e12d983e9 100644 (file)
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -1,15 +1,13 @@
 %!PS-Adobe-1.0: lilyponddefs
 
 % hmm
-/setgray { 1 add } bind def
+% /setgray { 1 add } bind def
 
-% urg
-1 /stafflinethickness exch def
+/stafflinethickness  mudelapaperstafflinethickness def
+/staffheight mudelapaperstaffheight def
 
 /xoffset 30 def
 /yoffset 700 def
-/staffrulethickness 1 def
-/staffheight 20 def
 
 /placebox
 {
@@ -22,142 +20,29 @@
        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
-} 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
-
-/extender % width
-{
-       gsave
-       0 0 moveto
-       stafflinethickness 0.8 mul setlinewidth
-       0 lineto stroke
-       grestore
-} bind def
+%
+% FIXME.  translate to middle of box.
+%
 
-/widthbar % height width
+/draw_box % breapth width depth height
 {
+       /h exch def
+       /d exch def
+       /w exch def
+       /b exch def
        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
+       0 setlinewidth
+       b neg d neg rmoveto
+       b w add 0 rlineto
+       0 d h add rlineto
+       b w add neg 0 rlineto
+       closepath % 0 d h add neg rlineto
+       fill
 
-/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
@@ -172,30 +57,11 @@
        grestore
        yoffset add /yoffset exch def
        % urg...
-       yoffset staffheight 8 mul sub /yoffset exch def
+       yoffset mudelapaperstaffheight 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...