From 01bf56ff9ee7eac5138cc5e94732e7373dd38909 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 15 Feb 2021 22:54:32 -0500
Subject: tweak plan

---
 hledger-overview.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'hledger-overview.hs')

diff --git a/hledger-overview.hs b/hledger-overview.hs
index d3cae2c..b5d7b30 100755
--- a/hledger-overview.hs
+++ b/hledger-overview.hs
@@ -175,8 +175,11 @@ steps start = zip (map realToFrac lvls) (zipWith (-) (ls ++ [0]) (0 : ls))
 
 levelSchedule = Map.fromList $ zip ages lvls
   where
+    start = 5.0
+    goal = 9.0
+    step = (goal - start) / 600
     ages = map (roundTo 2) [20, 20 + 1 / 12 .. 70]
-    lvls = map (roundTo 2) [5.00, 5.005 .. 8.0]
+    lvls = map (roundTo 2) [start, start + step .. goal]
 
 -- | A trivial decision is one that is between 0.01% of the total.
 --
-- 
cgit v1.2.3