シンセカイリアル20251205のコード

synthkai20251205.hs

-- シンセカイリアル20251205
-- audio: ZOOM L6
-- midi1: volca keys

setcps(135/240)

let ptn = "{g g d g g e g g d g g c g g d g d g d}%16"

let bdshp = 0.4
-- ------------------------------------------------------

-- sound check
do
  resetCycles
  d1 $ s "bd*4" # gain 0.8 # shape (bdshp)
  d2 $ s "[~ midi1]*4" # n "c a f e"
  d3 silence
  d4 silence
  d9 silence
  once $ ccn 40 # ccv 0 # s "midi1"

panic

---------------------------------------------------------------
-- start
do
  resetCycles
  d1 $ s "bd*4" # gain 0.8 # shape (bdshp)
  d2 $ s "midi1(7,16)" # n ptn
  d3 silence
  d4 silence
  d9 silence
  once $ ccn 40 # ccv 0 # s "midi1"

d3 $ s "supersaw(7,16)" # n (ptn -36)
   # lpf 1500 # resonance 0.2 # gain 0.85

-- end
do
  d1 $ s "bd*4" # gain 0.8 # shape (bdshp)
  d2 $ s "midi1(7,16)" # n ptn
  d3 silence
  d4 silence
  d9 silence
  once $ ccn 40 # ccv 0 # s "midi1"


-- main
do
  d1 
    $ every 8 (jux(fast 0.5)) 
    $ every 16 (fast 2)
    $ stack[
    s "bd bd bd <bd bd bd [bd bd]>" # gain 0.9 # shape (bdshp),
    s "[~ sd]*2" # gain 0.85,
    s "[hc*8]" # gain "[0.7 0.55 0.65 0.55]"
    ]
  d2 $ seqPLoop [
    (0, 4, s "midi1(7,16)"   # n (ptn + 0)) ,
    (4, 16, s "midi1(11,16)" # n (ptn + 0)) 
   ]
   # midichan 0 
  d3 $ seqPLoop [
    (0, 4, s "supersaw(7,16)" # n (ptn - 36) ) ,
    (4, 16, s "supersaw(11,16)" # n (ptn - 36 )) 
   ]
   # lpf 1500 # resonance 0.2
--   # lpf ((fast 0.5 sine) * 8000 + 100) # resonance (0.25 + (fast 8 sine) * 0.5)
   # sustain 0.095
   # gain 0.85

d4 silence

-- Volca Keys VCF Cutoff 
d9 $ ccn 44 # ccv (range 80 120 $ slow 16 sine) # s "midi1"

do 
  d9 silence
  once $ ccn 44 # ccv 60 # s "midi1"

do
  d4 $ every 1 ( (1/16) <~)$ seqPLoop [
--  d4 $ seqPLoop [
    (0, 4, s "midi1(7,16,0)"   # n (ptn +12)) ,
    (4, 16, s "midi1(11,16,0)" # n (ptn +12)) 
    ]
   # midichan 0 
   # gain 1


-- Volca Keys Voice UnisonRing 
once $ ccn 40 # ccv 106 # s "midi1"

-- Volca Keys Voice PolyRing 
once $ ccn 40 # ccv 113 # s "midi1"

-- Volca Keys Voice Poly 
once $ ccn 40 # ccv 0 # s "midi1"