%% Generated by lilypond-book.py %% Options: [quote,alt=[image of music],ragged-right,indent=0\mm] \include "lilypond-book-preamble.ly" % **************************************************************** % Start cut-&-pastable-section % **************************************************************** \paper { #(define dump-extents #t) line-width = 160\mm - 2.0 * 0.4\in ragged-right = ##t indent = 0\mm force-assignment = #"" line-width = #(- line-width (* mm 3.000000)) } \layout { } % **************************************************************** % ly snippet: % **************************************************************** \sourcefileline 1059 #(define-markup-command (smallcaps layout props str) (string?) "Print the string argument in small caps. Syntax: \\smallcaps #\"string\"" (interpret-markup layout props (make-line-markup (map (lambda (s) (if (= (string-length s) 0) s (markup #:large (string-upcase (substring s 0 1)) #:translate (cons -0.6 0) #:tiny (string-upcase (substring s 1))))) (string-split str #\Space))))) #(define-markup-command (character layout props name) (string?) "Print the character name in small caps, translated to the left and top. Syntax: \\character #\"name\"" (interpret-markup layout props (markup #:hspace 0 #:translate (cons -3 1) #:smallcaps name))) { c''^\markup \character #"Cleopatra" c'' c'' c'' e'^\markup \character #"Giulio Cesare" e' e' e' } % **************************************************************** % end ly snippet % ****************************************************************