1 %!PS-Adobe-2.0: lilyponddefs.ps
3 % * junk all magic, start-line/stop-line just: placebox @ x.y
5 % Functions for direct PostScript output
7 % /setgray { 1 add } bind def
9 % To let gs load fonts from builddir, do:
10 % export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm
13 /set-ps-scale-to-lily-scale { output-scale output-scale scale } bind def
18 clippath pathbbox newpath
20 /hsize exch def pop pop pop
23 hsize line-width sub 2 div /left-margin exch def
39 %% http://bibliofile.mc.duke.edu/gww/fonts/postscript-utilities/encoding-vectors.html
41 %/FONTLENGTH 256 bind def
43 %<font> <encoding> <name> reencode-font
44 /reencode-dict 5 dict def
52 % note: Needs ps level 2
53 /font base-font maxlength dict def
55 exch dup dup /FID ne exch /Encoding ne and
56 { exch font 3 1 roll put }
59 font /FontName name put
60 font /Encoding encoding put
61 name font definefont pop
75 the-line stroke grestore
83 staff-line-thickness setlinewidth
86 staff-height init-paper