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

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

module Geomancy.Swizzle.Vec.Shuffle () where

import GHC.Records (HasField(..))

import Geomancy.Vec2 (Vec2, vec2, withVec2)
import Geomancy.Vec3 (Vec3, vec3, withVec3)
import Geomancy.Vec4 (Vec4, vec4, withVec4)

instance HasField "xx" Vec2 Vec2 where
  {-# INLINE getField #-}
  getField v = withVec2 v \x _ -> vec2 x x

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

instance HasField "yx" Vec2 Vec2 where
  {-# INLINE getField #-}
  getField v = withVec2 v \x y -> vec2 y x

instance HasField "yy" Vec2 Vec2 where
  {-# INLINE getField #-}
  getField v = withVec2 v \_ y -> vec2 y y

instance HasField "xxx" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x _ _ -> vec3 x x x

instance HasField "xxy" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y _ -> vec3 x x y

instance HasField "xxz" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x _ z -> vec3 x x z

instance HasField "xyx" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y _ -> vec3 x y x

instance HasField "xyy" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y _ -> vec3 x y y

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

instance HasField "xzx" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x _ z -> vec3 x z x

instance HasField "xzy" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y z -> vec3 x z y

instance HasField "xzz" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x _ z -> vec3 x z z

instance HasField "yxx" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y _ -> vec3 y x x

instance HasField "yxy" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y _ -> vec3 y x y

instance HasField "yxz" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y z -> vec3 y x z

instance HasField "yyx" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y _ -> vec3 y y x

instance HasField "yyy" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \_ y _ -> vec3 y y y

instance HasField "yyz" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \_ y z -> vec3 y y z

instance HasField "yzx" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y z -> vec3 y z x

instance HasField "yzy" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \_ y z -> vec3 y z y

instance HasField "yzz" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \_ y z -> vec3 y z z

instance HasField "zxx" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x _ z -> vec3 z x x

instance HasField "zxy" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y z -> vec3 z x y

instance HasField "zxz" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x _ z -> vec3 z x z

instance HasField "zyx" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x y z -> vec3 z y x

instance HasField "zyy" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \_ y z -> vec3 z y y

instance HasField "zyz" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \_ y z -> vec3 z y z

instance HasField "zzx" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \x _ z -> vec3 z z x

instance HasField "zzy" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \_ y z -> vec3 z z y

instance HasField "zzz" Vec3 Vec3 where
  {-# INLINE getField #-}
  getField v = withVec3 v \_ _ z -> vec3 z z z

instance HasField "xxxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ _ -> vec4 x x x x

instance HasField "xxxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 x x x y

instance HasField "xxxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 x x x z

instance HasField "xxxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 x x x w

instance HasField "xxyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 x x y x

instance HasField "xxyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 x x y y

instance HasField "xxyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x x y z

instance HasField "xxyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x x y w

instance HasField "xxzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 x x z x

instance HasField "xxzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x x z y

instance HasField "xxzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 x x z z

instance HasField "xxzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x x z w

instance HasField "xxwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 x x w x

instance HasField "xxwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x x w y

instance HasField "xxwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x x w z

instance HasField "xxww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 x x w w

instance HasField "xyxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 x y x x

instance HasField "xyxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 x y x y

instance HasField "xyxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x y x z

instance HasField "xyxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x y x w

instance HasField "xyyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 x y y x

instance HasField "xyyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 x y y y

instance HasField "xyyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x y y z

instance HasField "xyyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x y y w

instance HasField "xyzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x y z x

instance HasField "xyzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x y z y

instance HasField "xyzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x y z z

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

instance HasField "xywx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x y w x

instance HasField "xywy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x y w y

instance HasField "xywz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 x y w z

instance HasField "xyww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x y w w

instance HasField "xzxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 x z x x

instance HasField "xzxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x z x y

instance HasField "xzxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 x z x z

instance HasField "xzxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x z x w

instance HasField "xzyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x z y x

instance HasField "xzyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x z y y

instance HasField "xzyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x z y z

instance HasField "xzyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 x z y w

instance HasField "xzzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 x z z x

instance HasField "xzzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 x z z y

instance HasField "xzzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 x z z z

instance HasField "xzzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x z z w

instance HasField "xzwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x z w x

instance HasField "xzwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 x z w y

instance HasField "xzwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x z w z

instance HasField "xzww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x z w w

instance HasField "xwxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 x w x x

instance HasField "xwxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x w x y

instance HasField "xwxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x w x z

instance HasField "xwxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 x w x w

instance HasField "xwyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x w y x

instance HasField "xwyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x w y y

instance HasField "xwyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 x w y z

instance HasField "xwyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x w y w

instance HasField "xwzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x w z x

instance HasField "xwzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 x w z y

instance HasField "xwzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x w z z

instance HasField "xwzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x w z w

instance HasField "xwwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 x w w x

instance HasField "xwwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 x w w y

instance HasField "xwwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 x w w z

instance HasField "xwww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 x w w w

instance HasField "yxxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 y x x x

instance HasField "yxxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 y x x y

instance HasField "yxxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y x x z

instance HasField "yxxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y x x w

instance HasField "yxyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 y x y x

instance HasField "yxyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 y x y y

instance HasField "yxyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y x y z

instance HasField "yxyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y x y w

instance HasField "yxzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y x z x

instance HasField "yxzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y x z y

instance HasField "yxzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y x z z

instance HasField "yxzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 y x z w

instance HasField "yxwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y x w x

instance HasField "yxwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y x w y

instance HasField "yxwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 y x w z

instance HasField "yxww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y x w w

instance HasField "yyxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 y y x x

instance HasField "yyxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 y y x y

instance HasField "yyxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y y x z

instance HasField "yyxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y y x w

instance HasField "yyyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ _ -> vec4 y y y x

instance HasField "yyyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ _ -> vec4 y y y y

instance HasField "yyyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 y y y z

instance HasField "yyyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 y y y w

instance HasField "yyzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y y z x

instance HasField "yyzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 y y z y

instance HasField "yyzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 y y z z

instance HasField "yyzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y y z w

instance HasField "yywx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y y w x

instance HasField "yywy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 y y w y

instance HasField "yywz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y y w z

instance HasField "yyww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 y y w w

instance HasField "yzxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y z x x

instance HasField "yzxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y z x y

instance HasField "yzxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y z x z

instance HasField "yzxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 y z x w

instance HasField "yzyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y z y x

instance HasField "yzyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 y z y y

instance HasField "yzyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 y z y z

instance HasField "yzyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y z y w

instance HasField "yzzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 y z z x

instance HasField "yzzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 y z z y

instance HasField "yzzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 y z z z

instance HasField "yzzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y z z w

instance HasField "yzwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 y z w x

instance HasField "yzwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y z w y

instance HasField "yzwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y z w z

instance HasField "yzww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y z w w

instance HasField "ywxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y w x x

instance HasField "ywxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y w x y

instance HasField "ywxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 y w x z

instance HasField "ywxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y w x w

instance HasField "ywyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y w y x

instance HasField "ywyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 y w y y

instance HasField "ywyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y w y z

instance HasField "ywyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 y w y w

instance HasField "ywzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 y w z x

instance HasField "ywzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y w z y

instance HasField "ywzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y w z z

instance HasField "ywzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y w z w

instance HasField "ywwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 y w w x

instance HasField "ywwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 y w w y

instance HasField "ywwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 y w w z

instance HasField "ywww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 y w w w

instance HasField "zxxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 z x x x

instance HasField "zxxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z x x y

instance HasField "zxxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 z x x z

instance HasField "zxxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z x x w

instance HasField "zxyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z x y x

instance HasField "zxyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z x y y

instance HasField "zxyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z x y z

instance HasField "zxyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 z x y w

instance HasField "zxzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 z x z x

instance HasField "zxzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z x z y

instance HasField "zxzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 z x z z

instance HasField "zxzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z x z w

instance HasField "zxwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z x w x

instance HasField "zxwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 z x w y

instance HasField "zxwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z x w z

instance HasField "zxww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z x w w

instance HasField "zyxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z y x x

instance HasField "zyxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z y x y

instance HasField "zyxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z y x z

instance HasField "zyxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 z y x w

instance HasField "zyyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z y y x

instance HasField "zyyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 z y y y

instance HasField "zyyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 z y y z

instance HasField "zyyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z y y w

instance HasField "zyzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z y z x

instance HasField "zyzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 z y z y

instance HasField "zyzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 z y z z

instance HasField "zyzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z y z w

instance HasField "zywx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 z y w x

instance HasField "zywy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z y w y

instance HasField "zywz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z y w z

instance HasField "zyww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z y w w

instance HasField "zzxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 z z x x

instance HasField "zzxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z z x y

instance HasField "zzxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 z z x z

instance HasField "zzxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z z x w

instance HasField "zzyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z _ -> vec4 z z y x

instance HasField "zzyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 z z y y

instance HasField "zzyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 z z y z

instance HasField "zzyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z z y w

instance HasField "zzzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z _ -> vec4 z z z x

instance HasField "zzzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z _ -> vec4 z z z y

instance HasField "zzzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z _ -> vec4 z z z z

instance HasField "zzzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 z z z w

instance HasField "zzwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z z w x

instance HasField "zzwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z z w y

instance HasField "zzwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 z z w z

instance HasField "zzww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 z z w w

instance HasField "zwxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z w x x

instance HasField "zwxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 z w x y

instance HasField "zwxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z w x z

instance HasField "zwxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z w x w

instance HasField "zwyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 z w y x

instance HasField "zwyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z w y y

instance HasField "zwyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z w y z

instance HasField "zwyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z w y w

instance HasField "zwzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z w z x

instance HasField "zwzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z w z y

instance HasField "zwzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 z w z z

instance HasField "zwzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 z w z w

instance HasField "zwwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 z w w x

instance HasField "zwwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 z w w y

instance HasField "zwwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 z w w z

instance HasField "zwww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 z w w w

instance HasField "wxxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 w x x x

instance HasField "wxxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w x x y

instance HasField "wxxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w x x z

instance HasField "wxxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 w x x w

instance HasField "wxyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w x y x

instance HasField "wxyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w x y y

instance HasField "wxyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 w x y z

instance HasField "wxyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w x y w

instance HasField "wxzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w x z x

instance HasField "wxzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 w x z y

instance HasField "wxzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w x z z

instance HasField "wxzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w x z w

instance HasField "wxwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 w x w x

instance HasField "wxwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w x w y

instance HasField "wxwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w x w z

instance HasField "wxww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 w x w w

instance HasField "wyxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w y x x

instance HasField "wyxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w y x y

instance HasField "wyxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 w y x z

instance HasField "wyxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w y x w

instance HasField "wyyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w y y x

instance HasField "wyyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 w y y y

instance HasField "wyyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w y y z

instance HasField "wyyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 w y y w

instance HasField "wyzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 w y z x

instance HasField "wyzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w y z y

instance HasField "wyzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w y z z

instance HasField "wyzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w y z w

instance HasField "wywx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w y w x

instance HasField "wywy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 w y w y

instance HasField "wywz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w y w z

instance HasField "wyww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 w y w w

instance HasField "wzxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w z x x

instance HasField "wzxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 w z x y

instance HasField "wzxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w z x z

instance HasField "wzxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w z x w

instance HasField "wzyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y z w -> vec4 w z y x

instance HasField "wzyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w z y y

instance HasField "wzyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w z y z

instance HasField "wzyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w z y w

instance HasField "wzzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w z z x

instance HasField "wzzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w z z y

instance HasField "wzzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 w z z z

instance HasField "wzzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 w z z w

instance HasField "wzwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w z w x

instance HasField "wzwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w z w y

instance HasField "wzwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 w z w z

instance HasField "wzww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 w z w w

instance HasField "wwxx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 w w x x

instance HasField "wwxy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w w x y

instance HasField "wwxz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w w x z

instance HasField "wwxw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 w w x w

instance HasField "wwyx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x y _ w -> vec4 w w y x

instance HasField "wwyy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 w w y y

instance HasField "wwyz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w w y z

instance HasField "wwyw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 w w y w

instance HasField "wwzx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ z w -> vec4 w w z x

instance HasField "wwzy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y z w -> vec4 w w z y

instance HasField "wwzz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 w w z z

instance HasField "wwzw" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 w w z w

instance HasField "wwwx" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \x _ _ w -> vec4 w w w x

instance HasField "wwwy" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ y _ w -> vec4 w w w y

instance HasField "wwwz" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ z w -> vec4 w w w z

instance HasField "wwww" Vec4 Vec4 where
  {-# INLINE getField #-}
  getField v = withVec4 v \_ _ _ w -> vec4 w w w w