%% Generated by lilypond-book.py %% Options: [exampleindent=10.16\mm,indent=0\mm,line-width=160\mm] \include "lilypond-book-preamble.ly" % **************************************************************** % Start cut-&-pastable-section % **************************************************************** \paper { indent = 0\mm line-width = 160\mm % offset the left padding, also add 1mm as lilypond creates cropped % images with a little space on the right line-width = #(- line-width (* mm 3.000000) (* mm 1)) } \layout { } % **************************************************************** % ly snippet: % **************************************************************** \sourcefilename "/home/gub/gub/target/linux-x86/src/lilypond-git.sv.gnu.org--lilypond.git-stable-2.16/input/regression/display-lily-tests.ly" \sourcefileline 0 \version "2.16.0" #(use-modules (srfi srfi-13) (ice-9 format)) %%% %%% Testing utilities %%% #(use-modules (scm display-lily)) #(memoize-clef-names supported-clefs) #(define (parse-lily-and-compute-lily-string chr port) (let ((lily-string (call-with-output-string (lambda (out) (do ((c (read-char port) (read-char port))) ((and (char=? c #\#) (char=? (peek-char port) #\])) (read-char port)) (display c out)))))) `(let* ((parser-clone (ly:parser-clone parser)) (input-str (string-trim-both ,lily-string)) (music (ly:parse-string-expression parser-clone input-str)) (result-str (string-trim-both (music->lily-string music parser-clone)))) (cons input-str result-str)))) #(read-hash-extend #\[ parse-lily-and-compute-lily-string) %{ ] %} #(define (lily-string->markup str) (make-column-markup (string-split str #\NewLine))) test = #(define-void-function (parser location harmless strings) ((string?) pair?) (let ((input (car strings)) (output (cdr strings)) (result-info (or harmless "BUG"))) (if (not (equal? input output)) (if harmless (ly:progress "Test unequal: ~a.\nin = ~a\nout = ~a\n" harmless input output) (ly:input-warning location "Test unequal: BUG.\nin = ~a\nout = ~a\n" input output))))) %%% %%% Tests %%% \header { texidoc = "This is a test of the display-lily-music unit. Problems are reported on the stderr of this run." } %% Sequential music \test ##[ { { a b } { c d } } #] % SequentialMusic \test ##[ << { a b } { c d } >> #] % SimultaneousMusic \test ##[ << { a b } \\ { c d } >> #] % VoiceSeparator %% Chords and Notes \test ##[ { ceses ces c cis cisis } #] % NoteEvent \test ##[ { deses des d dis disis } #] \test ##[ { eeses ees e eis eisis } #] \test ##[ { feses fes f fis fisis } #] \test ##[ { geses ges g gis gisis } #] \test ##[ { aeses aes a ais aisis } #] \test ##[ { beses bes b bis bisis } #] \test ##[ { c,, d' } #] \test ##[ { c' d'=' } #] \test ##[ { c! c? } #] \test ##[ r1.*4/3 #] % RestEvent \test ##[ c1\rest #] % RestEvent \test ##[ s2..*3/4 #] % SkipEvent \test ##[ R1.*2/3 #] % MultiMeasureRestMusicGroup, MultiMeasureRestEvent \test ##[ \skip 2.*3/4 #] % SkipMusic \test ##[ < c\1 e\3 >4.*3/4-. #] % EventChord, NoteEvent, StringNumberEvent, ArticulationEvent \test ##[ < c-1\4 >8 #] \test ##[ { < c e g c' >4 q8-. } #] % RepeatedChord %% tags \test ##[ { \tag #'foo { c4 d } } #] \test ##[ c-\tag #'foo -\tag #'baz -^-. #] %% Graces \test ##[ { \grace c8 d2 } #] % GraceMusic \test ##[ { \appoggiatura c8 d2 } #] \test ##[ { \acciaccatura c8 d2 } #] \test ##[ { c1 \afterGrace { b,16 c } d2 } #] %% Clusters \test ##[ { \makeClusters { c4 g } } #] % ClusterNoteEvent %% Figured bass \test ##[ \figures { < 6 > } #] % BassFigureEvent \test ##[ \figuremode { < 1-- 3- > < 2+ 4++ > < _! 7! > } #] \test ##[ \figuremode { < [6 > < 5] > } #] %% Lyrics \test ##[ \lyrics { a b } #] \test ##[ \lyricmode { a -- b } #] % HyphenEvent \test ##[ \lyricmode { a __ b } #] % ExtenderEvent \test ##[ \lyricmode { "a " } #] % LyricEvent \test ##[ \lyricsto "foo" { bla bla } #] % LyricCombineMusic \test ##[ { { c d } \addlyrics { bla bla } } #] %% Drums \test ##[ \drums { hihat } #] \test ##[ \drummode { hihat4.*3/4 } #] %% Expressive marks \test ##[ c4 ~ #] % TieEvent \test ##[ c\noBeam #] % BeamForbidEvent \test ##[ c\1 #] % StringNumberEvent \test ##[ { c: c:1 } #] % TremoloEvent \test ##[ { c-^ c^^ c_^ } #] % ArticulationEvent \test ##[ { c-+ c^+ c_+ } #] \test ##[ { c-- c^- c_- } #] \test ##[ { c-| c^| c_| } #] \test ##[ { c-> c^> c_> } #] \test ##[ { c-. c^. c_. } #] \test ##[ { c-_ c^_ c__ } #] \test ##[ { c\trill c^\trill c_\trill } #] \test ##[ { c-1 c^2 c_3 } #] % FingerEvent \test ##[ { c-"foo" c^"foo" c_"foo" } #] % TextScriptEvent \test ##[ { R1*4-"foo" R^"foo" R_"foo" } #] % MultiMeasureTextEvent \test ##[ { < c\harmonic >4 < c e\harmonic > } #] % HarmonicEvent \test ##[ { c\glissando c^\glissando c_\glissando } #] % GlissandoEvent \test ##[ { c\arpeggio c^\arpeggio c_\arpeggio } #] % ArpeggioEvent \test ##[ { c\p c^\ff c_\sfz } #] % AbsoluteDynamicEvent \test ##[ { c[ c] c^[ c^] c_[ c_] } #] % BeamEvent \test ##[ { c( c) c^( c^) c_( c_) } #] % SlurEvent \test ##[ { c\< c\! c^\< c^\! c_\< c_\! } #] % CrescendoEvent \test ##[ { c\> c\! c^\> c^\! c_\> c_\! } #] % DecrescendoEvent \test ##[ { c\episemInitium c\episemFinis } #] % EpisemaEvent \test ##[ { c\( c\) c^\( c^\) c_\( c_\) } #] % PhrasingSlurEvent \test ##[ { c\sustainOn c\sustainOff } #] % SustainEvent \test ##[ { c\sostenutoOn c\sostenutoOff } #] % SostenutoEvent \test ##[ \melisma #] \test ##[ \melismaEnd #] \test ##[ { c\startTextSpan c\stopTextSpan } #] % TextSpanEvent \test ##[ { c\startTrillSpan c\stopTrillSpan } #] % TrillSpanEvent \test ##[ { c \startStaff c \stopStaff } #] % StaffSpanEvent \test ##[ { c\startGroup c\stopGroup c^\startGroup c^\stopGroup c_\startGroup c_\stopGroup } #] % NoteGroupingEvent \test ##[ { c\unaCorda c\treCorde } #] % UnaCordaEvent \test ##[ \breathe #] \test ##[ { c \[ c \] } #] % LigatureEvent \test ##[ \~ #] % PesOrFlexaEvent \test ##[ c\bendAfter #3 #] % BendAfterEvent \test ##[ c\rightHandFinger #1 #] % StrokeFingerEvent \test ##[ \break #] \test ##[ \noBreak #] \test ##[ \pageBreak #] \test ##[ \noPageBreak #] \test ##[ \pageTurn #] \test ##[ \noPageTurn #] %% Checks \test ##[ \octaveCheck a' #] % RelativeOctaveCheck \test ##[ | #] % BarCheck %% Marks \test ##[ \mark \default #] % MarkEvent \test ##[ \mark "Allegro" #] \test ##[ \tempo 4 = 120 #] % MetronomeChangeEvent \test ##[ \tempo 4 = 108 ~ 116 #] \test ##[ \tempo "Allegro" 4 = 132 #] \test ##[ \tempo "Andante" #] %% key, time, clef, bar \test ##[ \key \default #] % KeyChangeEvent \test ##[ \key e \minor #] \test ##[ \clef "bass" #] \test ##[ \clef "french^2" #] \test ##[ \clef "alto_3" #] \test ##[ \time 2/4 #] \test ##[ \time #'(3 2) 5/8 #] \test ##[ \bar "|." #] %% staff switches \test ##[ \autochange { c d } #] % AutoChangeMusic \test ##[ { \change Staff = "up" { c d } } #] % ContextChange %% Tuplets \test ##[ \times 2/3 { c8 d e } #] % TimeScaledMusic \test ##[ \times 4/6 { c16 d e f g a } #] \test ##[ \times 2/3 { c d e \times 2/5 { f e d2 d4 } c } #] %} %% \relative and \tranpose \test #"NOT A BUG" ##[ \relative c' { c b } #] % RelativeOctaveMusic \test #"NOT A BUG" ##[ \transpose c d { c d } #] % TransposedMusic %} %% Repeats \test ##[ \repeat volta 2 { c d } #] % VoltaRepeatedMusic \test ##[ \repeat unfold 2 { c d } #] % UnfoldedRepeatedMusic \test ##[ \repeat percent 2 { c d } #] % PercentRepeatedMusic \test ##[ \repeat tremolo 4 { c16 d } #] % TremoloRepeatedMusic \test ##[ \repeat tremolo 7 { c''32 b' } #] \test ##[ \repeat tremolo 15 { c''16 b' } #] \test ##[ \repeat volta 2 { c4 d } \alternative { { c d } { e f } } #] % %% Context creation \test ##[ \new Staff { c d } #] % ContextSpeccedMusic \test ##[ \new Staff = "up" { c d } #] % ContextSpeccedMusic \test ##[ \context Staff { c d } #] \test ##[ \context Staff = "up" { c d } #] \test ##[ \new Staff \with { \consists "Timing_engraver" \remove "Clef_engraver" } { c d } #] %% Context properties \test ##[ \once \set Score . skipBars = ##t #] % PropertySet \test ##[ \set autoBeaming = ##f #] \test ##[ \unset Score . skipBars #] % PropertyUnset \test ##[ \unset autoBeaming #] %% Layout properties \test ##[ \override Staff . Stem #'thickness = #4.0 #] % OverrideProperty \test ##[ \once \override Beam #'beam-thickness = #0.6 #] \test ##[ \revert Staff . Stem #'thickness #] % RevertProperty \test ##[ \revert Beam #'beam-thickness #] \test "NOT A BUG" ##[ \oneVoice #] % resetting a bunch of properties \test ##[ \override StaffGrouper #'(staff-staff-spacing basic-distance) = #7 #] % nested properties \test ##[ \revert StaffGrouper #'(staff-staff-spacing basic-distance) #] % nested properties %% \applyOutput \test ##[ \applyOutput #'Foo #(lambda (arg) (list)) #] %% \applyContext \test ##[ \applyContext #(lambda (arg) (list)) #] %% \partial \test ##[ \partial 2 #] \test ##[ \partial 8. #] \test ##[ \partial 4*2/3 #] %% \partcombine \test ##[ \partcombine { c e } { d f } #] % PartCombineMusic UnrelativableMusic %% Cue notes \test ##[ \cueDuring #"foo" #1 { c d } #] \test ##[ \quoteDuring #"foo" { c d } #] %% \ottava \test ##[ \ottava #1 #] % OttavaMusic %% \tweak \test ##[ < \tweak #'duration-log #2 c > #] \test ##[ < c \tweak #'transparent ##t e > #] \test ##[ < \tweak #'color #'(1.0 0.0 0.0) \tweak #'duration-log #2 c > #] \test ##[ c-\tweak #'font-size #3 -> #] \test ##[ < \tweak Accidental #'color #'(1.0 0.0 0.0) cis eis g > #] %% end test. #(read-hash-extend #\[ #f) %{ ] %} % **************************************************************** % end ly snippet % ****************************************************************