swizzle-modify

{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleContexts #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Lib where

import Data.SwizzleModify qualified as SwzM
import Data.SwizzleModify.TH

nums :: (Int, Int, Int, Int, Int, Int, Int, Int, Int, Int)
nums = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9)

foo :: (Int, Int, Int, Int, Int, Int, Int, Int, Int, Int)
foo = SwzM.ywv ((* 100), (* 200), (* 300)) nums -- (0, 100, 2, 600, 1200, 5, 6, 7, 8, 9)

bar :: (Int, Int, String, String, Int, Int, Int, Int, Int, Int)
bar = SwzM.zw (show, show) nums -- (0, 1, "2", "3", 4, 5, 6, 7, 8, 9)

swizzleModify "" "ztsq"

baz :: (Int, Int, String, Int, Int, Int, Int, String, Int, Char)
baz = ztsq (show, (* 100), (`replicate` 'c'), const 'q') nums
	-- (0, 1, "2", 3, 4, 5, 600, "ccccccc", 8, 'q')

{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE GeneralizedNewtypeDeriving, DeriveGeneric #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Try.Color where

import GHC.Generics
import Data.SwizzleModify qualified as SwzM
import Data.Swizzle.Class qualified as Swz
import Data.SwizzleSet.Class qualified as SwzS

newtype Alpha = Alpha Double deriving (Show, Num, Fractional)
newtype Red = Red Double deriving (Show, Num, Fractional)
newtype Green = Green Double deriving (Show, Num, Fractional)
newtype Blue = Blue Double deriving (Show, Num, Fractional)

data Argb = Argb Alpha Red Green Blue deriving (Show, Generic)

instance Swz.Swizzle1 Argb where type X Argb = Alpha
instance Swz.Swizzle2 Argb where type Y Argb = Red
instance Swz.Swizzle3 Argb where type Z Argb = Green
instance Swz.Swizzle4 Argb where type W Argb = Blue

instance SwzS.SwizzleSet1 Argb Alpha where type X Argb Alpha = Argb
instance SwzS.SwizzleSet2 Argb Red where type Y Argb Red = Argb
instance SwzS.SwizzleSet3 Argb Green where type Z Argb Green = Argb
instance SwzS.SwizzleSet4 Argb Blue where type W Argb Blue = Argb

sample :: Argb
sample = Argb 0.5 0.2 0.8 0.1

foo :: Argb
foo = SwzM.yw ((* 0.8), (* 0.6)) sample
	-- Argb (Alpha 0.5) (Red 0.16) (Green 0.8) (Blue 0.06)

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleContexts #-}

module Try.Prefix where

import Data.SwizzleModify.TH

swizzleModify "modify" "wvtrq"

foo :: (Int, Int, Int, Int, Int, Int, String, Int, String, Char)
foo = modifyWvtrq ((* 100), (* 200), show, (`replicate` 'c'), const 'q')
	(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
	-- (0, 1, 2, 300, 800, 5, "6", 7, "cccccccc", 'q')