Rietveld Code Review Tool
Help | Bug tracker | Discussion group | Source code | Sign in
(481)

Delta Between Two Patch Sets: scm/bar-line.scm

Issue 236480043: add stencil-whiteout-outline function (Closed)
Left Patch Set: edits from 3rd round of review Created 9 years, 9 months ago
Right Patch Set: Narrow convert-ly rule, edit changes entry Created 9 years, 9 months ago
Left:
Right:
Use n/p to move between diff chunks; N/P to move between comments. Please Sign in to add in-line comments.
Jump to:
Left: Side by side diff | Download
Right: Side by side diff | Download
« no previous file with change/comment | « python/convertrules.py ('k') | scm/c++.scm » ('j') | no next file with change/comment »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
LEFTRIGHT
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
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
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 ":|][|:")
LEFTRIGHT

Powered by Google App Engine
RSS Feeds Recent Issues | This issue
This is Rietveld f62528b