{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gsk.Objects.RepeatingRadialGradientNode
(
RepeatingRadialGradientNode(..) ,
IsRepeatingRadialGradientNode ,
toRepeatingRadialGradientNode ,
#if defined(ENABLE_OVERLOADING)
ResolveRepeatingRadialGradientNodeMethod,
#endif
repeatingRadialGradientNodeNew ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import {-# SOURCE #-} qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import {-# SOURCE #-} qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
newtype RepeatingRadialGradientNode = RepeatingRadialGradientNode (SP.ManagedPtr RepeatingRadialGradientNode)
deriving (RepeatingRadialGradientNode -> RepeatingRadialGradientNode -> Bool
(RepeatingRadialGradientNode
-> RepeatingRadialGradientNode -> Bool)
-> (RepeatingRadialGradientNode
-> RepeatingRadialGradientNode -> Bool)
-> Eq RepeatingRadialGradientNode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RepeatingRadialGradientNode -> RepeatingRadialGradientNode -> Bool
== :: RepeatingRadialGradientNode -> RepeatingRadialGradientNode -> Bool
$c/= :: RepeatingRadialGradientNode -> RepeatingRadialGradientNode -> Bool
/= :: RepeatingRadialGradientNode -> RepeatingRadialGradientNode -> Bool
Eq)
instance SP.ManagedPtrNewtype RepeatingRadialGradientNode where
toManagedPtr :: RepeatingRadialGradientNode
-> ManagedPtr RepeatingRadialGradientNode
toManagedPtr (RepeatingRadialGradientNode ManagedPtr RepeatingRadialGradientNode
p) = ManagedPtr RepeatingRadialGradientNode
p
foreign import ccall "gsk_repeating_radial_gradient_node_get_type"
c_gsk_repeating_radial_gradient_node_get_type :: IO B.Types.GType
instance B.Types.TypedObject RepeatingRadialGradientNode where
glibType :: IO GType
glibType = IO GType
c_gsk_repeating_radial_gradient_node_get_type
class (SP.BoxedPtr o, SP.TypedObject o, O.IsDescendantOf RepeatingRadialGradientNode o) => IsRepeatingRadialGradientNode o
instance (SP.BoxedPtr o, SP.TypedObject o, O.IsDescendantOf RepeatingRadialGradientNode o) => IsRepeatingRadialGradientNode o
instance O.HasParentTypes RepeatingRadialGradientNode
type instance O.ParentTypes RepeatingRadialGradientNode = '[Gsk.RenderNode.RenderNode]
toRepeatingRadialGradientNode :: (MIO.MonadIO m, IsRepeatingRadialGradientNode o) => o -> m RepeatingRadialGradientNode
toRepeatingRadialGradientNode :: forall (m :: * -> *) o.
(MonadIO m, IsRepeatingRadialGradientNode o) =>
o -> m RepeatingRadialGradientNode
toRepeatingRadialGradientNode = IO RepeatingRadialGradientNode -> m RepeatingRadialGradientNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO RepeatingRadialGradientNode -> m RepeatingRadialGradientNode)
-> (o -> IO RepeatingRadialGradientNode)
-> o
-> m RepeatingRadialGradientNode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr RepeatingRadialGradientNode
-> RepeatingRadialGradientNode)
-> o -> IO RepeatingRadialGradientNode
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr RepeatingRadialGradientNode
-> RepeatingRadialGradientNode
RepeatingRadialGradientNode
#if defined(ENABLE_OVERLOADING)
type family ResolveRepeatingRadialGradientNodeMethod (t :: Symbol) (o :: *) :: * where
ResolveRepeatingRadialGradientNodeMethod "draw" o = Gsk.RenderNode.RenderNodeDrawMethodInfo
ResolveRepeatingRadialGradientNodeMethod "ref" o = Gsk.RenderNode.RenderNodeRefMethodInfo
ResolveRepeatingRadialGradientNodeMethod "serialize" o = Gsk.RenderNode.RenderNodeSerializeMethodInfo
ResolveRepeatingRadialGradientNodeMethod "unref" o = Gsk.RenderNode.RenderNodeUnrefMethodInfo
ResolveRepeatingRadialGradientNodeMethod "writeToFile" o = Gsk.RenderNode.RenderNodeWriteToFileMethodInfo
ResolveRepeatingRadialGradientNodeMethod "getBounds" o = Gsk.RenderNode.RenderNodeGetBoundsMethodInfo
ResolveRepeatingRadialGradientNodeMethod "getNodeType" o = Gsk.RenderNode.RenderNodeGetNodeTypeMethodInfo
ResolveRepeatingRadialGradientNodeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRepeatingRadialGradientNodeMethod t RepeatingRadialGradientNode, O.OverloadedMethod info RepeatingRadialGradientNode p) => OL.IsLabel t (RepeatingRadialGradientNode -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveRepeatingRadialGradientNodeMethod t RepeatingRadialGradientNode, O.OverloadedMethod info RepeatingRadialGradientNode p, R.HasField t RepeatingRadialGradientNode p) => R.HasField t RepeatingRadialGradientNode p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveRepeatingRadialGradientNodeMethod t RepeatingRadialGradientNode, O.OverloadedMethodInfo info RepeatingRadialGradientNode) => OL.IsLabel t (O.MethodProxy info RepeatingRadialGradientNode) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
instance BoxedPtr RepeatingRadialGradientNode where
boxedPtrCopy :: RepeatingRadialGradientNode -> IO RepeatingRadialGradientNode
boxedPtrCopy = RepeatingRadialGradientNode -> IO RepeatingRadialGradientNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return
boxedPtrFree :: RepeatingRadialGradientNode -> IO ()
boxedPtrFree = \RepeatingRadialGradientNode
_x -> () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gsk_repeating_radial_gradient_node_new" gsk_repeating_radial_gradient_node_new ::
Ptr Graphene.Rect.Rect ->
Ptr Graphene.Point.Point ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
Ptr Gsk.ColorStop.ColorStop ->
Word64 ->
IO (Ptr RepeatingRadialGradientNode)
repeatingRadialGradientNodeNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Graphene.Rect.Rect
-> Graphene.Point.Point
-> Float
-> Float
-> Float
-> Float
-> [Gsk.ColorStop.ColorStop]
-> m RepeatingRadialGradientNode
repeatingRadialGradientNodeNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Rect
-> Point
-> Float
-> Float
-> Float
-> Float
-> [ColorStop]
-> m RepeatingRadialGradientNode
repeatingRadialGradientNodeNew Rect
bounds Point
center Float
hradius Float
vradius Float
start Float
end [ColorStop]
colorStops = IO RepeatingRadialGradientNode -> m RepeatingRadialGradientNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RepeatingRadialGradientNode -> m RepeatingRadialGradientNode)
-> IO RepeatingRadialGradientNode -> m RepeatingRadialGradientNode
forall a b. (a -> b) -> a -> b
$ do
let nColorStops :: Word64
nColorStops = Int -> Word64
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word64) -> Int -> Word64
forall a b. (a -> b) -> a -> b
$ [ColorStop] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [ColorStop]
colorStops
Ptr Rect
bounds' <- Rect -> IO (Ptr Rect)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rect
bounds
Ptr Point
center' <- Point -> IO (Ptr Point)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Point
center
let hradius' :: CFloat
hradius' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
hradius
let vradius' :: CFloat
vradius' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
vradius
let start' :: CFloat
start' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
start
let end' :: CFloat
end' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
end
[Ptr ColorStop]
colorStops' <- (ColorStop -> IO (Ptr ColorStop))
-> [ColorStop] -> IO [Ptr ColorStop]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ColorStop -> IO (Ptr ColorStop)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [ColorStop]
colorStops
Ptr ColorStop
colorStops'' <- Int -> [Ptr ColorStop] -> IO (Ptr ColorStop)
forall a. Int -> [Ptr a] -> IO (Ptr a)
packBlockArray Int
20 [Ptr ColorStop]
colorStops'
Ptr RepeatingRadialGradientNode
result <- Ptr Rect
-> Ptr Point
-> CFloat
-> CFloat
-> CFloat
-> CFloat
-> Ptr ColorStop
-> Word64
-> IO (Ptr RepeatingRadialGradientNode)
gsk_repeating_radial_gradient_node_new Ptr Rect
bounds' Ptr Point
center' CFloat
hradius' CFloat
vradius' CFloat
start' CFloat
end' Ptr ColorStop
colorStops'' Word64
nColorStops
Text -> Ptr RepeatingRadialGradientNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"repeatingRadialGradientNodeNew" Ptr RepeatingRadialGradientNode
result
RepeatingRadialGradientNode
result' <- ((ManagedPtr RepeatingRadialGradientNode
-> RepeatingRadialGradientNode)
-> Ptr RepeatingRadialGradientNode
-> IO RepeatingRadialGradientNode
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr RepeatingRadialGradientNode
-> RepeatingRadialGradientNode
RepeatingRadialGradientNode) Ptr RepeatingRadialGradientNode
result
Rect -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rect
bounds
Point -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Point
center
(ColorStop -> IO ()) -> [ColorStop] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ ColorStop -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [ColorStop]
colorStops
Ptr ColorStop -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr ColorStop
colorStops''
RepeatingRadialGradientNode -> IO RepeatingRadialGradientNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RepeatingRadialGradientNode
result'
#if defined(ENABLE_OVERLOADING)
#endif