Added /hookAbove; increased descender depth.

glyphs/latin-basic-lower.patel

@@ -143,7 +143,7 @@ create-glyph 'g' : glyph-construction {
 	
 	local gleftx  [SB * 0.8 + O]
 	local grightx [RIGHTSB + SB * 0.1 - O]
-	local groundy [O - DESCENDER * 0.85]
+	local groundy [O - DESCENDER * 0.6]
 	
 	include : create-stroke 
 		:.start-from MIDDLE [XH * GBARPOS]
@@ -450,7 +450,7 @@ create-glyph 'dotlessj.straight' : glyph-construction {
 		:.heads-to DOWNWARD
 		:.set-width HALFSTROKE HALFSTROKE
 		:.line-to [MIDDLE + JBALANCE] 0
-		:.arc-vh-to [MIDDLE + DESCENDER] [DESCENDER + HALFSTROKE]
+		:.arc-vh-to [MIDDLE + DESCENDER * 0.85] [DESCENDER + HALFSTROKE]
 }
 create-glyph 'dotlessj.serifed' : glyph-construction {
 	include glyphs.'dotlessj.straight' BASE
@@ -605,7 +605,7 @@ create-glyph 'y' : glyph-construction {
 	local xbottom : mix SB RIGHTSB 0.28
 	local turnp : XH / [XH - DESCENDER]
 	local xb : mix SB RIGHTSB 0.51
-	local yb : mix 0 XH [0.1 * turnp]
+	local yb : mix 0 XH [0.05 * turnp]
 	
 	include : xStrand xbottom DESCENDER RIGHTSB XH 0.1 0.6 0.14
 	include : halfXStrand SB XH xb yb [0.1 * turnp] 0.4 [0.14 * turnp]

glyphs/numbers.patel

@@ -4,32 +4,25 @@
 create-glyph 'zero.slashed' : glyph-construction {
 	set-width WIDTH
 	
-	put-shapes glyphs.O.contours
-	
+	include glyphs.O BASE
+	local fine : Math.min [HALFSTROKE * 0.75] [[RIGHTSB - SB] * 0.1]
 	include : create-stroke
 		:.start-from [SB + STROKE / 2] [CAP * [1 - 0.7]]
-		:.set-width  HALFSTROKE HALFSTROKE
+		:.set-width  fine fine
 		:.line-to    [RIGHTSB - STROKE / 2] [CAP * 0.7]
 }
 create-glyph 'zero.unslashed' : glyph-construction {
-	include glyphs.O
+	include glyphs.O BASE
 }
 create-glyph 'zero.dotted' : glyph-construction {
-	include glyphs.O
+	include glyphs.O BASE
+	local radius : Math.min DOTRADIUS [[RIGHTSB - SB - STROKE * 2] / 4]
 	put-shapes : list {
-		Ring [CAPMIDDLE + DOTRADIUS] [CAPMIDDLE - DOTRADIUS] [MIDDLE + DOTRADIUS] [MIDDLE - DOTRADIUS]
+		Ring [CAPMIDDLE + radius] [CAPMIDDLE - radius] [MIDDLE + radius] [MIDDLE - radius]
 	}
 }
-create-glyph 'zero' : glyph-construction {
-	set-width WIDTH
-	assign-unicode '0'
-	include glyphs.[match variantSelector.zero {
-		'slashed'   'zero.slashed'
-		'dotted'    'zero.dotted'
-		'unslahsed' 'zero.unslashed'
-		otherwise   'zero.slashed'
-	}]
-}
+select-variant 'zero' '0' 'slashed'
+
 
 create-glyph 'one' : glyph-construction {
 	set-width WIDTH

glyphs/overmarks.patel

@@ -163,6 +163,25 @@ create-glyph 'breveAbove' : glyph-construction {
 		:.arc-hv-to  rightEnd aboveMarkTop
 		:.heads-to   UPWARD
 }
+create-glyph 'hookabove' : glyph-construction {
+	set-width 0
+	assign-unicode 0x309
+	set-anchor 'above' MARK markMiddle XH markMiddle aboveMarkTop
+	
+	local fine : Math.min markFine [[aboveMarkTop - aboveMarkBot] * 0.2]
+	
+	local hookBot [aboveMarkBot - fine / 2]
+	local hookTop [[mix aboveMarkBot aboveMarkTop 0.9] + fine / 2]
+	include : create-stroke
+		:.start-from [markMiddle - fine * ITALICCOR] hookBot
+		:.heads-to   RIGHTWARD
+		:.set-width  [fine * 2] 0
+		:.line-to    [markMiddle + fine * 0.5] hookBot
+		:.arc-hv-to  [markMiddle + markExtend - O] [mix hookBot hookTop 0.5]
+		:.arc-vh-to  markMiddle hookTop
+		:.line-to    [markMiddle - markExtend + fine] hookTop
+		:.heads-to   LEFTWARD
+}
 
 
 ### Below marks
@@ -179,7 +198,7 @@ create-glyph 'cedillaBelow' : glyph-construction {
 	assign-unicode 0x327
 	set-anchor 'below' MARK markMiddle 0 markMiddle belowMarkBot
 	
-	local fine : Math.min markHalfStroke [[belowMarkTop - belowMarkBot] * 0.2]
+	local fine : Math.min markFine [[belowMarkTop - belowMarkBot] * 0.2]
 	
 	local cedillaTop [belowMarkTop + fine * 0.85]
 	local cedillaBot [mix belowMarkTop belowMarkBot 0.8]

parameters.js

@@ -8,10 +8,10 @@
         'periodsize': 150,
         'sb': 60,
         'cap': 771,
-        'descender': -178,
+        'descender': -211,
         'xheight': 560,
         'barpos': 0.45,
-        'gbarpos': 0.37,
+        'gbarpos': 0.34,
         'fivebarpos': 0.49,
         'hook': 145,
         'ahook': 135,

parameters.patel

@@ -8,10 +8,10 @@ define regular (
 	.periodsize 150
 	.sb 60
 	.cap 771
-	.descender [-178]
+	.descender [-211]
 	.xheight 560
 	.barpos 0.45
-	.gbarpos 0.37
+	.gbarpos 0.34
 	.fivebarpos 0.49
 	
 	.hook 145