sr = 44100
ksmps = 4410
nchnls = 1
; Jean-Claude RISSET
; An Introductory Catalogue of Computer Synthesized Sounds
; 1969
; CSOUND Version by Antonio de Sousa Dias
; --------------------- JCR 100 ------------------
; FLUTE RUN ON TAPE M1669 FILE 6
; ORIGINAL SAMPLING RATE 10000 HZ
; (STILL WITH CLICKS)
instr 2
ip4 = p3
ip5 = p4
ip6 = p5
ip7 = 1/ ip4
ip8 = .01 * ip5 ; = p7 (?)
ip9 = 1/ p8 ; = p8 (?)
ip10 = p9
ip11 = p10
iv7 = p11 ; SV3 0 7 .24
if2 = (ip11 <= 0? 2 : ip11) ; set ip11
if5 = (ip10 <= 0? 5 : ip10) ; set ip10
if12 = 12
ab3 randi ip8, ip9
ab3 = ab3 + ip5
ab3 oscil ab3, iv7, if12
ab3 oscil ab3, ip7, if5
ab3 oscili ab3 * 16, ip6, if2
out ab3
endin
instr 3
ip4 = p3
ip5 = p4 ;
ip6 = p5 ;
ip7 = 1/ip4 ; convert duration to frequency
ip8 = p7 ;
ip9 = p8 ;
if1 = 1
if8 = (ip8 <= 0? 8 : ip8) ; set ip8
if9 = (ip9 <= 0? 9 : ip9) ; set ip9
ab3 oscil ip5, ip7, if8
ab4 oscil ip6, ip7, if9
ab3 oscili ab3 * 16, ab4, if1
out ab3
endin
; Jean-Claude RISSET
; An Introductory Catalogue of Computer Synthesized Sounds
; 1969
; CSOUND Version by Antonio de Sousa Dias
; --------------------- JCR 100 ------------------
; FLUTE RUN ON TAPE M1669 FILE 6
; ORIGINAL SAMPLING RATE 10000 HZ
; (STILL WITH CLICKS)
f01 0 512 10 1
f02 0 512 10 1 .2 .08 .07
f03 0 512 10 1 .4 .2 .1 .1 .05
f04 0 512 -7 0 50 .2 90 .6 40 .99 25 .9 45 .5 50 .25 50 .12 50 .06 50 .03 62 0.
f05 0 512 -7 0 50 0.2 100 0.6 50 0.99 150 0.2 162 0
f06 0 512 -7 0 50 0.2 200 0.5 100 0.2 162 0
f07 0 512 -7 0 80 0.5 60 0.5 20 0.99 120 0.4 140 0.6 92 0
f08 0 512 7 0 150 0.4 200 0.99 50 0.5 50 0.24 62 0
f09 0 512 -7 .895 512 .99
f10 0 512 -7 .999 512 .999
f12 0 512 -9 1 .26 0 1 .74 90 ; GEN 0 2 12 .26 .74 1
; USE OF MACROS JUST TO RENDER CODE CLEARER (ONE HOPES)
; ORIGINAL FREQS
#define Cs2 #277#
#define E3 #329#
#define Fs3 #370#
#define Gs3 #415#
#define C4 #528#
#define F4 #698#
#define G4 #784#
#define B4 #988#
#define Cs5 #1109#
#define F5 #1397#
#define G5 #1558#
#define B5 #1975#
#define Cs6 #2217#
; METRONOME FUNCTION
t 0 70
; P-FIELDS IN MUSIC V
;P3 P2 P4 P5 P6 P7 P8 P9
; Amp fr f_Gl fnA fnGl
i3 .88 .12 1200 $B4. .12 8 10
;SV3 0 7 .24
;P3 P2 P4 P5 P6 P7 P8 P9 P10 P11 SV7
i2 1 2 800 $Cs5. 2 20 60 0 0 .24
f08 1 512 -7 0 100 .99 412 0
i3 1 .7 300 [$Cs5.-2] .7 8 10
f12 3 512 -9 1 .3 0 1 .6 90 ; GEN 3 2 12 .3 .6 1
i2 3 .8 300 $G4. .5 30 50 4 0 .24
i3 4.5 .375 1200 $F5. .375 5 0
i3 4.85 .15 1200 [$B4.+4] .15
; -------- SECOND BAR
i3 5 .7 300 [$Cs5.-9] .7
i2 5.01 2 1200 $Cs5. 2 30 80 6 2 .24
i2 7 .2 400 $G4. .2 40 70 7 0
i2 7.2 .3 300 $F4. .3 30 60 5 0
i2 7.51 1 300 $Fs3. 1 30 50 6 2
i3 7.5 .5 150 [$Fs3.-2] .5 8 0
i2 8.5 .5 400 $Gs3. .5 50 60 5 0
; -------- THIRD BAR
; ST 9 & 9.1 USE OF FOLDOVER
i2 9 .12 900 [$F5.-1] .6 30 80 4 2 .24
i2 9.1 1.2 900 $G5. .8 30 90 4 2
;SV3 10.24 7 .31
i2 10.25 1.08 900 $Cs2. 1.08 40 60 7 3 .31
i3 10.25 1 200 [$Cs2.-2] 1 6 10
i2 11.35 .36 500 $E3. .31 30 60 5 2 .31
i2 11.72 .36 800 $C4. .26 30 60 5 2 .31
i3 12.09 .20 950 $Cs6. .2 6 9
;SV3 12.08 7 .28
i2 12.10 .15 700 $B5. .13 40 90 5 1 .28
i2 12.23 2.5 999 $Cs6. 1 40 90 4 1 .28
; TER 19
f0 19