Funktion zur Verschiebung von Taktstrichen erstellen

[Tengelmann]

Hallo,

ich versuche eine Funktion zur Verschiebung von Taktstrichen zu erstellen, die ich je nach Bedarf einfügen kann. Die Funktion sollte so arbeiten:
e e e e   %Noten
\tv #2   %Funktion: Verschieben des Taktstriches um #2 nach rechts

Im Handbuch gibt es eine Anleitung zum Erstellen von Funktionen, aber ich verstehe die Syntax nicht wirklich.
http://lilypond.org/doc/v2.12/Documentation/user/lilypond/Paired-substitution-functions#Paired-substitution-functions

Mein bisheriger Ansatz sieht so aus:
tv = #(define-music-function (parser location extra-offset) (number? number?)
       #{ \once\override Staff.BarLine #'extra-offset = #$extra-offset })

Lilypond gibt mir allerdings immer einen Fehler aus.
Kann mir da jemand helfen?

Vielen Dank schonmal im Voraus,

Xaver

[ding-dong]

hallo - klappt das!?

(abgeschrieben in http://lilypond.org/doc/v2.12/Documentation/user/lilypond/Paired-substitution-functions#Paired-substitution-functions)

Code: [Auswählen]

tv = #(define-music-function (parser location hor ) ( number? )
  #{ \once\override Staff.BarLine #'extra-offset = #(cons $hor 0)
  #})
     
{
  e e e e   %Noten
  \tv #2    %Funktion: Verschieben des Taktstriches um #2 nach rechts
  e e e e   %Noten
}

[Tengelmann]

Hallo ding-dong,

das klappt genau wie ich es wollte. Prima, danke.
Was meinen denn cons und hor, oder wo finde ich das erklärt?

Grüße,

Xaver

[ding-dong]

hallo!

cons wird z.b. hier beschrieben: http://www.tech-recipes.com/rx/1751/scheme_cons/ - suche nach scheme und cons.
hor ist meine erfindung und meint die horizontale verschiebung!!!

weiterhin viel spass!