This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
var GithubApi = require("github"); | |
// you can install the required module using `npm install github` | |
var user = "myUsername"; | |
var password = "myPassword"; | |
function filterRepos(item) { | |
var lowerName = item.full_name.toLowerCase(); | |
return item.owner.login !== 'berkeley-stat243' && |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(def frere-intervals | |
[[:i :_ :ii :_ :iii :_ :i :_ | |
:i :_ :ii :_ :iii :_ :i :_ | |
:iii :_ :iv :_ :v :_ :_ :_ | |
:iii :_ :iv :_ :v :_ :_ :_ | |
:v :vi :v :iv :iii :_ :i :_ | |
:v :vi :v :iv :iii :_ :i :_ | |
:i :_ :v- :_ :i :_ :_ :_ | |
:i :_ :v- :_ :i :_ :_ :_ | |
]]) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns examples.musicxml | |
(:require [clojure.zip :as zip] | |
[clojure.xml :as xml]) | |
(:use [clojure.data.zip.xml])) | |
(defn measure-label [loc] | |
[ "part" (xml1-> loc zip/up (attr :id)) | |
"bar" (xml1-> loc (attr :number))]) | |
(defn pitch [loc] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?xml version="1.0"?> | |
<xsl:stylesheet | |
xmlns:xsl="http://www.w3.org/1999/XSL/Transform" | |
version="1.0" | |
> | |
<xsl:output method="text"/> | |
<xsl:template match="score-partwise"> |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns examples.mozart-game | |
(:use | |
[overtone.at-at :only [now at mk-pool]] | |
[overtone.midi :only [midi-out midi-note-on midi-note-off]] | |
[overtone.music.pitch :as pitch])) | |
;; | |
;; "Mozart" Musical Dice Game | |
;; | |
;; Select random bars from a pre-determined dataset. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; | |
;; General MIDI defines instruments for 128 program numbers | |
;; http://www.midi.org/techspecs/gm1sound.php | |
;; | |
;; javax.sound.midi numbers the instruments from 0 rather than 1, so acoustic-grand-piano is 0. | |
;; | |
(def GM | |
{:acoustic-grand-piano 0 | |
:bright-acoustic-piano 1 |