initial commit
This commit is contained in:
commit
bea9453237
3 changed files with 148 additions and 0 deletions
1
.envrc
Normal file
1
.envrc
Normal file
|
@ -0,0 +1 @@
|
|||
use nix
|
34
shell.nix
Normal file
34
shell.nix
Normal file
|
@ -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\]]> "
|
||||
'';
|
||||
}
|
113
test.tidal
Normal file
113
test.tidal
Normal file
|
@ -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 a new issue