X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fscore-for-diatonic-accordion.ly;h=46883755e6b6e55885e0621009982ac7962c2626;hb=1d765020f867995879c761f2c9351c9dc74f1df8;hp=ed087bdd04abe4ccaa261797571dbe0af2f1e67b;hpb=71243e9548e9146da4a90e6347dbca6430346be8;p=lilypond.git diff --git a/Documentation/snippets/score-for-diatonic-accordion.ly b/Documentation/snippets/score-for-diatonic-accordion.ly index ed087bdd04..46883755e6 100644 --- a/Documentation/snippets/score-for-diatonic-accordion.ly +++ b/Documentation/snippets/score-for-diatonic-accordion.ly @@ -1,10 +1,14 @@ -%% Do not edit this file; it is automatically -%% generated from LSR http://lsr.dsi.unimi.it -%% This file is in the public domain. -\version "2.13.4" +% DO NOT EDIT this file manually; it is automatically +% generated from Documentation/snippets/new +% Make any changes in Documentation/snippets/new/ +% and then run scripts/auxiliar/makelsr.py +% +% This file is in the public domain. +%% Note: this file works from version 2.17.30 +\version "2.17.30" \header { - lsrtags = "template" + lsrtags = "template, real-music, specific-notation" texidoc = " A template to write a score for a diatonic accordion. @@ -57,55 +61,56 @@ editor. doctitle = "Score for diatonic accordion" } % begin verbatim + verse = \lyricmode { Wie gross bist du! Wie gross bist du! } harmonies = \new ChordNames \chordmode { \germanChords \set chordChanges = ##t - bes8 bes8 bes8 + bes8 bes8 bes8 es2 f bes1 } -NoStem = \override Stem #'transparent = ##t -NoNoteHead = \override NoteHead #'transparent = ##t -ZeroBeam = \override Beam #'positions = #'(0 . 0) +NoStem = { \hide Stem } +NoNoteHead = \hide NoteHead +ZeroBeam = \override Beam.positions = #'(0 . 0) staffTabLine = \new Staff \with { \remove "Time_signature_engraver" \remove "Clef_engraver" } { - \override Staff.StaffSymbol #'line-positions = #'(0) -% Shows one horizontal line. The vertical line (simulating a bar-line) is simulated with a gridline - \set Staff.midiInstrument = #"choir aahs" - \key c \major - \relative c'' - { - % disable the following line to see the the noteheads while writing the song - \NoNoteHead - \override NoteHead #'no-ledgers = ##t - - % The beam between 8th-notes is used to draw the push-line - %How to fast write the push-lines: - % 1. write repeatedly 'c c c c c c c c |' for the whole length of the song - % 2. uncomment the line \NoNoteHead - % 3. compile - % 4. Mark the positions on which push/pull changes. - % In the score-picture click on the position the push- or pull-part starts - % (on the noteHead, the cursor will change to a hand-icon). - % The cursor in the source code will jump just at this position. - % a) If a push-part starts there, replace the 'c' by an 'e[' - % b) If a pull-part starts there, replace the 'c' by an 's' - % 5. Switch into 'overwrite-mode' by pressing the 'ins' key. - % 6. For the pull-parts overwrite the 'c' with 's' - % 7. For every push-part replace the last 'c' with 'e]' - % 8. Switch into 'insert-mode' again - % 9. At last it should look lik e.g. (s s e[ c | c c c c c c c c | c c c c c c e] s s) - % 10. re-enable the line \NoNoteHead - \autoBeamOff - \ZeroBeam - s8 s s e[ c c c c c c e] | s s s s s - } + \override Staff.StaffSymbol.line-positions = #'(0) + % Shows one horizontal line. The vertical line (simulating a bar-line) is simulated with a gridline + \set Staff.midiInstrument = #"choir aahs" + \key c \major + \relative c'' + { + % disable the following line to see the the noteheads while writing the song + \NoNoteHead + \override NoteHead.no-ledgers = ##t + + % The beam between 8th-notes is used to draw the push-line + %How to fast write the push-lines: + % 1. write repeatedly 'c c c c c c c c |' for the whole length of the song + % 2. uncomment the line \NoNoteHead + % 3. compile + % 4. Mark the positions on which push/pull changes. + % In the score-picture click on the position the push- or pull-part starts + % (on the noteHead, the cursor will change to a hand-icon). + % The cursor in the source code will jump just at this position. + % a) If a push-part starts there, replace the 'c' by an 'e[' + % b) If a pull-part starts there, replace the 'c' by an 's' + % 5. Switch into 'overwrite-mode' by pressing the 'ins' key. + % 6. For the pull-parts overwrite the 'c' with 's' + % 7. For every push-part replace the last 'c' with 'e]' + % 8. Switch into 'insert-mode' again + % 9. At last it should look lik e.g. (s s e[ c | c c c c c c c c | c c c c c c e] s s) + % 10. re-enable the line \NoNoteHead + \autoBeamOff + \ZeroBeam + s8 s s e[ c c c c c c e] | s s s s s + } } %{ @@ -120,116 +125,123 @@ staffTabLine = \new Staff \with { % - In jEdit Search & Replace mark the Option 'Keep Dialog' AccordionTabTwoCBesDur = { - % pull 1 - %8 8 8 | -8 8 8 | - % push 2 - %4 | -4 | - % pull 3 -% 2 r8 } - 2 r8 } - - AccordionTab= { \dynamicUp -% 1. Place a copy of the piano melody above -% 2. Separate piano melody into pull- and push-parts according to the staffTabLine you've already made -% 3. For each line: Double the line. Remark the 1st one (Keeps unchanged as reference) and then -% change the second line using the transformation paper -% Tips: -% - In jEdit Search & Replace mark the Option 'Keep Dialog' -% - -\AccordionTabTwoCBesDur - } - - + % pull 1 + %8 8 8 | + 8 8 8 | + % push 2 + %4 | + 4 | + % pull 3 + % 2 r8 } + 2 r8 } + +AccordionTab= { \dynamicUp + % 1. Place a copy of the piano melody above + % 2. Separate piano melody into pull- and push-parts according to the staffTabLine you've already made + % 3. For each line: Double the line. Remark the 1st one (Keeps unchanged as reference) and then + % change the second line using the transformation paper + % Tips: + % - In jEdit Search & Replace mark the Option 'Keep Dialog' + % - + \AccordionTabTwoCBesDur +} - \layout { - \context { - \Staff - \consists "Grid_point_engraver" - gridInterval = #(ly:make-moment 4 4) % 4/4 - tact. How many beats per bar - % The following line has to be adjusted O-F-T-E-N. - \override GridPoint #'Y-extent = #'(-2 . -21) - } - \context { +\layout { + \context { + \Score + % The vertical line (simulating a bar-line) in + % the staffBassRhytm is a gridline + \consists "Grid_line_span_engraver" + } + \context { + \Staff + \consists "Grid_point_engraver" + gridInterval = #(ly:make-moment 4/4) % 4/4 - tact. How many beats per bar + % The following line has to be adjusted O-F-T-E-N. + \override GridPoint.Y-extent = #'(-2 . -21) + } + \context { \ChoirStaff \remove "System_start_delimiter_engraver" - } + } } -staffVoice = \new Staff=astaffvoice { - \time 4/4 - \set Staff.instrumentName="Voice" - \set Staff.midiInstrument="voice oohs" - \key bes \major - \partial 8*3 - \clef treble - { - \context Voice = "melodyVoi" - { 8 8 8 | 4 | 2 r8 } - \bar "|." - } +staffVoice = \new Staff = astaffvoice { + \time 4/4 + \set Staff.instrumentName = "Voice" + \set Staff.midiInstrument = "voice oohs" + \key bes \major + \partial 8*3 + \clef treble + { + \context Voice = "melodyVoi" + { 8 8 8 | 4 | 2 r8 } + \bar "|." + } } -staffAccordionMel = \new Staff \with { \remove "Clef_engraver" } { - #(set-accidental-style 'forget) %Set the accidentals (Vorzeichen) for each note, - %do not remember them for the rest of the measure. - \time 4/4 - \set Staff.instrumentName="Accordion" - \set Staff.midiInstrument="voice oohs" - \key c \major - \clef treble - { \AccordionTab \bar "|." } +staffAccordionMel = +\new Staff \with { \remove "Clef_engraver" } { + \accidentalStyle forget %Set the accidentals (Vorzeichen) for each note, + %do not remember them for the rest of the measure. + \time 4/4 + \set Staff.instrumentName="Accordion" + \set Staff.midiInstrument="voice oohs" + \key c \major + \clef treble + { \AccordionTab \bar "|." } } - AltOn = #(define-music-function (parser location mag) (number?) - #{ \override Stem #'length = #$(* 7.0 mag) - \override NoteHead #'font-size = - #$(inexact->exact (* (/ 6.0 (log 2.0)) (log mag))) #}) +AltOn = +#(define-music-function (parser location mag) (number?) + #{ \override Stem.length = #(* 7.0 mag) + \override NoteHead.font-size = +#(inexact->exact (* (/ 6.0 (log 2.0)) (log mag))) #}) - AltOff = { - \revert Stem #'length - \revert NoteHead #'font-size - } +AltOff = { + \revert Stem.length + \revert NoteHead.font-size +} BassRhytm = {s4 s8 | c2 c2 | c2 s8 } LyricBassRhythmI= \lyricmode { c b | c } -staffBassRhytm = \new Staff=staffbass \with { \remove "Clef_engraver" } { - % This is not a RhythmicStaff because it must be possible to append lyrics. - - \override Score.GridLine #'extra-offset = #'( 13.0 . 0.0 ) % x.y - \override Staff.StaffSymbol #'line-positions = #'( 0 ) - % Shows one horizontal line. The vertical line (simulating a bar-line) is simulated by a grid - % Search for 'grid' in this page to find all related functions - \time 4/4 - { - \context Voice = "VoiceBassRhytm" - \stemDown \AltOn #0.6 - \relative c'' - { - \BassRhytm - } - \AltOff - \bar "|." - } +staffBassRhytm = +\new Staff = staffbass \with { \remove "Clef_engraver" } { + % This is not a RhythmicStaff because it must be possible to append lyrics. + + \override Score.GridLine.extra-offset = #'( 13.0 . 0.0 ) % x.y + \override Staff.StaffSymbol.line-positions = #'( 0 ) + % Shows one horizontal line. The vertical line (simulating a bar-line) is simulated by a grid + % Search for 'grid' in this page to find all related functions + \time 4/4 + { + \context Voice = "VoiceBassRhytm" + \stemDown \AltOn #0.6 + \relative c'' + { + \BassRhytm + } + \AltOff + \bar "|." + } } -\new Score -\with { - \consists "Grid_line_span_engraver" %The vertical line (simulating a bar-line) in the staffBassRhytm is a gridline +\score { + \new ChoirStaff << + \harmonies + \staffVoice + \context Lyrics = "lmelodyVoi" + \with { alignBelowContext = astaffvoice } + \lyricsto melodyVoi \verse + \staffAccordionMel + \staffTabLine + \staffBassRhytm + \context Lyrics = "lBassRhytmAboveI" + \with { alignAboveContext = staffbass } + \lyricsto VoiceBassRhytm \LyricBassRhythmI + >> } -\new ChoirStaff - << - \harmonies - \staffVoice - \context Lyrics = "lmelodyVoi" \with {alignBelowContext=astaffvoice} { \lyricsto "melodyVoi" \verse } - \staffAccordionMel - \staffTabLine - \staffBassRhytm - \context Lyrics = "lBassRhytmAboveI" \with {alignAboveContext=staffbass} \lyricsto VoiceBassRhytm \LyricBassRhythmI - >> %} -