Hi,
I was playing with some window programs that convert images to sound, like
Virtual Ans and SonicPhoto. They both work under wine.
I expect something like this with the image opcodes, so the x-axis goes from
left to right and the pixels on the y-axis get scanned - perhaps i am
mistaken.
But
i have loaded the image and csd from the manual and that works fine. This
image contain 512 x 512 pixels. That would mean that if i scan the whole
image, i would need to create a table of 512 x 512 to hold the all values of
the pixels.
In the example form the manual,  however,l only the first column is scanned:


;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


I want to scan more of the image, to start with,for example, the first 10
columns. I came up with this but i have doubts if i am going the right
direction:

giimage imageload "test1.png"
giimagew, giimageh imagesize giimage
print giimagew
giwave ftgen 1, 0, 1024, 10, 1
gifrqs ftgen 2,0,-512*10,-5, 1,512,100 ;table = 10 x bigger to hold first 10
columns
giamps ftgen 3, 0, -512*10, 10, 1

	instr 100

kindex = 0
icnt = giimageh

;kx_ = 0
kx_ linseg 0, p3, 10
printk2 kx_
until kx_ <= 10 do                                     ;scan first 10
columns
;printk2 kx_

loop_y:							; Read a column of pixels and store the red values
    ky_ = kindex/giimageh				; inside the table 'giamps'
    ;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_y
od
; Use an oscillator bank (additive synthesis) to generate sound
; setting amplitudes for each partial according to the image
kenv linseg 0, .2, 500, p3 - .4, 500, .2, 0
asig adsynt kenv, 100, giwave, gifrqs, giamps, icnt, 2
outs asig, asig

I get a sounding result, but think something is not right. Can someone spot
why this is not as simple as i would like it to be?
(Other questions are: what values are red, blue and green representing or do
the image opcodes have another system that the window programs mentioned
above? But i will aks those questions later...)





--
View this message in context: http://csound.1045644.n5.nabble.com/load-more-pixels-tp5744879.html
Sent from the Csound - General mailing list archive at Nabble.com.

Csound mailing list
Csound@listserv.heanet.ie
https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND
Send bugs reports to
        https://github.com/csound/csound/issues
Discussions of bugs and features can be posted here