--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR!
+\version "2.11.23"
+
+\header { texidoc = "
+Sometimes a glissando is written out in smaller notes. This example
+shows how to do this.
+" }
+
+\relative c' {
+ \clef treble
+ \key c \major
+ \time 3/8
+
+ fis16.[-> a64 g]
+
+ % Make tuplet markings invisible
+ \once \override TupletBracket #'number-visibility = ##f
+ \once \override TupletBracket #'bracket-visibility = ##f
+
+ % Prepare for small notes
+ \override NoteHead #'font-size = #-4
+ \override Accidental #'font-size = #-4
+
+ % Force stem direction down
+ \stemDown
+
+ % Tuplet with small notes
+ \times 3/42 { fis8[( g gis a bes b c cis d dis e f fis g gis a bes! b c cis d] }
+
+ % Restore normal note size
+ \revert NoteHead #'font-size
+ \revert Accidental #'font-size
+
+ es32.[) fis,,64]
+}
--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR!
+\version "2.11.23"
+
+\header { texidoc = "
+Though the set-time-signature thing was not the most essential here, it
+has been included to show the beat of this piece (which is a template
+of a real balkan song!).
+" }
+
+#(define (compound-time one two three four five six seven eight nine ten num)
+ (markup #:override '(baseline-skip . 0) #:number
+ (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num)) #:vcenter "+" (#:column (three num)) #:vcenter "+" (#:column (four num)) #:vcenter "+" (#:column (five num)) #:vcenter "+" (#:column (six num)) #:vcenter "+" (#:column (seven num)) #:vcenter "+" (#:column (eight num)) #:vcenter "+" (#:column (nine num)) #:vcenter "+" (#:column (ten num))))))
+
+
+melody =
+{ \relative c'' {
+ \set Staff.instrumentName = "Bb Sop."
+ \key g \major \time 25/8
+ \override Staff.TimeSignature #'stencil = #ly:text-interface::print
+ \override Staff.TimeSignature #'text = #(compound-time "3" "2" "2" "3" "2" "2" "2" "3" "2" "2" "8" )
+ c8[ c c] d4 c8[ c] b[ c b] a4 g fis8[ e d c] b'[ c d] e4-^ fis8[ g] | \break
+ c,4. d4 c4 d4. c4 d c2 d4. e4-^ d4 |
+ c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 | \break
+ c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 |
+ c4. d4 c4 d4. c4 d c2 d4. e4-^ d4 | \break }
+}
+drum = {
+ \new DrumStaff \drummode
+ {
+ \bar "|:" bd4. ^\markup { "Drums" } sn4 bd \bar ":" sn4. bd4 sn \bar ":"
+ bd sn bd4. sn4 bd \bar ":|"
+ }
+}
+
+{
+ \melody
+ \drum
+}
--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR!
+\version "2.11.23"
+
+\header { texidoc = "
+This example shows prelude in C major of WTK1, but coded using Scheme
+functions to avoid typing work.
+" }
+
+\version "2.11.23"
+
+\include "deutsch.ly"
+#(define (transform music)
+ (let* ((es (ly:music-property music 'elements))
+ (n (ly:music-property music 'name)))
+ (if (not (equal? n 'SequentialMusic))
+ (ly:warning "transform needs SequentialMusic, got ~a" n)
+ (begin
+ (let recurse ((elts es))
+ (if (not (equal? elts '()))
+ (begin
+ ((trans (ly:music-property (cadr elts) 'elements)) (car
+elts))
+ (set-cdr! elts (cddr elts))
+ (recurse (cdr elts))
+ )))))
+ music
+ ))
+
+#(define ((trans pitches) music)
+ (let* ((es (ly:music-property music 'elements))
+ (e (ly:music-property music 'element))
+ (p (ly:music-property music 'pitch)))
+
+ (if (pair? es)
+ (ly:music-set-property!
+ music 'elements
+ (map (trans pitches) es)))
+
+ (if (ly:music? e)
+ (ly:music-set-property!
+ music 'element
+ ((trans pitches) e)))
+
+ (if (ly:pitch? p)
+ (let* ((o (ly:pitch-octave p))
+ (n (ly:pitch-notename p))
+ (i (+ (* 7 o) n))
+ (pes (ly:music-property (list-ref pitches i) 'elements))
+ (pnew (ly:music-property (car pes) 'pitch))
+ )
+ (ly:music-set-property! music 'pitch pnew)
+ ))
+ music))
+
+
+
+
+
+
+
+pat = \transpose c c' \repeat unfold 2 {
+ << { \context Staff = "up" {r8 e16 f g e f g } }
+ { \context Staff = "down" <<
+ \context Voice = "vup" { \stemUp \tieUp r16 d8.~d4 }
+ \context Voice = "vdwn" { \stemDown c2 }
+ >> }
+ >>
+}
+
+enda = { r8 f,16 a, c f c a, \stemUp c \change Staff = down
+ a, f, a, f, d, f, d, \change Staff = up \stemNeutral
+ r8 g16 h d' f' d' h d' h g h d f e\prall d <e g c'>1^\fermata \bar
+"|."
+}
+endb = {\stemUp \tieUp r16 c,8.~c,4~c,2 r16 h,,8.~h,,4~h,,2 c,1 \bar
+"|."}
+endc = {\stemDown \tieDown c,,2~c,, c,,~c,, c,,1_\fermata }
+
+\score {
+ \transpose c c' \context PianoStaff <<
+ \new Staff = "up" { \clef "G" }
+ \new Staff = "down" { \clef "F" }
+ { \applyMusic #transform {
+ \pat {c e g c' e' }
+ \pat {c d a d' f' }
+ }
+ % Etc, we get the idea now
+ }
+ >>
+}
+
+
+
--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR!
+
+\version "2.11.23"
+% possible rename to scheme- or something like that. -gp
+\header { texidoc = "@cindex Scheme Move Text
+Objects, like text, can be moved around by using some Scheme code.
+" }
+
+#(define (make-text-checker text)
+ (lambda (grob) (equal? text (ly:grob-property grob 'text))))
+
+\score {
+ \relative c''' {
+ \stemUp
+ \applyOutput #'Voice #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d."))
+ 'extra-offset '(-3.5 . -4.5))
+ a^2^"m.d."
+ }
+ \layout { ragged-right = ##t}
+}
+
--- /dev/null
+%% Do not edit this file; it is auto-generated from LSR!
+\version "2.11.23"
+
+\header { texidoc = "
+By default, rehearsal marks specified at the end of a line are printed
+at the beginning of the next line (even if it is the end of the piece,
+in such case the mark isn't printed at all).
+
+To avoid this, override the #'break-visibility property of the
+RehearsalMark object, like in the following snippet.
+" }
+
+\paper{ ragged-right=##t }
+\relative g' {
+ g4 g g g | g g g g | g g g g |
+ \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
+ \mark "D.C. al Fine"
+}
--- /dev/null
+
+\version "2.10.0"
+% possible rename to scheme- or something like that. -gp
+\header { texidoc = "@cindex Scheme Move Text
+Objects, like text, can be moved around by using some Scheme code.
+" }
+
+#(define (make-text-checker text)
+ (lambda (grob) (equal? text (ly:grob-property grob 'text))))
+
+\score {
+ \relative c''' {
+ \stemUp
+ \applyOutput #'Voice #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d."))
+ 'extra-offset '(-3.5 . -4.5))
+ a^2^"m.d."
+ }
+ \layout { ragged-right = ##t}
+}
+
+++ /dev/null
-
-\version "2.10.0"
-\header {
-texidoc = "@cindex Capital Letters
-The font can be changed to small caps.
-" }
-
-shapeSC = \override LyricText #'font-shape = #'caps
-shapeNorm = \revert LyricText #'font-shape
-
-\score { <<
- \relative c'' { c4 c4 c8 c8 c8 }
- \context Lyrics \lyricmode {
- what4 is4 \shapeSC The8 Ma -- trix? }
- >>
- \layout { ragged-right = ##t}
-}
-
+++ /dev/null
-
-\version "2.10.0"
-% possible rename to scheme- or something like that. -gp
-\header { texidoc = "@cindex Scheme Move Text
-Objects, like text, can be moved around by using some Scheme code.
-" }
-
-#(define (make-text-checker text)
- (lambda (grob) (equal? text (ly:grob-property grob 'text))))
-
-\score {
- \relative c''' {
- \stemUp
- \applyOutput #'Voice #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d."))
- 'extra-offset '(-3.5 . -4.5))
- a^2^"m.d."
- }
- \layout { ragged-right = ##t}
-}
-
+++ /dev/null
-\version "2.10.0"
-\sourcefilename "music-box.ly"
-
-\include "deutsch.ly"
-% possible rename to scheme- something. -gp
-% TODO: ask if it needs to have so many empty bars in the middle. -gp
-\header{ texidoc = "@cindex Scheme Music Box
-This example shows prelude in C major of WTK1, but coded
-using Scheme functions to avoid typing work. " }
-
-
-#(define (transform music)
- (let* ((es (ly:music-property music 'elements))
- (n (ly:music-property music 'name)))
- (if (not (equal? n 'SequentialMusic))
- (ly:warning "transform needs SequentialMusic, got ~a" n)
- (begin
- (let recurse ((elts es))
- (if (not (equal? elts '()))
- (begin
- ((trans (ly:music-property (cadr elts) 'elements)) (car elts))
- (set-cdr! elts (cddr elts))
- (recurse (cdr elts))
- )))))
- music
- ))
-
-#(define ((trans pitches) music)
- (let* ((es (ly:music-property music 'elements))
- (e (ly:music-property music 'element))
- (p (ly:music-property music 'pitch)))
-
- (if (pair? es)
- (ly:music-set-property!
- music 'elements
- (map (trans pitches) es)))
-
- (if (ly:music? e)
- (ly:music-set-property!
- music 'element
- ((trans pitches) e)))
-
- (if (ly:pitch? p)
- (let* ((o (ly:pitch-octave p))
- (n (ly:pitch-notename p))
- (i (+ (* 7 o) n))
- (pes (ly:music-property (list-ref pitches i) 'elements))
- (pnew (ly:music-property (car pes) 'pitch))
- )
- (ly:music-set-property! music 'pitch pnew)
- ))
- music))
-
-
-pat = \transpose c c' \repeat unfold 2 {
- << { \context Staff = "up" {r8 e16 f g e f g } }
- { \context Staff = "down" <<
- \context Voice = "vup" { \stemUp \tieUp r16 d8.~d4 }
- \context Voice = "vdwn" { \stemDown c2 }
- >> }
- >>
-}
-
-enda = { r8 f,16 a, c f c a, \stemUp c \change Staff = down
- a, f, a, f, d, f, d, \change Staff = up \stemNeutral
- r8 g16 h d' f' d' h d' h g h d f e\prall d <e g c'>1^\fermata \bar "|."
-}
-endb = {\stemUp \tieUp r16 c,8.~c,4~c,2 r16 h,,8.~h,,4~h,,2 c,1 \bar "|."}
-endc = {\stemDown \tieDown c,,2~c,, c,,~c,, c,,1_\fermata }
-
-
-prelude =
-#(define-music-function (parser location patterns) (ly:music?)
- (transform patterns))
-
-
-\score {
- \transpose c c' \context PianoStaff <<
- \new Staff = "up" { \clef "G" }
- \new Staff = "down" { \clef "F" }
- { \prelude {
- \pat {c e g c' e' }
- \pat {c d a d' f' }
- }
-
-%{
- %Etc.
-
- %we get the idea now.
-
-
- \pat {h, d g d' f' }
- \pat {c e g c' e' }
-
- \pat {c e a e' a' }
- \pat {c d fis a d' }
- \pat {h, d g d' g' }
- \pat {h, c e g c' }
- \pat {a, c e g c' }
- \pat {d, a, d fis c' }
- \pat {g, h, d g h }
- \pat {g, b, e g cis' }
- \pat {f, a, d a d' }
- \pat {f, as, d f h }
- \pat {e, g, c g c' }
- \pat {e, f, a, c f }
- \pat {d, f, a, c f }
-
- \pat {g,, d, g, h, f }
- \pat {c, e, g, c e }
- \pat {c, g, b, c e }
- \pat {f,, f, a, c e }
- \pat {fis,, c, a, c es }
- \pat {as,, f, h, c d }
- \pat {g,, f, g, h, d }
- \pat {g,, e, g, c e }
- \pat {g,, d, g, c f }
- \pat {g,, d, g, h, f }
- \pat {g,, es, a, c fis }
- \pat {g,, e, g, c g }
- \pat {g,, d, g, c f }
- \pat {g,, d, g, h, f }
- \pat {c,, c, g, b, e }
-%}
- }
- >>
-
- \layout {
- line-width = 18.0 \cm
- }
-
-
- \midi {
- \context {
- \Score
- tempoWholesPerMinute = #(ly:make-moment 80 4)
- }
- }
-
-
-}
-
--- /dev/null
+% a null ly file, to make the build process happy
+% while we delete this directory.
+\markup { "null" }
projects / lilypond.git / commitdiff