Animate.Frames

Documentation

type Seconds = Float

data Layout

Constructors

Layout

Fields

• layoutSize :: (Int, Int)
• layoutRows :: [Row]
• layoutAnimations :: Map String [(FrameIndex, Seconds)]

data CropInfo

Constructors

CropInfo

Fields

• cInfoAnimations :: Map String [CropFrame]
• cInfoImages :: Map CropId CropImage

data Row

Constructors

Row

Fields

• rowCropImages :: [CropImage]
• rowTop :: Int
• rowHeight :: Int
• rowWidth :: Int

data RowStep

Constructors

RowStep

Fields

• rsCurrent :: Row
• rsFinished :: [Row]

data CropImage

Constructors

CropImage

Fields

• ciImage :: ImageId
• ciCoords :: ((Int, Int), (Int, Int))
• ciOrigin :: (Int, Int)
• ciDim :: (Int, Int)

Instances

Eq CropImage

Methods

(==) :: CropImage -> CropImage -> Bool

(/=) :: CropImage -> CropImage -> Bool

type CropId = Int

newtype ImageId

Constructors

ImageId MD5Digest

Instances

Eq ImageId

Methods

(==) :: ImageId -> ImageId -> Bool

(/=) :: ImageId -> ImageId -> Bool

Ord ImageId

Methods

compare :: ImageId -> ImageId -> Ordering

(<) :: ImageId -> ImageId -> Bool

(<=) :: ImageId -> ImageId -> Bool

(>) :: ImageId -> ImageId -> Bool

(>=) :: ImageId -> ImageId -> Bool

max :: ImageId -> ImageId -> ImageId

min :: ImageId -> ImageId -> ImageId

Show ImageId

Methods

showsPrec :: Int -> ImageId -> ShowS

show :: ImageId -> String

showList :: [ImageId] -> ShowS

data CropFrame

Constructors

CropFrame

Fields

• cfCropId :: CropId
• cfCount :: Int

Instances

Eq CropFrame

Methods

(==) :: CropFrame -> CropFrame -> Bool

(/=) :: CropFrame -> CropFrame -> Bool

Show CropFrame

Methods

showsPrec :: Int -> CropFrame -> ShowS

show :: CropFrame -> String

showList :: [CropFrame] -> ShowS

data Tree a

Constructors

Node a (Maybe (Tree a)) (Maybe (Tree a))

Instances

Functor Tree

Methods

fmap :: (a -> b) -> Tree a -> Tree b

(<$) :: a -> Tree b -> Tree a

Eq a => Eq (Tree a)

Methods

(==) :: Tree a -> Tree a -> Bool

(/=) :: Tree a -> Tree a -> Bool

Show a => Show (Tree a)

Methods

showsPrec :: Int -> Tree a -> ShowS

show :: Tree a -> String

showList :: [Tree a] -> ShowS

data Range

Constructors

Range

Fields

• rMin :: Int
• rMax :: Int

Instances

Eq Range

Methods

(==) :: Range -> Range -> Bool

(/=) :: Range -> Range -> Bool

Show Range

Methods

showsPrec :: Int -> Range -> ShowS

show :: Range -> String

showList :: [Range] -> ShowS

data HorzNode

Constructors

HorzNode

Fields

• hnRange :: Range
• hnCropImage :: CropImage

data VertNode

Constructors

VertNode

Fields

• vnRange :: Range
• vnHorzTree :: Tree HorzNode

main :: IO ()

createCropImagesWithCache :: [(String, [(ImageId, a)])] -> Map ImageId (Image PixelRGBA8) -> IO (Map String [CropImage])

validAnimationCount :: Options -> Bool

writeCropImage :: Map ImageId (Image PixelRGBA8) -> FilePath -> CropImage -> IO ()

generateImageFromCropImage :: Map ImageId (Image PixelRGBA8) -> CropImage -> Image PixelRGBA8

readImageOrFail :: FilePath -> IO (ImageId, Image PixelRGBA8)

layoutToSpriteSheetInfo :: FilePath -> Layout -> SpriteSheetInfo String Seconds

customWriteSpriteSheetInfo :: SpriteSheetInfo a Seconds -> Text

