- tunings)))
-
-
- (set! (ly:grob-property grob 'string-count) (length tunings))
- (set! (ly:grob-property grob 'string-fret-finger-combinations) string-frets)
-
- ))
+ tunings))
+ (pitches (map (lambda (x) (ly:event-property x 'pitch)) notes)))
+
+ (set! (ly:grob-property grob 'fret-diagram-details)
+
+ (if (null? details)
+ (acons 'string-count (length tunings) '())
+ (acons 'string-count (length tunings) details)))
+ (set! (ly:grob-property grob 'dot-placement-list)
+ (if predefined-frets
+ (let ((hash-handle
+ (hash-get-handle
+ predefined-frets
+ (cons tunings pitches))))
+ (if hash-handle
+ (cdr hash-handle) ;found default diagram
+ (string-frets->dot-placement
+ string-frets my-string-count)))
+ (string-frets->dot-placement string-frets my-string-count)))))