M Mondrian.cabal => Mondrian.cabal +6 -0
@@ 42,6 42,12 @@ executable Mondrian
hs-source-dirs: app
default-language: Haskell2010
+executable Convert
+ main-is: Convert.hs
+ build-depends: base >= 4.13 && <4.14, JuicyPixels
+ hs-source-dirs: app
+ default-language: Haskell2010
+
test-suite Mondrian-test
default-language: Haskell2010
type: exitcode-stdio-1.0
M lib/Graphics/Rendering/Rect/Image.hs => lib/Graphics/Rendering/Rect/Image.hs +0 -1
@@ 61,7 61,6 @@ nilTexture = Texture 0 (0, 0)
atlasLookup :: Text -> Atlas -> Texture
atlasLookup key = fromMaybe nilTexture . HM.lookup key . unAtlas
--- OpenGL deals in CrCb not CbCr...
-- Convert pixels to some flavour of RGBA
convertDyn :: DynamicImage -> DynamicImage
convertDyn (ImageY8 img) = ImageRGBA8 $ promoteImage img