explore 0.0.7.1 → 0.0.7.2

raw patch · 3 files changed

+7/−9 lines, 3 files

Files

• Help.hs +4/−1
• Main.hs +2/−7
• explore.cabal +1/−1

@@ -75,9 +75,12 @@ \\n\ \HISTORY\n\ \\n\+\  0.0.7.2\n\+\  - Fixed a pattern-matching bug with the new translation value: default\n\+\\n\ \  0.0.7\n\ \  - Support for invocation files\n\-\  - Support for calculating step sizes by dividing the scan area\n\+\  - Support for calculating the step size by dividing the scan area\n\ \\n\ \  0.0.6.2\n\ \  - Fixed help output\n\

@@ -176,10 +176,6 @@ -- | new run function run :: ExploreInvocation -> IO () run invocation@(Explore imgPath legend matching area stepSize translation) = do-  -- display internal normalized invocation-  -- putStrLn $ "invoc.: " ++ show invocation-  -- putStrLn $ ""-   -- initialize image   Right img <- loadPNGFile imgPath
   let bitmap  = imageData  img
@@ -220,13 +216,12 @@   mapM_ (putStrLn . show) legend    -- scan bitmap-  mapM_ (scan bitmap translation box icols rows (@#) (~=)) legend+  mapM_ (scan bitmap trans box icols rows (@#) (~=)) legend +-- | converts step-size representations convertStepSize :: Double -> StepSize -> StepSize convertStepSize width (ConstantJump  size ) = WidthDivision $ width / size convertStepSize width (WidthDivision parts) = ConstantJump  $ width / parts--  -- | a very simple scanning algorithm that works only if no lines --   occlude each other.

@@ -1,5 +1,5 @@ name:                explore-version:             0.0.7.1+version:             0.0.7.2 cabal-version:       >= 1.4 license:             BSD3 license-file:        LICENSE