]> git.donarmstrong.com Git - lilypond.git/blob - input/cary-layout.ly
Remove old LSR snippets.
[lilypond.git] / input / cary-layout.ly
1
2 \version "2.11.11"
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 }
39
40 #(set-global-staff-size 14)
41
42
43 %% definitions.
44
45
46 ppX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "pp" #:hspace 0)))
47 pX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "p" #:hspace 0)))
48 mpX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "mp" #:hspace 0)))
49 fX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "f" #:hspace 0)))
50 ffX = #(make-dynamic-script (markup #:combine #:transparent #:dynamic "f" #:line(#:hspace 0 #:dynamic "ff" #:hspace 0)))
51 sfp = #(make-dynamic-script "sfp")
52 sfpp = #(make-dynamic-script "sfpp")
53 sffp = #(make-dynamic-script "sffp")
54 sffpp = #(make-dynamic-script "sffpp")
55
56 beam = #(define-music-function (parser location left right) (number? number?)
57         (cond ((and (= left 0) (> right 0))
58                         #{
59                                 \set stemRightBeamCount = #$right
60                         #})
61
62                         ((and (> left 0) (= right 0))
63                         #{
64                                 \set stemLeftBeamCount = #$left
65                         #})
66
67                         (else
68                         #{
69                                 \set stemLeftBeamCount = #$left
70                                 \set stemRightBeamCount = #$right
71                         #})
72         )
73 )
74
75 fraction = #(define-music-function (parser location music) (ly:music?)
76         #{ \tweak #'text #tuplet-number::calc-fraction-text $music #})
77
78 triangle = #(define-music-function (parser location music) (ly:music?)
79         #{ \once \set shapeNoteStyles = ##(do do do do do do do) $music #})
80
81 semicircle = #(define-music-function (parser location music) (ly:music?)
82         #{ \once \set shapeNoteStyles = ##(re re re re re re re) $music #})
83
84 blackdiamond = #(define-music-function (parser location music) (ly:music?)
85         #{ \once \set shapeNoteStyles = ##(mi mi mi mi mi mi mi) $music #})
86
87 tiltedtriangle = #(define-music-function (parser location music) (ly:music?)
88         #{ \once \set shapeNoteStyles = ##(fa fa fa fa fa fa fa) $music #})
89
90 square = #(define-music-function (parser location music) (ly:music?)
91         #{ \once \set shapeNoteStyles = ##(la la la la la la la) $music #})
92
93 wedge = #(define-music-function (parser location music) (ly:music?)
94         #{ \once \set shapeNoteStyles = ##(ti ti ti ti ti ti ti) $music #})
95
96 harmonic = #(define-music-function (parser location music) (ly:music?)
97         #{ \once \set shapeNoteStyles = ##(harmonic harmonic harmonic harmonic harmonic harmonic harmonic) $music #})
98
99 cross = #(define-music-function (parser location music) (ly:music?)
100         #{ \once \set shapeNoteStyles = ##(cross cross cross cross cross cross cross) $music #})
101
102 white = #(define-music-function (parser location music) (ly:music?)
103         #{ \once \override NoteHead #'duration-log = #1 $music #})
104