You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
115 lines
2.9 KiB
115 lines
2.9 KiB
15 years ago
|
% This is a file to test the Lilypond highlighting features of Katepart.
|
||
|
|
% This is NOT a valid lilypond file, because it also shows the
|
||
|
|
% highlighting of some invalid lilypond constructs!
|
||
|
|
% This is a line comment.
|
||
|
|
|
||
|
|
%{
|
||
|
|
this is a block comment, that can occur inside a line, or across
|
||
|
|
multiple lines.
|
||
|
|
%}
|
||
|
|
|
||
|
|
\header {
|
||
|
|
title = "Katepart Lilypond syntax highlighting test file"
|
||
|
|
composer = %{"Wilbert Berendsen"%} "Anonymus"
|
||
|
|
poet = "The KDE team"
|
||
|
|
opus = "1"
|
||
|
|
copyright = "Share and enjoy!"
|
||
|
|
}
|
||
|
|
|
||
|
|
\paper {
|
||
|
|
#(set-paper-size "a4") % a hash introduces scheme
|
||
|
|
indent = 0 % recognize variable names inside \paper, \layout etc.
|
||
|
|
between-system-space = 3\mm
|
||
|
|
}
|
||
|
|
|
||
|
|
\layout {
|
||
|
|
\context {
|
||
|
|
\Score
|
||
|
|
\remove Bar_number_engraver % recognize engraver names
|
||
|
|
\remove "Bar_number_engraver" % also when quoted!
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
% { and << block are folded
|
||
|
|
\score {
|
||
|
|
\new StaffGroup <<
|
||
|
|
\new ChordNames \chordmode { c2sus4/f g2/d c1 }
|
||
|
|
\new Staff \new Voice ="mel" {
|
||
|
|
\key f \major
|
||
|
|
\time 4/4
|
||
|
|
\partial 4
|
||
|
|
\set Staff.instrumentName = "Bla."
|
||
|
|
\once \override Staff.NoteHead #'color = #red
|
||
|
|
% dynamics, articulations and markup
|
||
|
|
c8\p d\< e-. f-> g a\f c-5\markup {Hoi}
|
||
|
|
\notemode { c d e f }
|
||
|
|
\repeat volta 2 {
|
||
|
|
% complex durations are highlighted:
|
||
|
|
g4*2/3
|
||
|
|
}
|
||
|
|
\times 2/3 {e8 f g}
|
||
|
|
% there is some error checking:
|
||
|
|
% often made mistake to have octavemarks after the duration:
|
||
|
|
c2'
|
||
|
|
% invalid durations are caught:
|
||
|
|
g3
|
||
|
|
}
|
||
|
|
\context Lyrics \lyricsto "mel" {
|
||
|
|
\set fontSize = #1
|
||
|
|
this is a line of ly -- rics.
|
||
|
|
with4 dur -- a -- tions.2.
|
||
|
|
% errors like forgetting spaces are found:
|
||
|
|
space-- flight %{i.s.o.%} space -- flight
|
||
|
|
space at end for -- got -- ten as well.}
|
||
|
|
|
||
|
|
\new DrumStaff \drummode { hihat4 bassdrum8 }
|
||
|
|
\new FiguredBass \figuremode {
|
||
|
|
<5 4>8 <6->
|
||
|
|
}
|
||
|
|
>>
|
||
|
|
\midi {
|
||
|
|
\context {
|
||
|
|
\Score
|
||
|
|
tempoWholesPerMinute = #(ly:make-moment 60 2)
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
av = #(define-music-function (parser location voice)
|
||
|
|
(string?)
|
||
|
|
; scheme comments are recognized in scheme
|
||
|
|
; Lilypond inside scheme works as well:
|
||
|
|
#{
|
||
|
|
\set associatedVoice = $voice
|
||
|
|
#})
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
% inside scheme some elements are highlighted:
|
||
|
|
#(define (naturalise-pitch p)
|
||
|
|
(let* ((o (ly:pitch-octave p))
|
||
|
|
(a (* 4 (ly:pitch-alteration p)))
|
||
|
|
(n (ly:pitch-notename p)))
|
||
|
|
(bla 'ArticulationEvent 'ChoirStaff)
|
||
|
|
(cond
|
||
|
|
((> a 2) (set! a (- a 4)) (set! n (+ n 1)))
|
||
|
|
((< a -2) (set! a (+ a 4)) (set! n (- n 1))))
|
||
|
|
|
||
|
|
(if (< n 0) (begin (set! o (- o 1)) (set! n (+ n 7))))
|
||
|
|
(if (> n 6) (begin (set! o (+ o 1)) (set! n (- n 7))))
|
||
|
|
|
||
|
|
(ly:make-pitch o n (/ a 4))))
|
||
|
|
|
||
|
|
% markup is also highlighted
|
||
|
|
\markup {
|
||
|
|
\line {
|
||
|
|
text test Voice Staff % note Lilypond keywords are not highlighted here
|
||
|
|
}
|
||
|
|
\score { \relative c' { <ceg>2( d) } }
|
||
|
|
\italic bla
|
||
|
|
\override #'(baseline-skip . 2) {
|
||
|
|
\underline blu
|
||
|
|
}
|
||
|
|
}
|