JuicyPixels-jpeg-turbo (empty) → 0.1.0.0

raw patch · 7 files changed

+201/−0 lines, 7 filesdep +JuicyPixelsdep +JuicyPixels-jpeg-turbodep +basesetup-changed

Dependencies added: JuicyPixels, JuicyPixels-jpeg-turbo, base, bytestring, jpeg-turbo, tasty, tasty-discover, tasty-hunit, vector

Files

• CHANGELOG.md +5/−0
• JuicyPixels-jpeg-turbo.cabal +89/−0
• LICENSE +26/−0
• Setup.hs +2/−0
• src/Codec/Picture/JPEGTurbo.hs +42/−0
• test/JPTest.hs +36/−0
• test/Spec.hs +1/−0

@@ -0,0 +1,5 @@+# Changelog for `JuicyPixels-jpeg-turbo`++## Unreleased++## 0.1.0.0 - YYYY-MM-DD

@@ -0,0 +1,89 @@+cabal-version: 2.2++-- This file has been generated from package.yaml by hpack version 0.38.0.+--+-- see: https://github.com/sol/hpack++name:           JuicyPixels-jpeg-turbo+version:        0.1.0.0+synopsis:       JuicyPixels wrappers for libjpeg-turbo+description:    NB. You must set one of the build flags on `jpeg-turbo` dependency.+category:       Codec, Image+author:         IC Rainbow+maintainer:     aenor.realm@gmail.com+copyright:      2024 IC Rainbow+license:        BSD-3-Clause+license-file:   LICENSE+build-type:     Simple+extra-source-files:+    CHANGELOG.md++source-repository head+  type: git+  location: https://gitlab.com/dpwiz/hs-jpeg-turbo++library+  exposed-modules:+      Codec.Picture.JPEGTurbo+  other-modules:+      Paths_JuicyPixels_jpeg_turbo+  autogen-modules:+      Paths_JuicyPixels_jpeg_turbo+  hs-source-dirs:+      src+  default-extensions:+      BangPatterns+      BlockArguments+      ImportQualifiedPost+      LambdaCase+      NamedFieldPuns+      OverloadedStrings+      PatternSynonyms+      RecordWildCards+      TupleSections+      TypeApplications+      TypeOperators+      TypeFamilies+  ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints+  build-depends:+      JuicyPixels+    , base >=4.7 && <5+    , bytestring+    , jpeg-turbo+    , vector+  default-language: Haskell2010++test-suite JuicyPixels-jpeg-turbo-test+  type: exitcode-stdio-1.0+  main-is: Spec.hs+  other-modules:+      JPTest+      Paths_JuicyPixels_jpeg_turbo+  autogen-modules:+      Paths_JuicyPixels_jpeg_turbo+  hs-source-dirs:+      test+  default-extensions:+      BangPatterns+      BlockArguments+      ImportQualifiedPost+      LambdaCase+      NamedFieldPuns+      OverloadedStrings+      PatternSynonyms+      RecordWildCards+      TupleSections+      TypeApplications+      TypeOperators+      TypeFamilies+  ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N+  build-depends:+      JuicyPixels+    , JuicyPixels-jpeg-turbo+    , base >=4.7 && <5+    , bytestring+    , jpeg-turbo+    , tasty+    , tasty-discover+    , tasty-hunit+  default-language: Haskell2010

