packages feed

ihaskell-juicypixels (empty) → 0.2.0.0

raw patch · 4 files changed

+167/−0 lines, 4 filesdep +JuicyPixelsdep +basedep +bytestringsetup-changed

Dependencies added: JuicyPixels, base, bytestring, classy-prelude, directory, ihaskell

Files

+ IHaskell/Display/Juicypixels.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE NoImplicitPrelude, TypeSynonymInstances, FlexibleInstances  #-}+module IHaskell.Display.Juicypixels +     ( module IHaskell.Display+     , module Codec.Picture+     ) where++import Codec.Picture+import ClassyPrelude+import IHaskell.Display+import System.Directory+import System.IO.Unsafe++-- instances+instance IHaskellDisplay DynamicImage where display = displayImageAsJpg +instance IHaskellDisplay (Image Pixel8) where display = displayImageAsJpg . ImageY8+instance IHaskellDisplay (Image Pixel16) where display = displayImageAsJpg . ImageY16	+instance IHaskellDisplay (Image PixelF) where display =  displayImageAsJpg . ImageYF+instance IHaskellDisplay (Image PixelYA8) where display = displayImageAsJpg . ImageYA8+instance IHaskellDisplay (Image PixelYA16) where display = displayImageAsJpg . ImageYA16+instance IHaskellDisplay (Image PixelRGB8) where display = displayImageAsJpg . ImageRGB8+instance IHaskellDisplay (Image PixelRGB16) where display = displayImageAsJpg . ImageRGB16+instance IHaskellDisplay (Image PixelRGBF) where display =  displayImageAsJpg . ImageRGBF+instance IHaskellDisplay (Image PixelRGBA8) where display = displayImageAsJpg . ImageRGBA8+instance IHaskellDisplay (Image PixelRGBA16) where display = displayImageAsJpg . ImageRGBA16	+instance IHaskellDisplay (Image PixelYCbCr8) where display = displayImageAsJpg . ImageYCbCr8+instance IHaskellDisplay (Image PixelCMYK8) where display = displayImageAsJpg . ImageCMYK8 +instance IHaskellDisplay (Image PixelCMYK16) where display = displayImageAsJpg . ImageCMYK16	++-- main rendering function+displayImageAsJpg ::  DynamicImage -> IO Display+displayImageAsJpg renderable = do+  switchToTmpDir++  let filename = ".ihaskell.juicypixels.jpg"+  -- Write the image+  saveJpgImage 95 filename renderable+  -- Convert to base64.+  imgData <- readFile $ fpFromString filename+  return $ Display [jpg (imWidth renderable) (imHeight renderable) $ base64 imgData]++-- The type DynamicImage does not have a function to extract width and height+imWidth :: DynamicImage -> Int+imWidth img  = w+   where (w, h) = imWidthHeight img++imHeight :: DynamicImage -> Int+imHeight img = h+   where (w, h) = imWidthHeight img++-- Helper functions to pattern match on the DynamicImage Constructors+imWidthHeight :: DynamicImage -> (Int, Int)+imWidthHeight (ImageY8 im)	= imWH im+imWidthHeight (ImageY16 im)	= imWH im+imWidthHeight (ImageYF im)	= imWH im+imWidthHeight (ImageYA8 im)	= imWH im+imWidthHeight (ImageYA16 im) = imWH im+imWidthHeight (ImageRGB8 im) = imWH im	+imWidthHeight (ImageRGB16 im) = imWH im	+imWidthHeight (ImageRGBF im) = imWH im	+imWidthHeight (ImageRGBA8 im) = imWH im+imWidthHeight (ImageRGBA16 im) = imWH im+imWidthHeight (ImageYCbCr8 im) = imWH im	+imWidthHeight (ImageCMYK8 im) = imWH im+imWidthHeight (ImageCMYK16 im) = imWH im++imWH :: (Image a) -> (Int, Int)+imWH im = (imageWidth im, imageHeight im)++
+ LICENSE view
@@ -0,0 +1,20 @@+The MIT License (MIT)++Copyright (c) 2013 Roland Senn++Permission is hereby granted, free of charge, to any person obtaining a copy of+this software and associated documentation files (the "Software"), to deal in+the Software without restriction, including without limitation the rights to+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of+the Software, and to permit persons to whom the Software is furnished to do so,+subject to the following conditions:++The above copyright notice and this permission notice shall be included in all+copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS+FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR+COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER+IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ ihaskell-juicypixels.cabal view
@@ -0,0 +1,76 @@+-- The name of the package.+name:                ihaskell-juicypixels++-- The package version.  See the Haskell package versioning policy (PVP) +-- for standards guiding when and how versions should be incremented.+-- http://www.haskell.org/haskellwiki/Package_versioning_policy+-- PVP summary:      +-+------- breaking API changes+--                   | | +----- non-breaking API additions+--                   | | | +--- code changes with no API change+version:             0.2.0.0++-- A short (one-line) description of the package.+synopsis:            IHaskell - IHaskellDisplay instances of the image types of the JuicyPixels package.++-- A longer description of the package.+description:        IHaskellDisplay instances of the image types of the JuicyPixels package. They are displayed as .JPG images.+                    DynamicImages and Images of types PixelRGBA16, PixelRGBA8, PixelRGB16, PixelRGB8, +                    PixelYA16, PixelYA8, Pixel16, Pixel8, PixelCMYK16, PixelCMYK8, PixelF, Pixel32+                    are supported. +                    The module IHaskell.Juicypixels re-exports the modules IHaskell.Display and Codec.Picture.    ++-- URL for the project homepage or repository.+homepage:            http://www.github.com/gibiansky/ihaskell++-- The license under which the package is released.+license:             MIT++-- The file containing the license text.+license-file:        LICENSE++-- The package author(s).+author:              Roland Senn++-- An email address to which users can send suggestions, bug reports, and +-- patches.+maintainer:          rsx@bluewin.ch++-- A copyright notice.+-- copyright:           ++category:            Development++build-type:          Simple++-- Extra files to be distributed with the package, such as examples or a +-- README.+-- extra-source-files:  ++-- Constraint on the version of Cabal needed to build this package.+cabal-version:       >=1.16+++library+  -- Modules exported by the library.+  exposed-modules:     IHaskell.Display.Juicypixels+  +  -- Modules included in this library but not exported.+  -- other-modules:       +  +  -- Language extensions.+  default-extensions: DoAndIfThenElse+              OverloadedStrings+             +  -- Other library packages from which modules are imported.+  build-depends:       base ==4.6.* || ==4.7.*,+                       classy-prelude >=0.6,+                       bytestring,+                       directory,+                       JuicyPixels >= 3.1.3,+                       ihaskell >= 0.5+  +  -- Directories containing source files.+  -- hs-source-dirs:      +  +  -- Base language which the package is written in.+  default-language:    Haskell2010