haha 0.2 → 0.3.1

raw patch · 3 files changed

+14/−4 lines, 3 filesdep ~basePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base

API changes (from Hackage documentation)

- Graphics.Ascii.Haha.Geometry: instance (Eq u) => Eq (Circle u)

- Graphics.Ascii.Haha.Geometry: instance (Eq u) => Eq (Elipse u)

- Graphics.Ascii.Haha.Geometry: instance (Eq u) => Eq (Line u)

- Graphics.Ascii.Haha.Geometry: instance (Eq u) => Eq (Mesh u)

- Graphics.Ascii.Haha.Geometry: instance (Eq u) => Eq (Point u)

- Graphics.Ascii.Haha.Geometry: instance (Eq u) => Eq (Poly u)

- Graphics.Ascii.Haha.Geometry: instance (Eq u) => Eq (Rect u)

- Graphics.Ascii.Haha.Geometry: instance (Eq u) => Eq (Tri u)

- Graphics.Ascii.Haha.Geometry: instance (Ord u) => Ord (Circle u)

- Graphics.Ascii.Haha.Geometry: instance (Ord u) => Ord (Elipse u)

- Graphics.Ascii.Haha.Geometry: instance (Ord u) => Ord (Line u)

- Graphics.Ascii.Haha.Geometry: instance (Ord u) => Ord (Mesh u)

- Graphics.Ascii.Haha.Geometry: instance (Ord u) => Ord (Point u)

- Graphics.Ascii.Haha.Geometry: instance (Ord u) => Ord (Poly u)

- Graphics.Ascii.Haha.Geometry: instance (Ord u) => Ord (Rect u)

- Graphics.Ascii.Haha.Geometry: instance (Ord u) => Ord (Tri u)

- Graphics.Ascii.Haha.Geometry: instance (Show u) => Show (Circle u)

- Graphics.Ascii.Haha.Geometry: instance (Show u) => Show (Elipse u)

- Graphics.Ascii.Haha.Geometry: instance (Show u) => Show (Line u)

- Graphics.Ascii.Haha.Geometry: instance (Show u) => Show (Mesh u)

- Graphics.Ascii.Haha.Geometry: instance (Show u) => Show (Point u)

- Graphics.Ascii.Haha.Geometry: instance (Show u) => Show (Poly u)

- Graphics.Ascii.Haha.Geometry: instance (Show u) => Show (Rect u)

- Graphics.Ascii.Haha.Geometry: instance (Show u) => Show (Tri u)

+ Graphics.Ascii.Haha.Geometry: instance Eq u => Eq (Circle u)

+ Graphics.Ascii.Haha.Geometry: instance Eq u => Eq (Elipse u)

+ Graphics.Ascii.Haha.Geometry: instance Eq u => Eq (Line u)

+ Graphics.Ascii.Haha.Geometry: instance Eq u => Eq (Mesh u)

+ Graphics.Ascii.Haha.Geometry: instance Eq u => Eq (Point u)

+ Graphics.Ascii.Haha.Geometry: instance Eq u => Eq (Poly u)

+ Graphics.Ascii.Haha.Geometry: instance Eq u => Eq (Rect u)

+ Graphics.Ascii.Haha.Geometry: instance Eq u => Eq (Tri u)

+ Graphics.Ascii.Haha.Geometry: instance Ord u => Ord (Circle u)

+ Graphics.Ascii.Haha.Geometry: instance Ord u => Ord (Elipse u)

+ Graphics.Ascii.Haha.Geometry: instance Ord u => Ord (Line u)

+ Graphics.Ascii.Haha.Geometry: instance Ord u => Ord (Mesh u)

+ Graphics.Ascii.Haha.Geometry: instance Ord u => Ord (Point u)

+ Graphics.Ascii.Haha.Geometry: instance Ord u => Ord (Poly u)

+ Graphics.Ascii.Haha.Geometry: instance Ord u => Ord (Rect u)

+ Graphics.Ascii.Haha.Geometry: instance Ord u => Ord (Tri u)

+ Graphics.Ascii.Haha.Geometry: instance Show u => Show (Circle u)

+ Graphics.Ascii.Haha.Geometry: instance Show u => Show (Elipse u)

+ Graphics.Ascii.Haha.Geometry: instance Show u => Show (Line u)

+ Graphics.Ascii.Haha.Geometry: instance Show u => Show (Mesh u)

+ Graphics.Ascii.Haha.Geometry: instance Show u => Show (Point u)

