1 %% Do not edit this file; it is automatically
2 %% generated from LSR http://lsr.dsi.unimi.it
3 %% This file is in the public domain.
7 lsrtags = "rhythms, tweaks-and-overrides"
10 The @code{flag} property of the Stem grob can be set to a custom scheme
11 function to generate the glyph for the flag.
14 doctitle = "Generating custom flags"
17 #(define-public (weight-flag stem-grob)
18 (let* ((log (- (ly:grob-property stem-grob 'duration-log) 2))
19 (is-up (eqv? (ly:grob-property stem-grob 'direction) UP))
20 (yext (if is-up (cons (* log -0.8) 0) (cons 0 (* log 0.8))))
21 (flag-stencil (make-filled-box-stencil '(-0.4 . 0.4) yext))
22 (stroke-style (ly:grob-property stem-grob 'stroke-style))
23 (stroke-stencil (if (equal? stroke-style "grace") (make-line-stencil 0.2 -0.9 -0.4 0.9 -0.4) empty-stencil)))
24 (ly:stencil-add flag-stencil stroke-stencil)))
27 % Create a flag stencil by looking up the glyph from the font
28 #(define (inverted-flag stem-grob)
29 (let* ((dir (if (eqv? (ly:grob-property stem-grob 'direction) UP) "d" "u"))
30 (flag (retrieve-glyph-flag "" dir "" stem-grob))
31 (line-thickness (ly:staff-symbol-line-thickness stem-grob))
32 (stem-thickness (ly:grob-property stem-grob 'thickness))
33 (stem-width (* line-thickness stem-thickness))
34 (stroke-style (ly:grob-property stem-grob 'stroke-style))
35 (stencil (if (null? stroke-style) flag
36 (add-stroke-glyph flag stem-grob dir stroke-style "")))
37 (rotated-flag (ly:stencil-rotate-absolute stencil 180 0 0)))
38 (ly:stencil-translate rotated-flag (cons (- (/ stem-width 2)) 0))))
40 snippetexamplenotes = { \autoBeamOff c'8 d'16 c'32 d'64 \acciaccatura {c'8} d'64 }
43 \override Score.RehearsalMark #'self-alignment-X = #LEFT
48 \mark "Custom flag: inverted"
49 \override Stem #'flag = #inverted-flag
52 \mark "Custom flag: weight"
53 \override Stem #'flag = #weight-flag
56 \mark "Revert to normal"