chiark / gitweb /
fix warnings
authorian <ian>
Tue, 14 Jun 2005 19:22:39 +0000 (19:22 +0000)
committerian <ian>
Tue, 14 Jun 2005 19:22:39 +0000 (19:22 +0000)
layout/plan-to-gui-data

index 35495a1fdef14f4725df070403809bc14728bf09..734a44f72a750f70f8adb5d4c6637106187502a0 100755 (executable)
@@ -244,12 +244,12 @@ sub angle_to_colour ($) {
     $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= ([ $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;
 }
@@ -257,7 +257,7 @@ sub angle_to_colour ($) {
 sub ang_cmaps () {
     my ($ang);
     for ($ang=0; $ang<(1<<$datum_numbits{Angle}); $ang++) {
-       ($ang+0.0) / 1<<$datum_numbits{Angle};
+       #($ang+0.0) / 1<<$datum_numbits{Angle};
        
     }
 }