-
Notifications
You must be signed in to change notification settings - Fork 630
/
example.ly
114 lines (100 loc) · 2.75 KB
/
example.ly
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
\version "2.23.6"
% This is a test file for Pygments' LilyPond support. To compile
% it with Guile 1 (as in official releases as of this writing),
% remove the "commented forms" below.
%{
All supported constructs are covered in
this file. For example, multi-line comments.
These are non-nested. The following will
end the whole comment:
%{ %}
\include "arabic.ly"
\language nederlands
\header {
title = \markup \smallCaps "Some markup"
}
% The following is just a comment.
%}
\paper {
oddHeaderMarkup = "This is an assignment to a string.
Escape \" sequences \n are recognized."
evenHeaderMarkup = \oddHeaderMarkup
indent = 30\staff-space
system-system-spacing.basic-distance = 20
ragged-bottom = ##t
}
myFunc =
# #;(This is a commented form. There is another just after.)
#;+inf.0
;; After these comments, we are still in Scheme mode.
(define-music-function (music n) (ly:music? index?)
(let* ((repeated (make-list n music))
(copied (map ly:music-deep-copy repeated)))
; This is a Scheme comment.
(make-sequential-music copied)))
mySecondFunc =
#(define-music-function (music) (ly:music?)
#{
% LilyPond syntax here.
\compressMMRests
\shiftDurations -2 1
# ; Scheme syntax again.
(ly:music-deep-copy music)
#})
#(define-markup-command (small-italic layout props arg) (markup?)
(interpret-markup layout props
(make-small-markup (make-italic-markup arg))))
myPitch = ##{ c #}
% Here we should be back to LilyPond mode. This
% is a LilyPond comment.
myVariable = c4
myAlist.keyI.keyII = 55
piuPiano = \markup \italic "più piano"
#(symbol->string 'some-symbol)
<<
\new Staff = myStaff \with {
\consists Duration_line_engraver
\override VerticalAxisGroup.staff-staff-spacing.basic-distance = 20
}
\relative c' {
\clef alto
\time 6/8
\key d \major
\cadenzaOn
deses'!4.~(\tweak thickness 4\( deses^\p-\signumcongruentiae_1\4
deses\longa) \myFunc { r } 4 des8-- 8[__ <des ges>8]\)
\bar "||"
\cadenzaOff
\pageBreak
\once \hide NoteHead
\once \override NoteHead.no-ledgers = ##t
\once \omit Dots
\once \override Staff.DurationLine.thickness = #7
c''?2.:16\tweak bound-details .left.padding-5\-^"Some music" |
\mySecondFunc
R1*1/2^\markup \center-column {
Some
Text
In
A
\bold \italic Column!
\small-italic super
}
\break
\repeat unfold 4 { c8\< c^\> c\p\! }
c_\piuPiano^\markup dolce
}
\addlyrics {
\set Score.melismaBusyProperties = #'()
My Lily -- Song __
}
\chordmode {
c cis:dim3+\dim des:maj7/+e\!
}
\new TabVoice {
f'4\^ g'4\^ f'2
}
\drums {
hihat4 hh bassdrum bd
}
>>