Simplify
This commit is contained in:
parent
343b38930f
commit
18689d085d
3 changed files with 2 additions and 26 deletions
|
@ -657,6 +657,8 @@ glyph-block Autobuild-Transformed : begin
|
|||
|
||||
do
|
||||
createReversed : list
|
||||
list 0xA7FB 'F'
|
||||
list 0xA7FC 'P'
|
||||
list 0xA7FD 'turnM'
|
||||
list 0x1DF01 'gScript'
|
||||
list 0x1DF03 'k'
|
||||
|
|
|
@ -39,19 +39,6 @@ glyph-block Letter-Latin-Upper-F : begin
|
|||
local { jutTop jutBot } : EFVJutLength top pyBar stroke
|
||||
include : VSerif.dr RightSB top jutTop
|
||||
|
||||
define [RevFShape] : params [top pyBar serifRT serifRB serifV [stroke : AdviceStroke2 2 3 top]] : glyph-proc
|
||||
include : VBar.r (xFBarRight) 0 top stroke
|
||||
include : HBar.t SB (xFBarRight + O) top stroke
|
||||
include : HBar.m (SB + [xMidBarShrink serifV]) (xFBarRight + O) [yMidBar top pyBar] stroke
|
||||
if serifRT : include : HSerif.rt xFBarRight top SideJut
|
||||
if serifRB : begin
|
||||
include : tagged 'serifBottom' : HSerif.rb xFBarRight 0 SideJut
|
||||
include : tagged 'serifBottom' : HSerif.lb (xFBarRight - HalfStroke * HVContrast) 0 MidJutSide
|
||||
if serifV : begin
|
||||
local { jutTop jutBot } : EFVJutLength top pyBar stroke
|
||||
include : VSerif.dl SB top jutTop
|
||||
|
||||
|
||||
define FConfig : object
|
||||
serifless { false false false }
|
||||
topLeftSerifed { true false false }
|
||||
|
@ -89,15 +76,10 @@ glyph-block Letter-Latin-Upper-F : begin
|
|||
include : MarkSet.e
|
||||
include : FShape XH (serifLT -- lt) (serifLB -- lb) (serifV -- v)
|
||||
|
||||
create-glyph "revF.\(suffix)" : glyph-proc
|
||||
include : MarkSet.capital
|
||||
include : RevFShape CAP (serifRT -- lt) (serifRB -- lb) (serifV -- v)
|
||||
|
||||
select-variant 'F' 'F'
|
||||
link-reduced-variant 'F/sansSerif' 'F' MathSansSerif
|
||||
select-variant 'smcpF' 0xA730 (follow -- 'F')
|
||||
select-variant 'FBar' 0xA798 (follow -- 'F')
|
||||
select-variant 'revF' 0xA7FB (follow -- 'F')
|
||||
select-variant 'currency/frenchFrancSign' 0x20A3 (follow -- 'F')
|
||||
|
||||
glyph-block-import Letter-Blackboard : BBS BBD
|
||||
|
|
|
@ -145,12 +145,6 @@ glyph-block Letter-Latin-Upper-P : begin
|
|||
PShape CAP (slab -- slabs)
|
||||
if fGap [PShape.OpenGap (top -- CAP) (bot -- [if fSlabBot Stroke 0])] [glyph-proc]
|
||||
|
||||
create-glyph "PRev.\(suffix)" : glyph-proc
|
||||
include : MarkSet.capital
|
||||
include : difference
|
||||
RevPShape CAP (slab -- revSlabs)
|
||||
if fGap [RevPShape.OpenGap (top -- CAP) (bot -- [if fSlabBot Stroke 0])] [glyph-proc]
|
||||
|
||||
create-glyph "grek/Rho.\(suffix)" : glyph-proc
|
||||
include [refer-glyph "P.\(suffix)"] AS_BASE ALSO_METRICS
|
||||
include : SetGrekUpperTonos [if slabs (-SideJut) 0]
|
||||
|
@ -201,8 +195,6 @@ glyph-block Letter-Latin-Upper-P : begin
|
|||
select-variant 'currency/pesoSign' 0x20B1 (follow -- 'P')
|
||||
select-variant 'PHookLeft' 0x1A4
|
||||
|
||||
select-variant 'PRev' 0xA7FC (follow -- 'P')
|
||||
|
||||
derive-glyphs 'cyrl/ErTick' 0x48E 'cyrl/Er' : lambda [src gr] : glyph-proc
|
||||
include [refer-glyph src] AS_BASE ALSO_METRICS
|
||||
local yBowl : [PBarPosY CAP Stroke PShape.BarPos] + 0.75 * Stroke
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue