Documentation/snippets/generating-whole-scores-also-book-parts-in-scheme-without-using-the-parser.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.di.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.18.0"
   8
   9 \header {
  10   lsrtags = "automatic-notation, really-cool, scheme-language"
  11
  12   texidoc = "
  13 A lilypond score internally is just a Scheme expression, generated by
  14 the lilypond parser. Using scheme, one can also automatically generate
  15 a score without an input file. If you have the music expression in
  16 scheme, a score can be generated by simply calling (scorify-music music
  17 parser) on your music. This will generate a score object, for which you
  18 can then set a custom layout block with (let* ((layout
  19 (ly:output-def-clone $defaultlayout)))
  20    ; modify the layout here, then assign it:
  21    (ly:score-add-output-def! score layout)
  22   )
  23
  24
  25 Finally, all you have to do it to pass this score to lilypond for
  26 typesetting. This snippet defines functions @code{(add-score parser
  27 score)}, @code{(add-text parser text)} and @code{(add-music parser
  28 music)} to pass a complete score, some markup or some music to lilypond
  29 for typesetting.
  30
  31 This snippet also works for typesetting scores inside a @code{\\book
  32 @{...@}} block, as well as top-level scores. To achieve this, each
  33 score schedulled for typesetting is appended to the list of toplevel
  34 scores and the toplevel-book-handler (which is a scheme function called
  35 to process a book once a @code{\\book@{..@}} block is closed) is
  36 modified to inser all collected scores so far to the book.
  37
  38 "
  39   doctitle = "Generating whole scores (also book parts) in scheme without using the parser"
  40 } % begin verbatim
  41 %%
  42
  43 #(define-public (add-score parser score)
  44    (ly:parser-define! parser 'toplevel-scores
  45                       (cons score (ly:parser-lookup parser 'toplevel-scores))))
  46
  47 #(define-public (add-text parser text)
  48   (add-score parser (list text)))
  49
  50 #(define-public (add-music parser music)
  51   (collect-music-aux (lambda (score)
  52                        (add-score parser score))
  53                      parser
  54                      music))
  55
  56 #(define-public (toplevel-book-handler parser book)
  57    (map (lambda (score)
  58           (ly:book-add-score! book score))
  59         (reverse! (ly:parser-lookup parser 'toplevel-scores)))
  60    (ly:parser-define! parser 'toplevel-scores (list))
  61    (print-book-with-defaults parser book))
  62
  63 #(define-public (book-score-handler book score)
  64    (add-score parser score))
  65
  66 #(define-public (book-text-handler book text)
  67    (add-text parser text))
  68
  69 #(define-public (book-music-handler parser book music)
  70    (add-music parser music))
  71
  72 %%%
  73
  74
  75 %% Just some example score to show how to use these functions:
  76 #(define add-one-note-score #f)
  77 #(let ((pitch 0))
  78   (set! add-one-note-score
  79         (lambda (parser)
  80           (let* ((music (make-music 'EventChord
  81                           'elements (list (make-music 'NoteEvent
  82                                             'duration (ly:make-duration 2 0 1/1)
  83                                             'pitch (ly:make-pitch 0 pitch 0)))))
  84                  (score (scorify-music music parser))
  85                  (layout (ly:output-def-clone $defaultlayout))
  86                  (note-name (case pitch
  87                               ((0) "do")
  88                               ((1) "ré")
  89                               ((2) "mi")
  90                               ((3) "fa")
  91                               ((4) "sol")
  92                               ((5) "la")
  93                               ((6) "si")
  94                               (else "huh")))
  95                  (title (markup #:large #:line ("Score with a" note-name))))
  96             (ly:score-add-output-def! score layout)
  97             (add-text parser title)
  98             (add-score parser score))
  99             (set! pitch (modulo (1+ pitch) 7)))))
 100
 101 oneNoteScore =
 102 #(define-music-function (parser location) ()
 103    (add-one-note-score parser)
 104    (make-music 'Music 'void #t))
 105
 106 %%%
 107
 108 \book {
 109   \oneNoteScore
 110 }
 111
 112
 113 \book {
 114   \oneNoteScore
 115   \oneNoteScore
 116 }
 117
 118 % Top-level scores are also handled correctly
 119 \oneNoteScore
 120 \oneNoteScore