Jam_2016_10_10.hs

{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE GADTs #-}

module Jam_2016_10_10 where

import Util

output = toProgram (remix rgba uvN)


rgba :: Vec2 -> Vec4
rgba uv = bw (val uv)
 -- & mix 0.9 (bbF(texture2D channel1) uv)
 & mix 0.1 (bbF(texture2D backBuffer) uv)

bbF :: Optic' (->) Vec2 Vec4
bbF x = x
  & lmap (view norm)
  & lmap (\x -> mix (w_ audio * 1) x (rep 0.05 x))
  & lmap (rot (0.001))

remix :: Optic' (->) Vec2 Vec4
remix f = f
  & rgbF 0.001
  & rmap (hsv (*1.1))

val :: Vec2 -> Vec1
val = len
 & rmap (*(x_ audio))
 & rmap (*10)
 & lmap (^*(sin (beat'/8)))