linesOfSpriteSheetInfo :: SpriteSheetInfo a Seconds -> [Text]

spriteClipToText :: Int -> SpriteClip a -> Text

animationToText :: Text -> [(FrameIndex, Seconds)] -> [Text]

showFloat :: Float -> Text

textShow :: Show a => a -> Text

spriteClipsFromRows :: [Row] -> [SpriteClip String]

generatePixelFromLayout :: Map ImageId (Image PixelRGBA8) -> Layout -> Int -> Int -> PixelRGBA8

generateImageFromLayout :: Map ImageId (Image PixelRGBA8) -> Layout -> Image PixelRGBA8

layoutCrops :: Int -> Map String [CropImage] -> Layout

getLayoutDim :: [Row] -> (Int, Int)

sortByIndex :: Ord a => [(a, b)] -> [(a, b)]

inRange :: Int -> Range -> Bool

lessThanRange :: Int -> Range -> Bool

greaterThanRange :: Int -> Range -> Bool

lookupNodeWithinRange :: (n -> Range) -> Tree n -> Int -> Maybe n

lookupPixelFromTree :: Map ImageId (Image PixelRGBA8) -> Tree VertNode -> Int -> Int -> Maybe PixelRGBA8

pixelFromCropImage

Arguments

:: Map ImageId (Image PixelRGBA8)

-> (Int, Int)

Offset

-> (Int, Int)

Spritesheet location

-> CropImage

-> Maybe PixelRGBA8

mkRows :: (Int, Int) -> [CropImage] -> [Row]

appendCropImage :: Row -> CropImage -> Row

initRow :: Row

initRowStep :: RowStep

buildVertTree :: [Row] -> Tree VertNode

rowToVertNode :: Row -> VertNode

buildHorzTree :: Row -> Tree HorzNode

listToTree :: [a] -> Tree a

cropAnimationsToLayoutAnimations

Arguments

:: Int

Frames per seconds

-> Map String [CropFrame]

Crop animations

-> Map String [(FrameIndex, Seconds)]

buildCropInfo :: Map String [CropImage] -> CropInfo

insertCropImages :: [CropImage] -> Map CropId CropImage -> (Map CropId CropImage, [CropId])

insertCropImagesStep :: (Map CropId CropImage, [CropId]) -> CropImage -> (Map CropId CropImage, [CropId])

collapseIntoFrames :: [CropId] -> [CropFrame]

eqImagePixelRGBA8 :: Image PixelRGBA8 -> Image PixelRGBA8 -> Bool

insertCropImage :: CropImage -> Map CropId CropImage -> (Map CropId CropImage, CropId)

findByElem :: Eq a => Map k a -> a -> Maybe k

sumDim :: [CropImage] -> (Int, Int)

maxHeight :: [CropImage] -> Int

minBoundaries :: [CropImage] -> (Int, Int)

mkCropImage :: Map ImageId (Image PixelRGBA8) -> ImageId -> CropImage

cropImageDim :: ((Int, Int), (Int, Int)) -> (Int, Int)

cropCoordsImage :: (Pixel a, Eq (PixelBaseComponent a), Ord (PixelBaseComponent a)) => Image a -> ((Int, Int), (Int, Int))

firstOpaquePoint :: (Pixel a, Eq (PixelBaseComponent a), Ord (PixelBaseComponent a)) => (Image a -> [(Int, Int)]) -> ((Int, Int) -> Int) -> Image a -> Maybe Int

findY0 :: (Pixel a, Eq (PixelBaseComponent a), Ord (PixelBaseComponent a)) => Image a -> Maybe Int

findY1 :: (Pixel a, Eq (PixelBaseComponent a), Ord (PixelBaseComponent a)) => Image a -> Maybe Int

findX0 :: (Pixel a, Eq (PixelBaseComponent a), Ord (PixelBaseComponent a)) => Image a -> Maybe Int

findX1 :: (Pixel a, Eq (PixelBaseComponent a), Ord (PixelBaseComponent a)) => Image a -> Maybe Int

topDown :: Image a -> [(Int, Int)]

downTop :: Image a -> [(Int, Int)]

leftRight :: Image a -> [(Int, Int)]

rightLeft :: Image a -> [(Int, Int)]