|
Apr. 3rd, 2009|12:20 am |
"Кодер за работой" (нойзовая композиция)
Вот я взял, и сделал. Программа проигрывает лисповые тексты согласно описанию из моего предыдущего постинга.
#lang scheme
(require (lib "process.ss"))
(define (file->string f) (let ([s (open-output-string)]) (call-with-input-file f (lambda (f) (copy-port f s))) (get-output-string s)))
(define (process-string s)
(define (process-one char) (match char (#\space " s") (#\( " t") (#\) " bo")
(other (case (random 10) [(1 2 3) " b"] [(4 5) " bs"] [else ""]))))
(define (process-list list) (if (null? list) '() (cons (process-one (car list)) (process-list (cdr list)))))
(foldl string-append "" (process-list (string->list s))))
(define (glue-wavs source output-file)
(let* ([pipe (process-string (file->string source))]
[command (string-append "c:/now/sound/sox-14.2.0/sox.exe " pipe " " output-file)])
; (display command)
(system command)))
(glue-wavs "funny-sound.scm" "funny.wav")
Заслушать эту прекрасную нойзовую композицию: (необходим включённый флэш)
(без флэша можно скачать отседа)
Самое сложное было, как я и ожидал, найти нормальную прогу, которая может склеивать wav-файлы через командную строку. Поковырялся в Audition, Audacity, но ничего не понял (впрочем, они помогли с конвертациями). Нашёл наколенную прожку* потом, но она работала хреново - скрипела в промежутках. Зато википедия быстро подсказала, что доктор прописал* * *.
Остальное было делом техники. Хай-хэт (тарелку) и бас-барабан (бочку) взял с драм-кита википедии*. Клавиатуру сам записал на микрофон: спейс, один батон, и три батона - для разнообразия вот там в (process-one) я их немного перемешиваю. Файлы я переименовал для краткости (слишком длинный комманд-лайн не хавается).
Это первый нойз-трек, который я создал. Не совсем я, конечно, программа ведь проигрывает сама себя фактически. Такая себе аллюзия на куайн* * - программу, которая выводит свой собственный текст на дисплей.
Композиция относится не просто к нойзу, а к Algorithmic music*, ответвлению в Computer-generated music*. Если кто впечатлился, берите идею, развивайте и печатайтесь в журнале Organised Sound*, например. Или мне, что ли, развить...
Обновление к постингу. Спасибо неизвестному любителю нойза и ![[info]](http://lj.rossia.org/img/userinfo.gif) beshenov за идею.
С помощью команды
sox.exe -t raw -r 44100 -s -2 sox.exe -t ogg sox.ogg
Sox проиграл сам себя.
Это мой второй нойзовый трек (не совсем мой, опять же). Звуковая структура экзешника такая:
Прослушать:
Скачать.
Ещё обновление. Тем временем, beshenov сделал то же самое - ссылка (доступна только его френдам), но под линуксом (и видимо, с другими настройками для транскодирования, и отчасти синтетический) - его нойз более агрессивный, длинный и варьирующийся! Наверное, потому что юниксы и бинарники под ними более круто заварены, чем виндовые (кто бы сомневался). |
|