blob: 7243731913f31277510410fa57143467596a6077 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
%!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
} bind def
/init-paper {
gsave
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
/init-lilypond-parameters {
staff-line-thickness setlinewidth
staff-height init-paper
} bind def
% end lilyponddefs.ps
|
