From: ian <ian>
Date: Tue, 14 Jun 2005 19:22:39 +0000 (+0000)
Subject: fix warnings
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=bc17ca3d2cc442b77dd76e4c9522f8d9c0b437ea;p=trains.git

fix warnings
---

diff --git a/layout/plan-to-gui-data b/layout/plan-to-gui-data
index 35495a1..734a44f 100755
--- a/layout/plan-to-gui-data
+++ b/layout/plan-to-gui-data
@@ -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};
 	
     }
 }