incipient angle_to_colour

diff --git a/layout/plan-to-gui-data b/layout/plan-to-gui-data
index acfd2d71f34707a86ce40f4ad6f6a0a38d0033ff..35495a1fdef14f4725df070403809bc14728bf09 100755 (executable)
--- a/layout/plan-to-gui-data
+++ b/layout/plan-to-gui-data
@@ -232,9 +232,33 @@ for ($p{Y}=0; $p{Y}<$sz{Y}; $p{Y}++) {
 #xpm_cmap("on","ion");
 #xpm_cmap("on","idet");
 
+sub angle_to_colour ($) {
+    my ($angle) = @_;
+    my ($s,$f,$u,$U,$d,$D,$R);
+    
+    $s= floor($angle);
+    $f= $angle - $s;
+  
+    $u= $f * 0.5;
+    $U= $u + 0.5;
+    $d= 0.5 - $u;
+    $D= $d + 0.5; 
+
+    $R= ([ D, U, 0 ],
+        [ d, 1, u ],
+        [ 0, D, U ],
+        [ u, d, 1 ],
+        [ U, 0, D ],
+        [ 1, u, d ])[$s];
+    $R->[1] *= 0.9;
+    return @$R;
+}
+
 sub ang_cmaps () {
     my ($ang);
     for ($ang=0; $ang<(1<<$datum_numbits{Angle}); $ang++) {
+       ($ang+0.0) / 1<<$datum_numbits{Angle};
+       
     }
 }