Hi again,
On Fri, Mar 20, 2015 at 9:21 AM, David Nalesnik <david.nales...@gmail.com>
wrote:
>
>
> Finding the path from one object to another is usually just a matter of
> trial-and-error, following this path, following that path, until you reach
> the pot of gold.
>
>
You might find the attached file helpful. Given a grob name, it will
output a list of each interface supported by the grob and the objects
accessible through those interfaces. More information might be added--the
type (whether a single grob or a grob-array) and the documentation string
associated with it.
Hope this is helpful!
David
\version "2.19.16"
#(define (grob-interface::info iface)
(hashq-get-handle (ly:all-grob-interfaces) iface))
#(define (grob-interface::properties ifaces)
(if ifaces (cadddr ifaces) '()))
#(define (grob-interface::pointers iface)
(let* ((info (grob-interface::info iface))
(props (grob-interface::properties info)))
(and (pair? props)
(filter
(lambda (prop)
(let ((type (object-property prop 'backend-type?)))
(or (eq? type ly:grob?)
(eq? type ly:grob-array?))))
props))))
#(define (grob::default-interfaces grob-name)
(assoc-get 'interfaces
(assoc-get 'meta
(assoc-get grob-name all-grob-descriptions))))
#(define (grob::all-pointers grob-name)
(let ((ifaces (grob::default-interfaces grob-name)))
(define (entry iface)
(let ((pointers (grob-interface::pointers iface)))
(if (pair? pointers)
(list (list iface (grob-interface::pointers iface)))
'())))
(let loop ((ifaces ifaces) (result '()))
(if (null? ifaces)
result
(loop (cdr ifaces)
(append result (entry (car ifaces))))))))
#(define (display-pointers grob-name)
(if (assoc-get grob-name all-grob-descriptions)
(format #t "~%~y ~y~%"
grob-name
(grob::all-pointers grob-name))
(ly:message "Not a grob name: ~a" grob-name)))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(display-pointers 'NoteHead)
#(display-pointers 'NoteColumn)
#(display-pointers 'Beam)
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
