| Hi!
I'm deeply into JI-microtuned music and began to use csound
to create a simple sine-wave oriented samples..for my sampler..
using Csound_68k(no ver.info) on PowerBook190 (7.5.3)
and Csound PPC(think it was 3.54) on iMac rev.B (8.5.1)
on PB190
the result of the ORC&SCO below becomes too low even if I change the P4 things..
on iMac
things go too loud and distorted..
Amp-rate doesn't change even P4 changed..but it disappears only if I set the
P4 to ZERO..
what's wrong?...maybe..many?
won't
aout1=a1+a3+a5+a7
aout2=a2+a4+a6+a8+a9+a10+a11+a12
simply become combining several Hz make sound together?
thanx in advance..
; ORCHESTRA
sr=44100 ; Sample Rate
kr=22050 ; Control Rate
ksmps=2 ; sr/kr As far as I know this is always the case
nchnls=2 ; 1=mono, 2=stereo, 4=quad
instr 1 ; Instrument 1 begins here
idur = p3 ; Duration
iamp = p4 ; Amplitude
ifqc = p5 ; Frequency
itabl = p6 ; Waveform
; Attack Decay Sustain Release Envelope
kamp linseg 0, .0003, 1, .0004, .8, p3-.001, .8, .0003, 0
a1 oscil iamp/3, ifqc, itabl ; An oscillator
a2 oscil iamp*2/33, ifqc*8.5/8, itabl ; An oscillator
a3 oscil iamp*2/33, ifqc*9/8, itabl ; An oscillator
a4 oscil iamp*2/33, ifqc*9.5/8, itabl ; An oscillator
a5 oscil iamp*2/33, ifqc*10/8, itabl ; An oscillator
a6 oscil iamp*2/33, ifqc*10.5/8, itabl ; An oscillator
a7 oscil iamp*2/33, ifqc*11/8, itabl ; An oscillator
a8 oscil iamp*2/33, ifqc*12/8, itabl ; An oscillator
a9 oscil iamp*2/33, ifqc*12.5/8, itabl ; An oscillator
a10 oscil iamp*2/33, ifqc*13/8, itabl ; An oscillator
a11 oscil iamp*2/33, ifqc*14/8, itabl ; An oscillator
a12 oscil iamp*2/33, ifqc*15/8, itabl ; An oscillator
aout1=a1+a3+a5+a7
aout2=a2+a4+a6+a8+a9+a10+a11+a12
outs aout1*kamp, aout2*kamp ; Output the results to a stereo sound
file
endin ; Instrument 1 ends here
instr 2 ; Instrument 2 begins here
idur = p3 ; Duration
iamp = p4 ; Amplitude
ifqc = p5 ; Frequency
itabl = p6 ; Waveform
; Attack Decay Sustain Release Envelope
kamp linseg 0, .0003, 1, .0004, .8, p3-.001, .8, .0003, 0
a1 oscil iamp/3, ifqc, itabl ; An oscillator
a2 oscil iamp*2/33, ifqc*1.0625, itabl ; An oscillator
a3 oscil iamp*2/33, ifqc*1.12890625, itabl ; An oscillator
a4 oscil iamp*2/33, ifqc*1.19946289062, itabl ; An oscillator
a5 oscil iamp*2/33, ifqc*1.27442932129, itabl ; An oscillator
a6 oscil iamp*2/33, ifqc*1.35408115387, itabl ; An oscillator
a7 oscil iamp*2/33, ifqc*1.43871122599, itabl ; An oscillator
a8 oscil iamp*2/33, ifqc*1.52863067761, itabl ; An oscillator
a9 oscil iamp*2/33, ifqc*1.62417009496, itabl ; An oscillator
a10 oscil iamp*2/33, ifqc*1.7256807259, itabl ; An oscillator
a11 oscil iamp*2/33, ifqc*1.83353577126, itabl ; An oscillator
a12 oscil iamp*2/33, ifqc*1.94813175697, itabl ; An oscillator
aout1=a2+a4+a6+a8+a9+a10+a11+a12
aout2=a1+a3+a5+a7
outs aout1*kamp, aout2*kamp ; Output the results to a stereo sound
file
endin ; Instrument 2 ends here
; SCORE
;Table# Start TableSize TableGenerator Parameter Comments
f1 0 16384 10 1 ; Sine
;Instrument#(p1) Start(p2) Duration(p3) Amplitude(p4) Frequency(p5) Table(p6)
; Instr Sta Dur Amp Freq Table
; 楽器 開始 長さ 音量(p4) 周波数(p5)
i1 0 1 5000 722.812 1
i1 + 0.7 5000 288.031 .
i1 . 1.3 5000 60.438 .
i2 0 1.3 5000 122 1
i2 + 0.6 5000 941 .
i2 . 0.9 5000 555 .
e ; スコアの終了を示す。
------------------8<-----------------------------------
BUYO-BUYO-IGOR
gianthead@bigfoot.com
http://listen.to/igor
SaRiGaMa's Oil Vending Orchestra
http://i.am/sarigama |