X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/be342553fb6144a3ebb2b5d996049bbaa006ee7a..600213e037653528a856e9a5d9a23a99b8c50724:/writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index bd3accf..43728c4 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -148,6 +148,48 @@ sem => [
 		24 25 26 27 34  35 47 56 57 36  67
 	)
 ],
+semc => [
+	map {
+		my ($r, $pr, $pl) = split //, $_;
+		!$_ ? '-' : sprintf(
+			join('',
+				'<svg width="20" height="20" viewBox="0 0 10 15">',
+				'<path stroke="black" d="M5,6 v7"/>',
+				'<path stroke="black" fill="none" d="M0,%s h10 %s" transform="rotate(%d 5 6)"/>',
+				'</svg>',
+			),
+			['6', '3v3', '9v-3']->[$pl],
+			[ '',  'v3',  'v-3']->[$pr],
+			$r * 45,
+		);
+	}
+	# 360° rotation (0-7) and position state (0-2) of left and right bars
+	qw(
+	  021 121 221 321 421 521 621 721
+	  022 022 122 222 322 011 111 211 311
+	  001 101 201 301 401 501 601 701 020
+	)
+],
+semp => [
+	map { !$_ ? '-' : sprintf
+		join('',
+			'<svg width="20" height="20" viewBox="0 0 8 18">',
+			'<path stroke="black" d="M4,1 v18"/>',
+			(map {(
+				qq(<path stroke="black" d="M0 $_ h4" transform="rotate(%d 4 $_)"/>),
+				qq(<path stroke="black" d="M4 $_ h4" transform="rotate(-%d 4 $_)"/>),
+			)} 3, 7, 14),
+			'</svg>',
+		),
+		map { ($_ - 2) * 45 % 360 } split //, $_
+	}
+	# rotation state (0-3) for left and right bar of 3 rows
+	qw(
+		003000 000200 203300 000030 033030 000130 000330 032330 031330 031330
+		022020 130120 001320 233010 030210 022310 203001 233001
+		131001 231301 000202 023302 230003 032003 201003 101003
+	)
+],
 code39 => [map { tr/012/ ❘❙/r } qw{
 	211012 121012 221011 112012 212011 122011 111022 211021 121021 112021
 	211102 121102 221101 112102 212101 122101 111202 211201 121201 112201
@@ -174,4 +216,15 @@ rm4scc => [
 ],
 pigpen => [qw( ᒧ ᑌ ᒪ  ᑐ □ ᑕ  ᒣ ᑎ ᒥ  ᒲ ᕫ ᒷ  ᕭ 🞔 ᕮ ᒬ ᕬ ᒯ  ᐯ ᐳ ᐸ ᐱ  ᐁ ᐅ ᐊ ᐃ  )],
 wingdings => [qw{ ✌ 👌 👍 👎 ☜ ☞ ☝ ☟ ✋ ☺ 😐 ☹ 💣 ☠ ⚐ 🏱 ✈ ☼ 💧 ❄ 🕆 ✞ 🕈 ✠ ✡ ☪ }],
+colour => [
+	map { sprintf '<span style="background:#%s" title="%s">%s</span>', split(/:/, $_), chr(8195) }
+	qw{
+		F0A3FF:Amethyst 0075DC:Blue      993F00:Caramel  4C005C:Damson   191919:Ebony
+		005C31:Forest   2BCE48:Green     FFCC99:Honeydew 808080:Iron     94FFB5:Jade
+		8F7C00:Khaki    9DCC00:Lime      C20088:Mallow
+		003380:Navy     FFA405:Orpiment  FFA8BB:Pink     426600:Quagmire FF0010:Red
+		5EF1F2:Sky      00998F:Turquoise E0FF66:Uranium  740AFF:Violet   990000:Wine
+		FFFF80:Xanthin  FFFF00:Yellow    FF5005:Zinnia
+	},
+],
 );