Added (non-optional) arrows required by WGL4.

glyphs/symbol-other.patel

@@ -0,0 +1,53 @@
+###### Other symbols
+
+# Suit card
+let : begin {
+	local heartTop : mix parenMid parenTop 0.6
+	local heartBot : mix parenMid parenBot 0.6
+	create-glyph 'heart' : glyph-construction {
+		assign-unicode 0x2665
+		local y1 : mix heartBot heartTop 0.5
+		local y2 : mix heartBot heartTop 0.75
+		local y3 : mix heartBot heartTop 0.75
+		
+		start-from MIDDLE heartBot
+		curve-to   [RIGHTSB - O] y1 [RIGHTSB - O] y2
+		arc-vh-to  [mix MIDDLE RIGHTSB 0.5] heartTop
+		arc-hv-to  MIDDLE y3
+		arc-vh-to  [mix MIDDLE SB 0.5] heartTop
+		arc-hv-to  [SB + O] y2
+		curve-to   [SB + O] y1 MIDDLE heartBot
+	}
+	create-glyph 'spade' : glyph-construction {
+		assign-unicode 0x2660
+		include glyphs.heart
+		apply-transform : Upright
+		apply-transform : Translate [-MIDDLE] [-heartBot]
+		apply-transform : Scale 1 [-0.75]
+		apply-transform : Translate MIDDLE heartTop
+		apply-transform : Italify
+		
+		include : HBarBottom [mix SB RIGHTSB 0.25] [mix RIGHTSB SB 0.25] heartBot
+		include : VBar MIDDLE heartBot [mix heartBot heartTop [1 - 0.75 * 0.75]]
+	}
+	create-glyph 'clubs' : glyph-construction {
+		assign-unicode 0x2663
+		
+		local circleRadius : [heartTop - heartBot] * 0.2
+		include : list {
+			RingAt MIDDLE [heartTop - circleRadius] circleRadius
+			RingAt [SB + O + circleRadius] [mix heartBot heartTop 0.45] circleRadius
+			RingAt [RIGHTSB - O - circleRadius] [mix heartBot heartTop 0.45] circleRadius
+		}
+		
+		include : HBarBottom [mix SB RIGHTSB 0.25] [mix RIGHTSB SB 0.25] heartBot
+		include : VBar MIDDLE heartBot [mix heartBot heartTop [1 - 0.75 * 0.75]]
+	}
+	create-glyph 'diamond' : glyph-construction {
+		assign-unicode 0x2666
+		start-from MIDDLE heartTop
+		line-to    RIGHTSB parenMid
+		line-to    MIDDLE heartBot
+		line-to    SB parenMid
+	}
+}