miguel-negrao

import de.sciss.synth._
import scalaz._
import Scalaz._
import concurrent._
import org.friendlyvirus.mn.ScalaColliderZ._

object Test2 {
  def main(args: Array[String]) {

    Server.test{ s=>

miguel-negrao

import de.sciss.synth._
import ugen._
import scalaz._
import Scalaz._
import org.friendlyvirus.mn.ScalaColliderZ._

object TestZeroSemigroup {
  def main(args: Array[String]) {

    //because GE is semigroup we know how to sum lists of GEs, etc

miguel-negrao

//this will print 5 after some time.  It's also easy to combine multiple promises
// (that might yield at unknow times in the future) to form another promise.  
val p1 = promise{1}
val p2 = promise{2}
val p3: Promise[Int] = (p1 |@| p2){ (x, y) => x+y }
val p4: Promise[List[Int]] = List[p1,p2].sequence.

miguel-negrao

no message buffer overruns
no message buffer overruns
no message buffer overruns
jackdmp 1.9.10
Copyright 2001-2005 Paul Davis and others.
Copyright 2004-2013 Grame.
jackdmp comes with ABSOLUTELY NO WARRANTY
This is free software, and you are welcome to redistribute it
under certain conditions; see the file COPYING for details
JACK server starting in realtime mode with priority 10

miguel-negrao

#!/usr/bin/env runhaskell
{-# LANGUAGE QuasiQuotes, OverloadedStrings #-}

import Shelly
import Prelude hiding (FilePath)
import qualified Data.Text.Lazy as T
import qualified Data.ByteString.Char8 as B
import Control.Concurrent
import Data.List (isInfixOf, sort)
import Text.Shakespeare.Text (lt)

miguel-negrao

#!/usr/bin/env runhaskell
{-# LANGUAGE QuasiQuotes, OverloadedStrings #-}

import Shelly
import Prelude hiding (FilePath)
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import Control.Concurrent
import Data.List (isInfixOf, sort)
import Text.Shakespeare.Text (st)

miguel-negrao

(
Udef(\test, {
  Out.ar(0, PlayBuf.ar(1, (String.scDir +/+ "sounds/a11wlk01-44_1.aiff").asBufKr ) )
})
)

(
Udef(\test, {
  var buf = (String.scDir +/+ "sounds/a11wlk01-44_1.aiff").asBufKr(key: \buf1, numChannels:1, startFrame:0, endFrame:44100 );
  Out.ar(0, PlayBuf.ar(1, buf ) )

miguel-negrao

no message buffer overruns
no message buffer overruns
no message buffer overruns
jackdmp 1.9.10
Copyright 2001-2005 Paul Davis and others.
Copyright 2004-2013 Grame.
jackdmp comes with ABSOLUTELY NO WARRANTY
This is free software, and you are welcome to redistribute it
under certain conditions; see the file COPYING for details
JACK server starting in realtime mode with priority 10

miguel-negrao

/*

A matrix of positions in x,y space each is assigned a random (but fixed) synth, when the ball enters this area it triggers the synth associated with that point.
more interisting sounds

*/

U.loadDef = true

NetAddr.langPort

miguel-negrao

//RUN THIS FIRST
(
Udef(\scratcher, {
	var bufnum, rate, loop, startFrame, phasor, start, end, out, out2, delay, pos, tr, tr2;
	#bufnum, rate, loop = \soundFile.kr( [ 0, 1, 0 ] );
	start = \st.kr(0.0)*BufFrames.kr(bufnum);
	phasor = Phasor.ar(
		0,
		BufRateScale.kr(bufnum),
		start,