0411c43c9c
* Handle `--` and `__` as `Token.Punctuation` only if preceded by whitespace: ``` <whitespace> -- ==> hyphen (in lyrics mode) <whitespace> __ ==> extender line (in lyrics mode) -- ==> tenuto, neutral attachment (in music mode) __ ==> portato, down attachment (in music mode) ``` * Handle `-` followed by a number as `Token.Number` only if preceded by whitespace. This is purely heuristic, derived from the coding style shown in the LilyPond manuals. ``` <whitespace> -3 ==> integer (e.g., as a function argument) -3 ==> fingering instruction ``` * Add forgotten `\maxima` note duration. * Some legibility improvements by using verbose mode for regular expressions. * Some comment additions and fixes. * Update tests.
115 lines
2.8 KiB
Text
115 lines
2.8 KiB
Text
\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[__ \ottava -1 <des, ges>8]\) \ottava 0
|
|
\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
|
|
}
|
|
>>
|