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

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

module Geomancy.Swizzle.DVec.Shuffle () where

import GHC.Records (HasField(..))

import Geomancy.DVec2 (DVec2, dvec2, withDVec2)
import Geomancy.DVec3 (DVec3, dvec3, withDVec3)
import Geomancy.DVec4 (DVec4, dvec4, withDVec4)

instance HasField "xx" DVec2 DVec2 where
  {-# INLINE getField #-}
  getField v = withDVec2 v \x _ -> dvec2 x x

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

instance HasField "yx" DVec2 DVec2 where
  {-# INLINE getField #-}
  getField v = withDVec2 v \x y -> dvec2 y x

instance HasField "yy" DVec2 DVec2 where
  {-# INLINE getField #-}
  getField v = withDVec2 v \_ y -> dvec2 y y

instance HasField "xxx" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x _ _ -> dvec3 x x x

instance HasField "xxy" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y _ -> dvec3 x x y

instance HasField "xxz" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x _ z -> dvec3 x x z

instance HasField "xyx" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y _ -> dvec3 x y x

instance HasField "xyy" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y _ -> dvec3 x y y

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

instance HasField "xzx" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x _ z -> dvec3 x z x

instance HasField "xzy" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y z -> dvec3 x z y

instance HasField "xzz" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x _ z -> dvec3 x z z

instance HasField "yxx" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y _ -> dvec3 y x x

instance HasField "yxy" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y _ -> dvec3 y x y

instance HasField "yxz" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y z -> dvec3 y x z

instance HasField "yyx" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y _ -> dvec3 y y x

instance HasField "yyy" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \_ y _ -> dvec3 y y y

instance HasField "yyz" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \_ y z -> dvec3 y y z

instance HasField "yzx" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y z -> dvec3 y z x

instance HasField "yzy" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \_ y z -> dvec3 y z y

instance HasField "yzz" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \_ y z -> dvec3 y z z

instance HasField "zxx" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x _ z -> dvec3 z x x

instance HasField "zxy" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y z -> dvec3 z x y

instance HasField "zxz" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x _ z -> dvec3 z x z

instance HasField "zyx" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x y z -> dvec3 z y x

instance HasField "zyy" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \_ y z -> dvec3 z y y

instance HasField "zyz" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \_ y z -> dvec3 z y z

instance HasField "zzx" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \x _ z -> dvec3 z z x

instance HasField "zzy" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \_ y z -> dvec3 z z y

instance HasField "zzz" DVec3 DVec3 where
  {-# INLINE getField #-}
  getField v = withDVec3 v \_ _ z -> dvec3 z z z

instance HasField "xxxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ _ -> dvec4 x x x x

instance HasField "xxxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 x x x y

instance HasField "xxxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 x x x z

instance HasField "xxxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 x x x w

instance HasField "xxyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 x x y x

instance HasField "xxyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 x x y y

instance HasField "xxyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x x y z

instance HasField "xxyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x x y w

instance HasField "xxzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 x x z x

instance HasField "xxzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x x z y

instance HasField "xxzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 x x z z

instance HasField "xxzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x x z w

instance HasField "xxwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 x x w x

instance HasField "xxwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x x w y

instance HasField "xxwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x x w z

instance HasField "xxww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 x x w w

instance HasField "xyxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 x y x x

instance HasField "xyxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 x y x y

instance HasField "xyxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x y x z

instance HasField "xyxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x y x w

instance HasField "xyyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 x y y x

instance HasField "xyyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 x y y y

instance HasField "xyyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x y y z

instance HasField "xyyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x y y w

instance HasField "xyzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x y z x

instance HasField "xyzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x y z y

instance HasField "xyzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x y z z

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

instance HasField "xywx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x y w x

instance HasField "xywy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x y w y

instance HasField "xywz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 x y w z

instance HasField "xyww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x y w w

instance HasField "xzxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 x z x x

instance HasField "xzxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x z x y

instance HasField "xzxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 x z x z

instance HasField "xzxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x z x w

instance HasField "xzyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x z y x

instance HasField "xzyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x z y y

instance HasField "xzyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x z y z

instance HasField "xzyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 x z y w

instance HasField "xzzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 x z z x

instance HasField "xzzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 x z z y

instance HasField "xzzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 x z z z

instance HasField "xzzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x z z w

instance HasField "xzwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x z w x

instance HasField "xzwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 x z w y

instance HasField "xzwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x z w z

instance HasField "xzww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x z w w

instance HasField "xwxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 x w x x

instance HasField "xwxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x w x y

instance HasField "xwxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x w x z

instance HasField "xwxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 x w x w

instance HasField "xwyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x w y x

instance HasField "xwyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x w y y

instance HasField "xwyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 x w y z

instance HasField "xwyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x w y w

instance HasField "xwzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x w z x

instance HasField "xwzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 x w z y

instance HasField "xwzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x w z z

instance HasField "xwzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x w z w

instance HasField "xwwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 x w w x

instance HasField "xwwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 x w w y

instance HasField "xwwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 x w w z

instance HasField "xwww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 x w w w

instance HasField "yxxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 y x x x

instance HasField "yxxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 y x x y

instance HasField "yxxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y x x z

instance HasField "yxxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y x x w

instance HasField "yxyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 y x y x

instance HasField "yxyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 y x y y

instance HasField "yxyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y x y z

instance HasField "yxyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y x y w

instance HasField "yxzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y x z x

instance HasField "yxzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y x z y

instance HasField "yxzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y x z z

instance HasField "yxzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 y x z w

instance HasField "yxwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y x w x

instance HasField "yxwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y x w y

instance HasField "yxwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 y x w z

instance HasField "yxww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y x w w

instance HasField "yyxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 y y x x

instance HasField "yyxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 y y x y

instance HasField "yyxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y y x z

instance HasField "yyxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y y x w

instance HasField "yyyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ _ -> dvec4 y y y x

instance HasField "yyyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ _ -> dvec4 y y y y

instance HasField "yyyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 y y y z

instance HasField "yyyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 y y y w

instance HasField "yyzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y y z x

instance HasField "yyzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 y y z y

instance HasField "yyzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 y y z z

instance HasField "yyzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y y z w

instance HasField "yywx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y y w x

instance HasField "yywy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 y y w y

instance HasField "yywz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y y w z

instance HasField "yyww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 y y w w

instance HasField "yzxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y z x x

instance HasField "yzxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y z x y

instance HasField "yzxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y z x z

instance HasField "yzxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 y z x w

instance HasField "yzyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y z y x

instance HasField "yzyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 y z y y

instance HasField "yzyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 y z y z

instance HasField "yzyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y z y w

instance HasField "yzzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 y z z x

instance HasField "yzzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 y z z y

instance HasField "yzzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 y z z z

instance HasField "yzzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y z z w

instance HasField "yzwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 y z w x

instance HasField "yzwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y z w y

instance HasField "yzwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y z w z

instance HasField "yzww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y z w w

instance HasField "ywxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y w x x

instance HasField "ywxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y w x y

instance HasField "ywxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 y w x z

instance HasField "ywxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y w x w

instance HasField "ywyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y w y x

instance HasField "ywyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 y w y y

instance HasField "ywyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y w y z

instance HasField "ywyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 y w y w

instance HasField "ywzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 y w z x

instance HasField "ywzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y w z y

instance HasField "ywzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y w z z

instance HasField "ywzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y w z w

instance HasField "ywwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 y w w x

instance HasField "ywwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 y w w y

instance HasField "ywwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 y w w z

instance HasField "ywww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 y w w w

instance HasField "zxxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 z x x x

instance HasField "zxxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z x x y

instance HasField "zxxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 z x x z

instance HasField "zxxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z x x w

instance HasField "zxyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z x y x

instance HasField "zxyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z x y y

instance HasField "zxyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z x y z

instance HasField "zxyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 z x y w

instance HasField "zxzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 z x z x

instance HasField "zxzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z x z y

instance HasField "zxzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 z x z z

instance HasField "zxzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z x z w

instance HasField "zxwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z x w x

instance HasField "zxwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 z x w y

instance HasField "zxwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z x w z

instance HasField "zxww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z x w w

instance HasField "zyxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z y x x

instance HasField "zyxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z y x y

instance HasField "zyxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z y x z

instance HasField "zyxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 z y x w

instance HasField "zyyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z y y x

instance HasField "zyyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 z y y y

instance HasField "zyyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 z y y z

instance HasField "zyyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z y y w

instance HasField "zyzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z y z x

instance HasField "zyzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 z y z y

instance HasField "zyzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 z y z z

instance HasField "zyzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z y z w

instance HasField "zywx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 z y w x

instance HasField "zywy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z y w y

instance HasField "zywz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z y w z

instance HasField "zyww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z y w w

instance HasField "zzxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 z z x x

instance HasField "zzxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z z x y

instance HasField "zzxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 z z x z

instance HasField "zzxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z z x w

instance HasField "zzyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z _ -> dvec4 z z y x

instance HasField "zzyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 z z y y

instance HasField "zzyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 z z y z

instance HasField "zzyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z z y w

instance HasField "zzzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z _ -> dvec4 z z z x

instance HasField "zzzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z _ -> dvec4 z z z y

instance HasField "zzzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z _ -> dvec4 z z z z

instance HasField "zzzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 z z z w

instance HasField "zzwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z z w x

instance HasField "zzwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z z w y

instance HasField "zzwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 z z w z

instance HasField "zzww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 z z w w

instance HasField "zwxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z w x x

instance HasField "zwxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 z w x y

instance HasField "zwxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z w x z

instance HasField "zwxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z w x w

instance HasField "zwyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 z w y x

instance HasField "zwyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z w y y

instance HasField "zwyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z w y z

instance HasField "zwyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z w y w

instance HasField "zwzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z w z x

instance HasField "zwzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z w z y

instance HasField "zwzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 z w z z

instance HasField "zwzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 z w z w

instance HasField "zwwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 z w w x

instance HasField "zwwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 z w w y

instance HasField "zwwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 z w w z

instance HasField "zwww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 z w w w

instance HasField "wxxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 w x x x

instance HasField "wxxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w x x y

instance HasField "wxxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w x x z

instance HasField "wxxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 w x x w

instance HasField "wxyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w x y x

instance HasField "wxyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w x y y

instance HasField "wxyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 w x y z

instance HasField "wxyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w x y w

instance HasField "wxzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w x z x

instance HasField "wxzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 w x z y

instance HasField "wxzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w x z z

instance HasField "wxzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w x z w

instance HasField "wxwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 w x w x

instance HasField "wxwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w x w y

instance HasField "wxwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w x w z

instance HasField "wxww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 w x w w

instance HasField "wyxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w y x x

instance HasField "wyxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w y x y

instance HasField "wyxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 w y x z

instance HasField "wyxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w y x w

instance HasField "wyyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w y y x

instance HasField "wyyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 w y y y

instance HasField "wyyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w y y z

instance HasField "wyyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 w y y w

instance HasField "wyzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 w y z x

instance HasField "wyzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w y z y

instance HasField "wyzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w y z z

instance HasField "wyzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w y z w

instance HasField "wywx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w y w x

instance HasField "wywy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 w y w y

instance HasField "wywz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w y w z

instance HasField "wyww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 w y w w

instance HasField "wzxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w z x x

instance HasField "wzxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 w z x y

instance HasField "wzxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w z x z

instance HasField "wzxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w z x w

instance HasField "wzyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y z w -> dvec4 w z y x

instance HasField "wzyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w z y y

instance HasField "wzyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w z y z

instance HasField "wzyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w z y w

instance HasField "wzzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w z z x

instance HasField "wzzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w z z y

instance HasField "wzzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 w z z z

instance HasField "wzzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 w z z w

instance HasField "wzwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w z w x

instance HasField "wzwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w z w y

instance HasField "wzwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 w z w z

instance HasField "wzww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 w z w w

instance HasField "wwxx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 w w x x

instance HasField "wwxy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w w x y

instance HasField "wwxz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w w x z

instance HasField "wwxw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 w w x w

instance HasField "wwyx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x y _ w -> dvec4 w w y x

instance HasField "wwyy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 w w y y

instance HasField "wwyz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w w y z

instance HasField "wwyw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 w w y w

instance HasField "wwzx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ z w -> dvec4 w w z x

instance HasField "wwzy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y z w -> dvec4 w w z y

instance HasField "wwzz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 w w z z

instance HasField "wwzw" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 w w z w

instance HasField "wwwx" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \x _ _ w -> dvec4 w w w x

instance HasField "wwwy" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ y _ w -> dvec4 w w w y

instance HasField "wwwz" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ z w -> dvec4 w w w z

instance HasField "wwww" DVec4 DVec4 where
  {-# INLINE getField #-}
  getField v = withDVec4 v \_ _ _ w -> dvec4 w w w w