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

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

module Geomancy.Swizzle.IVec.Shuffle () where

import GHC.Records (HasField(..))

import Geomancy.IVec2 (IVec2, ivec2, withIVec2)
import Geomancy.IVec3 (IVec3, ivec3, withIVec3)
import Geomancy.IVec4 (IVec4, ivec4, withIVec4)

instance HasField "xx" IVec2 IVec2 where
  {-# INLINE getField #-}
  getField v = withIVec2 v \x _ -> ivec2 x x

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

instance HasField "yx" IVec2 IVec2 where
  {-# INLINE getField #-}
  getField v = withIVec2 v \x y -> ivec2 y x

instance HasField "yy" IVec2 IVec2 where
  {-# INLINE getField #-}
  getField v = withIVec2 v \_ y -> ivec2 y y

instance HasField "xxx" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x _ _ -> ivec3 x x x

instance HasField "xxy" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y _ -> ivec3 x x y

instance HasField "xxz" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x _ z -> ivec3 x x z

instance HasField "xyx" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y _ -> ivec3 x y x

instance HasField "xyy" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y _ -> ivec3 x y y

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

instance HasField "xzx" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x _ z -> ivec3 x z x

instance HasField "xzy" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y z -> ivec3 x z y

instance HasField "xzz" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x _ z -> ivec3 x z z

instance HasField "yxx" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y _ -> ivec3 y x x

instance HasField "yxy" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y _ -> ivec3 y x y

instance HasField "yxz" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y z -> ivec3 y x z

instance HasField "yyx" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y _ -> ivec3 y y x

instance HasField "yyy" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \_ y _ -> ivec3 y y y

instance HasField "yyz" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \_ y z -> ivec3 y y z

instance HasField "yzx" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y z -> ivec3 y z x

instance HasField "yzy" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \_ y z -> ivec3 y z y

instance HasField "yzz" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \_ y z -> ivec3 y z z

instance HasField "zxx" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x _ z -> ivec3 z x x

instance HasField "zxy" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y z -> ivec3 z x y

instance HasField "zxz" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x _ z -> ivec3 z x z

instance HasField "zyx" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x y z -> ivec3 z y x

instance HasField "zyy" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \_ y z -> ivec3 z y y

instance HasField "zyz" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \_ y z -> ivec3 z y z

instance HasField "zzx" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \x _ z -> ivec3 z z x

instance HasField "zzy" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \_ y z -> ivec3 z z y

instance HasField "zzz" IVec3 IVec3 where
  {-# INLINE getField #-}
  getField v = withIVec3 v \_ _ z -> ivec3 z z z

instance HasField "xxxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ _ -> ivec4 x x x x

instance HasField "xxxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 x x x y

instance HasField "xxxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 x x x z

instance HasField "xxxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 x x x w

instance HasField "xxyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 x x y x

instance HasField "xxyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 x x y y

instance HasField "xxyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x x y z

instance HasField "xxyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x x y w

instance HasField "xxzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 x x z x

instance HasField "xxzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x x z y

instance HasField "xxzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 x x z z

instance HasField "xxzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x x z w

instance HasField "xxwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 x x w x

instance HasField "xxwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x x w y

instance HasField "xxwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x x w z

instance HasField "xxww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 x x w w

instance HasField "xyxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 x y x x

instance HasField "xyxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 x y x y

instance HasField "xyxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x y x z

instance HasField "xyxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x y x w

instance HasField "xyyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 x y y x

instance HasField "xyyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 x y y y

instance HasField "xyyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x y y z

instance HasField "xyyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x y y w

instance HasField "xyzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x y z x

instance HasField "xyzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x y z y

instance HasField "xyzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x y z z

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

instance HasField "xywx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x y w x

instance HasField "xywy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x y w y

instance HasField "xywz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 x y w z

instance HasField "xyww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x y w w

instance HasField "xzxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 x z x x

instance HasField "xzxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x z x y

instance HasField "xzxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 x z x z

instance HasField "xzxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x z x w

instance HasField "xzyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x z y x

instance HasField "xzyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x z y y

instance HasField "xzyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x z y z

instance HasField "xzyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 x z y w

instance HasField "xzzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 x z z x

instance HasField "xzzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 x z z y

instance HasField "xzzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 x z z z

instance HasField "xzzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x z z w

instance HasField "xzwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x z w x

instance HasField "xzwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 x z w y

instance HasField "xzwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x z w z

instance HasField "xzww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x z w w

instance HasField "xwxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 x w x x

instance HasField "xwxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x w x y

instance HasField "xwxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x w x z

instance HasField "xwxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 x w x w

instance HasField "xwyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x w y x

instance HasField "xwyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x w y y

instance HasField "xwyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 x w y z

instance HasField "xwyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x w y w

instance HasField "xwzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x w z x

instance HasField "xwzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 x w z y

instance HasField "xwzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x w z z

instance HasField "xwzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x w z w

instance HasField "xwwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 x w w x

instance HasField "xwwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 x w w y

instance HasField "xwwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 x w w z

instance HasField "xwww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 x w w w

instance HasField "yxxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 y x x x

instance HasField "yxxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 y x x y

instance HasField "yxxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y x x z

instance HasField "yxxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y x x w

instance HasField "yxyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 y x y x

instance HasField "yxyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 y x y y

instance HasField "yxyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y x y z

instance HasField "yxyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y x y w

instance HasField "yxzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y x z x

instance HasField "yxzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y x z y

instance HasField "yxzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y x z z

instance HasField "yxzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 y x z w

instance HasField "yxwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y x w x

instance HasField "yxwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y x w y

instance HasField "yxwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 y x w z

instance HasField "yxww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y x w w

instance HasField "yyxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 y y x x

instance HasField "yyxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 y y x y

instance HasField "yyxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y y x z

instance HasField "yyxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y y x w

instance HasField "yyyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ _ -> ivec4 y y y x

instance HasField "yyyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ _ -> ivec4 y y y y

instance HasField "yyyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 y y y z

instance HasField "yyyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 y y y w

instance HasField "yyzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y y z x

instance HasField "yyzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 y y z y

instance HasField "yyzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 y y z z

instance HasField "yyzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y y z w

instance HasField "yywx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y y w x

instance HasField "yywy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 y y w y

instance HasField "yywz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y y w z

instance HasField "yyww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 y y w w

instance HasField "yzxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y z x x

instance HasField "yzxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y z x y

instance HasField "yzxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y z x z

instance HasField "yzxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 y z x w

instance HasField "yzyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y z y x

instance HasField "yzyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 y z y y

instance HasField "yzyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 y z y z

instance HasField "yzyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y z y w

instance HasField "yzzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 y z z x

instance HasField "yzzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 y z z y

instance HasField "yzzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 y z z z

instance HasField "yzzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y z z w

instance HasField "yzwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 y z w x

instance HasField "yzwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y z w y

instance HasField "yzwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y z w z

instance HasField "yzww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y z w w

instance HasField "ywxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y w x x

instance HasField "ywxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y w x y

instance HasField "ywxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 y w x z

instance HasField "ywxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y w x w

instance HasField "ywyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y w y x

instance HasField "ywyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 y w y y

instance HasField "ywyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y w y z

instance HasField "ywyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 y w y w

instance HasField "ywzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 y w z x

instance HasField "ywzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y w z y

instance HasField "ywzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y w z z

instance HasField "ywzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y w z w

instance HasField "ywwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 y w w x

instance HasField "ywwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 y w w y

instance HasField "ywwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 y w w z

instance HasField "ywww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 y w w w

instance HasField "zxxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 z x x x

instance HasField "zxxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z x x y

instance HasField "zxxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 z x x z

instance HasField "zxxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z x x w

instance HasField "zxyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z x y x

instance HasField "zxyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z x y y

instance HasField "zxyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z x y z

instance HasField "zxyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 z x y w

instance HasField "zxzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 z x z x

instance HasField "zxzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z x z y

instance HasField "zxzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 z x z z

instance HasField "zxzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z x z w

instance HasField "zxwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z x w x

instance HasField "zxwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 z x w y

instance HasField "zxwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z x w z

instance HasField "zxww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z x w w

instance HasField "zyxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z y x x

instance HasField "zyxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z y x y

instance HasField "zyxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z y x z

instance HasField "zyxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 z y x w

instance HasField "zyyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z y y x

instance HasField "zyyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 z y y y

instance HasField "zyyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 z y y z

instance HasField "zyyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z y y w

instance HasField "zyzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z y z x

instance HasField "zyzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 z y z y

instance HasField "zyzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 z y z z

instance HasField "zyzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z y z w

instance HasField "zywx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 z y w x

instance HasField "zywy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z y w y

instance HasField "zywz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z y w z

instance HasField "zyww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z y w w

instance HasField "zzxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 z z x x

instance HasField "zzxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z z x y

instance HasField "zzxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 z z x z

instance HasField "zzxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z z x w

instance HasField "zzyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z _ -> ivec4 z z y x

instance HasField "zzyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 z z y y

instance HasField "zzyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 z z y z

instance HasField "zzyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z z y w

instance HasField "zzzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z _ -> ivec4 z z z x

instance HasField "zzzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z _ -> ivec4 z z z y

instance HasField "zzzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z _ -> ivec4 z z z z

instance HasField "zzzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 z z z w

instance HasField "zzwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z z w x

instance HasField "zzwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z z w y

instance HasField "zzwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 z z w z

instance HasField "zzww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 z z w w

instance HasField "zwxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z w x x

instance HasField "zwxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 z w x y

instance HasField "zwxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z w x z

instance HasField "zwxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z w x w

instance HasField "zwyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 z w y x

instance HasField "zwyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z w y y

instance HasField "zwyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z w y z

instance HasField "zwyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z w y w

instance HasField "zwzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z w z x

instance HasField "zwzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z w z y

instance HasField "zwzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 z w z z

instance HasField "zwzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 z w z w

instance HasField "zwwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 z w w x

instance HasField "zwwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 z w w y

instance HasField "zwwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 z w w z

instance HasField "zwww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 z w w w

instance HasField "wxxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 w x x x

instance HasField "wxxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w x x y

instance HasField "wxxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w x x z

instance HasField "wxxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 w x x w

instance HasField "wxyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w x y x

instance HasField "wxyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w x y y

instance HasField "wxyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 w x y z

instance HasField "wxyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w x y w

instance HasField "wxzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w x z x

instance HasField "wxzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 w x z y

instance HasField "wxzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w x z z

instance HasField "wxzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w x z w

instance HasField "wxwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 w x w x

instance HasField "wxwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w x w y

instance HasField "wxwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w x w z

instance HasField "wxww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 w x w w

instance HasField "wyxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w y x x

instance HasField "wyxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w y x y

instance HasField "wyxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 w y x z

instance HasField "wyxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w y x w

instance HasField "wyyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w y y x

instance HasField "wyyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 w y y y

instance HasField "wyyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w y y z

instance HasField "wyyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 w y y w

instance HasField "wyzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 w y z x

instance HasField "wyzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w y z y

instance HasField "wyzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w y z z

instance HasField "wyzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w y z w

instance HasField "wywx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w y w x

instance HasField "wywy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 w y w y

instance HasField "wywz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w y w z

instance HasField "wyww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 w y w w

instance HasField "wzxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w z x x

instance HasField "wzxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 w z x y

instance HasField "wzxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w z x z

instance HasField "wzxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w z x w

instance HasField "wzyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y z w -> ivec4 w z y x

instance HasField "wzyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w z y y

instance HasField "wzyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w z y z

instance HasField "wzyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w z y w

instance HasField "wzzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w z z x

instance HasField "wzzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w z z y

instance HasField "wzzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 w z z z

instance HasField "wzzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 w z z w

instance HasField "wzwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w z w x

instance HasField "wzwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w z w y

instance HasField "wzwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 w z w z

instance HasField "wzww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 w z w w

instance HasField "wwxx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 w w x x

instance HasField "wwxy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w w x y

instance HasField "wwxz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w w x z

instance HasField "wwxw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 w w x w

instance HasField "wwyx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x y _ w -> ivec4 w w y x

instance HasField "wwyy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 w w y y

instance HasField "wwyz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w w y z

instance HasField "wwyw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 w w y w

instance HasField "wwzx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ z w -> ivec4 w w z x

instance HasField "wwzy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y z w -> ivec4 w w z y

instance HasField "wwzz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 w w z z

instance HasField "wwzw" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 w w z w

instance HasField "wwwx" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \x _ _ w -> ivec4 w w w x

instance HasField "wwwy" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ y _ w -> ivec4 w w w y

instance HasField "wwwz" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ z w -> ivec4 w w w z

instance HasField "wwww" IVec4 IVec4 where
  {-# INLINE getField #-}
  getField v = withIVec4 v \_ _ _ w -> ivec4 w w w w