Imported Upstream version 2.16.0

[lilypond.git] / Documentation / ly-examples / cary-layout.ily

diff --git a/Documentation/ly-examples/cary-layout.ily b/Documentation/ly-examples/cary-layout.ily
new file mode 100644 (file)
index 0000000..4d2faf4
--- /dev/null
+++ b/Documentation/ly-examples/cary-layout.ily
@@ -0,0 +1,104 @@
+
+\version "2.16.0"
+
+\layout {
+  indent = #0
+  ragged-right = ##t
+  \context {
+    \Score
+
+    proportionalNotationDuration = #(ly:make-moment 1 64)
+    \override Beam #'breakable = ##t
+    autoBeaming = ##f
+    tupletFullLength = ##t
+    \override BarNumber #'transparent = ##t
+    \override BarLine #'transparent = ##t
+    \override SpanBar #'transparent = ##t
+    \override Beam #'break-overshoot = #'(-0.5 . 1.0)
+    \override TextScript #'staff-padding = #6
+    \override Glissando #'thickness = #3
+    \override SpacingSpanner #'strict-grace-spacing = ##t
+    \override TupletBracket #'bracket-visibility = ##t
+    \override NoteColumn #'ignore-collision = ##t
+  }
+}
+
+\paper {
+  oddHeaderMarkup = \markup \fill-line { " " }
+  evenHeaderMarkup = \markup \fill-line { " " }
+  oddFooterMarkup = \markup {
+    \fill-line {
+      \bold \fontsize #3 \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string } }
+  evenFooterMarkup = \markup {
+    \fill-line {
+      \bold \fontsize #3 \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string } }
+  printfirst-page-number = ##t
+  print-page-number = ##t
+  ragged-last-bottom = ##t
+  markup-system-spacing #'minimum-distance = #25
+}
+
+#(set-global-staff-size 14)
+
+
+%% definitions.
+
+
+ppX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "pp" #:hspace 0)))
+pX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "p" #:hspace 0)))
+mpX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "mp" #:hspace 0)))
+fX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "f" #:hspace 0)))
+ffX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "ff" #:hspace 0)))
+sfp = #(make-dynamic-script "sfp")
+sfpp = #(make-dynamic-script "sfpp")
+sffp = #(make-dynamic-script "sffp")
+sffpp = #(make-dynamic-script "sffpp")
+
+beam = #(define-music-function (parser location left right) (number? number?)
+       (cond ((and (= left 0) (> right 0))
+                       #{
+                               \set stemRightBeamCount = #right
+                       #})
+
+                       ((and (> left 0) (= right 0))
+                       #{
+                               \set stemLeftBeamCount = #left
+                       #})
+
+                       (else
+                       #{
+                               \set stemLeftBeamCount = #left
+                               \set stemRightBeamCount = #right
+                       #})
+       )
+)
+
+fraction = #(define-music-function (parser location music) (ly:music?)
+       #{ \tweak #'text #tuplet-number::calc-fraction-text #music #})
+
+triangle = #(define-music-function (parser location music) (ly:music?)
+       #{ \once \set shapeNoteStyles = #'#(do do do do do do do) #music #})
+
+semicircle = #(define-music-function (parser location music) (ly:music?)
+       #{ \once \set shapeNoteStyles = #'#(re re re re re re re) #music #})
+
+blackdiamond = #(define-music-function (parser location music) (ly:music?)
+       #{ \once \set shapeNoteStyles = #'#(mi mi mi mi mi mi mi) #music #})
+
+tiltedtriangle = #(define-music-function (parser location music) (ly:music?)
+       #{ \once \set shapeNoteStyles = #'#(fa fa fa fa fa fa fa) #music #})
+
+square = #(define-music-function (parser location music) (ly:music?)
+       #{ \once \set shapeNoteStyles = #'#(la la la la la la la) #music #})
+
+wedge = #(define-music-function (parser location music) (ly:music?)
+       #{ \once \set shapeNoteStyles = #'#(ti ti ti ti ti ti ti) #music #})
+
+harmonic = #(define-music-function (parser location music) (ly:music?)
+       #{ \once \set shapeNoteStyles = #'#(harmonic harmonic harmonic harmonic harmonic harmonic harmonic) #music #})
+
+cross = #(define-music-function (parser location music) (ly:music?)
+       #{ \once \set shapeNoteStyles = #'#(cross cross cross cross cross cross cross) #music #})
+
+white = #(define-music-function (parser location music) (ly:music?)
+       #{ \once \override NoteHead #'duration-log = #1 #music #})