latin: order rgb/cmy colour maps by hue

[sheet.git] / writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index aa0e4448bb76d643e494bfe748d98ff857ac2334..44fc0d6ce526810b3229cd1437277b7ff0453e45 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -23,6 +23,11 @@ my @tapstyle = (
        '.sample { font-size: 80% }',
 );
 
+my @hueorder = (
+       2,11,20,19,18,21,24,15,6,7,8,5,13, # red .. magenta, grey
+       1,10,9,12,3,4,0, 14,23,22,25,16,17,26, # dark, light hues
+);
+
 sub disptap {
        my $code = shift;
        my ($prefix, @dots) = $code =~ m/\A(-?)(\d)(\d)/ or return $code;
@@ -145,6 +150,7 @@ sutton => {
 },
 unistrokes => {
        title => 'Unistrokes',
+       url   => 'https://www.google.com/patents/US5596656', # by Xerox
        style => 'svg path { stroke-linecap: round; stroke-linejoin: round }',
        list => [
                map { '<svg width="14" height="16" viewBox="-1 -1 8 10">'.$_.'</svg>' }
@@ -183,6 +189,7 @@ unistrokes => {
 },
 edgewrite => {
        title => 'EdgeWrite',
+       url   => 'http://depts.washington.edu/ewrite/', # patented US7729542
        style => 'svg path { stroke-linecap: round; stroke-linejoin: round }',
        list => [
                map { '<svg width="14" height="14" viewBox="-1 -1 10 10">'.$_.'</svg>' }
@@ -501,7 +508,7 @@ rgbmap => {
        ],
        list => [
                map { disphues($_, [0, 240, 120], 1) } # Red, Blue, Green
-               0 .. 3*3*3 - 2
+               @hueorder[23..25,20..22, 12, 6..11,0..5, 16..18, 13..15, 19, 26],
        ],
 },
 cmymap => {
@@ -513,7 +520,7 @@ cmymap => {
        ],
        list => [
                map { disphues($_, [180, 60, 300]) } # Cyan, Yellow, Magenta
-               0 .. 3*3*3 - 1
+               @hueorder[13..18, 19, 0..11, 20..25, 12, 26],
        ],
 },
 dni => {