/set-ps-scale-to-lily-scale {
- lily-output-units output-scale mul
- lily-output-units output-scale mul scale } bind def
+ lily-output-units output-scale mul
+ lily-output-units output-scale mul scale
+} bind def
+
/init-paper {
- gsave
- .1 setlinewidth
- clippath pathbbox newpath
- /vsize exch def
- /hsize exch def pop pop pop
- % FIXME
- /top-margin 2 def
+ gsave
+ .1 setlinewidth
+ clippath pathbbox newpath
+ /vsize exch def
+ /hsize exch def pop pop pop
+ % FIXME
+ /top-margin 2 def
hsize line-width sub 2 div /left-margin exch def
- grestore
+ grestore
} bind def
-/place-box
-{
+/place-box {
/object exch def
gsave
- %exch translate
+ % exch translate
translate
0 0 moveto
object
%/FONTLENGTH 256 bind def
-%<font> <encoding> <name> reencode-font
+
/reencode-dict 5 dict def
-/reencode-font
-{
- reencode-dict
- begin
- /name exch def
- /encoding exch def
- /base-font exch def
- % note: Needs ps level 2
- /font base-font maxlength dict def
- base-font {
- exch dup dup /FID ne exch /Encoding ne and
- { exch font 3 1 roll put }
- { pop pop } ifelse
- } forall
- font /FontName name put
- font /Encoding encoding put
- name font definefont pop
- end
-} bind def
-/start-system % x y
-{
- gsave
- 0
- vsize translate
+
+%<font> <encoding> <name> reencode-font
+/reencode-font {
+ reencode-dict begin
+ /name exch def
+ /encoding exch def
+ /base-font exch def
+ % note: Needs ps level 2
+ /font base-font maxlength dict def
+ base-font {
+ exch dup dup /FID ne exch /Encoding ne and
+ { exch font 3 1 roll put }
+ { pop pop } ifelse
+ } forall
+ font /FontName name put
+ font /Encoding encoding put
+ name font definefont pop
+ end
} bind def
-/stop-system
-{
- /the-line exch def
- the-line stroke grestore
+
+% <x> <y> start-system
+/start-system {
+ gsave
+ 0
+ vsize translate
} bind def
-/end-lilypond-output
-{
-% showpage
+
+/stop-system {
+ /the-line exch def
+ the-line stroke grestore
} bind def
-staff-line-thickness setlinewidth
+
+/end-lilypond-output {
+% showpage
+} bind def
-staff-height init-paper
+/init-lilypond-parameters {
+ staff-line-thickness setlinewidth
+ staff-height init-paper
+ pstack
+} bind def
-pstack
% end lilyponddefs.ps