* input/test/note-chords.ly: renamed to chord-names-no-inversions.ly.
+ * input/test/[l-o]*.ly: added texidoc index.
+
2003-06-17 Han-Wen Nienhuys <hanwen@cs.uu.nl>
* scm/music-functions.scm (make-ottava-set):
\version "1.7.18"
-
-
-%{
-
-Test clef engraver by setting \property directly. \clef is merely a front-end to this.
-
-%}
+% possible rename to clef-manual-control
+\header{ texidoc = "@cindex Clef Manual Control
+You can use the clef engraver by setting \property directly. \clef
+is merely a front-end to this. " }
\score { \notes {
\property Staff.clefGlyph = #"clefs-F"
\property Staff.clefOctavation = #0
\property Staff.clefPosition = #0
c'4
- \clef "bla"
+ \clef "bass"
c'4
-}}
+}
+ \paper{ raggedright = ##t }
+}
%% new-chords-done %%
\version "1.7.18"
+% possible rename to rest-foo
\header {
- texidoc = "Control the number of rests in a collision with maximum-rest-count."
+ texidoc = "@cindex Rest Collision Count
+Control the number of rests in a collision with maximum-rest-count."
}
\score{
r
}
>
-\paper{
-}
-\midi{
-\tempo 1 = 60
-}
+ \paper{ raggedright = ##t }
}
%% new-chords-done %%
\version "1.7.19"
-\header {
- title = "mensural ligature test"
+% TODO:
+% check with ancient- stuff. rename, merge, something. -gp
+% check font size -- 26 looks too big, but need to ask. -gp
+\header { texidoc = "@cindex Ancient Mensural Ligatures
+Lilypond can print mensural ligatures."
}
\include "paper26.ly"
\version "1.7.18"
+% candidate for regression. -gp
\header {
texidoc="MIDI and midi2ly test file. Diff between this and midi2ly.py (experimental, 1.5.17) should be minimal"
}
\version "1.7.18"
-
+% candidate for regression. -gp
\header {
texidoc = "
\version "1.7.18"
-
+% candidate for regression. -gp
+\header { texidoc = "" }
\score {
\context Staff \notes <
\context Voice=i {
\consists Multi_measure_rest_engraver
\consists Bar_engraver
}
+ raggedright = ##t
}
}
%% new-chords-done %%
\version "1.7.18"
-\header {
+% possible rename to scheme- or something like that. -gp
+\header { texidoc= "@cindex Scheme Manual Accidentals
+Positions of accidentals may be manually set. This
+involves some scheme code. " }
- texidoc= "Positions of accidentals may be manually set. This
-involves some scheme code."
-
-}
#(define (make-acc-position-checker pos)
(lambda (elt)
(and
\version "1.7.18"
+% possible rename to scheme- or something like that. -gp
+\header { texidoc = "@cindex Scheme Move Mark
+You can move objects around with scheme. This example shows how to
+move marks around. " }
\score{
\context Staff \notes\relative c''{
\version "1.7.18"
-
+% possible rename to scheme- or something like that. -gp
+\header { texidoc = "@cindex Scheme Move Notehead
+You can move objects around with scheme. This example shows how to
+move noteheads around. " }
fragment = \notes {
\outputproperty #(make-type-checker 'note-head-interface)
\version "1.7.18"
+% possible rename to scheme- or something like that. -gp
+\header { texidoc = "@cindex Scheme Move Text
+You can move objects around with scheme. This example shows how to
+move text around. " }
#(define (make-text-checker text)
(lambda (grob) (equal? text (ly:get-grob-property grob 'text))))
\version "1.7.18"
-
+% candidate for delete or regression. -gp
\score {
\context Voice \notes\relative c {
c8-[ c16 c16]
}
- \paper { }
+ \paper { raggedright = ##t}
}
%% new-chords-done %%
-
-\header{
-texidoc = "This example shows prelude in C major of WTK1, but coded
-using Scheme functions to save typing work.
-"
-
-}
-
-\include "deutsch.ly"
\version "1.7.18"
+\include "deutsch.ly"
+% possible rename to scheme- something. -gp
+% TODO: ask if it needs to have so many empty bars in the middle. -gp
+\header{ texidoc = "@cindex Scheme Music Box
+This example shows prelude in C major of WTK1, but coded
+using Scheme functions to avoid typing work. " }
+
#(define (transform music)
(let* ((es (ly:get-mus-property music 'elements))
\version "1.7.18" %% or actually: 1.7.1 ...
-\header {
-
- texidoc = "You can create music expressions from Scheme. The
- mechanism for this is rather clumsy to use, so avoid if possible."
-
- }
+% possible rename to scheme- something. -gp
+\header { texidoc = "@cindex Scheme Music Creation
+You can create music expressions from Scheme. The
+mechanism for this is rather clumsy to use, so avoid it if possible. "
+}
#(define (make-note-req p d)
(let* ((ml (make-music-by-name 'NoteEvent)))
(make-note (list (make-note-req (ly:make-pitch 1 1 0) (ly:make-duration 2 0)))))
)
-\score { \fooMusic }
+\score { \fooMusic
+\paper { raggedright = ##t }
+}
%% new-chords-done %%
\version "1.7.18"
-\header{
-texidoc="
-In InnerStaffGroup and InnerChoirStaff, the brackets should be shiftet leftwards.
-"
+\header{ texidoc="@cindex Nested Staff Groups
+Lilypond can print nested groups of staffs. "
+
+% old texidoc; it sounds like a testing comment, rather than an "example" comment.
+%In InnerStaffGroup and InnerChoirStaff, the brackets should be shiftet leftwards.
}
\score { \notes
\version "1.7.18"
+% possible rename to bar-lines-foo. -gp
+
+\header{ texidoc = "@cindex Bar Lines Remove
+You can stop Lilypond from printing bar lines by removing the engraver. "
+}
\score {
\notes \relative c'' {
\version "1.7.18"
+% possible rename to staff-something. -gp
+
+\header{ texidoc = "@cindex Staff Remove
+You can stop Lilypond from printing the staff by removing the engraver. "
+}
\score {
- \notes { c4 c4 c8 c8 }
+ \notes { c4 d4 e8 d8 }
\paper {
raggedright = ##t
\translator {
\version "1.7.18"
-\header {
- texidoc = "Don't extend stems to cetner line."
+
+\header { texidoc = "@cindex No Stem Extend
+You can stop Lilypond from extending stems to the center line. "
}
\score {
>
}
- \paper { }
- \midi { }
+ \paper { raggedright = ##t}
}
%% new-chords-done %%
\version "1.7.18"
+% pretty similar to hshift.ly. Probably delete soon.
\score {
\context Voice \notes\relative c {
\paper {
raggedright = ##t
}
- \midi { }
}
%% new-chords-done %%
\version "1.7.18"
-
+% looks like an old file; probably delete.
\score{
\notes \transpose c c'{
% @c1@ @c-7@ @c-7^5@-1-3
\chords { c1 c:7 c:7^5 }
}
-
+ \paper { raggedright=##t}
}
%% new-chords-done %%
\version "1.7.18"
-\header {
-texidoc="Octave duplicate parts of music"
+\header { texidoc="@cindex Octave Doubling
+Octave doubling parts of music. "
}
upperOne = \notes\relative c'' {
\version "1.7.18"
+% candidate for delete. Nothing to see here.
-
-\score
-{
- \notes { c1 c1 \property Score.skipBars = ##t c1 \break R1*8 c1 c1 c1 c1
- }
- \paper {
-
- }
+\score {
+ \notes {
+ c1 c1 \property Score.skipBars = ##t c1 \break R1*8 c1 c1 c1 c1
+ }
+ \paper { raggedright = ##t }
}
%% new-chords-done %%
\version "1.7.18"
-\header {
-
-texidoc = "Ossias present alternatives for a piece. They are not
-really supported, but can be somewhat faked in lily."
+% pretty much a duplicate of extra-staff.ly. candidate for merge or delete. -gp
+\header { texidoc = "@cindex Ossia
+Ossias present alternatives for a piece. They are not
+really supported, but can be somewhat faked in lily. "
}
\score {
\context Staff = stb { c1 c1 }
>
}
+ \paper {raggedright= ##t}
}
%% new-chords-done %%
projects / lilypond.git / commitdiff