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
|
do
|
||||||
createReversed : list
|
createReversed : list
|
||||||
|
list 0xA7FB 'F'
|
||||||
|
list 0xA7FC 'P'
|
||||||
list 0xA7FD 'turnM'
|
list 0xA7FD 'turnM'
|
||||||
list 0x1DF01 'gScript'
|
list 0x1DF01 'gScript'
|
||||||
list 0x1DF03 'k'
|
list 0x1DF03 'k'
|
||||||
|
|
|
@ -39,19 +39,6 @@ glyph-block Letter-Latin-Upper-F : begin
|
||||||
local { jutTop jutBot } : EFVJutLength top pyBar stroke
|
local { jutTop jutBot } : EFVJutLength top pyBar stroke
|
||||||
include : VSerif.dr RightSB top jutTop
|
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
|
define FConfig : object
|
||||||
serifless { false false false }
|
serifless { false false false }
|
||||||
topLeftSerifed { true false false }
|
topLeftSerifed { true false false }
|
||||||
|
@ -89,15 +76,10 @@ glyph-block Letter-Latin-Upper-F : begin
|
||||||
include : MarkSet.e
|
include : MarkSet.e
|
||||||
include : FShape XH (serifLT -- lt) (serifLB -- lb) (serifV -- v)
|
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'
|
select-variant 'F' 'F'
|
||||||
link-reduced-variant 'F/sansSerif' 'F' MathSansSerif
|
link-reduced-variant 'F/sansSerif' 'F' MathSansSerif
|
||||||
select-variant 'smcpF' 0xA730 (follow -- 'F')
|
select-variant 'smcpF' 0xA730 (follow -- 'F')
|
||||||
select-variant 'FBar' 0xA798 (follow -- 'F')
|
select-variant 'FBar' 0xA798 (follow -- 'F')
|
||||||
select-variant 'revF' 0xA7FB (follow -- 'F')
|
|
||||||
select-variant 'currency/frenchFrancSign' 0x20A3 (follow -- 'F')
|
select-variant 'currency/frenchFrancSign' 0x20A3 (follow -- 'F')
|
||||||
|
|
||||||
glyph-block-import Letter-Blackboard : BBS BBD
|
glyph-block-import Letter-Blackboard : BBS BBD
|
||||||
|
|
|
@ -145,12 +145,6 @@ glyph-block Letter-Latin-Upper-P : begin
|
||||||
PShape CAP (slab -- slabs)
|
PShape CAP (slab -- slabs)
|
||||||
if fGap [PShape.OpenGap (top -- CAP) (bot -- [if fSlabBot Stroke 0])] [glyph-proc]
|
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
|
create-glyph "grek/Rho.\(suffix)" : glyph-proc
|
||||||
include [refer-glyph "P.\(suffix)"] AS_BASE ALSO_METRICS
|
include [refer-glyph "P.\(suffix)"] AS_BASE ALSO_METRICS
|
||||||
include : SetGrekUpperTonos [if slabs (-SideJut) 0]
|
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 'currency/pesoSign' 0x20B1 (follow -- 'P')
|
||||||
select-variant 'PHookLeft' 0x1A4
|
select-variant 'PHookLeft' 0x1A4
|
||||||
|
|
||||||
select-variant 'PRev' 0xA7FC (follow -- 'P')
|
|
||||||
|
|
||||||
derive-glyphs 'cyrl/ErTick' 0x48E 'cyrl/Er' : lambda [src gr] : glyph-proc
|
derive-glyphs 'cyrl/ErTick' 0x48E 'cyrl/Er' : lambda [src gr] : glyph-proc
|
||||||
include [refer-glyph src] AS_BASE ALSO_METRICS
|
include [refer-glyph src] AS_BASE ALSO_METRICS
|
||||||
local yBowl : [PBarPosY CAP Stroke PShape.BarPos] + 0.75 * Stroke
|
local yBowl : [PBarPosY CAP Stroke PShape.BarPos] + 0.75 * Stroke
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue