module Graphics.Rendering.Rect(Rect(..), Rects(..), shrink, shrink1, renderRects, RectStyle(..), colour, Backgrounds(..), Pattern(..), Resize(..), Length(..), Atlas, buildAtlas, atlasFromStyles, Texture, styleResolveImages) where import Graphics.Rendering.Rect.CSS import Graphics.Rendering.Rect.Backgrounds import Graphics.Rendering.Rect.Types import Graphics.Rendering.Rect.Image import Linear (M44) import Control.Monad.IO.Class (MonadIO) import Codec.Picture (DynamicImage) import Data.Text (Text) import Data.List (nub) shrink :: Rect -> Float -> Float -> Float -> Float -> Rect shrink self dLeft dTop dRight dBottom = Rect (left self + dLeft) (top self + dTop) (right self - dRight) (bottom self - dBottom) shrink1 :: Rect -> Float -> Rect shrink1 self d = shrink self d d d d renderRects :: (MonadIO m, MonadIO n) => n (RectStyle Texture -> Rects -> M44 Float -> m ()) renderRects = do bg <- renderBackgrounds return $ \style rects mat -> do bg (backgrounds style) rects mat styleResolveImages :: Atlas -> RectStyle Text -> RectStyle Texture styleResolveImages atlas self = let textures = map atlasLookup' $ image $ backgrounds self in self { backgrounds = (backgrounds self) { image = textures } } where atlasLookup' None = None atlasLookup' (Img path) = Img $ atlasLookup path atlas atlasLookup' (Linear a b) = Linear a b atlasFromStyles :: MonadIO m => (Text -> IO DynamicImage) -> [RectStyle Text] -> m Atlas atlasFromStyles cb styles = buildAtlas cb $ nub [path | s <- styles, Img path <- image $ backgrounds s]