From 8a5b180c740bff215f9cd17001f2f21749c8e5cc Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sat, 5 Sep 2020 21:22:39 +0100 Subject: Fix bug during printing --- src/Main.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index ed345dc..b1d82c0 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -39,8 +39,8 @@ inBetween :: Coord -> Coord -> Coord inBetween (Coord x1 y1) (Coord x2 y2) = Coord ((x1 + x2) / 2) ((y1 + y2) / 2) -drawArrow :: Double -> Double -> (Double, String) -> Ribbon -> (Double, String) -drawArrow ratio len (start, s) (Ribbon b i) = +drawArrow :: Double -> Double -> Double -> (Double, String) -> Ribbon -> (Double, String) +drawArrow ratio len maxVal (start, s) (Ribbon b i) = ( start - i, s <> "\\draw " @@ -57,14 +57,14 @@ drawArrow ratio len (start, s) (Ribbon b i) = <> ";\n" ) where - upper_limit = Limits ((- start) * ratio) (start * ratio) - lower_limit = Limits ((- start - i) * ratio) ((start - i) * ratio) + upper_limit = Limits ((start - maxVal) * ratio) (start * ratio) + lower_limit = Limits ((start - i - maxVal) * ratio) ((start - i) * ratio) mid1 = boolToCoords upper_limit ((fromIntegral $ length b) * len) (last b) mid2 = boolToCoords lower_limit ((fromIntegral $ length b) * len) (last b) drawRibbons :: Double -> Double -> [Ribbon] -> String drawRibbons ratio len rs = - snd $ foldl (drawArrow ratio len) (total, "") rs + snd $ foldl (drawArrow ratio len total) (total, "") rs where total = sum $ map (\(Ribbon _ y) -> y) rs -- cgit