-\version "1.5.68"
+\version "1.7.18"
% JUNKME.
%% deprecated
\include \paperfile
\include "paper-init.ly"
-unit = "mm"
staffspace = #(/ staffheight 4.0)
linethickness = #(/ staffspace 10.0)
outputscale = #(/ staffheight 4.0)
\translator { \TabVoiceContext }
-
+%%
+%% TODO: baseline-skip, word-space should come from the font.
+%%
+#(define font-defaults
+ '((font-family . music)
+ (font-relative-size . 0)
+ (font-shape . upright)
+ (baseline-skip . 2)
+ (word-space . 0.6)
+ (font-series . medium)
+ ))
+
+#(define style-alist
+ '((finger . ((font-family . number) (font-relative-size . -3)))
+ (volta . ((font-family . number) (font-relative-size . -2)))
+ (tuplet . ((font-family . roman) (font-shape . italic) (font-relative-size . -1)))
+
+ (timesig . ((font-family . number) ))
+ (timesig-symbol . ((font-family . music) ))
+
+ (mmrest . ((font-family . number) ))
+ (mmrest-symbol . ((font-family . music) ))
+
+ (mark-number . ((font-family . number) (font-relative-size . 1)))
+ (mark-letter . ((font-family . roman)
+ (font-series . bold)
+ (font-shape . upright)
+ (font-relative-size . 2)))
+
+ (script . ((font-family . roman) (font-relative-size . -1)))
+ (large . ((font-family . roman) (font-relative-size . 1)))
+ (Large . ((font-series . bold) (font-family . roman)
+ (font-relative-size . 2)))
+ (dynamic . ((font-family . dynamic) (font-relative-size . 0)))
+ ))
+#(define properties-to-font Font_interface::properties_to_font_name)
+#(define markup-to-properties markup-to-properties)
+#(define abbreviation-alist
+ '((columns . ((axis . 0)))
+ (lines . ((axis . 1)))
+ (roman . ((font-family . roman)))
+ (music . ((font-family . music) (lookup . name)))
+ (finger . ((font-style . finger)))
+ (bold . ((font-series . bold)))
+ (upright . ((font-shape . upright)))
+ (italic . ((font-shape . italic)))
+ (named . ((lookup . name)))
+ (overstrike . ((extent . (0 . 0))))
+ (super . ((raise . 1) (font-relative-size . -1) (extent . (0 . 0))))
+ (sub . ((raise . -1) (font-relative-size . -1) (extent . (0 . 0))))
+ (text . ((lookup . value)))
+ )
+ )