lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

help scheme TAB strings music-function


From: Robby R
Subject: help scheme TAB strings music-function
Date: Tue, 19 Jun 2012 05:01:23 +0000 (UTC)
User-agent: Loom/3.14 (http://gmane.org/)

Hello,

I'm a newbie trying to make a function to print string names next to TAB.  I've
read the manuals over and over, and searched and searched all the lists.  Here's
what I have :

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\version "2.14.1" 

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  MACRO DEFINITIONS 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

setStrTuningCLEF =
   #(define-music-function
                (parser location tuning)
                (list?)
                #{
                        \override Staff.InstrumentName #'self-alignment-X = 
#RIGHT 
                        \set Staff.instrumentName = #( markup 
make-center-column-markup $tuning ) ) 
                #}
        )

tuningCLEF = \markup { 
  \center-column { 1 2 3 4 5 } 
} 

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  END MACRO 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


music = { 
        \relative c'' { g4\1 g8\1 g8\5 e8\1 d8\1 d8\1 g8\5 } 
} 

\score { % This one WORKS and is a simple version what I'd like to acheive with
the music-function 
                \new TabVoice { 
                        \set TabStaff.tablatureFormat = 
#fret-number-tablature-format-banjo 
                        \set TabStaff.stringTunings = #banjo-open-g-tuning 
                        
                        \override Staff.InstrumentName #'self-alignment-X = 
#RIGHT      % ******** 
                        \set Staff.instrumentName = \tuningCLEF                 
                        % ******** 
                        
                        \music 
                } 
} 
\score { % This one DOESN'T WORK
                \new TabVoice { 
                        \set TabStaff.tablatureFormat = 
#fret-number-tablature-format-banjo 
                        \set TabStaff.stringTunings = #banjo-open-g-tuning 
                        
                        \setStrTuningCLEF #'( D B G D g )                       
                                % ******** 

                        \music 
                } 
} 

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Thanks for your help!
Robby




reply via email to

[Prev in Thread] Current Thread [Next in Thread]