%% Generated by lilypond-book.py %% Options: [indent=0\mm,verbatim,quote,ragged-right,alt=[image of music]] \include "lilypond-book-preamble.ly" % **************************************************************** % Start cut-&-pastable-section % **************************************************************** \paper { #(define dump-extents #t) indent = 0\mm line-width = 160\mm - 2.0 * 0.4\in ragged-right = ##t force-assignment = #"" line-width = #(- line-width (* mm 3.000000)) } \layout { } % **************************************************************** % ly snippet: % **************************************************************** \sourcefileline 3706 #(define (color-notehead grob) "Color the notehead according to its position on the staff." (let ((mod-position (modulo (ly:grob-property grob 'staff-position) 7))) (case mod-position ;; Return rainbow colors ((1) (x11-color 'red )) ; for C ((2) (x11-color 'orange )) ; for D ((3) (x11-color 'yellow )) ; for E ((4) (x11-color 'green )) ; for F ((5) (x11-color 'blue )) ; for G ((6) (x11-color 'purple )) ; for A ((0) (x11-color 'violet )) ; for B ) ) ) \relative c' { % Arrange to obtain color from color-notehead procedure \override NoteHead #'color = #color-notehead c2 c' | b4 g8 a b4 c | c,2 a' | g1 | } \addlyrics { Some -- where o -- ver the Rain -- bow, way up high, } % **************************************************************** % end ly snippet % ****************************************************************