Documentation/web/ly-examples/cary-layout.ily

   1
   2 \version "2.13.39"
   3
   4 \layout {
   5   indent = #0
   6   ragged-right = ##t
   7   \context {
   8     \Score
   9
  10     proportionalNotationDuration = #(ly:make-moment 1 64)
  11     \override Beam #'breakable = ##t
  12     autoBeaming = ##f
  13     tupletFullLength = ##t
  14     \override BarNumber #'transparent = ##t
  15     \override BarLine #'transparent = ##t
  16     \override SpanBar #'transparent = ##t
  17     \override Beam #'break-overshoot = #'(-0.5 . 1.0)
  18     \override TextScript #'staff-padding = #6
  19     \override Glissando #'thickness = #3
  20     \override SpacingSpanner #'strict-grace-spacing = ##t
  21     \override TupletBracket #'bracket-visibility = ##t
  22     \override NoteColumn #'ignore-collision = ##t
  23   }
  24 }
  25
  26 \paper {
  27   oddHeaderMarkup = \markup \fill-line { " " }
  28   evenHeaderMarkup = \markup \fill-line { " " }
  29   oddFooterMarkup = \markup {
  30     \fill-line {
  31       \bold \fontsize #3 \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string } }
  32   evenFooterMarkup = \markup {
  33     \fill-line {
  34       \bold \fontsize #3 \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string } }
  35   printfirst-page-number = ##t
  36   print-page-number = ##t
  37   ragged-last-bottom = ##t
  38   markup-system-spacing #'minimum-distance = #25
  39 }
  40
  41 #(set-global-staff-size 14)
  42
  43
  44 %% definitions.
  45
  46
  47 ppX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "pp" #:hspace 0)))
  48 pX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "p" #:hspace 0)))
  49 mpX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "mp" #:hspace 0)))
  50 fX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "f" #:hspace 0)))
  51 ffX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "ff" #:hspace 0)))
  52 sfp = #(make-dynamic-script "sfp")
  53 sfpp = #(make-dynamic-script "sfpp")
  54 sffp = #(make-dynamic-script "sffp")
  55 sffpp = #(make-dynamic-script "sffpp")
  56
  57 beam = #(define-music-function (parser location left right) (number? number?)
  58         (cond ((and (= left 0) (> right 0))
  59                         #{
  60                                 \set stemRightBeamCount = #$right
  61                         #})
  62
  63                         ((and (> left 0) (= right 0))
  64                         #{
  65                                 \set stemLeftBeamCount = #$left
  66                         #})
  67
  68                         (else
  69                         #{
  70                                 \set stemLeftBeamCount = #$left
  71                                 \set stemRightBeamCount = #$right
  72                         #})
  73         )
  74 )
  75
  76 fraction = #(define-music-function (parser location music) (ly:music?)
  77         #{ \tweak #'text #tuplet-number::calc-fraction-text $music #})
  78
  79 triangle = #(define-music-function (parser location music) (ly:music?)
  80         #{ \once \set shapeNoteStyles = #'#(do do do do do do do) $music #})
  81
  82 semicircle = #(define-music-function (parser location music) (ly:music?)
  83         #{ \once \set shapeNoteStyles = #'#(re re re re re re re) $music #})
  84
  85 blackdiamond = #(define-music-function (parser location music) (ly:music?)
  86         #{ \once \set shapeNoteStyles = #'#(mi mi mi mi mi mi mi) $music #})
  87
  88 tiltedtriangle = #(define-music-function (parser location music) (ly:music?)
  89         #{ \once \set shapeNoteStyles = #'#(fa fa fa fa fa fa fa) $music #})
  90
  91 square = #(define-music-function (parser location music) (ly:music?)
  92         #{ \once \set shapeNoteStyles = #'#(la la la la la la la) $music #})
  93
  94 wedge = #(define-music-function (parser location music) (ly:music?)
  95         #{ \once \set shapeNoteStyles = #'#(ti ti ti ti ti ti ti) $music #})
  96
  97 harmonic = #(define-music-function (parser location music) (ly:music?)
  98         #{ \once \set shapeNoteStyles = #'#(harmonic harmonic harmonic harmonic harmonic harmonic harmonic) $music #})
  99
 100 cross = #(define-music-function (parser location music) (ly:music?)
 101         #{ \once \set shapeNoteStyles = #'#(cross cross cross cross cross cross cross) $music #})
 102
 103 white = #(define-music-function (parser location music) (ly:music?)
 104         #{ \once \override NoteHead #'duration-log = #1 $music #})
 105