This commit is contained in:
be5invis 2023-05-28 18:40:03 -07:00
parent 343b38930f
commit 18689d085d
3 changed files with 2 additions and 26 deletions

View file

@ -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'

View file

@ -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

View file

@ -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