diff --git a/changes/4.2.0.md b/changes/4.2.0.md
index f471e7ddf..ff3cb9b34 100644
--- a/changes/4.2.0.md
+++ b/changes/4.2.0.md
@@ -5,4 +5,5 @@
    - Projection (`U+2305`) and Perspective(`U+2306`, #780).
  * Add `raised-turn-comma` variant for ASCII grave (#778).
  * Add `straight-neck` variant for digit TWO (`2`, #779).
+ * Add long-top-serif variants of `1` (#783).
  * Add metric override `onumZeroHeightRatio` for height of old-style numbers (#784).
\ No newline at end of file
diff --git a/font-src/glyphs/number/index.ptl b/font-src/glyphs/number/index.ptl
index c89ecbb74..bd45e94fb 100644
--- a/font-src/glyphs/number/index.ptl
+++ b/font-src/glyphs/number/index.ptl
@@ -141,20 +141,29 @@ glyph-block Digits-One : begin
 	glyph-block-import Common-Derivatives
 	glyph-block-import Digits-Shared : OnumHeight OnumMarks CodeLnum CodeOnum
 
-	define [OneShape top balance] : glyph-proc
+	define [OneShape top balance pTopSerif] : glyph-proc
 		define topSW : AdviceStroke 3.5
 		include : VBar (Middle + balance) 0 top
 		include : dispiro
 			flat (Middle - HalfStroke * HVContrast + balance) top [widths topSW 0]
-			curl (Middle - Stroke / 8 * HVContrast - HookX * 1.25 + balance) (top - Stroke / 8 - Hook * 0.75 * (top / CAP))
+			curl (Middle - Stroke / 8 * HVContrast - HookX * 1.25 + balance) (top - Stroke / 8 - Hook * pTopSerif * (top / CAP))
 
 	create-glyph 'one.lnum.nobase' : glyph-proc
 		include : MarkSet.capital
-		include : OneShape CAP OneBalance
+		include : OneShape CAP OneBalance 0.75
 
 	create-glyph 'one.lnum.base' : glyph-proc
 		include : MarkSet.capital
-		include : OneShape CAP (OneBalance / 4)
+		include : OneShape CAP (OneBalance / 4) 0.75
+		include : CenterBottomSerif Middle 0 LongJut
+
+	create-glyph 'one.lnum.nobaseLongTopSerif' : glyph-proc
+		include : MarkSet.capital
+		include : OneShape CAP OneBalance 1.875
+
+	create-glyph 'one.lnum.baseLongTopSerif' : glyph-proc
+		include : MarkSet.capital
+		include : OneShape CAP (OneBalance / 4) 1.875
 		include : CenterBottomSerif Middle 0 LongJut
 
 	create-glyph 'one.lnum.line' : glyph-proc
@@ -164,11 +173,20 @@ glyph-block Digits-One : begin
 
 	create-glyph 'one.onum.nobase' : glyph-proc
 		include : OnumMarks.e
-		include : OneShape OnumHeight OneBalance
+		include : OneShape OnumHeight OneBalance 0.75
 
 	create-glyph 'one.onum.base' : glyph-proc
 		include : OnumMarks.e
-		include : OneShape OnumHeight (OneBalance / 4)
+		include : OneShape OnumHeight (OneBalance / 4) 0.75
+		include : CenterBottomSerif Middle 0 LongJut
+
+	create-glyph 'one.onum.nobaseLongTopSerif' : glyph-proc
+		include : OnumMarks.e
+		include : OneShape OnumHeight OneBalance 1.875
+
+	create-glyph 'one.onum.baseLongTopSerif' : glyph-proc
+		include : OnumMarks.e
+		include : OneShape OnumHeight (OneBalance / 4) 1.875
 		include : CenterBottomSerif Middle 0 LongJut
 
 	create-glyph 'one.onum.line' : glyph-proc
diff --git a/params/variants.toml b/params/variants.toml
index 03c5cacad..dfe0061b0 100644
--- a/params/variants.toml
+++ b/params/variants.toml
@@ -1327,6 +1327,16 @@ rank = 3
 description = '`1` drawn just like a straight line'
 selector.one = "line"
 
+[prime.one.variants.nobase-long-top-serif]
+rank = 4
+description = '`1` without bottom serif and with a long top serif'
+selector.one = "nobaseLongTopSerif"
+
+[prime.one.variants.base-long-top-serif]
+rank = 5
+description = '`1` with bottom serif and a long top serif'
+selector.one = "baseLongTopSerif"
+
 
 
 [prime.two]