Sound-Synthese in Clojure, Oberton, Supercollider

Question

Ich habe gerade https://github.com/overtone/overtone/wiki/Getting-Started abgeschlossen, was fantastisch ist.

Jetzt möchte ich mehr tun.

Ich bin ein Math/CS Major, also weiß ich, was eine Fourier-Transformation ist; Ich habe jedoch keinen Musikhintergrund. Ich möchte Dinge lernen, wie:

• Simulation Grundperkussionsinstrumente
• einige kurze Stücke zu komponieren.

Allerdings bin ich weniger interessiert sich für diese Fähigkeiten von Grund auf neu zu entwickeln und mehr interessiert ein nettes Tutorial/Führung über clojure/Oberton/Supercollider zu haben.

[Ich finde es schneller zu lernen durch etwas Feines zu optimieren; anstatt von Grund auf für meine ersten Läufe zu bauen.]

Danke!

Answer 1

Ich kenne keine geführte Tour per se, aber Overtones examples enthalten eine Fülle von Code zum Synthetisieren verschiedener Instrumente sowie zum Komponieren von Stücken dieser Instrumente und/oder gesampelten Instrumenten. Ich persönlich empfehle nicht bells.clj (synthetisiert Glocken + Komposition) und auto_dubstep.clj (synthetisiert Schlagzeug + Zusammensetzung)

Answer 2

es nicht genau Ihre Frage beantworten (nicht Clojure verwandt), aber ich bin ziemlich sicher, dass Sie dave Bensons wird erkennen mathematics and music (er scheint hat auch andere Bücher, aber das ist kostenlos online).

Answer 3

Es gibt viele Beispiele auf Geräusche zu machen, obwohl, wenn sie mit Oberton-Einstieg (Ich bin immer noch 99% newb) Es dauerte zu lange die line Funktion zu entdecken, die Sie synth Deskriptoren und metronome aus undichten verhindert, die für die Entstehung Geräusche sind manchmal passieren.

(definst 
    ... create component sounds ... 
    (out 0 (* v (clip2 (+ wob (* kick-vol kick) (* snare-vol snare)) 1) 
       (line:kr 0 dur dur FREE))) 

durch einen Aufruf line:kr Multiplikation erstellen einen Synthesizer mit einer definierten Lebensdauer

dann können Sie eine metronome für Zusammensetzung, wie in diesem kleinen Schlag verwenden:

(defn beat2 [beat] 
    (at (metro beat) (#'kick 220 0.3 0.5 1.5)) 
    (at (+ 0.5 (metro beat)) (#'kick 220 0.3 0.5 1.5)) 
    (if (= 0 (mod beat 2)) 
    (at (metro (+ 0.17 beat)) (#'kick))) 
    (at (metro (+ 0.35 beat)) (c-hat)) 
    (if (even? beat) (at (metro (+ 0.45 beat)) (c-hat))) 
    (at (metro (+ 0.5 beat)) (#'mew 8)) 
    (apply-at (metro (inc beat)) 
      (if (= 0 (mod beat 200)) #'beat1 #'beat2) 
      (inc beat) []))