ly/params-init.ly

   1 \version "1.7.18"
   2 % JUNKME.
   3
   4 %% deprecated
   5 papersizename = \papersize
   6
   7 % DO NOT change this without fixing -f ps output
   8 papersize = \papersize
   9
  10 % FIXME
  11 % direct PostScript line height for single line staves
  12 lineheight = 14
  13
  14 paperfile = \papersize + "-init.ly"
  15
  16 % paperfile = "a4-init.ly"
  17
  18 \include \paperfile
  19 \include "paper-init.ly"
  20
  21 staffspace = #(/ staffheight 4.0)
  22 linethickness = #(/ staffspace  10.0)
  23 outputscale =  #(/ staffheight 4.0)
  24 ledgerlinethickness = #(* 2.0 linethickness)
  25
  26
  27
  28 % blotdiameter = 0.4 \pt
  29 blotdiameter = 0.04 \pt
  30 interscoreline = 4. \mm
  31
  32
  33 \translator { \NoteNamesContext }
  34 \translator { \ScoreContext }
  35 \translator { \ChoirStaffContext}
  36 \translator { \InnerChoirStaffContext}
  37
  38 \translator { \RhythmicStaffContext}
  39 \translator { \StaffContext }
  40 \translator { \VoiceContext}
  41 \translator { \StaffGroupContext }
  42 \translator { \InnerStaffGroupContext }
  43 \translator { \ChordNamesContext }
  44 \translator { \GrandStaffContext}
  45 \translator { \LyricsContext }
  46 \translator { \ThreadContext}
  47 \translator { \PianoStaffContext}
  48 \translator { \LyricsVoiceContext }
  49 \translator { \StaffContainerContext }
  50 \translator { \FiguredBassContext }
  51 \translator { \TabStaffContext }
  52 \translator { \TabVoiceContext }
  53 \translator { \VaticanaStaffContext }
  54 \translator { \VaticanaVoiceContext }
  55 \translator { \GregorianTranscriptionStaffContext }
  56 \translator { \GregorianTranscriptionVoiceContext }
  57
  58
  59 %%
  60 %% TODO: baseline-skip, word-space should come from the font.
  61 %%
  62 #(define font-defaults
  63       '((font-family . music)
  64         (font-relative-size . 0)
  65         (font-shape . upright)
  66         (baseline-skip . 2)
  67         (word-space . 0.6)
  68         (font-series . medium)
  69         ))
  70
  71 #(define style-alist
  72       '((finger . ((font-family . number) (font-relative-size . -3)))
  73         (volta . ((font-family . number) (font-relative-size . -2)))
  74         (tuplet . ((font-family . roman) (font-shape . italic) (font-relative-size . -1)))
  75
  76         (timesig . ((font-family . number) ))
  77         (timesig-symbol . ((font-family . music) ))
  78
  79         (mmrest . ((font-family . number) ))
  80         (mmrest-symbol . ((font-family . music) ))
  81
  82         (mark-number . ((font-family . number) (font-relative-size . 1)))
  83         (mark-letter . ((font-family . roman)
  84                         (font-series . bold)
  85                         (font-shape . upright)
  86                         (font-relative-size . 2)))
  87
  88         (script . ((font-family . roman) (font-relative-size . -1)))
  89         (large . ((font-family . roman) (font-relative-size . 1)))
  90         (Large . ((font-series . bold) (font-family . roman)
  91                   (font-relative-size . 2)))
  92         (dynamic . ((font-family . dynamic) (font-relative-size . 0)))
  93         ))
  94 #(define properties-to-font Font_interface::properties_to_font_name)
  95 #(define markup-to-properties markup-to-properties)
  96 #(define abbreviation-alist
  97       '((columns . ((axis . 0)))
  98         (lines . ((axis . 1)))
  99         (roman . ((font-family . roman)))
 100         (music . ((font-family . music) (lookup . name)))
 101         (finger . ((font-style . finger)))
 102         (bold . ((font-series . bold)))
 103         (upright . ((font-shape . upright)))
 104         (italic . ((font-shape . italic)))
 105         (named . ((lookup . name)))
 106         (overstrike . ((extent . (0 . 0))))
 107         (super . ((raise . 1) (font-relative-size . -1) (extent . (0 . 0))))
 108         (sub . ((raise . -1) (font-relative-size . -1) (extent . (0 . 0))))
 109         (text . ((lookup . value)))
 110         )
 111      )