mars 0.1.0.2 → 0.1.0.3

raw patch · 10 files changed

+20/−2 lines, 10 filesdep ~basePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

Graphics/Mars/Array.hs +2/−0
Graphics/Mars/Display2D.hs +1/−0
Graphics/Mars/Example.hs +1/−0
Graphics/Mars/Graph.hs +1/−0
Graphics/Mars/Paint.hs +5/−0
Graphics/Mars/Ply.hs +3/−0
Graphics/Mars/ReaderStateRandom.hs +1/−0
Graphics/Mars/Stamp.hs +3/−0
Graphics/Mars/Walk.hs +1/−0
mars.cabal +2/−2

Graphics/Mars/Array.hs view

@@ -10,6 +10,8 @@  module Graphics.Mars.Array where +import Prelude(+  (+), (-), (*), Num, Bool, (==), return, Maybe(..), map, sequence_) import Data.Array.IArray import Data.Array.IO

Graphics/Mars/Display2D.hs view

@@ -7,6 +7,7 @@ -} module Graphics.Mars.Display2D where +import Prelude(IO, Int, String) import Graphics.Gloss ( display,                         Display( FullScreen, InWindow ),                         Picture,

Graphics/Mars/Example.hs view

@@ -10,6 +10,7 @@ -} module Graphics.Mars.Example where +import Prelude(IO, (.), ($), writeFile) import Graphics.Gloss (black) import Data.Array.Unboxed import Graphics.Mars.Paint

Graphics/Mars/Graph.hs view

@@ -10,6 +10,7 @@ -} module Graphics.Mars.Graph where +import Prelude((+), (*), fromIntegral, round, Float, Int, take, IO) import Data.Array.IO import Data.Array.Unboxed import Graphics.Mars.Stamp

Graphics/Mars/Paint.hs view

@@ -12,6 +12,9 @@        , toImage        ) where +import Prelude(+  (+), Bool(..), fmap, Float, Int, (<), (>),+  (-), (/), Ord, Num, RealFrac, round, (*)) import Data.ByteString import Data.Colour.RGBSpace import Data.Colour.RGBSpace.HSL hiding (hue, lightness)@@ -55,5 +58,7 @@ toImage :: UArray (Int, Int) Float -> Interpretation -> Picture toImage mx int = let bStr = Data.ByteString.concat (fmap int (elems mx))                      ((0, 0), (rbound, cbound)) = bounds mx+                 -- Note: Version 0.10.* of Gloss changes the arguments to+                 -- bitmapOfByteString from what is here                  in bitmapOfByteString (cbound + 1) (rbound + 1) bStr False

Graphics/Mars/Ply.hs view

@@ -17,6 +17,9 @@        )        where +import Prelude(+  show, (++), String, concat, Int, map, (+), (-),+  filter, length, or, Float, fromIntegral) import Data.Array.IArray import Data.Array.MArray import Data.Array.IO

Graphics/Mars/ReaderStateRandom.hs view

@@ -21,6 +21,7 @@   , execRSR     ) where +import Prelude((.), fst, snd) import System.Random import Control.Applicative import Control.Monad.Random

Graphics/Mars/Stamp.hs view

@@ -14,6 +14,9 @@        )        where +import Prelude(+  map, sequence_, Num, (+), fromIntegral, abs,+  (<=), (-), (*), ceiling, Float, Integral, (**), sqrt) import Data.Array.IArray import Data.Array.IO import Graphics.Mars.Array

Graphics/Mars/Walk.hs view

@@ -23,6 +23,7 @@ -} module Graphics.Mars.Walk (walk) where +import Prelude(repeat, Float, (/), (+), (*), (-)) import Graphics.Mars.ReaderStateRandom  type RandomWalk g = ReaderStateRandom Float (Float, Float) g (Float, Float)

mars.cabal view

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.1.0.2+version:             0.1.0.3  -- A short (one-line) description of the package. synopsis:            Generates mountainous terrain using a random walk algorithm.@@ -72,7 +72,7 @@   other-extensions:    GeneralizedNewtypeDeriving      -- Other library packages from which modules are imported.-  build-depends:       base >=4.6 && <4.8+  build-depends:       base >=4.6 && <4.10                        , gloss >=1.7 && <1.10                        , random >=1.0 && <1.1                        , MonadRandom >=0.4 && <0.5