]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/graphviz.ly
Use for-each instead of map when result is to be ignored anyway.
[lilypond.git] / input / regression / graphviz.ly
1 \header {
2   texidoc = "The graphviz feature draws dependency graphs for grob properties."
3
4   }
5
6 \version "2.14.0"
7 \include "graphviz-init.ly"
8
9 #(whitelist-grob 'NoteHead)
10 #(whitelist-grob 'Stem)
11 #(whitelist-grob 'Flag)
12 #(whitelist-grob "NoteHead")
13 #(whitelist-grob "Stem")
14 #(whitelist-grob "Flag")
15
16 #(for-each whitelist-symbol '(stencil style duration-log
17                               stem-attachment end-position staff-position
18                               glyph-name direction))
19
20
21 \book { \score {
22   c'4
23 } }
24
25
26
27 #(ly:progress (call-with-output-string
28   (lambda (port) (graph-write graph port))))
29 #(ly:set-grob-modification-callback #f)
30 #(ly:set-property-cache-callback #f)
31