;; which will ignore 'style = 'do
(define-public (tab-note-head::calc-glyph-name grob)
(let ((style (ly:grob-property grob 'style)))
- (case style
+
+ (case style
((cross) "2cross"))))
;; ensure we only call notehead callback when
;; 'style = 'cross
(define-public (tab-note-head::whiteout-if-style-set grob)
(let ((style (ly:grob-property grob 'style)))
- (if (and (symbol? style)
- (eq? style 'cross))
- (stencil-whiteout (ly:note-head::print grob))
- (ly:text-interface::print grob))))
+
+ (if (and (symbol? style)
+ (eq? style 'cross))
+ (stencil-whiteout (ly:note-head::print grob))
+ (ly:text-interface::print grob))))
;; definitions for the "moderntab" clef:
;; the "moderntab" clef will be added to the list of known clefs,
(add-new-clef "moderntab" "markup.moderntab" 0 0 0)
;; define sans serif-style tab-Clefs as a markup:
-(define-builtin-markup-command (customTabClef layout props num-strings staff-space)
+(define-builtin-markup-command (customTabClef
+ layout props num-strings staff-space)
(integer? number?)
music
()
(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")))))
+ (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")))))
;; this function decides which clef to take
(define-public (clef::print-modern-tab-if-set grob)
(let ((glyph (ly:grob-property grob 'glyph)))
- ;; 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))))
+
+ ;; 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))))
;; if stems are drawn, it is nice to have a double stem for
;; (dotted) half notes to distinguish them from quarter notes:
(define-public (tabvoice::draw-double-stem-for-half-notes grob)
(let ((stem (ly:stem::print grob)))
- ;; is the note a (dotted) half note?
- (if (= 1 (ly:grob-property grob 'duration-log))
- ;; yes -> draw double stem
- (ly:stencil-combine-at-edge stem X RIGHT stem 0.5)
- ;; no -> draw simple stem
- stem)))
+ ;; is the note a (dotted) half note?
+ (if (= 1 (ly:grob-property grob 'duration-log))
+ ;; yes -> draw double stem
+ (ly:stencil-combine-at-edge stem X RIGHT stem 0.5)
+ ;; no -> draw simple stem
+ stem)))
;; as default, the glissando line between fret numbers goes
;; upwards, here we have a function to correct this behavior:
(if (< (ly:pitch-semitones right-pitch) (ly:pitch-semitones left-pitch))
-0.75
- 0.75)))
+ 0.75)))
;; for ties in tablature, fret numbers that are tied to should be invisible,
;; except for 'tied to' numbers after a line break;; these will be
;; in accidental.cc, converted to Scheme
(let* ((font (ly:grob-default-font grob))
(open (stencil-whiteout
- (ly:font-get-glyph font "accidentals.leftparen")))
+ (ly:font-get-glyph font "accidentals.leftparen")))
(close (stencil-whiteout
- (ly:font-get-glyph font "accidentals.rightparen")))
+ (ly:font-get-glyph font "accidentals.rightparen")))
(me (ly:text-interface::print grob)))
- (ly:stencil-combine-at-edge
- (ly:stencil-combine-at-edge
- me
- X
- LEFT
- open)
- X
- RIGHT
- close)))
+
+ (ly:stencil-combine-at-edge
+ (ly:stencil-combine-at-edge me X LEFT open) X RIGHT close)))
;; ParenthesesItem doesn't work very well for TabNoteHead, since
;; the parentheses are too small and clash with the staff-lines
;; Define a callback for the 'stencils property which will tweak
;; the parentheses' appearance for TabNoteHead
(define-public (parentheses-item::calc-tabstaff-parenthesis-stencils grob)
- ;; the grob we want to parenthesize
- (let ((victim (ly:grob-array-ref (ly:grob-object grob 'elements) 0)))
- ;; check whether it's a notehead
- (if (grob::has-interface victim 'note-head-interface)
- (begin
- ;; tweak appearance before retrieving
- ;; list of stencils '(left-paren right-paren)
- ;; get the font-size from victim (=TabNoteHead) to handle
- ;; grace notes properly
- (ly:grob-set-property! grob 'font-size
- (ly:grob-property victim 'font-size))
- (ly:grob-set-property! grob 'padding 0)
- ;; apply whiteout to each element of the list
- (map stencil-whiteout
- (parentheses-item::calc-parenthesis-stencils grob)))
- (parentheses-item::calc-parenthesis-stencils grob))))
+ ;; the grob we want to parenthesize
+ (let ((victim (ly:grob-array-ref (ly:grob-object grob 'elements) 0)))
+
+ ;; check whether it's a note head
+ (if (grob::has-interface victim 'note-head-interface)
+ (begin
+ ;; tweak appearance before retrieving
+ ;; list of stencils '(left-paren right-paren)
+ ;; get the font-size from victim (=TabNoteHead) to handle
+ ;; grace notes properly
+ (ly:grob-set-property! grob 'font-size
+ (ly:grob-property victim 'font-size))
+ (ly:grob-set-property! grob 'padding 0)
+ ;; apply whiteout to each element of the list
+ (map stencil-whiteout
+ (parentheses-item::calc-parenthesis-stencils grob)))
+ (parentheses-item::calc-parenthesis-stencils grob))))
;; the handler for ties in tablature;; split ties yield in a parenthesized
;; fret number, otherwise the fret number will be invisible.
(define-public (tie::handle-tab-tie grob)
- (let* ((original (ly:grob-original grob))
- (tied-tab-note-head (ly:spanner-bound grob RIGHT))
- (siblings (if (ly:grob? original)
- (ly:spanner-broken-into original) '())))
+ (let* ((original (ly:grob-original grob))
+ (tied-tab-note-head (ly:spanner-bound grob RIGHT))
+ (siblings (if (ly:grob? original)
+ (ly:spanner-broken-into original) '())))
- (if (and (>= (length siblings) 2)
- (eq? (car (last-pair siblings)) grob))
- ;; tie is split -> parenthesize
- (ly:grob-set-property! tied-tab-note-head 'stencil
- (lambda (grob) (parenthesize-tab-note-head grob)))
+ (if (and (>= (length siblings) 2)
+ (eq? (car (last-pair siblings)) grob))
+ ;; tie is split -> parenthesize
+ (ly:grob-set-property! tied-tab-note-head 'stencil
+ (lambda (grob)
+ (parenthesize-tab-note-head grob)))
- ;; tie is not split -> make fret number invisible
- (ly:grob-set-property! tied-tab-note-head 'transparent #t))))
+ ;; tie is not split -> make fret number invisible
+ (ly:grob-set-property! tied-tab-note-head 'transparent #t))))
;; repeat ties occur within alternatives in a repeat construct;
;; the correspondig fret numbers are shown in parentheses:
(define-public (repeat-tie::parenthesize-tab-note-head grob)
(let ((tied-tab-note-head (ly:grob-object grob 'note-head)))
- (ly:grob-set-property! tied-tab-note-head 'stencil
- (lambda (grob) (parenthesize-tab-note-head grob)))))
\ No newline at end of file
+ (ly:grob-set-property! tied-tab-note-head 'stencil
+ (lambda (grob) (parenthesize-tab-note-head grob)))))
projects / lilypond.git / commitdiff