Tổng hợp âm thanh trong Clojure, Overtone, Supercollider

Question

Tôi vừa hoàn thành https://github.com/overtone/overtone/wiki/Getting-Started thật tuyệt vời.

Bây giờ, tôi muốn làm nhiều hơn nữa.

Tôi là một chuyên gia Toán/CS, vì vậy tôi biết biến đổi của fourier là gì; tuy nhiên, tôi không có nền tảng âm nhạc. Tôi muốn tìm hiểu những thứ như:

• mô phỏng nhạc cụ gõ cơ bản
• sáng tác một số tác phẩm ngắn.

Tuy nhiên, tôi ít quan tâm trong việc phát triển những kỹ năng đó từ đầu, và hơn quan tâm đến việc một tốt đẹp hướng dẫn/hướng dẫn tour du lịch qua clojure/overtone/Siêu dẫn.

[Tôi tìm thấy nó nhanh hơn để tìm hiểu thông qua tinh chỉnh một cái gì đó tốt đẹp; thay vì xây dựng từ đầu cho lần chạy đầu tiên của tôi.]

Cảm ơn!

Answer 1

Tôi không biết bất kỳ chuyến tham quan có hướng dẫn nào, nhưng sốcủa Overtone chứa nhiều mã để tổng hợp các công cụ khác nhau cũng như soạn các phần từ các nhạc cụ đó và/hoặc các công cụ lấy mẫu. Cá nhân tôi khuyên bells.clj (chuông tổng hợp + thành phần) và auto_dubstep.clj (trống tổng hợp + thành phần)

Answer 2

nó không chính xác trả lời câu hỏi của bạn (không Clojure liên quan), nhưng tôi khá chắc chắn bạn sẽ đánh giá cao dave benson của mathematics and music (dường như ông cũng có những cuốn sách khác, nhưng đó là trực tuyến miễn phí).

Answer 3

Có rất nhiều ví dụ về tạo âm thanh, mặc dù khi bắt đầu với Overtone (tôi vẫn còn 99% newb) Mất quá nhiều thời gian để khám phá chức năng line ngăn bạn rò rỉ mô tả tổng hợp và metronome. xảy ra ở lần.

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

nhân với một cuộc gọi đến line:kr tạo ra một synth với một đời định nghĩa

sau đó bạn có thể sử dụng một metronome cho các thành phần như trong nhịp này chút:

(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) []))