]> git.donarmstrong.com Git - lilypond.git/blobdiff - Documentation/snippets/score-for-diatonic-accordion.ly
Merge branch 'translation' into staging
[lilypond.git] / Documentation / snippets / score-for-diatonic-accordion.ly
index be01ba6b7389a8ac4ae32bb99136862b4b95ec2e..a721ee27be115764e72fed7396a18edd8d995375 100644 (file)
@@ -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.39"
+% 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.15.20
+\version "2.15.20"
 
 \header {
-  lsrtags = "template"
+  lsrtags = "template, real-music, specific-notation"
 
   texidoc = "
 A template to write a score for a diatonic accordion.
@@ -57,6 +61,7 @@ editor.
   doctitle = "Score for diatonic accordion"
 } % begin verbatim
 
+
 verse = \lyricmode { Wie gross bist du! Wie gross bist du! }
 
 harmonies = \new ChordNames \chordmode {
@@ -67,7 +72,7 @@ harmonies = \new ChordNames \chordmode {
   bes1
 }
 
-NoStem = \override Stem #'transparent = ##t
+NoStem = { \override Stem #'transparent = ##t \override Flag #'transparent = ##t }
 NoNoteHead = \override NoteHead #'transparent = ##t
 ZeroBeam = \override Beam  #'positions = #'(0 . 0)
 
@@ -179,7 +184,7 @@ staffVoice = \new Staff = astaffvoice  {
 
 staffAccordionMel =
 \new Staff  \with { \remove "Clef_engraver" } {
-  #(set-accidental-style 'forget) %Set the accidentals (Vorzeichen) for each note,
+  \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"
@@ -191,9 +196,9 @@ staffAccordionMel =
 
 AltOn =
 #(define-music-function (parser location mag) (number?)
-  #{ \override Stem #'length = #$(* 7.0 mag)
+  #{ \override Stem #'length = #(* 7.0 mag)
       \override NoteHead #'font-size =
-#$(inexact->exact (* (/ 6.0 (log 2.0)) (log mag))) #})
+#(inexact->exact (* (/ 6.0 (log 2.0)) (log mag))) #})
 
 AltOff = {
   \revert Stem #'length
@@ -240,4 +245,3 @@ staffBassRhytm =
   >>
 }
 %}
-