+++ /dev/null
-\version "2.10.12"
-
-\header { texidoc = "
-Custodes may be engraved in various styles.
-" }
-
-\layout {
- \context {
- \Staff
- \consists Custos_engraver
- }
- ragged-right = ##t
-}
-
-{
- \override Staff.Custos #'neutral-position = #4
-
- \override Staff.Custos #'style = #'hufnagel
- c'1^"hufnagel"
- \break < d' a' f''>1
-
- \override Staff.Custos #'style = #'medicaea
- c'1^"medicaea"
- \break < d' a' f''>1
-
- \override Staff.Custos #'style = #'vaticana
- c'1^"vaticana"
- \break < d' a' f''>1
-
- \override Staff.Custos #'style = #'mensural
- c'1^"mensural"
- \break < d' a' f''>1
-}
-
+++ /dev/null
-\version "2.10.12"
-
-\header { texidoc = "
-The property @{chordNameExceptions@} can used to store a list of special notations for specific chords.
-" }
-
-% 7sus4 denoted with ^7 wahh
-chExceptionMusic = {
- <c f g bes>1-\markup { \super "7" "wahh" }}
-
- % add to existing exceptions.
-chExceptions = #(append
- (sequential-music-to-chord-exceptions chExceptionMusic #t)
- ignatzekExceptions)
-
-theMusic = \chordmode {
- c:7sus4 c:dim7/+f
- \set chordNameExceptions = #chExceptions
- c:7sus4 c:dim7/+f
-}
-
-\layout { ragged-right = ##t }
-
-<< \context ChordNames \theMusic
- \context Voice \theMusic
->>
-
+++ /dev/null
-\version "2.10.12"
-
-\header { texidoc = "
-l.v. ties should avoid dots and staff lines, similar to normal ties. They have fixed size. Their formatting can be tuned with
-@code{tie-configuration}
-" }
-
-\paper {
- ragged-right = ##t
-}
-
-\relative {
- <c e g>\laissezVibrer r4
- <c f g>\laissezVibrer r
- <c d f g>\laissezVibrer r
- <c d f g>4.\laissezVibrer r
-
- <c d e f>4\laissezVibrer r
- \override LaissezVibrerTieColumn #'tie-configuration
- = #'((-7 . -1)
- (-5 . -1)
- (-3 . 1)
- (-1 . 1))
- <c d e f>4\laissezVibrer r
-}
-
+++ /dev/null
-\version "2.10.12"
-
-\header { texidoc = "
-Clusters are a device to denote that a complete range of notes is to be played.
-" }
-
-\layout { ragged-right = ##t }
-
-fragment = \relative c' {
- c4 f4 <e d'>4
- <g a>8 <e a> a4 c2 <d b>4 e4
- c4
-}
-
-<<
- \new Staff \fragment
- \new Staff \makeClusters \fragment
->>
+++ /dev/null
-\version "2.10.12"
-
-\header { texidoc = "
-Marks can be printed as numbers.
-By setting @{markFormatter@} we may choose a different style of mark printing. Also, marks can be specified manually, with a markup argument.
-" }
-
-\paper { ragged-right = ##t }
-
-\relative c''{
- \set Score.markFormatter = #format-mark-numbers
- c1 | \mark \markup { \musicglyph #"scripts.coda" }
- c1 | \mark \default
- c1 | \mark \default
- \set Score.markFormatter
- = #(lambda (mark context)
- (make-box-markup (format-mark-numbers mark context)))
- c1 | \mark \default
- \set Score.markFormatter
- = #(lambda (mark context)
- (make-circle-markup (format-mark-numbers mark context)))
- c1 | \mark \default
-}
+++ /dev/null
-\version "2.10.12"
-
-\header { texidoc = "
-The @{\tag@} command marks music expressions with a name. These tagged expressions can be filtered out later. This mechanism can be used to make different versions of the same music. In this example, the top stave displays the music expression with all tags included. The bottom two staves are filtered: the part has cue notes and fingerings, but the score has not.
-" }
-
-\layout { ragged-right= ##t }
-
-common =
-\relative c'' {
-
- c1
- \relative c' <<
- \tag #'part <<
- R1 \\
- {
- \set fontSize = #-1
- c4_"cue" f2 g4 }
- >>
- \tag #'score R1
- >>
- c1-\tag #'part ^4
-}
-
-
-
-\simultaneous {
- \new Staff {
- \set Staff.instrumentName = #"both"
- \common
- }
- \new Staff {
- \set Staff.instrumentName = #"part"
- \keepWithTag #'part \common
- }
- \new Staff {
- \set Staff.instrumentName = #"score"
- \keepWithTag #'score \common
- }
-}
-
-
+++ /dev/null
-\version "2.10.12"
-
-\header { texidoc = "
-By setting @{voltaOnThisStaff@}, repeats can be put also over other staves than the topmost one in a score.
-" }
-
-\layout { ragged-right = ##t }
-vmus = { \repeat volta 2 c1 \alternative { d e } }
-
-\relative c'' <<
- \new StaffGroup <<
- \context Staff \vmus
- \new Staff \vmus
- >>
- \new StaffGroup <<
- \new Staff <<
- \set Staff.voltaOnThisStaff = ##t
- \vmus >>
- \new Staff \vmus
- >>
->>
+++ /dev/null
-\version "2.10.12"
-
-\header { texidoc = "
-By setting properties in @{NonMusicalPaperColumn@}, vertical spacing of page layout can be adjusted.
-
-For technical reasons, @{overrideProperty@} has to be used for setting properties on individual object. @{\override@} may still be used for global overrides.
-
-By setting @{annotate-spacing@}, we can see the effect of each property.
-" }
-
-#(set-global-staff-size 11)
-
-\book {
- \score {
- \relative c'' \new PianoStaff <<
- \new Voice {
- c1_"followed by default spacing"\break
- c\break
-
- \overrideProperty
- #"Score.NonMusicalPaperColumn"
- #'line-break-system-details
- #'((Y-extent . (-30 . 10)))
- c_"Big bounding box (property Y-extent)"\break
-
- \overrideProperty
- #"Score.NonMusicalPaperColumn"
- #'line-break-system-details
- #'((refpoint-Y-extent . (-37 . -10)))
- c_\markup {
- \column {
- "Refpoints further apart (property refpoint-Y-extent)."
- "Stretchable space runs between refpoints"
- }
- }
-
- \break
-
- \overrideProperty
- #"Score.NonMusicalPaperColumn"
- #'line-break-system-details
- #'((next-padding . 10))
-
- c_"Followed by padding, ie unstretchable space. (property next-padding)" \break
- \overrideProperty
- #"Score.NonMusicalPaperColumn"
- #'line-break-system-details
- #'((next-space . 20))
- c_"Followed by stretchable space (property next-space)"\break
- c\break
- \overrideProperty
- #"Score.NonMusicalPaperColumn" #'line-break-system-details
- #'((bottom-space . 25.0))
- c_"25 staff space to the bottom of the page. (property bottom-space)"\break
-
-
- }
- { c1 c c c c c c c }
- >>
- }
- \paper {
- ragged-last-bottom = ##f
- annotate-spacing = ##t
- between-system-space = 1.0
- #(set! text-font-defaults
- (acons
- 'font-size 6
- text-font-defaults)
-
- )
- }
-}
-
+++ /dev/null
-\version "2.10.12"
-
-\header { texidoc = "
-The vertical positions of staff lines may be specified individually, by setting the @{line-positions@} property of the StaffSymbol.
-" }
-
-\new Staff \relative c' {
- \override Staff.StaffSymbol #'line-positions = #'(-7 -2 0 3 9)
- g c f b e a
-}