lennart

#!/sbin/runscript
# Copyright 1999-2012 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Header: $

depend() {
  need net
}

start() {

lennart

<?xml version="1.0" encoding="UTF-8"?>
<configuration>
    <system.webServer>
        <rewrite>
            <rules>
                <clear />                 
                <rule name="TempRewriteToWeb" stopProcessing="false">                                  
                    <match url="^(web/)?(.*)$" />
                    <action type="Rewrite" url="web/{R:2}" logRewrittenUrl="true" />
                </rule>              

lennart

.cabal-sandbox
dist
test
*~

lennart

/*
 * Copyright 2012 Mario Scholz <mario@expires-2013.mail.trial-n-error.net>
 *
 * based on pairing_tool.c from Benjamin Tissoires <benjamin.tissoires@gmail.com>
 *          see also https://lkml.org/lkml/2011/9/22/367
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.

lennart

module Recorder where
import Sound.Tidal.Tempo (Tempo(..), clocked)
import Sound.Tidal.Stream (logicalOnset')

import Sound.OSC.FD
import Sound.OSC.Datum
import Control.Concurrent
import Control.Concurrent.MVar
init :: IO ((IO (), IO ()))
init = do s <- openUDP "127.0.0.1" 57130

lennart

# within the tidalcycles.github.io repo do

find _functions/ -type f -iname "*.md" -print0 | xargs -0 -n1 basename | cut -d. -f1 | sort | grep -v index > documented.txt

lennart

let simple = "SimpleSynth virtual input"
-- 0.6 style setup
import Sound.Tidal.MIDI.Output
import Sound.Tidal.SimpleSynth

keyStreams <- midiproxy 1 simple [(keys, 1), (keys, 2), (keys, 3), (keys, 4)]

[m1,m2,m3,m4] <- sequence keyStreams

-- > 0.7 init

lennart

d1 $ slow 2 $ stack [
  slow 2 $ slowspread (chop) [128, 64, 32] $ jux (iter 10) $ (preplace (1,1) ("[x x ~ x x ~ ~ x x ~]?" :: Pattern String) $ 
   grp [n_p, dur_p] ( "67:1 68:6 78:1 77:2")) # s "tri" |-| n "36" # vowel "[a, i] u"
  # velocity "0.4",
  slow 0.5 $ sometimes (palindrome) $ (preplace (1,1) ("x x? ~ ~ ~ ~ ~ x x ~" :: Pattern String) $
   grp [n_p, dur_p] "67:1 68:6 78:1 77:2") # s "kalimba"
  # velocity "0.4",
  sound "kick?" # gain "0.6"
  ] |/| dur "2.5" # gain "0.8"

lennart

;; Package Repository Requirements

(when (> emacs-major-version 23)
  (require 'package)
  (package-initialize)
  (add-to-list 'package-archives
               '("marmalade" .
                 "http://marmalade-repo.org/packages/"))
  (add-to-list 'package-archives
               '("melpa" . "http://melpa.milkbox.net/packages/")

lennart

/*
Tidal <-> Arduino
send rhythmic patterns to custom hardware

assumes three leds connected to Arduino on Digital Pins:

13 red
12 yellow
11 green