Changeset 1078 in genesis for tools

Timestamp:

Oct 11, 2003, 1:05:04 PM (21 years ago)

Author:

jasper

Message:

bugje uit default area berekening gehaald; area < 255

File:

• tools/wleiden.pl (modified) (1 diff)

tools/wleiden.pl

@@ -472 +472 @@
 #  return(12345);
 
-   if ($b eq 16) {return(0);}
-   if ($c < 128) {return($b * 10)}
-   else {return(1+($b*10));}
+   $area=1;
+   if ($c eq 16) {$area=0;}
+   elsif ($c < 128) {$area=($b * 10)}
+   else {$area=(1+($b*10));}
+   if ($area > 255) {$area/=10;}
+   return($area);
 }