LEFT | RIGHT |
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 453 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
464 | 464 |
465 stencil)) | 465 stencil)) |
466 | 466 |
467 (define (make-kievan-bar-line grob extent) | 467 (define (make-kievan-bar-line grob extent) |
468 "Draw a kievan bar line." | 468 "Draw a kievan bar line." |
469 (let* ((font (ly:grob-default-font grob)) | 469 (let* ((font (ly:grob-default-font grob)) |
470 (stencil (stencil-whiteout-box | 470 (stencil (stencil-whiteout-box |
471 (ly:font-get-glyph font "scripts.barline.kievan")))) | 471 (ly:font-get-glyph font "scripts.barline.kievan")))) |
472 | 472 |
473 ;; the kievan bar line has no staff lines underneath, | 473 ;; the kievan bar line has no staff lines underneath, |
474 ;; so we whiteout them and move the grob to a higher layer | 474 ;; so we whiteout-box them and move the grob to a higher layer |
475 (ly:grob-set-property! grob 'layer 1) | 475 (ly:grob-set-property! grob 'layer 1) |
476 stencil)) | 476 stencil)) |
477 | 477 |
478 (define ((make-bracket-bar-line dir) grob extent) | 478 (define ((make-bracket-bar-line dir) grob extent) |
479 "Draw a bracket-style bar line. If @var{dir} is set to @code{LEFT}, the | 479 "Draw a bracket-style bar line. If @var{dir} is set to @code{LEFT}, the |
480 opening bracket will be drawn, for @code{RIGHT} we get the closing bracket." | 480 opening bracket will be drawn, for @code{RIGHT} we get the closing bracket." |
481 (let* ((thick-stil (make-thick-bar-line grob extent)) | 481 (let* ((thick-stil (make-thick-bar-line grob extent)) |
482 (brackettips-up (ly:font-get-glyph (ly:grob-default-font grob) | 482 (brackettips-up (ly:font-get-glyph (ly:grob-default-font grob) |
483 "brackettips.up")) | 483 "brackettips.up")) |
484 (brackettips-down (ly:font-get-glyph (ly:grob-default-font grob) | 484 (brackettips-down (ly:font-get-glyph (ly:grob-default-font grob) |
(...skipping 589 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1074 (allow-volta-hook ":..:") | 1074 (allow-volta-hook ":..:") |
1075 (allow-volta-hook ":|.|:") | 1075 (allow-volta-hook ":|.|:") |
1076 (allow-volta-hook ":|.:") | 1076 (allow-volta-hook ":|.:") |
1077 (allow-volta-hook ".|") | 1077 (allow-volta-hook ".|") |
1078 (allow-volta-hook ":|.S") | 1078 (allow-volta-hook ":|.S") |
1079 (allow-volta-hook ":|.S-S") | 1079 (allow-volta-hook ":|.S-S") |
1080 (allow-volta-hook ":|.S.|:") | 1080 (allow-volta-hook ":|.S.|:") |
1081 (allow-volta-hook ":|.S.|:-S") | 1081 (allow-volta-hook ":|.S.|:-S") |
1082 (allow-volta-hook ":|]") | 1082 (allow-volta-hook ":|]") |
1083 (allow-volta-hook ":|][|:") | 1083 (allow-volta-hook ":|][|:") |
LEFT | RIGHT |