From: ian <ian>
Date: Thu, 13 Apr 2006 19:54:18 +0000 (+0000)
Subject: calculate segment lengths correctly
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=ef74edac10101fd87d5c39143bdc27e4a13539b6;p=trains.git

calculate segment lengths correctly
---

diff --git a/layout/layout b/layout/layout
index 3f5f6b5..fd226ef 100755
--- a/layout/layout
+++ b/layout/layout
@@ -647,7 +647,7 @@ sub segment_used__print ($) {
     
 sub segment_used__len ($$) {
     my ($used,$pt) = @_;
-    $segused_incurrent++;
+    $segused_incurrent += $used;
 
     return if @segments < 3;
     $segments[1] -= $used;