(else fret)))))))
+; default tunings for common string instruments
(define-public guitar-tuning '(4 -1 -5 -10 -15 -20))
+(define-public guitar-open-g-tuning '(2 -1 -5 -10 -17 -22))
(define-public bass-tuning '(-17 -22 -27 -32))
+(define-public mandolin-tuning '(16 9 2 -5))
;; tunings for 5-string banjo
(define-public banjo-open-g-tuning '(2 -1 -5 -10 7))
(define-public banjo-modal-tuning '(2 0 -5 -10 7))
(define-public banjo-open-d-tuning '(2 -3 -6 -10 9))
(define-public banjo-open-dm-tuning '(2 -3 -6 -10 9))
-;; convert 5-string banjo tunings to 4-string tunings by
-;; removing the 5th string
-;;
-;; example:
-;; \set TabStaff.stringTunings = #(four-string-banjo banjo-open-g-tuning)
+;; convert 5-string banjo tuning to 4-string by removing the 5th string
(define-public (four-string-banjo tuning)
(reverse (cdr (reverse tuning))))
(define-public red '(1.0 0.0 0.0))
(define-public green '(0.0 1.0 0.0))
(define-public blue '(0.0 0.0 1.0))
-(define-public cyan '(1.0 1.0 0.0))
+(define-public cyan '(0.0 1.0 1.0))
(define-public magenta '(1.0 0.0 1.0))
-(define-public yellow '(0.0 1.0 1.0))
+(define-public yellow '(1.0 1.0 0.0))
(define-public grey '(0.5 0.5 0.5))
(define-public darkred '(0.5 0.0 0.0))
(define-public darkgreen '(0.0 0.5 0.0))
(define-public darkblue '(0.0 0.0 0.5))
-(define-public darkcyan '(0.5 0.5 0.0))
+(define-public darkcyan '(0.0 0.5 0.5))
(define-public darkmagenta '(0.5 0.0 0.5))
-(define-public darkyellow '(0.0 0.5 0.5))
+(define-public darkyellow '(0.5 0.5 0.0))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; * Pitch Trill Heads
;; * Parentheses
-(define (parenthesize-elements grob)
+(define (parenthesize-elements grob . rest)
(let*
- ((elts (ly:grob-object grob 'elements))
- (x-ext (ly:relative-group-extent elts grob X))
+ (
+ (refp (if (null? rest)
+ grob
+ (car rest)))
+ (elts (ly:grob-object grob 'elements))
+ (x-ext (ly:relative-group-extent elts refp X))
(font (ly:grob-default-font grob))
(lp (ly:font-get-glyph font "accidentals.leftparen"))
(rp (ly:font-get-glyph font "accidentals.rightparen"))
- (padding (ly:grob-property grob 'padding 0.1))
+ (padding (ly:grob-property grob 'padding 0.1)))
(ly:stencil-add
(ly:stencil-translate-axis lp (- (car x-ext) padding) X)
(ly:stencil-translate-axis rp (+ (cdr x-ext) padding) X))
- )))
-
-
-(define (parenthesize-element me grob)
- (let*
- ((x-ext (ly:grob-extent grob grob X))
- (y-center
- (interval-center (ly:grob-extent grob grob Y)))
- (font (ly:grob-default-font me))
- (lp (ly:font-get-glyph font "accidentals.leftparen"))
- (rp (ly:font-get-glyph font "accidentals.rightparen"))
- (padding (ly:grob-property grob 'padding 0.1))
- )
-
- (ly:stencil-add
- (ly:stencil-translate lp
- (cons
- (- (car x-ext) padding)
- y-center))
- (ly:stencil-translate rp
- (cons
- (+ (cdr x-ext) padding)
- y-center)))
))
+
(define (parentheses-item::print me)
- (parenthesize-element me (ly:grob-parent me Y)))
+ (let*
+ ((elts (ly:grob-object me 'elements))
+ (y-ref (ly:grob-common-refpoint-of-array me elts Y))
+ (x-ref (ly:grob-common-refpoint-of-array me elts X))
+ (stencil (parenthesize-elements me x-ref))
+ (elt-y-ext (ly:relative-group-extent elts y-ref Y))
+ (y-center (interval-center elt-y-ext)))
+
+ (ly:stencil-translate
+ stencil
+ (cons
+ (-
+ (ly:grob-relative-coordinate me x-ref X))
+ (-
+ y-center
+ (ly:grob-relative-coordinate me y-ref Y))))
+ ))
+
+
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;