1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
<CsoundSynthesizer>
<CsOptions>
; Select audio/midi flags here according to platform
; Audio out Audio in
-odac -iadc ;;;RT audio I/O
; For Non-realtime ouput leave only the line below:
; -o imageopcodesdemo2.wav -W ;;; for file output any platform
</CsOptions>
<CsInstruments>
sr = 48000
ksmps = 100
nchnls = 2
;By Cesare Marilungo 2008
zakinit 10,1
;Load the image - should be 512x512 pixels
giimage imageload "test1.png"
;giimage imageload "test2.png" ;--try this too
giimagew, giimageh imagesize giimage
giwave ftgen 1, 0, 1024, 10, 1
gifrqs ftgen 2,0,512,-5, 1,512,10
giamps ftgen 3, 0, 512, 10, 1
instr 100
kindex = 0
icnt = giimageh
kx_ linseg 0, p3, 1
kenv linseg 0, .2, 500, p3 - .4, 500, .2, 0
; Read a column of pixels and store the red values
; inside the table 'giamps'
loop:
ky_ = kindex/giimageh
;Get the pixel color values at kx_, ky_
kred, kgreen, kblue imagegetpixel giimage, kx_, ky_
;Write the red values inside the table 'giamps'
tablew kred, kindex, giamps
kindex = kindex+1
if (kindex < icnt) kgoto loop
; Use an oscillator bank (additive synthesis) to generate sound
; setting amplitudes for each partial according to the image
asig adsynt kenv, 220, giwave, gifrqs, giamps, icnt, 2
outs asig, asig
endin
instr 101
; Free memory used by the image
imagefree giimage
endin
</CsInstruments>
<CsScore>
t 0 60
i100 1 20
i101 21 1
e
</CsScore>
</CsoundSynthesizer>
|