+ Graphics.Ascii.Haha.Geometry: instance Show u => Show (Poly u)

+ Graphics.Ascii.Haha.Geometry: instance Show u => Show (Rect u)

+ Graphics.Ascii.Haha.Geometry: instance Show u => Show (Tri u)

+ Graphics.Ascii.Haha.Terminal: bg256 :: Integral i => i -> [String]

+ Graphics.Ascii.Haha.Terminal: fg256 :: Integral i => i -> [String]

+ Graphics.Ascii.Haha.Terminal: x256 :: Integral i => i -> String

+ Graphics.Ascii.Haha.Terminal: x256Bg :: Integral i => i -> String

+ Graphics.Ascii.Haha.Terminal: x256Bold :: Integral i => i -> String

- Graphics.Ascii.Haha.Bitmap: clip :: (Ord u) => Rect u -> Bitmap u p -> Bitmap u p

+ Graphics.Ascii.Haha.Bitmap: clip :: Ord u => Rect u -> Bitmap u p -> Bitmap u p

- Graphics.Ascii.Haha.Bitmap: drawList :: (Ord u) => [Point u] -> p -> Bitmap u p -> Bitmap u p

+ Graphics.Ascii.Haha.Bitmap: drawList :: Ord u => [Point u] -> p -> Bitmap u p -> Bitmap u p

- Graphics.Ascii.Haha.Bitmap: drawPoint :: (Ord u) => Point u -> p -> Bitmap u p -> Bitmap u p

+ Graphics.Ascii.Haha.Bitmap: drawPoint :: Ord u => Point u -> p -> Bitmap u p -> Bitmap u p

- Graphics.Ascii.Haha.Bitmap: erase :: (Ord u) => Point u -> Bitmap u p -> Bitmap u p

+ Graphics.Ascii.Haha.Bitmap: erase :: Ord u => Point u -> Bitmap u p -> Bitmap u p

- Graphics.Ascii.Haha.Bitmap: filterPt :: (Ord u) => (Point u -> p -> Bool) -> Bitmap u p -> Bitmap u p

+ Graphics.Ascii.Haha.Bitmap: filterPt :: Ord u => (Point u -> p -> Bool) -> Bitmap u p -> Bitmap u p

- Graphics.Ascii.Haha.Bitmap: get :: (Ord u) => Point u -> Bitmap u p -> Maybe p

+ Graphics.Ascii.Haha.Bitmap: get :: Ord u => Point u -> Bitmap u p -> Maybe p

- Graphics.Ascii.Haha.Bitmap: mapPoints :: (Ord v) => (Point u -> Point v) -> Bitmap u p -> Bitmap v p

+ Graphics.Ascii.Haha.Bitmap: mapPoints :: Ord v => (Point u -> Point v) -> Bitmap u p -> Bitmap v p

- Graphics.Ascii.Haha.Bitmap: put :: (Ord u) => Point u -> p -> Bitmap u p -> Bitmap u p

+ Graphics.Ascii.Haha.Bitmap: put :: Ord u => Point u -> p -> Bitmap u p -> Bitmap u p

- Graphics.Ascii.Haha.Geometry: boundsPoly :: (Ord u) => Poly u -> Rect u

+ Graphics.Ascii.Haha.Geometry: boundsPoly :: Ord u => Poly u -> Rect u

- Graphics.Ascii.Haha.Geometry: boundsTri :: (Ord u) => Tri u -> Rect u

+ Graphics.Ascii.Haha.Geometry: boundsTri :: Ord u => Tri u -> Rect u

- Graphics.Ascii.Haha.Geometry: centroidLine :: (Fractional u) => Line u -> Point u

+ Graphics.Ascii.Haha.Geometry: centroidLine :: Fractional u => Line u -> Point u

- Graphics.Ascii.Haha.Geometry: centroidPoly :: (Fractional u) => Poly u -> Point u

+ Graphics.Ascii.Haha.Geometry: centroidPoly :: Fractional u => Poly u -> Point u

- Graphics.Ascii.Haha.Geometry: inRect :: (Ord u) => Point u -> Rect u -> Bool

+ Graphics.Ascii.Haha.Geometry: inRect :: Ord u => Point u -> Rect u -> Bool

- Graphics.Ascii.Haha.Geometry: mesh :: (Geometry g) => g u -> Mesh u

+ Graphics.Ascii.Haha.Geometry: mesh :: Geometry g => g u -> Mesh u

