From 957e49caa4fe512088c02d6b42729e09b09610fe Mon Sep 17 00:00:00 2001
From: be5invis <belleve@typeof.net>
Date: Mon, 10 Aug 2015 09:41:14 +0800
Subject: [PATCH] Added (non-optional) arrows required by WGL4.

---
 glyphs/symbol-other.patel | 53 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 glyphs/symbol-other.patel

diff --git a/glyphs/symbol-other.patel b/glyphs/symbol-other.patel
new file mode 100644
index 0000000..2daff02
--- /dev/null
+++ b/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
+	}
+}
\ No newline at end of file