-%!PS-Adobe-1.0: lilyponddefs
+%!PS-Adobe-2.0: lilyponddefs.ps
+%
+% Functions for direct PostScript output
-% hmm
-/setgray { 1 add } bind def
+% /setgray { 1 add } bind def
-% urg
-1 /stafflinethickness exch def
+% To let gs load fonts from builddir, do:
+% export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm
-/xoffset 30 def
-/yoffset 700 def
-/staffrulethickness 1 def
-/staffheight 20 def
+/staff-line-thickness lilypondpaperlinethickness def
+/staff-height lilypondpaperstaffheight def
+/line-width lilypondpaperlinewidth def
-/placebox
+% FIXME: why isn't this set (by default) by lily?
+% /text-height lilypondpapertextheight def
+
+/lily-output-units 2.83464 def %% milimeter
+% /lily-output-units 0.996264 def %% true points.
+
+/output-scale lilypondpaperoutputscale lily-output-units mul def
+
+/set-ps-scale-to-lily-scale { output-scale output-scale scale } bind def
+
+/paper-size { lilypondpaperpapersize } bind def
+
+%% FIXME: base-line-skip is too big, is this RIGHT?
+%% /base-line-skip lilypondpaperlineheight def
+%%/base-line-skip lilypondpaperlineheight lilypondpaperoutputscale div def
+/base-line-skip 0 def
+
+/init-paper {
+ gsave
+ .1 setlinewidth
+ clippath pathbbox newpath
+ /vsize exch def
+ /hsize exch def pop pop pop pop
+ % FIXME
+ /top-margin 2 def
+ hsize line-width sub 2 div /left-margin exch def
+ grestore
+} bind def
+
+/place-box
{
/object exch def
gsave
grestore
} bind def
-/setbold % '(' text ')'
-{
- settext
-} bind def
-
-/settext % '(' text ')'
-{
- gsave
- % urg
- /Times-Roman findfont 12 scalefont setfont
- show
- grestore
-} bind def
+%% http://bibliofile.mc.duke.edu/gww/fonts/postscript-utilities/encoding-vectors.html
-/setfinger % '(' text ')'
-{
- gsave
- % urg
- /feta-nummer5 findfont 12 scalefont setfont
- show
- grestore
-} bind def
+%/FONTLENGTH 256 bind def
-/setitalic % '(' text ')'
+%<font> <encoding> <name> reencode-font
+/reencode-dict 5 dict def
+/reencode-font
{
- gsave
- % urg
- /Times-Italic findfont 12 scalefont setfont
- show
- grestore
+ 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
-/vrule % width height depth
+/start-page
{
- gsave
- 3 -1 roll setlinewidth
- neg 0 exch moveto
- 0 exch lineto stroke
- grestore
+ /line-x left-margin output-scale div def
+ /line-y vsize top-margin sub def
} bind def
-/draw_stem % kern width height depth
+/stop-page
{
- gsave
- 4 -1 roll neg 0 translate
- vrule
- grestore
+ showpage
} bind def
-/extender % width
+% dump using baselineskip, fold to new page
+/start-system % height
{
+ dup base-line-skip gt {
+ /line-height exch def
+ }
+ {
+ pop /line-height base-line-skip def
+ } ifelse
+ line-y top-margin sub base-line-skip lt {
+ showpage
+ /line-y vsize top-margin sub def
+ } if
gsave
- 0 0 moveto
- stafflinethickness 0.8 mul setlinewidth
- 0 lineto stroke
- grestore
+ line-x line-y translate
} bind def
-/widthbar % height width
-{
- gsave
- setlinewidth
- 2 div dup neg 0 exch moveto
- 0 exch lineto stroke
- 2 div
+/stop-system
+{
+ /the-line exch def
+ the-line
+ stroke
grestore
+ line-y line-height output-scale mul sub /line-y exch def
} bind def
-/thickbar % height
-{
- stafflinethickness 2 mul widthbar
-} bind def
-
-/thinbar % height
-{
- stafflinethickness 1.6 mul widthbar
+% FIXME: font definitions should come from LilyPond
+% built-in ps fonts are ugly
+/huge-bold-font {
+ /Palatino-Bold findfont 20.7 scalefont setfont
} bind def
-/maatstreep % height
-{
- thinbar
-} bind def
-
-/fatdoublebar
-{
- thickbar
+/Large-bold-font {
+ /Palatino-Bold findfont 17.3 scalefont setfont
} bind def
-/finishbar
-{
- thickbar
+/large-bold-font {
+ /Palatino-Bold findfont 14.4 scalefont setfont
} bind def
-/generalmeter % num den
-{
- pop pop
+/large-font {
+ /Palatino-Roman findfont 14.4 scalefont setfont
} bind def
-/pianobrace % '(' char ')'
-{
- gsave
- /feta-braces20 findfont 12 scalefont setfont%
- show
- grestore
+/large-smallcaps-font {
+ % urg
+ /Bookman-Light findfont 14.4 scalefont setfont
} bind def
-/doublebar
-{
- thinbar
+/normal-font {
+ /Palatino-Roman findfont 12 scalefont setfont
} bind def
-/repeatbar
-{
- thickbar
+/footnote-font {
+ /Palatino-Roman findfont 10 scalefont setfont
} bind def
-/repeatbarstartrepeat
+/get-text-dimensions % path .. width height
{
- thickbar
+ dup true charpath pathbbox
+ newpath
+ line-x line-y moveto
+ exch 4 -1 roll
+ sub
+ 3 1 roll
+ exch sub
} bind def
-/startbar
+/set-centered
{
- thickbar
+ line-x line-y moveto
+ get-text-dimensions
+ neg line-y add /line-y exch def
+ neg line-width add 2 div 0 rmoveto
+ show
} bind def
-/startrepeat
+/set-left
{
- thickbar
+ line-x line-y moveto
+ get-text-dimensions
+ neg line-y add /line-y exch def
+ pop
+ show
} bind def
-/stoprepeat
+/set-right
{
- thickbar
-} bind def
-
-/start_line
-{
- gsave
- xoffset yoffset translate
+ line-x line-y moveto
+ get-text-dimensions
+ neg line-y add /line-y exch def
+ neg line-width add 0 rmoveto
+ show
} bind def
-/stop_line
-{
- /object exch def
- 0 0 moveto pathbbox exch pop sub exch pop
- object
- grestore
- yoffset add /yoffset exch def
- % urg...
- yoffset staffheight 8 mul sub /yoffset exch def
+/make-lilypond-title
+{
+ currentdict /lilyponddedication known {
+ normal-font lilyponddedication set-centered
+ line-y 10 sub /line-y exch def
+ } if
+ currentdict /lilypondtitle known {
+ huge-bold-font lilypondtitle set-centered
+ line-y 5 sub /line-y exch def
+ } if
+ currentdict /lilypondsubtitle known {
+ Large-bold-font lilypondsubtitle set-centered
+ line-y 5 sub /line-y exch def
+ } if
+ currentdict /lilypondsubsubtitle known {
+ large-bold-font lilypondsubsubtitle set-centered
+ } if
+ line-y /mini-page exch def
+ currentdict /lilypondcomposer known {
+ large-smallcaps-font lilypondcomposer set-right
+ line-y 2 sub /line-y exch def
+ } if
+ currentdict /lilypondopus known {
+ normal-font lilypondopus set-right
+ line-y 3 sub /line-y exch def
+ } if
+ currentdict /lilypondarranger known {
+ normal-font lilypondarranger set-right
+ line-y 3 sub /line-y exch def
+ } if
+ currentdict /lilypondpoet known {
+ mini-page /line-y exch def
+ normal-font lilypondpoet set-left
+ line-y 3 sub /line-y exch def
+ } if
+ currentdict /lilypondtexttranslator known {
+ normal-font lilypondtexttranslator set-left
+ line-y 3 sub /line-y exch def
+ } if
+ currentdict /lilypondinstrument known {
+ large-font lilypondinstrument set-centered
+ } if
+ currentdict /lilypondpiece known {
+ large-smallcaps-font lilypondpiece set-left
+ } if
+} bind def
+
+/end-lilypond-output
+{
+ /line-y top-margin def
+ footnote-font lilypondtagline set-left
+ showpage
} 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
+staff-line-thickness setlinewidth
-(lily.ps) findlibfile
-{
- exch pop //systemdict /run get exec
-}
-{
- /undefinedfilename signalerror
-} ifelse
+% set postscript paper size
+paper-size
-stafflinethickness setlinewidth
+% initialise paper dimensions
+staff-height init-paper
-% see if we're there...
-% 10 setlinewidth 0 0 moveto 400 800 lineto stroke
+% end lilyponddefs.ps
projects / lilypond.git / blobdiff