[Hackathon-list] Iriscore

[Thomas Levine]

My attempt at Gabba! In case anyone is at all interested.
These lines summarize it.

  p <- function(row)
    phrase(key = 30, speed = row$Sepal.Length - 1,
           pickup = scales$major[round(row$Sepal.Width - 1)],
           drums = row$Petal.Length > 3,
           rhythm = RHYTHMS[[row$rhythm]])
  
  iris$rhythm <- as.numeric(iris$Species)
  is <- order(iris$Petal.Width)[seq(1, 150, length.out = 12)]
  play(do.call(c,lapply(is, function(i) p(iris[i,]))))

Here's more. It might change.
http://small.dada.pink/krounq/examples/gabber.R

You might find it more interesting once I switch the iris data
for RIPE Atlas data.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: iris.ogg
Type: application/ogg
Size: 453920 bytes
Desc: not available
URL: <https://lists.ripe.net/ripe/mail/archives/hackathon-list/attachments/20150329/61b127ec/attachment-0001.ogx>