OLD | NEW |
1 ;;;; This file is part of LilyPond, the GNU music typesetter. | 1 ;;;; This file is part of LilyPond, the GNU music typesetter. |
2 ;;;; | 2 ;;;; |
3 ;;;; Copyright (C) 2009--2015 Marc Hohl <marc@hohlart.de> | 3 ;;;; Copyright (C) 2009--2015 Marc Hohl <marc@hohlart.de> |
4 ;;;; | 4 ;;;; |
5 ;;;; LilyPond is free software: you can redistribute it and/or modify | 5 ;;;; LilyPond is free software: you can redistribute it and/or modify |
6 ;;;; it under the terms of the GNU General Public License as published by | 6 ;;;; it under the terms of the GNU General Public License as published by |
7 ;;;; the Free Software Foundation, either version 3 of the License, or | 7 ;;;; the Free Software Foundation, either version 3 of the License, or |
8 ;;;; (at your option) any later version. | 8 ;;;; (at your option) any later version. |
9 ;;;; | 9 ;;;; |
10 ;;;; LilyPond is distributed in the hope that it will be useful, | 10 ;;;; LilyPond is distributed in the hope that it will be useful, |
(...skipping 494 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
505 (ly:stencil-extent brackettips-down Y))
) | 505 (ly:stencil-extent brackettips-down Y))
) |
506 (stencil (ly:stencil-add | 506 (stencil (ly:stencil-add |
507 thick-stil | 507 thick-stil |
508 (ly:stencil-translate-axis tip-up-stil | 508 (ly:stencil-translate-axis tip-up-stil |
509 (interval-end extent) | 509 (interval-end extent) |
510 Y) | 510 Y) |
511 (ly:stencil-translate-axis tip-down-stil | 511 (ly:stencil-translate-axis tip-down-stil |
512 (interval-start extent) | 512 (interval-start extent) |
513 Y)))) | 513 Y)))) |
514 | 514 |
515 (if (eq? dir LEFT) | 515 (if (eqv? dir LEFT) |
516 stencil | 516 stencil |
517 (ly:stencil-scale stencil -1 1)))) | 517 (ly:stencil-scale stencil -1 1)))) |
518 | 518 |
519 (define ((make-spacer-bar-line glyph) grob extent) | 519 (define ((make-spacer-bar-line glyph) grob extent) |
520 "Draw an invisible bar line which has the same dimensions as the one | 520 "Draw an invisible bar line which has the same dimensions as the one |
521 drawn by the procedure associated with glyph @var{glyph}." | 521 drawn by the procedure associated with glyph @var{glyph}." |
522 (let* ((stil (glyph->stencil glyph grob extent)) | 522 (let* ((stil (glyph->stencil glyph grob extent)) |
523 (stil-x-extent (ly:stencil-extent stil X))) | 523 (stil-x-extent (ly:stencil-extent stil X))) |
524 | 524 |
525 (ly:make-stencil "" stil-x-extent extent))) | 525 (ly:make-stencil "" stil-x-extent extent))) |
(...skipping 560 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1086 (allow-volta-hook ":..:") | 1086 (allow-volta-hook ":..:") |
1087 (allow-volta-hook ":|.|:") | 1087 (allow-volta-hook ":|.|:") |
1088 (allow-volta-hook ":|.:") | 1088 (allow-volta-hook ":|.:") |
1089 (allow-volta-hook ".|") | 1089 (allow-volta-hook ".|") |
1090 (allow-volta-hook ":|.S") | 1090 (allow-volta-hook ":|.S") |
1091 (allow-volta-hook ":|.S-S") | 1091 (allow-volta-hook ":|.S-S") |
1092 (allow-volta-hook ":|.S.|:") | 1092 (allow-volta-hook ":|.S.|:") |
1093 (allow-volta-hook ":|.S.|:-S") | 1093 (allow-volta-hook ":|.S.|:-S") |
1094 (allow-volta-hook ":|]") | 1094 (allow-volta-hook ":|]") |
1095 (allow-volta-hook ":|][|:") | 1095 (allow-volta-hook ":|][|:") |
OLD | NEW |