Jam_2016_10_29.hs

{-# LANGUAGE GADTs #-}
module Jam_2016_10_29 where

import Util

output = toProgram $ vec4 (v, v, v, 1) 
  & (+(bbF (texture2D backBuffer) uvN * copy osc7))
bbF x = x
  & lmap (view norm)
  & lmap (*0.99)
  & lmap (rot (pi /2))
  & lmap (+ vec2 (-0.5, 0))
  & lmap (mirrorX)
  & rgbF 0.01
  & rmap (hsv . modY $ (subtract 0.9))
  -- & rmap (hsv . modZ $ (subtract 0.01))
  -- & rmap (hsv . modX $ (+0.3))

v = uvN
  & (persp (osc0 * 100 * (1 - x_ audio)) (osc1 * 100 * w_ audio))
  & (rep 0.1)
  & (^* (len uvN * x_ audio * 100))
  & (+ (sin. less id $ copy time))
  & (rot (less id time))
  & tan
  & (1-)
  & (gate (copy $ x_ audio))
  -- & (negate)
  & x_
  & gate (w_ audio)
  & (1-)
  & clamp 0 1
  & (* y_ audio)
  & (*osc6)