/* Csound Exercise 05 Author: Kong Kao Advisor: Prof. James Ma
This exercise focuses on conditional branch, including opcodes such as reinit, rireturn, and timout.... The basic idea of this piece is an algorithm to compose in a single mode. The function table stores different data and may be used in different way.
For future work, I'd like to add other possibility parameters to make the piece has a feeling of tonic and some rhythm. */ <CsoundSynthesizer> <CsOptions> </CsOptions>
<CsInstruments> ; Initialize the global variables. sr = 44100 kr = 4410 ksmps = 10 nchnls = 2
; Some constant for convenience giScale init 1 giInterval init 2 giSemiTone init 2^(1/12)
/* Since I'd like to assign the timbre of the bass dynamically The signal processing would be here, instead of after label CONT */ aSig2S oscili kAmp2, iFreq2, 12 aSig2E oscili kAmp2, iFreq2, 14 + floor(rnd(3)) kLine line 0, iDur, 1 aSig2 = aSig2S * kLine + aSig2E * ( 1 - kLine )
; Store the pitch index for next note to use. iPrevPitchIndex = iPitchIndex timout 0, iDur, CONT reinit INIT CONT: aSig1 oscili kAmp, iFreq, 11 aSig3 oscili kAmp3, iFreq3, 13 aSig = aSig1 + aSig2 + aSig3 rireturn kAmpOverAll linseg 0, p3/6, 0.7, p3*2/3, 0.9, p3/6, 0 aSig = aSig * kAmpOverAll
outs aSig, aSig endin
</CsInstruments>
<CsScore> /* Function table 1 Stores a scale in numbers of semitones between the tonic and each one. It must be a diatonic scale in this exercise to let the contrapound consonant tone to go right..(in natural 3rd, 4th, 5th, 6th, instead of any other dissonant intervals.) For now, this table stores a harmonic minor. */ f 1 0 16 -2 \ -4 -1 0 2 3 5 7 8 11 12 14 15 17 19 21 22
/* Function table 2 Stores the possibility of each interval, which would be used randomly. For example, if the number denoting an interval has the amount of appearance to be 6, then the possibility of the interval to be used would be "6 / ftlen(thisTable)" For simplicity, 0 would mean the interval to be perfect 1st, but -1 is also used for the random procedure to goes again. */ f 2 0 64 -7 \ 0 4 0 0 \ 1 8 1 0 \ 2 7 2 0 \ 3 6 3 0 \ 4 5 4 0 \ 5 4 5 0 \ 6 3 6 0 \ 7 2 7 0 \ 8 1 8 0 \ -1 64 -1 \
; Function tables for timbre.... f 11 0 8193 10 \ 8 4 2 1 f 12 0 8193 10 \ 1 2 3 4 f 13 0 8193 10 \ 4 3 2 1 f 14 0 8193 11 10 1 0.5 f 15 0 8193 11 8 1 1.5 f 16 0 8193 11 12 1 -0.5
Well, I'm in NCTUIMU and the computer I'm using doesn't have Chinese to type. (In fact, it may have, but I'm not willing to check...XD) After Hans told me about Box.net, I wonder whether it is possible to put "files" on it and include the files somewhere else. And the following is my result for now:
....It's the song "Good guy" I cooperated with LazyBug during high school. The embedded flash is found at http://catz.no-ip.com/blogs/eureka/?p=133, also told by Hans. For now, the code is not neat enough for me and I'd like to write a JS function to construct the <object> element dynamically. Also, I'd like to put the JS function in a file and put the file in Box.net.......
... read more
昨天亂七八糟地測試了一下
交大資工所碩一張勝淵被發現陳屍在七舍內...
發表文章
