Version.hs

module Graphics.Vulkan.Version where

import Data.Bits( shiftR
                , shiftL
                , (.|.)
                , (.&.)
                )

vkApiVersion  = vkMakeVersion 1 0 3
vkVersionMinor version = (.&.) (shiftR version 12) 1023
vkVersionPatch version = (.&.) version 4095
vkMakeVersion major minor patch = (.|.) ((.|.) (shiftL major 22) (shiftL minor 12)) patch
vkVersionMajor version = shiftR version 22