@@ -0,0 +1,26 @@+Copyright 2024 IC Rainbow++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++1.  Redistributions of source code must retain the above copyright notice, this+    list of conditions and the following disclaimer.++2.  Redistributions in binary form must reproduce the above copyright notice,+    this list of conditions and the following disclaimer in the documentation+    and/or other materials provided with the distribution.++3.  Neither the name of the copyright holder nor the names of its contributors+    may be used to endorse or promote products derived from this software+    without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR+ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON+ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,42 @@+module Codec.Picture.JPEGTurbo+  ( encodeRGB+  , EncodableRGB(..)+  ) where++import Codec.Picture (Image(..), Pixel, PixelBaseComponent, PixelRGB8)+import Control.Exception (bracket, finally)+import Control.Monad (unless)+import Data.ByteString (ByteString)+import Data.ByteString qualified as B+import Data.Vector.Storable qualified as V+import Data.Word (Word8)+import Foreign (castPtr, peek, with, nullPtr)+import Foreign.C.String (peekCString)+import TurboJPEG2 qualified as TJ2++class (Pixel px, PixelBaseComponent px ~ Word8) => EncodableRGB px where+  jtPixelFormat :: Image px -> TJ2.TJPF++instance EncodableRGB PixelRGB8 where+  jtPixelFormat _ = TJ2.TJPF_RGB++-- XXX: Use tjCompressFromYUV instead+-- instance EncodableRGB PixelYCbCr8 where+--   jtPixelFormat _ = TJ2.TJPF_RGB++encodeRGB :: EncodableRGB px => Int -> Image px -> IO ByteString+encodeRGB jpegQual image@Image{imageWidth, imageHeight, imageData} =+  bracket TJ2.tjInitCompress TJ2.tjDestroy \jt ->+    V.unsafeWith imageData \bufPtr ->+      with nullPtr \jpegBufPtr ->+        with 0 \jpegSizePtr -> do+          rc <- TJ2.tjCompress2 jt (castPtr bufPtr) (fromIntegral imageWidth) 0 (fromIntegral imageHeight) pixelFormat jpegBufPtr jpegSizePtr jpegSubsamp (fromIntegral jpegQual) flags+          jpegBuf <- peek jpegBufPtr+          flip finally (TJ2.tjFree jpegBuf) do+            unless (rc == 0) $ peekCString (TJ2.tjGetErrorStr2 jt) >>= error+            jpegSize <- peek jpegSizePtr+            B.packCStringLen (castPtr jpegBuf, fromIntegral jpegSize)+  where+    flags = TJ2.TJFLAG_PROGRESSIVE <> TJ2.TJFLAG_STOPONWARNING+    pixelFormat = jtPixelFormat image+    jpegSubsamp = TJ2.TJSAMP_420

@@ -0,0 +1,36 @@+module JPTest where++import Codec.Picture (DynamicImage(..), convertRGB8, readImageWithMetadata)+import Codec.Picture.JPEGTurbo qualified as JT+import Data.ByteString qualified as B++unit_rgb :: IO ()+unit_rgb = do+  (imgIn, metaIn) <- readImageWithMetadata inFile >>= either error pure+  print (pixelFormat imgIn, metaIn)+  JT.encodeRGB 1 (convertRGB8 imgIn) >>= B.writeFile outFile+  (imgOut, metaOut) <- readImageWithMetadata outFile >>= either error pure+  print (pixelFormat imgOut, metaOut)+  where+    inFile = "../fixtures/lv.png"+    outFile = "../fixtures/lv-out.jpg"++-- TODO: unit_rgba etc+-- TODO: unit_yuv++pixelFormat :: DynamicImage -> String+pixelFormat = \case+  ImageY8 _ -> "Pixel8"+  ImageY16 _ -> "Pixel16"+  ImageY32 _ -> "Pixel32"+  ImageYF _ -> "PixelF"+  ImageYA8 _ -> "PixelYA8"+  ImageYA16 _ -> "PixelYA16"+  ImageRGB8 _ -> "PixelRGB8"+  ImageRGB16 _ -> "PixelRGB16"+  ImageRGBF _ -> "PixelRGBF"+  ImageRGBA8 _ -> "PixelRGBA8"+  ImageRGBA16 _ -> "PixelRGBA16"+  ImageYCbCr8 _ -> "PixelYCbCr8"+  ImageCMYK8 _ -> "PixelCMYK8"+  ImageCMYK16 _ -> "PixelCMYK16"

@@ -0,0 +1,1 @@+{-# OPTIONS_GHC -F -pgmF tasty-discover #-}