Re: tablature.ly, second attempt
Marc Hohl wrote: There is one problem now with the settings in tablature.ly: I simply made ties transparent, but then, the fret number appears as it were a note to be played. Hopefully somewhere in the future, I will find a possibility to let the fret number disappear, but as David Stocerk pointed out, some cases had to be distinguished (the following is a quote from a former posting from David): (quote...) It should be noted that a publishing standard is when there is a Note Staff + Tab Staff, tied notes (that is, the notes that are 'held') in the Tab Staff are indicated by parenthesizing the tab number(s). There are several conventions that are related to tied notes in a Notes+Tab situation: * Tab numbers that are 'tied to' are sometimes parenthesized, sometimes hidden. * In the case that 'tied to' notes are hidden, a parenthesized tab number is usually forced if the 'tied to' note is at the beginning of a line (i.e., the note is tied over a system break). * Likewise, parenthesized tab numbers are forced when a 'tied to' note begins a 2nd ending or Coda section. * A parenthesized chord in the Tab Staff are indicated with a single pair of parentheses surrounding all of the notes in the chord (as opposed to as single pair of parentheses around each individual note in the chord). (...quote) So this seems to be a difficult task, but somehow to manage. Yeah it would nice if you got the job done so that even the details (which are important often) are perfect. I think you can do it with help of some brilliant people on the list ;) @David, this is also my two weekly head up... how are things going ;) Kind regards, \r ___ lilypond-user mailing list lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user
Re: tablature.ly, second attempt
))
> ;; which clef is wanted?
> (if (string=? glyph "markup.moderntab")
> ;; if it is "moderntab", we'll draw it
> (let* ((staff-symbol (ly:grob-object grob 'staff-symbol))
> (line-count (ly:grob-property staff-symbol
> 'line-count))
> (staff-space (ly:grob-property staff-symbol
> 'staff-space 1)))
>(grob-interpret-markup grob (make-customTabClef-markup
> line-count staff-space)))
> ;; otherwise, we simply use the default printing routine
> (ly:clef::print grob
>
> % define sans serif-style tab-Clefs as a markup:
> #(define-markup-command (customTabClef layout props num-strings
> staff-space) (integer? number?)
>(define (square x) (* x x))
>(let* ((scale-factor (/ staff-space 1.5))
> (font-size (- (* num-strings 1.5 scale-factor) 7))
> (base-skip (* (square (+ (* num-strings 0.195) 0.4))
> scale-factor)))
> (interpret-markup layout props
> (markup #:vcenter #:bold
> #:override (cons 'font-family 'sans)
> #:fontsize font-size
> #:override (cons 'baseline-skip base-skip)
> #:left-align
> #:center-column ("T" "A" "B")
>
> % commands for switching between tablature with numbers only...
> tabNumbersOnly = {
> % no time signature
> \override TabStaff.TimeSignature #'stencil = ##f
> % no stems, beams, dots, ties and slurs
> \override TabVoice.Stem #'stencil = ##f
> \override TabVoice.Beam #'stencil = ##f
> \override TabVoice.Dots #'stencil = ##f
> \override TabVoice.Tie #'stencil = ##f
> \override TabVoice.Slur #'stencil = ##f
> % no tuplet stuff
> \override TabVoice.TupletBracket #'stencil = ##f
> \override TabVoice.TupletNumber #'stencil = ##f
> % no dynamic signs, text spanners etc.
> \override DynamicText #'transparent = ##t
> \override DynamicTextSpanner #'stencil = ##f
> \override TextSpanner #'stencil = ##f
> \override Hairpin #'transparent = ##t
> % no rests
> \override TabVoice.Rest #'stencil = ##f
> \override TabVoice.MultiMeasureRest #'stencil = ##f
> % no markups
> \override TabVoice.Script #'stencil = ##f
> \override TabVoice.TextScript #'stencil = ##f
> }
> % and the full notation
> tabFullNotation = {
> % time signature
> \revert TabStaff.TimeSignature #'stencil
> % stems, beams, dots
> \revert TabVoice.Stem #'stencil
> \revert TabVoice.Beam #'stencil
> \revert TabVoice.Dots #'stencil
> \revert TabVoice.Tie #'stencil
> \revert TabVoice.Slur #'stencil
> % tuplet stuff
> \revert TabVoice.TupletBracket #'stencil
> \revert TabVoice.TupletNumber #'stencil
> % dynamic signs
> \revert DynamicText #'transparent
> \override DynamicTextSpanner #'stencil = ##f
> \revert TabVoice.DynamicTextSpanner #'stencil
> \revert TabVoice.Hairpin #'transparent
> % rests
> \revert TabVoice.Rest #'stencil
> \revert TabVoice.MultiMeasureRest #'stencil
> % markups
> \revert TabVoice.Script #'stencil
> \revert TabVoice.TextScript #'stencil
> }
>
> % the defaults for tablature:
> % the clef handler will be included and the tablature
> % is displayed \tabNumbersOnly-style:
> \layout {
> \context {
> \TabStaff
> % the clef handler
> \override Clef #'stencil = #clef::print-modern-tab-if-set
> \override TimeSignature #'stencil = ##f
> }
> \context {
> \TabVoice
> \override Stem #'stencil = ##f
> \override Beam #'stencil = ##f
> \override Dots #'stencil = ##f
> \override Tie #'stencil = ##f
> \override Slur #'stencil = ##f
> \override TupletBracket #'stencil = ##f
> \override TupletNumber #'stencil = ##f
> \override DynamicText #'transparent = ##t
> \override DynamicTextSpanner #'stencil = ##f
> \override TextSpanner #'stencil = ##f
> \override Hairpin #'transparent = ##t
> \override Rest #'stencil = ##f
> \override MultiMeasureRest #'stencil = ##f
> \override Script #'stencil = ##f
> \override TextScript #'stencil = ##f
> }
> }
>
> \version "2.12.2"
> \include "tablature.ly"
>
> % for testing purposes only; in newer versions of lilypond, they will be
> % already defined:
> #(define-public guita
tablature.ly, second attempt
define sans serif-style tab-Clefs as a markup:
#(define-markup-command (customTabClef layout props num-strings staff-space)
(integer? number?)
(define (square x) (* x x))
(let* ((scale-factor (/ staff-space 1.5))
(font-size (- (* num-strings 1.5 scale-factor) 7))
(base-skip (* (square (+ (* num-strings 0.195) 0.4)) scale-factor)))
(interpret-markup layout props
(markup #:vcenter #:bold
#:override (cons 'font-family 'sans)
#:fontsize font-size
#:override (cons 'baseline-skip base-skip)
#:left-align
#:center-column ("T" "A" "B")
% commands for switching between tablature with numbers only...
tabNumbersOnly = {
% no time signature
\override TabStaff.TimeSignature #'stencil = ##f
% no stems, beams, dots, ties and slurs
\override TabVoice.Stem #'stencil = ##f
\override TabVoice.Beam #'stencil = ##f
\override TabVoice.Dots #'stencil = ##f
\override TabVoice.Tie #'stencil = ##f
\override TabVoice.Slur #'stencil = ##f
% no tuplet stuff
\override TabVoice.TupletBracket #'stencil = ##f
\override TabVoice.TupletNumber #'stencil = ##f
% no dynamic signs, text spanners etc.
\override DynamicText #'transparent = ##t
\override DynamicTextSpanner #'stencil = ##f
\override TextSpanner #'stencil = ##f
\override Hairpin #'transparent = ##t
% no rests
\override TabVoice.Rest #'stencil = ##f
\override TabVoice.MultiMeasureRest #'stencil = ##f
% no markups
\override TabVoice.Script #'stencil = ##f
\override TabVoice.TextScript #'stencil = ##f
}
% and the full notation
tabFullNotation = {
% time signature
\revert TabStaff.TimeSignature #'stencil
% stems, beams, dots
\revert TabVoice.Stem #'stencil
\revert TabVoice.Beam #'stencil
\revert TabVoice.Dots #'stencil
\revert TabVoice.Tie #'stencil
\revert TabVoice.Slur #'stencil
% tuplet stuff
\revert TabVoice.TupletBracket #'stencil
\revert TabVoice.TupletNumber #'stencil
% dynamic signs
\revert DynamicText #'transparent
\override DynamicTextSpanner #'stencil = ##f
\revert TabVoice.DynamicTextSpanner #'stencil
\revert TabVoice.Hairpin #'transparent
% rests
\revert TabVoice.Rest #'stencil
\revert TabVoice.MultiMeasureRest #'stencil
% markups
\revert TabVoice.Script #'stencil
\revert TabVoice.TextScript #'stencil
}
% the defaults for tablature:
% the clef handler will be included and the tablature
% is displayed \tabNumbersOnly-style:
\layout {
\context {
\TabStaff
% the clef handler
\override Clef #'stencil = #clef::print-modern-tab-if-set
\override TimeSignature #'stencil = ##f
}
\context {
\TabVoice
\override Stem #'stencil = ##f
\override Beam #'stencil = ##f
\override Dots #'stencil = ##f
\override Tie #'stencil = ##f
\override Slur #'stencil = ##f
\override TupletBracket #'stencil = ##f
\override TupletNumber #'stencil = ##f
\override DynamicText #'transparent = ##t
\override DynamicTextSpanner #'stencil = ##f
\override TextSpanner #'stencil = ##f
\override Hairpin #'transparent = ##t
\override Rest #'stencil = ##f
\override MultiMeasureRest #'stencil = ##f
\override Script #'stencil = ##f
\override TextScript #'stencil = ##f
}
}
\version "2.12.2"
\include "tablature.ly"
% for testing purposes only; in newer versions of lilypond, they will be
% already defined:
#(define-public guitar-seven-string-tuning '(4 -1 -5 -10 -15 -20 -25))
#(define-public guitar-drop-d-tuning '(4 -1 -5 -10 -15 -22))
#(define-public bass-four-string-tuning'(-17 -22 -27 -32))
#(define-public bass-drop-d-tuning '(-17 -22 -27 -34))
#(define-public bass-five-string-tuning'(-17 -22 -27 -32 -37))
#(define-public bass-six-string-tuning '(-12 -17 -22 -27 -32 -37))
\markup{tablature.ly - second attempt.}
alotofstuff = {
\time 3/4
c4^"test" d( e)
f4\f g a^\fermata
c8\< c16 c ~ c2\!
c'2.
\mark \default
R2.
r4 d4 r8 r
\times 3/4 { b4 c d c }
c4. d-_( e\varcoda)
->f g~ a\prall g\thumb e-. f-. g-.
\times 3/4 { b4 c d c }
\bar "|."
}
\score {
<<
\new Staff { \clef "G_8" \alotofstuff }
\new TabStaff { \clef "tab" \alotofstuff }
>>
}
\markup{When we invoke tabNumbersOnly, it looks better.}
\score {
<<
\new Staff { \clef "G_8" \alotofstuff }
\new TabStaff { \tabNumbersOnly \alotofstuff }
>>
}
\m
