module Codec.Ktx2
  ( Ktx2(..)
  ) where

import Codec.Ktx.KeyValue (KeyValueData)
import Codec.Ktx2.DFD qualified as DFD
import Codec.Ktx2.Header (Header)
import Data.ByteString (ByteString)
import Data.Vector (Vector)
import Data.Word (Word64)
import GHC.Generics (Generic)

{- | Shared wrapper for reading and writing files.

When uploading textures to GPU prefer reading only the needed chunks and using direct transfers.
-}
data Ktx2 = Ktx2
  { Ktx2 -> Header
header :: Header
  , Ktx2 -> Vector Block
dfdBlocks :: Vector DFD.Block
  , Ktx2 -> KeyValueData
kvd :: KeyValueData
  , Ktx2 -> ByteString
sgd :: ByteString
  , Ktx2 -> [(Maybe Word64, ByteString)]
levels :: [(Maybe Word64, ByteString)]
  }
  deriving (Ktx2 -> Ktx2 -> Bool
(Ktx2 -> Ktx2 -> Bool) -> (Ktx2 -> Ktx2 -> Bool) -> Eq Ktx2
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Ktx2 -> Ktx2 -> Bool
== :: Ktx2 -> Ktx2 -> Bool
$c/= :: Ktx2 -> Ktx2 -> Bool
/= :: Ktx2 -> Ktx2 -> Bool
Eq, Int -> Ktx2 -> ShowS
[Ktx2] -> ShowS
Ktx2 -> String
(Int -> Ktx2 -> ShowS)
-> (Ktx2 -> String) -> ([Ktx2] -> ShowS) -> Show Ktx2
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Ktx2 -> ShowS
showsPrec :: Int -> Ktx2 -> ShowS
$cshow :: Ktx2 -> String
show :: Ktx2 -> String
$cshowList :: [Ktx2] -> ShowS
showList :: [Ktx2] -> ShowS
Show, (forall x. Ktx2 -> Rep Ktx2 x)
-> (forall x. Rep Ktx2 x -> Ktx2) -> Generic Ktx2
forall x. Rep Ktx2 x -> Ktx2
forall x. Ktx2 -> Rep Ktx2 x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. Ktx2 -> Rep Ktx2 x
from :: forall x. Ktx2 -> Rep Ktx2 x
$cto :: forall x. Rep Ktx2 x -> Ktx2
to :: forall x. Rep Ktx2 x -> Ktx2
Generic)