input/test/boxed-molecule.ly

   1 \version "1.3.146"
   2 \header {
   3
   4 texidoc = "overriding the molecule callback can also be used to draw a
   5  box around arbitrary grobs.
   6
   7  TODO: check whether the corners are really correct.
   8
   9  TODO:  circled molecules.
  10
  11  "
  12 }
  13
  14 #(define (make-molecule-boxer callback)
  15   (define (molecule-boxer grob)
  16   (let*
  17    (
  18     (mol    (callback grob))
  19     (box-padding 0.1)
  20     (x-ext (widen-interval (ly-get-molecule-extent mol 0) box-padding))
  21     (y-ext (widen-interval (ly-get-molecule-extent mol 1) box-padding))
  22     (rule-thick 0.1)
  23     (x-rule (box-molecule (widen-interval x-ext rule-thick)
  24                               (cons 0 rule-thick)))
  25     (y-rule (box-molecule (cons 0 rule-thick) y-ext))
  26     )
  27
  28     (set! mol (ly-combine-molecule-at-edge mol 0 1 y-rule (* 0.5 box-padding)))
  29     (set! mol (ly-combine-molecule-at-edge mol 0 -1  y-rule (* 0.5 box-padding)))
  30     (set! mol (ly-combine-molecule-at-edge mol 1 1  x-rule 0.0))
  31     (set! mol (ly-combine-molecule-at-edge mol 1 -1 x-rule 0.0))
  32
  33     mol
  34  ))
  35  molecule-boxer
  36  )
  37
  38
  39  \score { \notes \relative c''  {
  40
  41  \property Voice.TextScript \override #'molecule-callback =
  42    #(make-molecule-boxer Text_item::brew_molecule)
  43
  44    c'4^"foo"
  45
  46 \property Voice.Stem \override #'molecule-callback =
  47    #(make-molecule-boxer Stem::brew_molecule)
  48
  49 \property Score.RehearsalMark \override #'molecule-callback =
  50    #(make-molecule-boxer Text_item::brew_molecule)
  51
  52       c8
  53 \property Voice.Stem \revert #'molecule-callback
  54
  55       c4. c4 \mark "F" c1
  56    }}