+ (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)))))