From 2d326fc8c9cca0cf7fa26bf7819daf43f2f68786 Mon Sep 17 00:00:00 2001
From: be5invis <belleve@typeof.net>
Date: Fri, 25 Apr 2025 17:02:22 -0700
Subject: [PATCH] optimzie shape of mathbb/B

---
 .../font-glyphs/src/letter/latin/upper-b.ptl  | 20 +++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/packages/font-glyphs/src/letter/latin/upper-b.ptl b/packages/font-glyphs/src/letter/latin/upper-b.ptl
index ab58caf27..c7ea773c3 100644
--- a/packages/font-glyphs/src/letter/latin/upper-b.ptl
+++ b/packages/font-glyphs/src/letter/latin/upper-b.ptl
@@ -225,14 +225,18 @@ glyph-block Letter-Latin-Upper-B : begin
 
 	create-glyph 'mathbb/B' 0x1D539 : glyph-proc
 		include : MarkSet.capital
-		include : union
-			BShape CAP (stroke -- BBS) (serifs -- false)
-			intersection
-				BShapeMask CAP (stroke -- BBS)
-				union
-					VBar.r (RightSB - BBD - OX * 2) 0 (CAP * BBarPos) BBS
-					VBar.r ([mix SB RightSB BArcMix] - BBD - OX * 2) (CAP * BBarPos) CAP BBS
-					VBar.l (SB + BBD) 0 CAP BBS
+		include : difference
+			union
+				BShape CAP (stroke -- BBS) (serifs -- false)
+				intersection
+					BShapeMask CAP (stroke -- BBS)
+					union
+						VBar.r (RightSB - BBD - OX * 2) 0 (CAP * BBarPos) BBS
+						VBar.r ([mix SB RightSB BArcMix] - BBD - OX * 2) (CAP * BBarPos) CAP BBS
+						VBar.l (SB + BBD) 0 CAP BBS
+			Rect (CAP - BBS) (0 + BBS) (SB + [HSwToV BBS]) (SB + BBD)
+
+	### Greek Beta
 
 	create-glyph 'grek/beta.standard' : glyph-proc
 		include : MarkSet.bp