Add cyrlTitloAbove
This commit is contained in:
parent
45d2880608
commit
5931d0f11b
1 changed files with 10 additions and 0 deletions
|
@ -760,6 +760,16 @@ glyph-block Marks : begin
|
||||||
alsoThru.g2 0.5 0.5
|
alsoThru.g2 0.5 0.5
|
||||||
g2.right.end rightEnd ([mix aboveMarkBot aboveMarkTop 0.5] - markHalfStroke) [heading Rightward]
|
g2.right.end rightEnd ([mix aboveMarkBot aboveMarkTop 0.5] - markHalfStroke) [heading Rightward]
|
||||||
|
|
||||||
|
|
||||||
|
create-glyph 'cyrlTitloAbove' 0x483 : glyph-proc
|
||||||
|
set-width 0
|
||||||
|
set-mark-anchor 'above' markMiddle XH markMiddle aboveMarkTop
|
||||||
|
set-base-anchor 'aboveBrace' markMiddle aboveMarkMid
|
||||||
|
|
||||||
|
include : VBar (markMiddle - markExtend) aboveMarkBot (aboveMarkMid + markFine) (markFine * 2)
|
||||||
|
include : VBar (markMiddle + markExtend) (aboveMarkMid - markFine) aboveMarkTop (markFine * 2)
|
||||||
|
include : HBar (markMiddle - markExtend) (markMiddle + markExtend)aboveMarkMid (markFine * 2)
|
||||||
|
|
||||||
### Below marks
|
### Below marks
|
||||||
create-glyph 'blankBelow' : glyph-proc
|
create-glyph 'blankBelow' : glyph-proc
|
||||||
set-width 0
|
set-width 0
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue