splot 0.1.13 → 0.1.14

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

Tools/StatePlot.hs +1/−1
splot.cabal +1/−1

Tools/StatePlot.hs view

@@ -101,7 +101,7 @@       let drawBar i (Bar ms1 ms2 color) = do {             setLineStyle $ solidLine 1 transparent           ; setFillStyle $ solidFillStyle $ opaque $ fromMaybe (error $ "unknown color: " ++ color) (readColourName color)-          ; fillPath (rectPath $ Rect (Point (ms2x ms1) (track2y i)) (Point (ms2x ms2) (track2y i + (barHeight conf)/2)))+          ; fillPath (rectPath $ Rect (Point (ms2x ms1) (track2y i - (barHeight conf)/2)) (Point (ms2x ms2) (track2y i + (barHeight conf)/2)))           }           drawBar i (ExpiredBar ms1 ms2 color) = do {             setLineStyle $ dashedLine 1 [3,3] (opaque $ fromMaybe (error $ "unknown color: " ++ color) (readColourName color))

splot.cabal view

@@ -1,5 +1,5 @@ Name: splot-Version: 0.1.13+Version: 0.1.14 License: BSD3 License-file: LICENSE Copyright: Eugene Kirpichov, 2010