wumpus-microprint 0.9.0 → 0.10.0
raw patch · 5 files changed
+30/−20 lines, 5 filesdep ~wumpus-basicdep ~wumpus-corePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: wumpus-basic, wumpus-core
API changes (from Hackage documentation)
Files
- CHANGES +17/−0
- demo/Demo01.hs +1/−1
- src/Wumpus/Microprint/Render.hs +5/−4
- src/Wumpus/Microprint/VersionNumber.hs +2/−2
- wumpus-microprint.cabal +5/−13
CHANGES view
@@ -1,4 +1,21 @@ ++0.9.0 to 0.10.0:++ * Updated to track changes in Wumpus-Basic.++0.8.0 to 0.9.0:++ * Made internal modules visible rather than hidden and changed + the module path to be @Wumpus.Microprint@ (lower-case p) + rather then @Wumpus.MicroPrint@ (upper-case P).++ * Added a more efficient builder than the Teletype.++0.7.0 to 0.8.0:++ * Internal changes to work with latest @Wumpus-Basic@.+ 0.6.0 to 0.7.0: * Again, internal changes to work with latest @Wumpus-Basic@.
demo/Demo01.hs view
@@ -18,7 +18,7 @@ main = do createDirectoryIfMissing True "./out/" inp <- readFile "Demo01.hs" -- This file- let gtext = runTokenizer (haskellTokenizer moccasin green) inp+ let gtext = runTokenizer (haskellTokenizer indian_red teal) inp let pic1 = makePicture gtext writeEPS_latin1 "./out/microprint01.eps" pic1 writeSVG_latin1 "./out/microprint01.svg" pic1
src/Wumpus/Microprint/Render.hs view
@@ -36,6 +36,7 @@ import Data.AffineSpace -- package: vector-space +import Control.Applicative import Data.Monoid --------------------------------------------------------------------------------@@ -58,13 +59,13 @@ -- | Just a filled rectangle. -- greekF :: DrawWordF-greekF rgb w h _ = localLG (secondaryColour rgb) (filledRectangle w h)+greekF rgb w h _ = localize (fillColour rgb) . (filledRectangle w h) borderedF :: DrawWordF-borderedF rgb w h i = background `lgappend` ticks+borderedF rgb w h i = mappend <$> background <*> ticks where- background = localLG (secondaryColour rgb) (borderedRectangle w h)+ background = localize (fillColour rgb) . (borderedRectangle w h) v1 = hvec $ w / fromIntegral i ticks pt = mconcat $ map (straightLine (vvec h)) $ take (i-1) $ iterate (.+^ v1) (pt .+^ v1)@@ -73,7 +74,7 @@ -- | A stroked line. -- strokelineF :: DrawWordF-strokelineF rgb w _ _ = localLG (primaryColour rgb) (straightLine (hvec w))+strokelineF rgb w _ _ = localize (strokeColour rgb) . (straightLine (hvec w)) render :: RenderScalingCtx -> DrawWordF -> GreekText -> Drawing Double ()
src/Wumpus/Microprint/VersionNumber.hs view
@@ -22,7 +22,7 @@ -- | Version number ----- > (0,9,0)+-- > (0,10,0) -- wumpus_microprint_version :: (Int,Int,Int)-wumpus_microprint_version = (0,9,0)+wumpus_microprint_version = (0,10,0)
wumpus-microprint.cabal view
@@ -1,5 +1,5 @@ name: wumpus-microprint-version: 0.9.0+version: 0.10.0 license: BSD3 license-file: LICENSE copyright: Stephen Tetley <stephen.tetley@gmail.com>@@ -24,17 +24,9 @@ . Changelog: .- 0.8.0 to 0.9.0:- .- * Made internal modules visible rather than hidden and changed - the module path to be @Wumpus.Microprint@ (lower-case p) - rather then @Wumpus.MicroPrint@ (upper-case P).- .- * Added a more efficient builder than the Teletype.- .- 0.7.0 to 0.8.0:+ 0.9.0 to 0.10.0: .- * Internal changes to work with latest @Wumpus-Basic@.+ * Updated to track changes in Wumpus-Basic. . . build-type: Simple@@ -50,8 +42,8 @@ hs-source-dirs: src build-depends: base < 5, vector-space >= 0.6,- wumpus-core == 0.34.0,- wumpus-basic == 0.9.0+ wumpus-core == 0.35.0,+ wumpus-basic == 0.10.0 exposed-modules: