- \consists "Repeat_acknowledge_engraver"
- \consists "Staff_collecting_engraver"
-
- % move the alias along with the engraver.
-
- \consists "Timing_engraver"
-
- \consists "Output_property_engraver"
- \consists "System_start_delimiter_engraver"
- \consists "Mark_engraver"
- \consists "Metronome_mark_engraver"
- \consists "Break_align_engraver"
- \consists "Spacing_engraver"
- \consists "Vertical_align_engraver"
- \consists "Stanza_number_align_engraver"
- \consists "Bar_number_engraver"
- \consists "Span_arpeggio_engraver"
-
- \accepts "Staff"
- \accepts "TabStaff"
- \accepts "VaticanaStaff"
- \accepts "GregorianTranscriptionStaff"
- \accepts "MensuralStaff"
- \accepts "StaffGroup"
- \accepts "RhythmicStaff"
- \accepts "DrumStaff"
- \accepts "Lyrics"
- \accepts "ChordNames"
- \accepts "GrandStaff"
- \accepts "ChoirStaff"
- \accepts "PianoStaff"
- \accepts "Devnull"
- \accepts "NoteNames"
- \accepts "FiguredBass"
-
- soloText = #"Solo"
- soloIIText = #"Solo II"
- aDueText = #"a2"
- printPartCombineTexts = ##t
- systemStartDelimiter =#'SystemStartBar
-
- drumStyleTable = #drums-style
-
- melismaBusyProperties = #default-melisma-properties
-
- clefGlyph = #"clefs.G"
- clefPosition = #-2
- middleCPosition = #-6
-
- defaultBarType = #"|"
- barNumberVisibility = #default-bar-number-visibility
- automaticBars = ##t
-
- explicitClefVisibility = #all-visible
- explicitKeySignatureVisibility = #all-visible
- autoBeamSettings = #default-auto-beam-settings
- autoBeaming = ##t
- scriptDefinitions = #default-script-alist
-
- verticalAlignmentChildCallback = #Align_interface::alignment_callback
-
- pedalSustainStrings = #'("Ped." "*Ped." "*")
- pedalSustainStyle = #'text
- pedalUnaCordaStrings = #'("una corda" "" "tre corde")
- pedalUnaCordaStyle = #'text
-
- %% These are in ordinary italic font, including the *,
- %% but they are unlikely to be used,
- %% as the default pedal-style for SostenutoPedal is 'mixed':
- %% i.e. Sost. Ped_____________________
- pedalSostenutoStrings = #'("Sost. Ped." "*Sost. Ped." "*")
- pedalSostenutoStyle = #'mixed
-
-
- harmonicAccidentals = ##t
- fingeringOrientations = #'(up down)
- tupletNumberFormatFunction = #denominator-tuplet-formatter
- markFormatter = #format-mark-letters
- rehearsalMark = #1
- subdivideBeams = ##f
- allowBeamBreak = ##f
- extraNatural = ##t
- autoAccidentals = #'(Staff (same-octave . 0))
- autoCautionaries = #'()
-
- printKeyCancellation = ##t
- keyAccidentalOrder = #`(
- (6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT ) (1 . ,FLAT) (4 . ,FLAT) (0 . ,FLAT) (3 . ,FLAT)
- (3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP) (5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
- (6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT ) (1 . ,DOUBLE-FLAT) (4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
- (3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
- )
-
- %{
-
- this order is more complex, see wansek p254 and further.
-
- for instance, order of clef and :|: depends on function of the clef
-
- (clef of start-repeat) :|: (change-clef)
-
- is the proper order.
-
- %}
-
- barCheckSynchronize = ##f
-
- %% chord names:
- chordNameFunction = #ignatzek-chord-names
- majorSevenSymbol = #whiteTriangleMarkup
- chordNameSeparator = #(make-simple-markup "/")
- chordNameExceptions = #ignatzekExceptions
- chordNoteNamer = #'()
- chordRootNamer = #note-name->markup
- chordNameExceptionsFull = #fullJazzExceptions
- chordNameExceptionsPartial = #partialJazzExceptions
-
-
- bassStaffProperties = #'((assign clefGlyph "clefs.F")
- (assign clefPosition 2)
- (assign middleCPosition 6))
- %% tablature:
- stringOneTopmost = ##t
- highStringOne = ##t
-
- %% One may change the strings tuning as following :
- %% The lenght of the list must be equal to the number of string
- stringTunings = #guitar-tuning
- tablatureFormat = #fret-number-tablature-format
-
- %%
- bassFigureFormatFunction = #format-bass-figure
- metronomeMarkFormatter = #format-metronome-markup
- graceSettings = #`(
- (Voice Stem direction 1)
- ;; TODO: should take from existing definition.
- ;; c&p from define-grobs.scm
-
- (Voice Stem lengths ,(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0)))
- (Voice Stem stem-shorten (0.4 0.4))
- (Voice Stem font-size -3)
- (Voice NoteHead font-size -3)
- (Voice Dots font-size -3)
- (Voice Stem beamed-lengths
- ,(map (lambda (x) (* 0.8 x)) '(3.3 3.3 4.0)))
- (Voice Stem beamed-minimum-free-lengths
- ,(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5)))
- (Voice Stem beamed-extreme-minimum-free-lengths
- ,(map (lambda (x) (* 0.8 x)) '(1.83 1.5)))
-
- (Voice Stem no-stem-extend #t)
- (Voice Beam thickness 0.384)
- (Voice Beam space-function ,(lambda (beam mult)
- (* 0.8 (Beam::space_function
- beam mult))))
- (Voice Accidental font-size -4)
- (Voice Slur direction -1)
- )
-
- quotedEventTypes = #'(note-event rest-event time-scaled-music tie-event)
- instrumentTransposition = #(ly:make-pitch 0 0 0)
-
- verticallySpacedContexts = #'(Staff)
+ (Voice Stem lengths ,(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0)))
+ (Voice Stem stem-shorten (0.4 0.4))
+ (Voice Stem font-size -3)
+ (Voice NoteHead font-size -3)
+ (Voice Dots font-size -3)
+ (Voice Stem beamed-lengths
+ ,(map (lambda (x) (* 0.8 x)) '(3.3 3.3 4.0)))
+ (Voice Stem beamed-minimum-free-lengths
+ ,(map (lambda (x) (* 0.8 x)) '(2.5 2.0 1.5)))
+ (Voice Stem beamed-extreme-minimum-free-lengths
+ ,(map (lambda (x) (* 0.8 x)) '(1.83 1.5)))
+
+ (Voice Stem no-stem-extend #t)
+ (Voice Beam thickness 0.384)
+ (Voice Beam space-function ,(lambda (beam mult)
+ (* 0.8 (Beam::space_function
+ beam mult))))
+ (Voice Accidental font-size -4)
+ (Voice Slur direction -1)
+ )
+
+ keepAliveInterfaces = #'(rhythmic-grob-interface lyric-interface percent-repeat-interface)
+ quotedEventTypes = #'(note-event rest-event time-scaled-music tie-event)
+ instrumentTransposition = #(ly:make-pitch 0 0 0)
+
+ verticallySpacedContexts = #'(Staff)