# Merdivenler'e bilgisayardan ritim altyapısı hazırlamak istiyordum. Biraz önce proof-of-concept'i tamamladım. Yani Csound'la real-time ses sentezleyebiliyor, ses parametrelerini Grace ile (Common Music 3 ile) real-time üretip onun Csound'a açtığı port üzerinden gönderebiliyorum.
# Şimdilik olası en dandik 5/8'lik ritm üretecini yaptım. Ses kaynağı inen çıkan lineer bir envelope(üzeri 4) ile çarpılan white noise:
ritm.orc
sr=44100
ksmps=1
nchnls=1
0dbfs = 1.0
instr 1 ;untitled
idur init p3
aenv linseg 0, idur*.1, 1, idur*.9, 0
anoise noise 1, 0
out anoise*(aenv)^4
endin
# Değiştirilebilir tek parametre süre. metronom için iki farklı süre belirledim. 0.1*(2 1 2 1 1) pattern'i süre parametresi olarak n defa Csound'a gönderiliyor.
merdivenler-ritm.lisp
(define-process (ritim n tempo)
(run with
pat = (make-cycle '(.2 .1 .2 .1 .1)) and
rate = (/ (/ 60 tempo) 4)
repeat n
do
(send "cs:i" 1 0 (next pat))
(wait rate)))
(sprout (ritim 500 120))
# Bu da çalıştığına göre artık yatabilirim.
Hiç yorum yok:
Yorum Gönder