commit
bea9453237
3 changed files with 148 additions and 0 deletions
@ -0,0 +1 @@ |
|||
use nix |
@ -0,0 +1,34 @@ |
|||
{ nixpkgs ? import (fetchTarball https://github.com/NixOS/nixpkgs/archive/19.09.tar.gz) {} }: |
|||
let |
|||
inherit (nixpkgs) pkgs; |
|||
inherit (pkgs) haskellPackages; |
|||
|
|||
hspkgs = haskellPackages.override { |
|||
overrides = self: super: { |
|||
# tidal = pkgs.haskell.lib.overrideCabal super.tidal { |
|||
# version = "1.4.9"; |
|||
# }; |
|||
}; |
|||
}; |
|||
|
|||
haskellDeps = ps: with ps; [ |
|||
base |
|||
protolude |
|||
tidal |
|||
]; |
|||
|
|||
ghc = hspkgs.ghcWithPackages haskellDeps; |
|||
|
|||
nixPackages = [ |
|||
ghc |
|||
pkgs.gdb |
|||
haskellPackages.cabal-install |
|||
]; |
|||
in |
|||
pkgs.stdenv.mkDerivation { |
|||
name = "env"; |
|||
buildInputs = nixPackages; |
|||
shellHook = '' |
|||
export PS1="\n\[[hs:\033[1;32m\]\W\[\033[0m\]]> " |
|||
''; |
|||
} |
@ -0,0 +1,113 @@ |
|||
setcps (120/60/4) |
|||
|
|||
xfade 1 $ sound "<silence silence silence silence silence silence silence [bd bd]>*4" |
|||
# speed 0.8 |
|||
# crush "4" |
|||
# shape 0.7 |
|||
# gain 0.9 |
|||
|
|||
xfade 2 $ sound "bd*4" |
|||
# shape 0.7 |
|||
# freq 300 |
|||
# speed 0.8 |
|||
-- # room 0.2 |
|||
|
|||
|
|||
hush |
|||
|
|||
-- Playground |
|||
|
|||
d1 $ sound "bd sd:1" |
|||
|
|||
d1 $ jux rev $ n (off 0.125 (|+ 7) "<c*2 a(3,8) f(3,8,2) e*2>") |
|||
# sound "supermandolin" |
|||
# legato 2 |
|||
|
|||
d1 $ sound "bd*2 [~ sn:3]" |
|||
|
|||
d1 $ sound "bd*2 [[~ lt] sn:3] lt:1 [ht mt*2]" |
|||
|
|||
d2 $ sound "hh hh hh hh" |
|||
|
|||
d3 $ sound "[bd x [[bd bd] x] x]/2" |
|||
|
|||
d3 $ sound "[bd bd bd [[bd bd] bd]]" |
|||
|
|||
d1 $ sound "[bd sd sd] cp" |
|||
|
|||
d1 $ sound "[bd bd] [sd sd sd sd]" |
|||
|
|||
d1 $ sound "[bd bd bd, sd cp sd cp]" |
|||
|
|||
d1 $ sound "[bd bd bd, [sd sd] cp, arpy [arpy [arpy arpy] arpy arpy], odx]" |
|||
|
|||
d1 $ sound "bd <arpy:1 arpy:2 arpy:3>" |
|||
|
|||
d1 $ sound "bd*2" |
|||
|
|||
d1 $ sound "bd/2" |
|||
|
|||
d1 $ sound "[bd sn]*2 cp" |
|||
|
|||
d1 $ sound "[bd sn] cp/2" |
|||
|
|||
d1 $ sound "[bd sn sn*3]/2 [bd sn*3 bd*4]/3" |
|||
|
|||
d1 $ every 4 (rev) (sound "bd*2 [bd [sn sn*2 sn] sn]") |
|||
|
|||
d1 $ slow 4 $ sound "bd*2 [bd [sn sn*2 sn] sn]" |
|||
|
|||
d1 $ every 4 (fast 4) $ sound "bd*2 [bd [sn sn*2 sn] sn]" |
|||
|
|||
d1 $ sound "bd*4" # crush "4" |
|||
|
|||
d1 $ sound "bd*4" # crush "4" # speed "3" |
|||
|
|||
d1 $ sound "bd*4" # gain "1 0.8 0.5 0.7" |
|||
|
|||
d1 $ sound "bd*4 sn*4" # gain "[[1 0.8]*2 [0.5 0.7]]/2" |
|||
|
|||
d1 $ sound "bd*4" # (every 3 (rev) $ gain "1 0.8 0.5 0.7") |
|||
|
|||
d1 $ every 2 (|> speed "2") $ sound "arpy*4" |> speed "1" |
|||
|
|||
d1 $ every 2 ((|> crush "4") . (|+ speed "1")) $ sound "arpy*4" |> speed "1" |
|||
|
|||
d1 $ every 3 (|- note "3") $ every 2 (|+ up "5") $ sound "bd*4" |> note "0 3 0 5" |> crush "4" |
|||
|
|||
d2 $ sound "arpy*4" |> note "0 -9 1 10" |> crush "6" |
|||
|
|||
|
|||
d3 $ sound "cp(3,8)" |
|||
# cps (slow 8 $ range 0.8 1.6 saw) |
|||
|
|||
d3 $ sound "drum*4" |
|||
# n "1 2 3 4" |
|||
-- # up (every 2 (rev) $ run 16) |
|||
|
|||
|
|||
d3 $ sound "bd sn drum arpy" # pan "0 1 0.25 0.75" |
|||
|
|||
d3 $ sound "bd bd ~ bd" |
|||
|
|||
d1 $ sound "bd?*16" |
|||
|
|||
d1 $ sometimesBy 0.75 (# crush 4) $ sound "bd arpy sn ~" |
|||
|
|||
d1 $ jux (# accelerate "-0.1") $ s "supermandolin*8" # midinote "[80!6 78]/8" |
|||
# sustain "1 0.25 2 1" |
|||
|
|||
-- Test |
|||
|
|||
-- https://tidalcycles.org/index.php/Manipulating_samples |
|||
|
|||
d1 $ chop 32 $ sound "bev" |
|||
|
|||
d1 $ slow 2 $ sound "bd bd bd [bd bd ~ ~]" |
|||
|
|||
|
|||
xfade 2 $ sound "wobble*4" |
|||
|
|||
xfade 2 $ sound "bd*4" |
|||
|
|||
xfade 2 $ sound "metal*4" |
Loading…
Reference in new issue