geomancy-0.4.0.0: src/Geomancy/Swizzle/UVec/Shuffle.hs

{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# OPTIONS_GHC -Wno-orphans #-}

module Geomancy.Swizzle.UVec.Shuffle () where

import GHC.Records (HasField(..))

import Geomancy.UVec2 (UVec2, uvec2, withUVec2)
import Geomancy.UVec3 (UVec3, uvec3, withUVec3)
import Geomancy.UVec4 (UVec4, uvec4, withUVec4)

instance HasField "xx" UVec2 UVec2 where
  {-# INLINE getField #-}
  getField v = withUVec2 v \x _ -> uvec2 x x

instance HasField "xy" UVec2 UVec2 where
  {-# INLINE getField #-}
  getField v = v

instance HasField "yx" UVec2 UVec2 where
  {-# INLINE getField #-}
  getField v = withUVec2 v \x y -> uvec2 y x

instance HasField "yy" UVec2 UVec2 where
  {-# INLINE getField #-}
  getField v = withUVec2 v \_ y -> uvec2 y y

instance HasField "xxx" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x _ _ -> uvec3 x x x

instance HasField "xxy" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y _ -> uvec3 x x y

instance HasField "xxz" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x _ z -> uvec3 x x z

instance HasField "xyx" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y _ -> uvec3 x y x

instance HasField "xyy" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y _ -> uvec3 x y y

instance HasField "xyz" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = v

instance HasField "xzx" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x _ z -> uvec3 x z x

instance HasField "xzy" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y z -> uvec3 x z y

instance HasField "xzz" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x _ z -> uvec3 x z z

instance HasField "yxx" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y _ -> uvec3 y x x

instance HasField "yxy" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y _ -> uvec3 y x y

instance HasField "yxz" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y z -> uvec3 y x z

instance HasField "yyx" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y _ -> uvec3 y y x

instance HasField "yyy" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \_ y _ -> uvec3 y y y

instance HasField "yyz" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \_ y z -> uvec3 y y z

instance HasField "yzx" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y z -> uvec3 y z x

instance HasField "yzy" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \_ y z -> uvec3 y z y

instance HasField "yzz" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \_ y z -> uvec3 y z z

instance HasField "zxx" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x _ z -> uvec3 z x x

instance HasField "zxy" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y z -> uvec3 z x y

instance HasField "zxz" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x _ z -> uvec3 z x z

instance HasField "zyx" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x y z -> uvec3 z y x

instance HasField "zyy" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \_ y z -> uvec3 z y y

instance HasField "zyz" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \_ y z -> uvec3 z y z

instance HasField "zzx" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \x _ z -> uvec3 z z x

instance HasField "zzy" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \_ y z -> uvec3 z z y

instance HasField "zzz" UVec3 UVec3 where
  {-# INLINE getField #-}
  getField v = withUVec3 v \_ _ z -> uvec3 z z z

instance HasField "xxxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ _ -> uvec4 x x x x

instance HasField "xxxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 x x x y

instance HasField "xxxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 x x x z

instance HasField "xxxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 x x x w

instance HasField "xxyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 x x y x

instance HasField "xxyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 x x y y

instance HasField "xxyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x x y z

instance HasField "xxyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x x y w

instance HasField "xxzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 x x z x

instance HasField "xxzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x x z y

instance HasField "xxzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 x x z z

instance HasField "xxzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x x z w

instance HasField "xxwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 x x w x

instance HasField "xxwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x x w y

instance HasField "xxwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x x w z

instance HasField "xxww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 x x w w

instance HasField "xyxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 x y x x

instance HasField "xyxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 x y x y

instance HasField "xyxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x y x z

instance HasField "xyxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x y x w

instance HasField "xyyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 x y y x

instance HasField "xyyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 x y y y

instance HasField "xyyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x y y z

instance HasField "xyyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x y y w

instance HasField "xyzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x y z x

instance HasField "xyzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x y z y

instance HasField "xyzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x y z z

instance HasField "xyzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = v

instance HasField "xywx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x y w x

instance HasField "xywy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x y w y

instance HasField "xywz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 x y w z

instance HasField "xyww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x y w w

instance HasField "xzxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 x z x x

instance HasField "xzxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x z x y

instance HasField "xzxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 x z x z

instance HasField "xzxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x z x w

instance HasField "xzyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x z y x

instance HasField "xzyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x z y y

instance HasField "xzyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x z y z

instance HasField "xzyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 x z y w

instance HasField "xzzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 x z z x

instance HasField "xzzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 x z z y

instance HasField "xzzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 x z z z

instance HasField "xzzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x z z w

instance HasField "xzwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x z w x

instance HasField "xzwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 x z w y

instance HasField "xzwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x z w z

instance HasField "xzww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x z w w

instance HasField "xwxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 x w x x

instance HasField "xwxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x w x y

instance HasField "xwxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x w x z

instance HasField "xwxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 x w x w

instance HasField "xwyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x w y x

instance HasField "xwyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x w y y

instance HasField "xwyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 x w y z

instance HasField "xwyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x w y w

instance HasField "xwzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x w z x

instance HasField "xwzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 x w z y

instance HasField "xwzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x w z z

instance HasField "xwzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x w z w

instance HasField "xwwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 x w w x

instance HasField "xwwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 x w w y

instance HasField "xwwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 x w w z

instance HasField "xwww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 x w w w

instance HasField "yxxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 y x x x

instance HasField "yxxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 y x x y

instance HasField "yxxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y x x z

instance HasField "yxxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y x x w

instance HasField "yxyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 y x y x

instance HasField "yxyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 y x y y

instance HasField "yxyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y x y z

instance HasField "yxyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y x y w

instance HasField "yxzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y x z x

instance HasField "yxzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y x z y

instance HasField "yxzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y x z z

instance HasField "yxzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 y x z w

instance HasField "yxwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y x w x

instance HasField "yxwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y x w y

instance HasField "yxwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 y x w z

instance HasField "yxww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y x w w

instance HasField "yyxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 y y x x

instance HasField "yyxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 y y x y

instance HasField "yyxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y y x z

instance HasField "yyxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y y x w

instance HasField "yyyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ _ -> uvec4 y y y x

instance HasField "yyyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ _ -> uvec4 y y y y

instance HasField "yyyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 y y y z

instance HasField "yyyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 y y y w

instance HasField "yyzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y y z x

instance HasField "yyzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 y y z y

instance HasField "yyzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 y y z z

instance HasField "yyzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y y z w

instance HasField "yywx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y y w x

instance HasField "yywy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 y y w y

instance HasField "yywz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y y w z

instance HasField "yyww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 y y w w

instance HasField "yzxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y z x x

instance HasField "yzxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y z x y

instance HasField "yzxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y z x z

instance HasField "yzxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 y z x w

instance HasField "yzyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y z y x

instance HasField "yzyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 y z y y

instance HasField "yzyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 y z y z

instance HasField "yzyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y z y w

instance HasField "yzzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 y z z x

instance HasField "yzzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 y z z y

instance HasField "yzzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 y z z z

instance HasField "yzzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y z z w

instance HasField "yzwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 y z w x

instance HasField "yzwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y z w y

instance HasField "yzwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y z w z

instance HasField "yzww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y z w w

instance HasField "ywxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y w x x

instance HasField "ywxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y w x y

instance HasField "ywxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 y w x z

instance HasField "ywxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y w x w

instance HasField "ywyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y w y x

instance HasField "ywyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 y w y y

instance HasField "ywyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y w y z

instance HasField "ywyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 y w y w

instance HasField "ywzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 y w z x

instance HasField "ywzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y w z y

instance HasField "ywzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y w z z

instance HasField "ywzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y w z w

instance HasField "ywwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 y w w x

instance HasField "ywwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 y w w y

instance HasField "ywwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 y w w z

instance HasField "ywww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 y w w w

instance HasField "zxxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 z x x x

instance HasField "zxxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z x x y

instance HasField "zxxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 z x x z

instance HasField "zxxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z x x w

instance HasField "zxyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z x y x

instance HasField "zxyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z x y y

instance HasField "zxyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z x y z

instance HasField "zxyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 z x y w

instance HasField "zxzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 z x z x

instance HasField "zxzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z x z y

instance HasField "zxzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 z x z z

instance HasField "zxzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z x z w

instance HasField "zxwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z x w x

instance HasField "zxwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 z x w y

instance HasField "zxwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z x w z

instance HasField "zxww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z x w w

instance HasField "zyxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z y x x

instance HasField "zyxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z y x y

instance HasField "zyxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z y x z

instance HasField "zyxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 z y x w

instance HasField "zyyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z y y x

instance HasField "zyyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 z y y y

instance HasField "zyyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 z y y z

instance HasField "zyyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z y y w

instance HasField "zyzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z y z x

instance HasField "zyzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 z y z y

instance HasField "zyzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 z y z z

instance HasField "zyzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z y z w

instance HasField "zywx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 z y w x

instance HasField "zywy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z y w y

instance HasField "zywz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z y w z

instance HasField "zyww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z y w w

instance HasField "zzxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 z z x x

instance HasField "zzxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z z x y

instance HasField "zzxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 z z x z

instance HasField "zzxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z z x w

instance HasField "zzyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z _ -> uvec4 z z y x

instance HasField "zzyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 z z y y

instance HasField "zzyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 z z y z

instance HasField "zzyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z z y w

instance HasField "zzzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z _ -> uvec4 z z z x

instance HasField "zzzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z _ -> uvec4 z z z y

instance HasField "zzzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z _ -> uvec4 z z z z

instance HasField "zzzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 z z z w

instance HasField "zzwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z z w x

instance HasField "zzwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z z w y

instance HasField "zzwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 z z w z

instance HasField "zzww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 z z w w

instance HasField "zwxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z w x x

instance HasField "zwxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 z w x y

instance HasField "zwxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z w x z

instance HasField "zwxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z w x w

instance HasField "zwyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 z w y x

instance HasField "zwyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z w y y

instance HasField "zwyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z w y z

instance HasField "zwyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z w y w

instance HasField "zwzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z w z x

instance HasField "zwzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z w z y

instance HasField "zwzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 z w z z

instance HasField "zwzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 z w z w

instance HasField "zwwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 z w w x

instance HasField "zwwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 z w w y

instance HasField "zwwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 z w w z

instance HasField "zwww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 z w w w

instance HasField "wxxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 w x x x

instance HasField "wxxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w x x y

instance HasField "wxxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w x x z

instance HasField "wxxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 w x x w

instance HasField "wxyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w x y x

instance HasField "wxyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w x y y

instance HasField "wxyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 w x y z

instance HasField "wxyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w x y w

instance HasField "wxzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w x z x

instance HasField "wxzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 w x z y

instance HasField "wxzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w x z z

instance HasField "wxzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w x z w

instance HasField "wxwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 w x w x

instance HasField "wxwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w x w y

instance HasField "wxwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w x w z

instance HasField "wxww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 w x w w

instance HasField "wyxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w y x x

instance HasField "wyxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w y x y

instance HasField "wyxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 w y x z

instance HasField "wyxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w y x w

instance HasField "wyyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w y y x

instance HasField "wyyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 w y y y

instance HasField "wyyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w y y z

instance HasField "wyyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 w y y w

instance HasField "wyzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 w y z x

instance HasField "wyzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w y z y

instance HasField "wyzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w y z z

instance HasField "wyzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w y z w

instance HasField "wywx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w y w x

instance HasField "wywy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 w y w y

instance HasField "wywz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w y w z

instance HasField "wyww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 w y w w

instance HasField "wzxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w z x x

instance HasField "wzxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 w z x y

instance HasField "wzxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w z x z

instance HasField "wzxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w z x w

instance HasField "wzyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y z w -> uvec4 w z y x

instance HasField "wzyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w z y y

instance HasField "wzyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w z y z

instance HasField "wzyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w z y w

instance HasField "wzzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w z z x

instance HasField "wzzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w z z y

instance HasField "wzzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 w z z z

instance HasField "wzzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 w z z w

instance HasField "wzwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w z w x

instance HasField "wzwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w z w y

instance HasField "wzwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 w z w z

instance HasField "wzww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 w z w w

instance HasField "wwxx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 w w x x

instance HasField "wwxy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w w x y

instance HasField "wwxz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w w x z

instance HasField "wwxw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 w w x w

instance HasField "wwyx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x y _ w -> uvec4 w w y x

instance HasField "wwyy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 w w y y

instance HasField "wwyz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w w y z

instance HasField "wwyw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 w w y w

instance HasField "wwzx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ z w -> uvec4 w w z x

instance HasField "wwzy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y z w -> uvec4 w w z y

instance HasField "wwzz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 w w z z

instance HasField "wwzw" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 w w z w

instance HasField "wwwx" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \x _ _ w -> uvec4 w w w x

instance HasField "wwwy" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ y _ w -> uvec4 w w w y

instance HasField "wwwz" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ z w -> uvec4 w w w z

instance HasField "wwww" UVec4 UVec4 where
  {-# INLINE getField #-}
  getField v = withUVec4 v \_ _ _ w -> uvec4 w w w w