From e38d80307a0dfb73a1d60b85854b40fc7dc8f4a0 Mon Sep 17 00:00:00 2001 From: gpercival Date: Wed, 18 Jun 2003 20:23:34 +0000 Subject: [PATCH] Added texidoc index. --- ChangeLog | 4 ++++ input/test/hara-kiri-switch.ly | 11 ++++++----- input/test/hara-kiri.ly | 9 ++++----- input/test/harmonic.ly | 8 +++++--- input/test/header-ifelse.ly | 10 ++++++++-- input/test/hshift.ly | 8 +++----- input/test/hymn.ly | 2 ++ input/test/improv.ly | 8 +++----- input/test/incipit.ly | 14 +++++--------- input/test/instrument-name-grandstaff.ly | 3 ++- input/test/instrument-name-mmrest.ly | 4 +++- input/test/key-clefs.ly | 2 ++ input/test/knee-mult.ly | 4 ++++ input/test/knee-sym.ly | 2 ++ input/test/knee.ly | 3 ++- 15 files changed, 55 insertions(+), 37 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2670234558..bb324aaf73 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-06-18 Graham Percival + + * input/test/[h-k]*.ly: added texidoc index. + 2003-06-17 Han-Wen Nienhuys * scm/music-functions.scm (make-ottava-set): diff --git a/input/test/hara-kiri-switch.ly b/input/test/hara-kiri-switch.ly index 1a8d8111c9..a977511289 100644 --- a/input/test/hara-kiri-switch.ly +++ b/input/test/hara-kiri-switch.ly @@ -1,9 +1,9 @@ - -\header { -texidoc = "some instruments (notably: cello and double bass) are alternatively written on one and two staves. This is the way to do it:" -} \version "1.7.19" - +% TODO: check if we really need both hara-kiri-switch.ly and +% hara-kiri.ly. -gp +\header { texidoc = "@cindex Hara Kiri Switch +Some instruments (notably cello and double bass) are alternatively +written on one and two staves. This is the way to do it: " } voiceOne = \notes \relative c'' { a1 a a @@ -47,6 +47,7 @@ grandstaff = \context GrandStaff = one < \grandstaff \paper{ linewidth=80.0\mm + raggedright=##t \translator { \VoiceContext autoBeaming = ##f } \translator { \RemoveEmptyStaffContext } diff --git a/input/test/hara-kiri.ly b/input/test/hara-kiri.ly index 7256c2052a..8c4edc52dd 100644 --- a/input/test/hara-kiri.ly +++ b/input/test/hara-kiri.ly @@ -1,9 +1,8 @@ \version "1.7.19" - -\header { -texidoc = "Hara kiri staves disappear when empty " -} - +% TODO: check if we really need both hara-kiri-switch.ly and +% hara-kiri.ly. -gp +\header { texidoc = "@cindex Hara Kiri +Hara kiri staves disappear when empty. " } % todo: use partcombine?, junk? diff --git a/input/test/harmonic.ly b/input/test/harmonic.ly index 865651bc3a..96cea53ed1 100644 --- a/input/test/harmonic.ly +++ b/input/test/harmonic.ly @@ -1,15 +1,17 @@ \version "1.7.18" \header { - texidoc =" Harmonic notes: a different style on the same stem. " -} + texidoc ="@cindex Artificial Harmonics +For stringed instruments, artificial harmonics are notated with +two different notehead styles on the same stem. " } \score { \notes { c'4 < c'4 \context Thread = tb { \property Thread.NoteHead \set #'style = #'mensural - g''4 + g'4 } > } + \paper {raggedright=##t} } %% new-chords-done %% diff --git a/input/test/header-ifelse.ly b/input/test/header-ifelse.ly index 70893a7d6e..c38dc8b22c 100644 --- a/input/test/header-ifelse.ly +++ b/input/test/header-ifelse.ly @@ -1,4 +1,7 @@ % #(define pieceTagLine "Copyright 2002 (C) Mutopia") +\version "1.7.20" +% FIXME: since tagline isn't used in creating the webpage, this example +% doesn't output anything unusual. #(define (my-ly-version) (let ((version (ly:version))) @@ -10,8 +13,11 @@ pieceTagLine = #pieceTagLine \header{ tagline = \pieceTagLine -texidoc = "High level functionality can be accomplished with GUILE. Semantics aren't nice though." +texidoc = "@cindex Header If Else +High level functionality can be accomplished with GUILE. Semantics aren't nice though." } -\score{ \notes{ c4 } } +\score{ \notes{ c4 } +\paper {raggedright=##t} +} %% new-chords-done %% diff --git a/input/test/hshift.ly b/input/test/hshift.ly index 3059fd3ac6..a0bf5aba04 100644 --- a/input/test/hshift.ly +++ b/input/test/hshift.ly @@ -1,7 +1,6 @@ \version "1.7.18" - - - +\header { texidoc = "@cindex Horizontal Shift +You can manually shift notes horizontally. " } shiftI = \property Voice.NoteColumn \override #'horizontal-shift = #0 shiftII = \property Voice.NoteColumn \override #'horizontal-shift = #1 @@ -20,7 +19,6 @@ shiftV = \property Voice.NoteColumn \override #'horizontal-shift = #4 \context Voice =VE {\stemUp \shiftV f } > } - \paper { } - \midi { } + \paper { raggedright = ##t } } %% new-chords-done %% diff --git a/input/test/hymn.ly b/input/test/hymn.ly index e663b7029c..617285b8d8 100644 --- a/input/test/hymn.ly +++ b/input/test/hymn.ly @@ -1,4 +1,6 @@ \version "1.7.18" +% I think we have other examples of partcombine. Candidate for delete. -gp +\header { texidoc = "" } \score{ \context Staff < diff --git a/input/test/improv.ly b/input/test/improv.ly index 7fb2f0c01d..0cf2940b47 100644 --- a/input/test/improv.ly +++ b/input/test/improv.ly @@ -1,12 +1,10 @@ - -\header { -texidoc = "note heads for improvisation have a different shape. " -} +\version "1.7.18" +\header { texidoc = "@cindex Improv +Noteheads for improvisation have a different shape. " } %{ TODO: the construct with separet SquashVoice context is a little gory. FIXME. %} -\version "1.7.18" improOn = \notes {\translator Voice = impro } improOff = \notes {\translator SquashVoice = melo } diff --git a/input/test/incipit.ly b/input/test/incipit.ly index 0eb298a5c5..b430c7cbf1 100644 --- a/input/test/incipit.ly +++ b/input/test/incipit.ly @@ -1,13 +1,8 @@ \version "1.7.18" -%{ - Test of how to make an ``incipit'' to indicate scordatora - tuning of a violin part, using the clefStyle property. - The two first bars of Biber's Rosary sonata III. - - /Mats B -%} - - +\header { texidoc = "@cindex Incipit +This shows how to make an ``incipit'' to indicate scordatora +tuning of a violin part, using the clefStyle property. +The two first bars of Biber's Rosary sonata III. " } violinincipit = \notes\relative c''{ \clef "french" @@ -64,6 +59,7 @@ BC = \notes\relative c{ \BC }} > + \paper { raggedright = ##t } } %% new-chords-done %% diff --git a/input/test/instrument-name-grandstaff.ly b/input/test/instrument-name-grandstaff.ly index 5a622154cd..6cae0a4908 100644 --- a/input/test/instrument-name-grandstaff.ly +++ b/input/test/instrument-name-grandstaff.ly @@ -1,5 +1,6 @@ \version "1.7.18" - +\header { texidoc = "@cindex Instrument Name Grandstaff +You can name the whole grandstaff in addition to individual staffs. " } \score { \notes diff --git a/input/test/instrument-name-mmrest.ly b/input/test/instrument-name-mmrest.ly index a215d525ac..b92e7a0047 100644 --- a/input/test/instrument-name-mmrest.ly +++ b/input/test/instrument-name-mmrest.ly @@ -1,5 +1,6 @@ \version "1.7.18" - +% candidate for regression. -gp +\header { texidoc = "" } %{ this combines instrument names and multimeasure rests (there was an @@ -20,6 +21,7 @@ interesting bug in 1.3.98) } } + \paper { raggedright = ##t } } %% new-chords-done %% diff --git a/input/test/key-clefs.ly b/input/test/key-clefs.ly index 998b37fb62..f4ff775cde 100644 --- a/input/test/key-clefs.ly +++ b/input/test/key-clefs.ly @@ -1,4 +1,6 @@ \version "1.7.18" +% candidate for regression -gp +\header { texidoc = "" } \score { \notes \relative cis' { diff --git a/input/test/knee-mult.ly b/input/test/knee-mult.ly index 0cf97d56ea..c37add3e65 100644 --- a/input/test/knee-mult.ly +++ b/input/test/knee-mult.ly @@ -1,4 +1,8 @@ \version "1.7.18" +% possible rename to piano-foo +\header { texidoc = "@cindex Knee Piano +You can spread a ``knee beam'' over a pianostaff. " } + \score{ \context PianoStaff < \context Staff=one \notes\relative c'{ diff --git a/input/test/knee-sym.ly b/input/test/knee-sym.ly index 6e618eedbb..025351859b 100644 --- a/input/test/knee-sym.ly +++ b/input/test/knee-sym.ly @@ -1,4 +1,6 @@ \version "1.7.18" +% candidate for regression. -gp +\header { texidoc = "" } \score{ \notes\relative c'{ a8-[ b'' a,, b''] diff --git a/input/test/knee.ly b/input/test/knee.ly index 3239a12ec8..dea93bfbd3 100644 --- a/input/test/knee.ly +++ b/input/test/knee.ly @@ -1,5 +1,6 @@ \version "1.7.18" - +% candidate for regression? -gp +\header { texidoc = ""} \score{ \notes\relative c'{ \property Voice.Beam \override #'auto-knee-gap = ##f -- 2.39.5