--- /dev/null
+
+\version "2.7.39"
+
+\header {
+
+ texidoc = "There a many types of bar lines available."
+
+}
+
+\layout { ragged-right = ##t }
+
+\relative {
+ \override Score.RehearsalMark #'padding = #3
+
+ c4 \bar "|" \mark \markup { \simple #"|" }
+ c \bar "|:" \mark \markup { \simple #"|:" }
+ c \bar "||" \mark \markup { \simple #"||" }
+ c \bar ":|" \mark \markup { \simple #":|" }
+ c \bar ".|" \mark \markup { \simple #".|" }
+ c \bar ".|." \mark \markup { \simple #".|." }
+ c \bar ":|:" \mark \markup { \simple #":|:" }
+ c \bar "|." \mark \markup { \simple #"|." }
+ c \bar ":" \mark \markup { \simple #":" }
+ c
+}
--- /dev/null
+\header {
+ texidoc = "
+
+Bar numbers can be printed at regular intervals, inside a box or a circle.
+
+" }
+
+\version "2.7.39"
+
+\relative c'{
+ \override Score.BarNumber #'break-visibility = #end-of-line-invisible
+ \set Score.barNumberVisibility = #(every-nth-bar-number-visible 4)
+ \override Score.BarNumber #'font-size = #2
+
+ \override Score.BarNumber #'stencil
+ = #(make-stencil-boxer 0.1 0.25 ly:text-interface::print)
+ \repeat unfold 5 { c1 } \bar "|"
+
+ \override Score.BarNumber #'stencil
+ = #(make-stencil-circler 0.1 0.25 ly:text-interface::print)
+ \repeat unfold 4 { c1 } \bar "|."
+}
+
+
--- /dev/null
+\version "2.7.39"
+\header {
+
+texidoc = " Chord names are generated from a list pitches. The
+functions which construct these names can be customised. Here are shown
+Jazz chords, following Ignatzek (pp. 17-18, 1995) and
+an alternative Jazz chord notation.
+
+Chords following Banter (1987) can also be printed from this file, but
+are turned off for brevity.
+
+"
+
+}
+
+chs = \transpose c' c'
+{
+ <c e g>1
+ <c es g>% m = minor triad
+ <c e gis>
+ <c es ges> \break
+ <c e g bes>
+ <c es g bes>
+ <c e g b> % triangle = maj
+ <c es ges beses>
+ <c es ges b> \break
+ <c e gis bes>
+ <c es g b>
+ <c e gis b>
+ <c es ges bes>\break
+ <c e g a> % 6 = major triad with added sixth
+ <c es g a> % m6 = minor triad with added sixth
+ <c e g bes d'>
+ <c es g bes d'> \break
+ <c es g bes d' f' a' >
+ <c es g bes d' f' >
+ <c es ges bes d' >
+ <c e g bes des' > \break
+ <c e g bes dis'>
+ <c e g bes d' f'>
+ <c e g bes d' fis'>
+ <c e g bes d' f' a'>\break
+ <c e g bes d' fis' as'>
+ <c e gis bes dis'>
+ <c e g bes dis' fis'>
+ <c e g bes d' f' as'>\break
+ <c e g bes des' f' as'>
+ <c e g bes d' fis'>
+ <c e g b d'>
+ <c e g bes d' f' as'>\break
+ <c e g bes des' f' as'>
+ <c e g bes des' f' a'>
+ <c e g b d'>
+ <c e g b d' f' a'>\break
+ <c e g b d' fis'>
+ <c e g bes des' f ' a'>
+ <c f g>
+ <c f g bes>\break
+ <c f g bes d'>
+ <c e g d'> % add9
+ <c es g f'>
+}
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% alternate Jazz notation
+
+efullmusicJazzAlt =
+{
+ <c e gis>1-\markup { "+" }
+ <c e g b>-\markup { \normal-size-super
+ % \override #'(font-family . math) "N" }
+ \override #'(font-family . math) "M" }
+ %%c:3.5.7 = \markup { \override #'(font-family . math) "M" }
+ %%c:3.5.7 = \markup { \normal-size-super "maj7" }
+
+ <c es ges>-\markup { \super "o" } % should be $\circ$ ?
+ <c es ges bes>-\markup { \super \combine "o" "/" }
+ <c es ges beses>-\markup { \super "o7" }
+}
+
+efullJazzAlt = #(sequential-music-to-chord-exceptions efullmusicJazzAlt #f)
+
+epartialmusicJazzAlt = {
+ <c d>1-\markup { \normal-size-super "2" }
+ <c es>-\markup { "m" }
+ <c f>-\markup { \normal-size-super "sus4" }
+ <c g>-\markup { \normal-size-super "5" }
+
+ %% TODO, partial exceptions
+ <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" }
+ <c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" }
+}
+
+epartialJazzAlt = #(sequential-music-to-chord-exceptions epartialmusicJazzAlt #f)
+
+jazzAltProperties = \sequential {
+ \set majorSevenSymbol = #whiteTriangleMarkup
+ \set chordNameSeparator = #(make-simple-markup "/")
+ \set chordNameExceptionsFull = #efullJazzAlt
+ \set chordNameExceptionsPartial = #epartialJazzAlt
+ \set chordNameFunction = #jazz-chord-names
+}
+
+banterProperties = \sequential {
+ \set chordNameFunction = #banter-chord-names
+}
+
+\score{
+ <<
+ \new ChordNames {
+ \set instrument = #"Ignatzek (default)"
+ \set instr = #"Def"
+ \chs
+ }
+
+ \new ChordNames {
+ \jazzAltProperties
+ \set instrument = #"Alternative"
+ \set instr = #"Alt"
+ \chs
+ }
+
+%{
+
+ %% This is the Banter (1987) style. It gives exceedingly
+ %% verbose (wide) names, making the output file take up to 4 pages.
+ %% (FIXME: how big is is now?)
+ %% Turned off by default.
+
+ %% FIXME: use smaller font for Banter (or remove some esoteric
+ %% chords).
+
+ \new ChordNames {
+ \banterProperties
+ \set instrument = #"Banter"
+ \set instr = #"Ban"
+ \chs
+ }
+%}
+
+ \new Staff \transpose c c' { \chs }
+ >>
+ \layout {
+ indent = 3.\cm
+ \context {
+ \ChordNames
+ \consists Instrument_name_engraver
+ }
+ }
+}
+
--- /dev/null
+\version "2.7.39"
+\header {
+ texidoc = "@cindex Chord Names German
+The english naming of chords (default) can be changed to german
+(@code{\germanChords} replaces B and Bes to H and B), semi-german
+(@code{\semiGermanChords} replaces B and Bes to H and Bb), italian
+(@code{\italianChords} uses Do Re Mi Fa Sol La Si), or french
+(@code{\frenchChords} replaces Re to Ré).
+
+" }
+
+scm = \chordmode {
+ e1/d c:m
+ % c/c cis/cis
+ % yeah, we get the idea. -hwn
+
+ % cisis/cisis ces/ces ceses/ceses
+ b/b bis/bis bes/bes
+ % beses/beses
+}
+
+
+\layout {
+ ragged-right = ##t
+ \context {\ChordNames \consists Instrument_name_engraver }
+}
+
+<<
+ \new ChordNames {
+ \set instrument = #"default"
+ \scm
+ }
+ \new ChordNames {
+ \set instrument = #"german"
+ \germanChords \scm }
+ \new ChordNames {
+ \set instrument = #"semi-german"
+ \semiGermanChords \scm }
+ \new ChordNames {
+ \set instrument = #"italian"
+ \italianChords \scm }
+ \new ChordNames {
+ \set instrument = #"french"
+ \frenchChords \scm }
+
+ \context Voice { \scm }
+>>
--- /dev/null
+% possible rename to ancient- or gregorian- ?
+\header {
+ texidoc = "@cindex Divisiones
+
+Divisiones are ancient variants of breathing signs.
+Choices are @code{divisioMinima}, @code{divisioMaior},
+@code{divisioMaxima} and @code{finalis}, @code{virgula} and
+@code{caesura}.
+
+" }
+
+\version "2.7.39"
+
+\include "gregorian-init.ly"
+
+\score {
+ <<
+ \context VaticanaVoice {
+ \override TextScript #'padding = #3
+ g a g
+ s^\markup { "divisio minima" }
+ \divisioMinima
+ g a g
+ s^\markup { "divisio maior" }
+ \divisioMaior
+ g a g
+ s^\markup { "divisio maxima" }
+ \divisioMaxima
+ \break
+ g a g
+ s^\markup { "finalis" }
+ \finalis
+ g a g
+ s^\markup { "virgula" }
+ \virgula
+ g a g
+ s^\markup { "caesura" }
+ \caesura
+ g a g
+ }
+ >>
+}
--- /dev/null
+
+#(set-global-staff-size 16)
+
+\paper {
+ %% ugh. text on toplevel is a bit broken... .
+
+ oddHeaderMarkup = \markup {}
+ evenHeaderMarkup = \markup {}
+ oddFooterMarkup = \markup {}
+ evenFooterMarkup = \markup {}
+ }
+
+\version "2.7.39"
+
+#(define (doc-char name)
+ (make-line-markup
+ (list
+ (make-pad-to-box-markup
+ '(0 . 30)
+ '(-2 . 2)
+ (make-typewriter-markup (make-small-markup name)))
+ (make-pad-to-box-markup
+ '(-2 . 2)
+ '(-2 . 2)
+ (make-musicglyph-markup name)))))
+
+#(define (min-length lst n)
+ "(min (length lst) n)"
+
+ (if (or (null? lst) (<= n 0))
+ 0
+ (1+ (min-length (cdr lst) (1- n)) )))
+
+#(define (doc-chars names acc)
+ (let*
+ ((n (min-length names 2))
+ (head (take names n))
+ (tail (drop names n))
+ )
+
+ (if (null? head)
+ acc
+ (doc-chars tail
+ (cons (make-line-markup (map doc-char head)) acc)))
+ ))
+
+#(define (group-lines lines)
+ (let*
+ ((n (min-length lines 25))
+ (head (take lines n))
+ (tail (drop lines n))
+ )
+
+ (cons
+ (make-column-markup head)
+ (if (null? tail)
+ '()
+ (group-lines tail)))))
+
+#(let*
+ ((lines (doc-chars
+ (ly:otf-glyph-list (ly:font-load "emmentaler-20"))
+ '()))
+ (pages (group-lines (reverse lines))))
+
+ (for-each
+ (lambda (x)
+ (collect-scores-for-book parser
+ (make-override-markup '(word-space . 8) x)))
+ pages))
+
+
--- /dev/null
+
+\header { texidoc = "Ossia fragments can be done with starting and
+stopping staves. " }
+
+\version "2.7.39"
+\paper { ragged-right = ##t }
+
+<<
+ \new Staff \with
+ {
+ \remove "Time_signature_engraver"
+ fontSize = #-2
+ \override StaffSymbol #'staff-space = #(magstep -2)
+ firstClef = ##f
+ }
+ \relative c'' {
+ \stopStaff
+ \skip 2
+
+ \startStaff
+ \clef treble
+ bes8[^"ossia" g bes g]
+ \stopStaff
+
+ s2
+
+ \startStaff
+ f8 d g4
+ }
+ \new Staff \relative
+ {
+ \time 2/4
+ c4 c g' g a a g2
+ }
+
+>>
--- /dev/null
+
+% this chart is used in the manual too.
+
+\version "2.7.39"
+\header { texidoc = "@cindex Script Abbreviations
+
+Some articulations may be entered using an abbreviation.
+
+"
+
+}
+
+\score {
+ \context Voice {
+ \override TextScript #'font-family = #'typewriter
+ \override TextScript #'font-shape = #'upright
+ c''4-._"c-." s4
+ c''4--_"c--" s4
+ c''4-+_"c-+" s4
+ c''4-|_"c-|" s4
+ c''4->_"c->" s4
+ c''4-^_"c-^" s4
+ c''4-__"c-_" s4
+ }
+ }
+
--- /dev/null
+\version "2.7.39"
+
+% this chart is used in the manual too.
+
+\header {
+ texidoc ="@cindex Feta scripts
+
+This chart shows all articulations, or scripts, that feta font contains.
+
+"
+}
+
+\score {
+ <<
+ \override Score.LyricText #'font-family = #'typewriter
+ \override Score.LyricText #'font-shape = #'upright
+ \context Staff {
+ \set Score.timing = ##f
+ \set Score.barAlways = ##t
+ \override Score.SeparationItem #'padding = #2.5
+ \override Staff.BarLine #'transparent = ##t
+ c''\accent c''\marcato c''\staccatissimo c''\espressivo
+ c''\staccato c''\tenuto c''\portato
+ c''\upbow c''\downbow c''\flageolet
+ c''\thumb c''^\lheel c''\rheel
+ c''^\ltoe c''\rtoe c''\open
+ c''\stopped c''\turn c''\reverseturn
+ c''\trill c''\prall c''\mordent
+ c''\prallprall c''\prallmordent c''\upprall
+ c''\downprall c''\upmordent c''\downmordent
+ c''\pralldown c''\prallup c''\lineprall
+ c''\signumcongruentiae c''\shortfermata c''\fermata
+ c''\longfermata c''\verylongfermata c''\segno
+ c''\coda c''\varcoda
+ }
+ \context Lyrics \lyricmode {
+ accent__ marcato__ staccatissimo__ espressivo__
+ staccato__ tenuto__ portato__
+ upbow__ downbow__ flageolet__
+ thumb__ lheel__ rheel__
+ ltoe__ rtoe__ open__
+ stopped__ turn__ reverseturn__
+ trill__ prall__ mordent__
+ prallprall__ prallmordent__ upprall__
+ downprall__ upmordent__ downmordent__
+ pralldown__ prallup__ lineprall__
+ signumcongruentiae__ shortfermata__ fermata__
+ longfermata__ verylongfermata__ segno__
+ coda__ varcoda__
+ }
+ >>
+ \layout {
+ line-width = 5.1\in
+ indent = 0.0\mm
+ }
+ }
+
+
projects / lilypond.git / commitdiff