- Graphics.Ascii.Haha.Geometry: outline :: (Geometry g) => g u -> Poly u

+ Graphics.Ascii.Haha.Geometry: outline :: Geometry g => g u -> Poly u

- Graphics.Ascii.Haha.Geometry: rotatePoint :: (Floating u) => u -> Point u -> Point u -> Point u

+ Graphics.Ascii.Haha.Geometry: rotatePoint :: Floating u => u -> Point u -> Point u -> Point u

- Graphics.Ascii.Haha.Geometry: scalePoint :: (Num u) => u -> Point u -> Point u -> Point u

+ Graphics.Ascii.Haha.Geometry: scalePoint :: Num u => u -> Point u -> Point u -> Point u

- Graphics.Ascii.Haha.Geometry: translatePoint :: (Num u) => u -> u -> Point u -> Point u

+ Graphics.Ascii.Haha.Geometry: translatePoint :: Num u => u -> u -> Point u -> Point u

- Graphics.Ascii.Haha.Plot: orderPoint :: (Ord t) => Point t -> Point t -> Ordering

+ Graphics.Ascii.Haha.Plot: orderPoint :: Ord t => Point t -> Point t -> Ordering

- Graphics.Ascii.Haha.Plot: string :: (Integral i) => Bool -> Rect i -> Point i -> String -> String -> [(Point i, Pixel)] -> String

+ Graphics.Ascii.Haha.Plot: string :: Integral i => Bool -> Rect i -> Point i -> String -> String -> [(Point i, Pixel)] -> String

- Graphics.Ascii.Haha.Terminal: move :: (Integral i) => i -> i -> String

+ Graphics.Ascii.Haha.Terminal: move :: Integral i => i -> i -> String

- Graphics.Ascii.Haha.Terminal: moveBack :: (Integral i) => i -> String

+ Graphics.Ascii.Haha.Terminal: moveBack :: Integral i => i -> String

- Graphics.Ascii.Haha.Terminal: moveDown :: (Integral i) => i -> String

+ Graphics.Ascii.Haha.Terminal: moveDown :: Integral i => i -> String

- Graphics.Ascii.Haha.Terminal: moveForward :: (Integral i) => i -> String

+ Graphics.Ascii.Haha.Terminal: moveForward :: Integral i => i -> String

- Graphics.Ascii.Haha.Terminal: moveUp :: (Integral i) => i -> String

+ Graphics.Ascii.Haha.Terminal: moveUp :: Integral i => i -> String

- Graphics.Ascii.Haha.Terminal: num :: (Integral i) => Color -> i

+ Graphics.Ascii.Haha.Terminal: num :: Integral i => Color -> i

Files

haha.cabal +2/−2
src/Graphics/Ascii/Haha/Terminal.hs +10/−0
src/Main.hs +2/−2

haha.cabal view

@@ -1,5 +1,5 @@ Name:             haha-Version:          0.2+Version:          0.3.1 Description:      A simple library for creating animated ascii art on ANSI terminals. Synopsis:         A simple library for creating animated ascii art on ANSI terminals. Category:         Graphics@@ -8,7 +8,7 @@ Author:           Sebastiaan Visser Maintainer:       sfvisser@cs.uu.nl Build-Type:       Simple-Build-Depends:    base, containers, time+Build-Depends:    base >= 3 && < 5, containers, time  GHC-Options:      -Wall Extensions:       CPP

src/Graphics/Ascii/Haha/Terminal.hs view

@@ -126,6 +126,16 @@ whiteBg   = clr $ bg White resetBg   = clr $ bg Reset +-- XTerms 256 color mode. Sadly not available everywhere.+bg256, fg256 :: Integral i => i -> [String]+fg256 n = ["38", "5", show n]+bg256 n = ["48", "5", show n]++x256, x256Bold, x256Bg :: Integral i => i -> String+x256     i = clr        $ fg256 i+x256Bold i = clr $ bold $ bg256 i+x256Bg   i = clr        $ bg256 i+ {-  big s =

src/Main.hs view

@@ -33,8 +33,8 @@  myBmp :: Double -> Bitmap Double Pixel myBmp t =-    drawPoly (lambda   t) (Pixel 'x' yellow)-  $ drawPoly (darkstar t) (Pixel '@' black)+    drawPoly (lambda   t) (Pixel 'x' magentaBold)+  $ drawPoly (darkstar t) (Pixel '@' blackBold)   $ empty  darkstar :: Double -> Poly Double