{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE TypeSynonymInstances #-}

module Data.SpirV.Enum.RayQueryIntersection where

import Data.Word (Word32)
import Foreign.Storable (Storable)

newtype RayQueryIntersection = RayQueryIntersection Word32
  deriving newtype (RayQueryIntersection -> RayQueryIntersection -> Bool
(RayQueryIntersection -> RayQueryIntersection -> Bool)
-> (RayQueryIntersection -> RayQueryIntersection -> Bool)
-> Eq RayQueryIntersection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RayQueryIntersection -> RayQueryIntersection -> Bool
== :: RayQueryIntersection -> RayQueryIntersection -> Bool
$c/= :: RayQueryIntersection -> RayQueryIntersection -> Bool
/= :: RayQueryIntersection -> RayQueryIntersection -> Bool
Eq, Eq RayQueryIntersection
Eq RayQueryIntersection =>
(RayQueryIntersection -> RayQueryIntersection -> Ordering)
-> (RayQueryIntersection -> RayQueryIntersection -> Bool)
-> (RayQueryIntersection -> RayQueryIntersection -> Bool)
-> (RayQueryIntersection -> RayQueryIntersection -> Bool)
-> (RayQueryIntersection -> RayQueryIntersection -> Bool)
-> (RayQueryIntersection
    -> RayQueryIntersection -> RayQueryIntersection)
-> (RayQueryIntersection
    -> RayQueryIntersection -> RayQueryIntersection)
-> Ord RayQueryIntersection
RayQueryIntersection -> RayQueryIntersection -> Bool
RayQueryIntersection -> RayQueryIntersection -> Ordering
RayQueryIntersection
-> RayQueryIntersection -> RayQueryIntersection
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: RayQueryIntersection -> RayQueryIntersection -> Ordering
compare :: RayQueryIntersection -> RayQueryIntersection -> Ordering
$c< :: RayQueryIntersection -> RayQueryIntersection -> Bool
< :: RayQueryIntersection -> RayQueryIntersection -> Bool
$c<= :: RayQueryIntersection -> RayQueryIntersection -> Bool
<= :: RayQueryIntersection -> RayQueryIntersection -> Bool
$c> :: RayQueryIntersection -> RayQueryIntersection -> Bool
> :: RayQueryIntersection -> RayQueryIntersection -> Bool
$c>= :: RayQueryIntersection -> RayQueryIntersection -> Bool
>= :: RayQueryIntersection -> RayQueryIntersection -> Bool
$cmax :: RayQueryIntersection
-> RayQueryIntersection -> RayQueryIntersection
max :: RayQueryIntersection
-> RayQueryIntersection -> RayQueryIntersection
$cmin :: RayQueryIntersection
-> RayQueryIntersection -> RayQueryIntersection
min :: RayQueryIntersection
-> RayQueryIntersection -> RayQueryIntersection
Ord, Ptr RayQueryIntersection -> IO RayQueryIntersection
Ptr RayQueryIntersection -> Int -> IO RayQueryIntersection
Ptr RayQueryIntersection -> Int -> RayQueryIntersection -> IO ()
Ptr RayQueryIntersection -> RayQueryIntersection -> IO ()
RayQueryIntersection -> Int
(RayQueryIntersection -> Int)
-> (RayQueryIntersection -> Int)
-> (Ptr RayQueryIntersection -> Int -> IO RayQueryIntersection)
-> (Ptr RayQueryIntersection
    -> Int -> RayQueryIntersection -> IO ())
-> (forall b. Ptr b -> Int -> IO RayQueryIntersection)
-> (forall b. Ptr b -> Int -> RayQueryIntersection -> IO ())
-> (Ptr RayQueryIntersection -> IO RayQueryIntersection)
-> (Ptr RayQueryIntersection -> RayQueryIntersection -> IO ())
-> Storable RayQueryIntersection
forall b. Ptr b -> Int -> IO RayQueryIntersection
forall b. Ptr b -> Int -> RayQueryIntersection -> IO ()
forall a.
(a -> Int)
-> (a -> Int)
-> (Ptr a -> Int -> IO a)
-> (Ptr a -> Int -> a -> IO ())
-> (forall b. Ptr b -> Int -> IO a)
-> (forall b. Ptr b -> Int -> a -> IO ())
-> (Ptr a -> IO a)
-> (Ptr a -> a -> IO ())
-> Storable a
$csizeOf :: RayQueryIntersection -> Int
sizeOf :: RayQueryIntersection -> Int
$calignment :: RayQueryIntersection -> Int
alignment :: RayQueryIntersection -> Int
$cpeekElemOff :: Ptr RayQueryIntersection -> Int -> IO RayQueryIntersection
peekElemOff :: Ptr RayQueryIntersection -> Int -> IO RayQueryIntersection
$cpokeElemOff :: Ptr RayQueryIntersection -> Int -> RayQueryIntersection -> IO ()
pokeElemOff :: Ptr RayQueryIntersection -> Int -> RayQueryIntersection -> IO ()
$cpeekByteOff :: forall b. Ptr b -> Int -> IO RayQueryIntersection
peekByteOff :: forall b. Ptr b -> Int -> IO RayQueryIntersection
$cpokeByteOff :: forall b. Ptr b -> Int -> RayQueryIntersection -> IO ()
pokeByteOff :: forall b. Ptr b -> Int -> RayQueryIntersection -> IO ()
$cpeek :: Ptr RayQueryIntersection -> IO RayQueryIntersection
peek :: Ptr RayQueryIntersection -> IO RayQueryIntersection
$cpoke :: Ptr RayQueryIntersection -> RayQueryIntersection -> IO ()
poke :: Ptr RayQueryIntersection -> RayQueryIntersection -> IO ()
Storable)

instance Show RayQueryIntersection where
  showsPrec :: Int -> RayQueryIntersection -> ShowS
showsPrec Int
p (RayQueryIntersection Word32
v) = case Word32
v of
    Word32
0 -> String -> ShowS
showString String
"RayQueryCandidateIntersectionKHR"
    Word32
1 -> String -> ShowS
showString String
"RayQueryCommittedIntersectionKHR"
    Word32
x -> Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
> Int
10) (ShowS -> ShowS) -> ShowS -> ShowS
forall a b. (a -> b) -> a -> b
$ String -> ShowS
showString String
"RayQueryIntersection " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec (Int
p Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) Word32
x

pattern RayQueryCandidateIntersectionKHR :: RayQueryIntersection
pattern $mRayQueryCandidateIntersectionKHR :: forall {r}.
RayQueryIntersection -> ((# #) -> r) -> ((# #) -> r) -> r
$bRayQueryCandidateIntersectionKHR :: RayQueryIntersection
RayQueryCandidateIntersectionKHR = RayQueryIntersection 0

pattern RayQueryCommittedIntersectionKHR :: RayQueryIntersection
pattern $mRayQueryCommittedIntersectionKHR :: forall {r}.
RayQueryIntersection -> ((# #) -> r) -> ((# #) -> r) -> r
$bRayQueryCommittedIntersectionKHR :: RayQueryIntersection
RayQueryCommittedIntersectionKHR = RayQueryIntersection 1