Add Claudian letters (U+2132, U+214E, U+2183, U+2184, `U+2C75…

…`, `U+2C76`).
be5invis · Sep 25, 2020 · 1a12c93 · 1a12c93
1 parent 68a4117
commit 1a12c93
Show file tree

Hide file tree

Showing 3 changed files with 62 additions and 18 deletions.
diff --git a/changes/3.6.2.md b/changes/3.6.2.md
@@ -1,2 +1,3 @@
  * Add compile option to default to old-style figures (#397).
- * Add control picture symbols (`U+2400` ... `U+2422`, `U+2424`).
+ * Add control picture symbols (`U+2400` ... `U+2422`, `U+2424`).
+ * Add Claudian letters (`U+2132`, `U+214E`, `U+2183`, `U+2184`, `U+2C75`, `U+2C76`).
diff --git a/font-src/glyphs/common/shapes.ptl b/font-src/glyphs/common/shapes.ptl
@@ -377,7 +377,6 @@ glyph-block CommonShapes : begin
 				CenterTopSerif (right - sw * sideSerifK * HVContrast) top jut
 			include : tagged 'serifLB'
 				CenterBottomSerif (left + sw * sideSerifK * HVContrast) 0 jut
-			#include : CenterdBottomSerif (right - Stroke * (sideSerifK - 0.5) * HVContrast) 0 (Jut / 2)
 	define [AICyrISerifs top _left _right] : glyph-proc
 		local left : fallback _left SB
 		local right : fallback _right RightSB

diff --git a/font-src/glyphs/letter/latin.ptl b/font-src/glyphs/letter/latin.ptl
@@ -3062,19 +3062,27 @@ glyph-block Letter-Latin-C : begin
 	glyph-block-export CShape CShapeOutline
 	glyph-block-import Letter-Shared-Shapes : CurlyTail
 
-	define [CShape top bot sw] : glyph-proc
-		include : dispiro
-			widths.lhs sw
-			g4 RightSB (top - Hook)
-			hookstart (top - O)
-			flat (SB + OX) (top - SmoothA)
-			curl (SB + OX) (bot + SmoothB)
-			hookend (bot + O)
-			g4 RightSB (bot + Hook)
-
-	define [CShapeOutline top bot _offset] : glyph-proc
+	define [CShape top bot sw] : dispiro
+		widths.lhs sw
+		g4 RightSB (top - Hook)
+		hookstart (top - O)
+		flat (SB + OX) (top - SmoothA)
+		curl (SB + OX) (bot + SmoothB)
+		hookend (bot + O)
+		g4 RightSB (bot + Hook)
+
+	define [RevCShape top bot sw] : dispiro
+		widths.rhs sw
+		g4 SB (top - Hook)
+		hookstart (top - O)
+		flat (RightSB - OX) (top - SmoothA)
+		curl (RightSB - OX) (bot + SmoothB)
+		hookend (bot + O)
+		g4 SB (bot + Hook)
+
+	define [CShapeOutline top bot _offset] : begin
 		define offset : fallback _offset 1
-		include : spiro-outline
+		return : spiro-outline
 			g4 RightSB (top - Hook)
 			hookstart (top - O - offset)
 			flat (SB + OX + offset) (top - SmoothA)
@@ -3087,6 +3095,10 @@ glyph-block Letter-Latin-C : begin
 		include : MarkSet.capital
 		include : CShape CAP 0
 
+	create-glyph 'revC' 0x2183 : glyph-proc
+		include : MarkSet.capital
+		include : RevCShape CAP 0
+
 	alias 'cyrl/Es' 0x421 'C'
 	alias 'grek/lunateSigma' 0x3F9 'C'
 
@@ -3098,7 +3110,6 @@ glyph-block Letter-Latin-C : begin
 	create-glyph 'c' 'c' : glyph-proc
 		set-width Width
 		include : MarkSet.e
-
 		include : dispiro
 			widths.lhs
 			g4 RightSB (XH - Hook)
@@ -3108,6 +3119,18 @@ glyph-block Letter-Latin-C : begin
 			hookend O
 			g4 RightSB Hook
 
+	create-glyph 'revSmallC' 0x2184 : glyph-proc
+		set-width Width
+		include : MarkSet.e
+		include : dispiro
+			widths.rhs
+			g4 SB (XH - Hook)
+			hookstart (XH - O)
+			flat (RightSB - OX) (XH - SmallSmoothA)
+			curl (RightSB - OX) (0 + SmallSmoothB)
+			hookend O
+			g4 SB Hook
+
 	alias 'cyrl/es' 0x441 'c'
 	alias 'grek/lunatesigma' 0x3F2 'c'
 
@@ -4568,23 +4591,36 @@ glyph-block Letter-Latin-Upper-H : begin
 	glyph-block-import Common-Derivatives
 
 	define [HShape top] : glyph-proc
-		include : VBarLeft SB 0 top
-		include : VBarRight RightSB 0 top
+		include : tagged 'strokeL' : VBarLeft SB 0 top
+		include : tagged 'strokeR' : VBarRight RightSB 0 top
 		include : HBar (SB - O) (RightSB + O) (top * HBarPos)
 		include : AIHSerifs top
 
 	create-glyph 'H' 'H' : glyph-proc
-		set-width Width
 		include : MarkSet.capital
 		include : HShape CAP
 
+	create-glyph 'halfH' 0x2C75 : glyph-proc
+		include : MarkSet.capital
+		include : HShape CAP
+		eject-contour 'strokeR'
+		eject-contour 'serifRT'
+		eject-contour 'serifRB'
+
 	alias 'grek/Eta' 0x397 'H'
 	alias 'cyrl/En' 0x41D 'H'
 
 	create-glyph 'smcpH' 0x29C : glyph-proc
 		include : MarkSet.e
 		include : HShape XH
 
+	create-glyph 'halfSmcpH' 0x2C76 : glyph-proc
+		include : MarkSet.e
+		include : HShape XH
+		eject-contour 'strokeR'
+		eject-contour 'serifRT'
+		eject-contour 'serifRB'
+
 	alias 'cyrl/en' 0x43D 'smcpH'
 
 	create-glyph 0x4A2 : composite-proc [refer-glyph 'cyrl/En'] [CyrDescender RightSB]
@@ -4814,6 +4850,14 @@ glyph-block Letter-Latin-Upper-F : begin
 		include : MarkSet.capital
 		include : FShape CAP
 
+	create-glyph 'smcpF' 0xA730 : glyph-proc
+		set-width Width
+		include : MarkSet.e
+		include : FShape XH
+
+	turned 'turnF'     0x2132 'F'     Middle (CAP / 2)
+	turned 'turnSmcpF' 0x214E 'smcpF' Middle (XH / 2)
+
 	create-glyph 'symbol/currency/frenchFrancSign' 0x20A3 : glyph-proc
 		include : refer-glyph "F"
 		include : HOverlayBar (SB * 0.5) (SB * 3 + Stroke * HVContrast) [mix 0 XH 0.4]