]> git.donarmstrong.com Git - lilypond.git/blob - ps/lilyponddefs.ps
* Documentation/user/refman.itely (Ottava brackets): more doco for
[lilypond.git] / ps / lilyponddefs.ps
1 %!PS-Adobe-1.0: lilyponddefs
2 %
3 % Functions for direct PostScript output
4
5 % hmm
6 % /setgray { 1 add } bind def
7
8 /staff-line-thickness lilypondpaperlinethickness def
9 /staff-height lilypondpaperstaffheight def
10 /line-width lilypondpaperlinewidth def
11
12 % FIXME: why isn't this set (by default) by lily?
13 % /text-height lilypondpapertextheight def
14
15 /lily-output-units 2.83464  def  %% milimeter
16 % /lily-output-units 0.996264  def  %% true points.
17
18 /output-scale
19 lilypondpaperoutputscale lily-output-units mul 
20 def
21
22 /set-ps-scale-to-lily-scale
23 {
24 output-scale output-scale scale
25 } bind def
26
27 /paper-size { lilypondpaperpapersize } bind def
28
29 % FIXME
30 % urg, read from paper block
31 % fixed base line skip value, for single line staves
32 /base-line-skip lilypondpaperlineheight def
33
34 /init-paper {
35         gsave
36         .1 setlinewidth
37         clippath pathbbox newpath
38         /vsize exch def
39         /hsize exch def  pop pop pop
40
41         %FIXME:
42         %vsize text-height sub 2 div /top-margin exch def
43         144 2 div /top-margin exch def
44         hsize line-width sub 2 div /left-margin exch def
45         grestore
46 } bind def
47
48 /place-box
49 {
50         /object exch def
51         gsave
52         %exch translate
53         translate
54         0 0 moveto
55         object
56         grestore
57 } bind def
58
59 /start-system % height
60 {
61         dup base-line-skip gt {
62                 /line-height exch def
63         }
64         {
65                 pop /line-height base-line-skip def
66         } ifelse
67         line-y top-margin sub base-line-skip lt {
68                 showpage
69                 /line-y vsize top-margin sub def
70         } if
71         gsave
72         line-x line-y translate
73 } bind def
74
75 /stop-system
76
77         /the-line exch def
78         the-line
79         stroke
80         grestore
81         line-y line-height output-scale mul sub /line-y exch def
82 } bind def
83
84 % FIXME: font definitions should come from LilyPond
85 %        built-in ps fonts are ugly
86 /huge-bold-font {
87         /Palatino-Bold findfont 20.7 scalefont setfont
88 } bind def
89
90 /Large-bold-font {
91         /Palatino-Bold findfont 17.3 scalefont setfont
92 } bind def
93
94 /large-bold-font {
95         /Palatino-Bold findfont 14.4 scalefont setfont
96 } bind def
97
98 /large-font {
99         /Palatino-Roman findfont 14.4 scalefont setfont
100 } bind def
101
102 /large-smallcaps-font {
103         % urg
104         /Bookman-Light findfont 14.4 scalefont setfont
105 } bind def
106
107 /normal-font {
108         /Palatino-Roman findfont 12 scalefont setfont
109 } bind def
110
111 /footnote-font {
112         /Palatino-Roman findfont 10 scalefont setfont
113 } bind def
114
115 /get-text-dimensions % path .. width height
116 {
117         dup true charpath pathbbox
118         newpath
119         line-x line-y moveto
120         exch 4 -1 roll
121         sub
122         3 1 roll
123         exch sub
124 } bind def
125
126 /set-centered
127 {
128         line-x line-y moveto
129         get-text-dimensions
130         neg line-y add /line-y exch def
131         neg line-width add 2 div 0 rmoveto
132         show
133 } bind def
134
135 /set-left
136 {
137         line-x line-y moveto
138         get-text-dimensions
139         neg line-y add /line-y exch def
140         pop
141         show
142 } bind def
143
144 /set-right
145 {
146         line-x line-y moveto
147         get-text-dimensions
148         neg line-y add /line-y exch def
149         neg line-width add 0 rmoveto
150         show
151 } bind def
152
153 /make-lilypond-title
154 {
155         currentdict /lilyponddedication known {
156                 normal-font lilyponddedication set-centered
157                 line-y 10 sub /line-y exch def
158         } if
159         currentdict /lilypondtitle known {
160                 huge-bold-font lilypondtitle set-centered
161                 line-y 5 sub /line-y exch def
162         } if
163         currentdict /lilypondsubtitle known {
164                 Large-bold-font lilypondsubtitle set-centered
165                 line-y 5 sub /line-y exch def
166         } if
167         currentdict /lilypondsubsubtitle known {
168                 large-bold-font lilypondsubsubtitle set-centered
169         } if
170         line-y /mini-page exch def
171         currentdict /lilypondcomposer known {
172                 large-smallcaps-font lilypondcomposer set-right
173                 line-y 2 sub /line-y exch def
174         } if
175         currentdict /lilypondopus known {
176                 normal-font lilypondopus set-right
177                 line-y 3 sub /line-y exch def
178         } if
179         currentdict /lilypondarranger known {
180                 normal-font lilypondarranger set-right
181                 line-y 3 sub /line-y exch def
182         } if
183         currentdict /lilypondpoet known {
184                 mini-page /line-y exch def
185                 normal-font lilypondpoet set-left
186                 line-y 3 sub /line-y exch def
187         } if
188         currentdict /lilypondtexttranslator known {
189                 normal-font lilypondtexttranslator set-left
190                 line-y 3 sub /line-y exch def
191         } if
192         currentdict /lilypondinstrument known {
193                 large-font lilypondinstrument set-centered
194         } if
195         currentdict /lilypondpiece known {
196                 large-smallcaps-font lilypondpiece set-left
197         } if
198 } bind def
199
200 /end-lilypond-output
201 {
202         /line-y top-margin def
203         footnote-font lilypondtagline set-left
204         showpage
205 } bind def
206
207 /turnOnExperimentalFeatures { } bind def
208
209 staff-line-thickness setlinewidth
210
211 % set postscript paper size
212 paper-size
213
214 % initialise paper dimensions
215 staff-height init-paper
216
217 /line-x left-margin output-scale div def
218 /line-y vsize top-margin sub def
219
220 make-lilypond-title
221
222 % see if we're there...
223 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke