X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fdeclarations-init.ly;h=a82f358560b4055d4fb984391f4f5a6bb3034ac4;hb=6325404202da7fa5e067326439c095bec5629d8e;hp=f0fc60ee7bfe31284767e96bbd89e022847aa08b;hpb=853303f6ec72641e842d58e68bc304c5afffcd13;p=lilypond.git diff --git a/ly/declarations-init.ly b/ly/declarations-init.ly index f0fc60ee7b..a82f358560 100644 --- a/ly/declarations-init.ly +++ b/ly/declarations-init.ly @@ -1,12 +1,18 @@ +\version "2.3.16" + +%% < 1.8 compatibility switch #(ly:set-option 'old-relative) -\version "2.2.0" +%% named durations breve = #(ly:make-duration -1 0) longa = #(ly:make-duration -2 0 ) maxima = #(ly:make-duration -3 0) \include "music-functions-init.ly" -\include "nederlands.ly" % dutch + +%% default note names are dutch +\include "nederlands.ly" + \include "drumpitch-init.ly" \include "chord-modifiers-init.ly" \include "script-init.ly" @@ -20,23 +26,40 @@ start = -1 stop = 1 smaller = -1 bigger = 1 -center=0 - -%{ +center = 0 -should also set allowBeamBreak, but how to do it "portably"? (ie. also -working with lyric sections) +%% FIXME +%% should also set allowBeamBreak, but how to do it "portably"? (ie. also +%% working with lyric sections) +%% +%% try \once \set Score.allowBeamBreak = ##t -%} - -%% rather name \newline, \newpage ? +%% rather name \newline, \pageBreak ? break = #(make-event-chord (list (make-penalty-music -10001 0))) noBreak = #(make-event-chord (list (make-penalty-music 10001 0))) -pagebreak = #(make-event-chord (list (make-penalty-music -10001 -10001))) -noPagebreak = #(make-event-chord (list (make-penalty-music 0 10001))) +pageBreak = #(make-event-chord (list (make-penalty-music -10001 -10001))) +noPageBreak = #(make-event-chord (list (make-penalty-music 0 10001))) + +% +% Code articulation definitions +% noBeam = #(make-music 'BeamForbidEvent) pipeSymbol = #(make-music 'BarCheck) +bracketOpenSymbol = #(make-span-event 'BeamEvent START) +bracketCloseSymbol = #(make-span-event 'BeamEvent STOP) +tildeSymbol = #(make-music 'TieEvent) +parenthesisOpenSymbol = #(make-span-event 'SlurEvent START) +parenthesisCloseSymbol = #(make-span-event 'SlurEvent STOP) +escapedExclamationSymbol = #(make-span-event 'CrescendoEvent STOP) +escapedParenthesisOpenSymbol = #(make-span-event 'PhrasingSlurEvent START) +escapedParenthesisCloseSymbol = #(make-span-event 'PhrasingSlurEvent STOP) +escapedBiggerSymbol = #(make-span-event 'DecrescendoEvent START) +escapedSmallerSymbol = #(make-span-event 'CrescendoEvent START) + + + +foo = { \pageBreak } \include "scale-definitions-init.ly" @@ -44,127 +67,52 @@ melisma = #(make-span-event 'ManualMelismaEvent START) melismaEnd = #(make-span-event 'ManualMelismaEvent STOP) \include "grace-init.ly" - -% ugh \include "midi-init.ly" +\include "book-paper-defaults.ly" - -% Do units first; must be done before any units are specified. \paper { - unit = #(ly:unit) - mm = 1.0 - in = 25.4 + mm = #(ly:output-def-lookup $defaultbookpaper 'mm) + unit = #(ly:output-def-lookup $defaultbookpaper 'unit) + + in = #(* 25.4 mm) pt = #(/ in 72.27) cm = #(* 10 mm) - - inputencoding = #"TeX" - raggedright = ##f - raggedlast = ##f - packed = ##f - - #(define $is-paper #t) - #(define font-defaults - '((font-encoding . fetaMusic))) - - #(define text-font-defaults - '((font-encoding . latin1) - (baseline-skip . 2) - (word-space . 0.6))) - - #(define page-breaking ly:ragged-page-breaks) - %%#(define page-breaking ly:optimal-page-breaks) - - #(define page-to-stencil ly:page-header-lines-footer-stencil) - - #(define make-header plain-header) - #(define make-footer plain-footer) - %%#(define make-footer empty-markup) - #(define make-tagline TAGLINE-or-tagline-from-header) - #(define make-copyright copyright-from-header) - \include "engraver-init.ly" -} - -% -% 20pt staff, 5 pt = 1.75 mm -% -#(define-public $defaultbookpaper (ly:make-bookpaper 1.7573)) - - - -#(set-default-paper-size "a4") - - -%{ - -; note: -; you can add fonts manually in the paper block by issuing - -#(set! fonts (append ...myfonts... fonts)) - -for the format of myfonts, see font.scm - -%} - -paperEleven = \paper { - #(paper-set-staff-size (* 11.0 pt)) -} - -paperThirteen = \paper { - #(paper-set-staff-size (* 13.0 pt)) -} - -paperSixteen = \paper { - #(paper-set-staff-size (* 16.0 pt)) -} - -paperEightteen = \paper { - #(paper-set-staff-size (* 18.0 pt)) -} - -paperTwenty = \paper { - #(paper-set-staff-size (* 20.0 pt)) + #(set-paper-dimension-variables (current-module)) + } -paperTwentythree = \paper { - #(paper-set-staff-size (* 23.0 pt)) -} -paperTwentysix = \paper { - #(paper-set-staff-size (* 26.0 pt)) -} +#(set-default-paper-size "a4") -\paper { \paperTwenty } partCombineListener = \paper { - \context { - \VoiceContext - \consists Note_heads_engraver - \consists Rest_engraver - \type "Recording_group_engraver" - recordEventSequence = #notice-the-events-for-pc - } - \context { \ScoreContext skipTypesetting = ##t } + \context { + \Voice + \consists Note_heads_engraver + \consists Rest_engraver + \type "Recording_group_engraver" + recordEventSequence = #notice-the-events-for-pc + } + \context { + \Score + skipTypesetting = ##t + } } #(set-part-combine-listener partCombineListener) \include "dynamic-scripts-init.ly" \include "spanners-init.ly" - \include "property-init.ly" -%% reset default duration -unusedEntry = \notes { c4 } +setDefaultDurationToQuarter = { c4 } -%% must have size argument for GUILE 1.6 compat. +%% MAKE-HASH-TABLE in GUILE 1.6 takes mandatory size parameter. #(define musicQuotes (make-hash-table 29)) -%%#(define-public toplevel-music-handler ly:parser-add-book-and-score) -#(define toplevel-book-handler default-toplevel-book-handler) -#(define toplevel-music-handler default-toplevel-music-handler) -#(define toplevel-score-handler default-toplevel-score-handler) - -#(define toplevel-score-handler default-toplevel-score-handler) +#(define toplevel-book-handler ly:parser-print-book) +#(define toplevel-music-handler collect-music-for-book) +#(define toplevel-score-handler collect-scores-for-book)