ImagePlayer3.1 The ImagePlayer is a troublemaker; this instrument plays images. The image must in the PNG format. But still it's hard to predict what the sounding result will be, even if the 3 colors red, blue and green scanned and thus have a steady pattern as they are not moving or evolving entities in the image... A few things to understand: - No sound will be produced when only black image; black is the silent canvas - 3 basic colours (RGB) on which the image opcodes react: red, blue and green. - The three colours (red, green and blue) have volume faders. - The image is scanned from left to right (X axis) and from top to bottom (Y axis) or reverse and rotated - Top of the image = the lower frequencies, bottom of the image = the higher frequencies or reverse - take a low scanning speed for adsyn, so with low base frequency, there will be no problems with Nyquist distortion (aliasing). The harmonics will be built upon the frequency set by p4 - can take a lot of CPU The lpf18 filter can be used to avoid further aliasing when experimenting at higher base frequencies . . example of score: i1 0 20 244 where p4 = frequency. please have a look at the Wiki page: https://github.com/kunstmusik/blue/wiki/A-Blue-instrument:-ImagePlayer version 3.1, december 2017 - rotates picture if image width is smaller then image height - replaced ADSRs by multicurve envelopes - added more envelopes - added scaling for amp, filter frequency and filter depth and pitch bend - changed AL names to more understandable ones version 3.0, december 2017 - layout converted to JavaFX standard, blue version >=2.7 - renewed layout so that: - XY controller represents the portion of the image to be scanned - added filter ADSR with depth control - added stereo option that puts RED to the left, GREEN in the middle and BLUE to the right - rescaling of base frequency when playing - more than ImagePlayer can be used in a composition - option to show image in external viewer (xviewer <file> for example). Please change according to your needs version 2.3, december 2015 - improved text for labels - added a setting for basefrequency instead of p4 - added anti-aliasing switch & aliasing filter is adjustable version 2.2, nvember 2015 - changed label 'logaritmic' to 'exponential' - XY positions are now automatable - added labels to explain the range of image to be scanned version 2.1 , november 2015 - fixed file input selector - removed fill table option because prone to errors - removed switch for inverse X Y read out (not interesting enough) - XY position for number of overtones - select log or linear ftable to hold frequencies - choose the part of the image width to play - changed filter to LPF18 with distortion - red, green and blue volume now undependent from each other version 2 , october 2015 - stereo option - add limit to voices to save CPU - variable ftable to hold frequencies - changed filter to LPF18 with distortion - switch for inverse X Y read out - ADSR - 5 basic waveforms * version 1.1, april 2013 - repaired initialization bug - show width and heigth of image - transition from raw sound (=low resolution) to clean sound (+high resolution) is fluid now - added panning * initial version 1, march 2013 ;[once]{ ;============================================================= giwave ftgen 10, 0, 16384, 10, 1 ;sine wave giwave ftgen 11, 0, 4096, 10, 1, .5, .3 ;soft sawtooth giwave ftgen 12, 0, 4096, 10, 1, 0.5, 0.3, 0.25, 0.2, 0.167, 0.14, 0.125, .111 ;sawtooth giwave ftgen 13, 0, 4096, 10, 1, 0, 0.3, 0 , 0.2, 0 , 0.14, 0 , .111 ;square giwave ftgen 14, 0, 4096, 10, 1, 1 , 1, 1, 0.7, 0.5 , 0.3, 0.1 ;pulse ;} ;============================envelopes========================================== if i(<amplitude exponential/linear>) == 1 then ; switch for amp linear or exponential kampenv loopxseg <scale amplitude envelope>/p3, 0, 0, <envelope_Amplitude envelope>, 0 ; exponential else kampenv loopseg <scale amplitude envelope>/p3, 0, 0, <envelope_Amplitude envelope>, 0 ; linear endif aampenv interp kampenv ; smooth k rate if <FILTERENVELOPEon> == 1 then ; switch for filter envelope kfiltenv loopxseg <scale filter frequency envelope>/p3, 0, 0, <envelope_Filter Frequency envelope>, 0 ; filter frequency envelope kfiltdepth loopxseg <scale filter depth envelope>/p3, 0, 0, <envelope_Filter Depth envelope>, 0 ; filter depth envelope else kfiltdepth = 1 kfiltenv = 18000 endif if <PITCHBENDENVELOPEon> == 1 then ; switch for pitch bend kpitchbend loopxseg <scale pitchbend envelope>/p3, 0, 0, <envelope_Pitch Bend envelope>, 0 ; pitch bend envelope else kpitchbend = 1 endif ;=======================load image============================================== if i(<show image in external viewer>) == 1 then ires system_i 1,{{ xviewer <file> }}, 1 ; show image in external viewer endif image<INSTR_ID> imageload "<file>" imagew<INSTR_ID>, imageh<INSTR_ID> imagesize image<INSTR_ID> if imagew<INSTR_ID> < imageh<INSTR_ID> then ; check because image width neds to be bigger than height itmpwidth = imageh<INSTR_ID> ; if not, rotate image itmpheight = imagew<INSTR_ID> imagew<INSTR_ID> = itmpwidth imageh<INSTR_ID> = itmpheight printf "\n--->> IMAGE OF INSTRUMENT %d IS ROTATED <<---\n\n", 1, <INSTR_ID> endif printf "\nimage dimensions of instrument %d: width = %d, height = %d pixels\n\n", 1, <INSTR_ID>, imagew<INSTR_ID>, imageh<INSTR_ID> ;show width and height of gimage icnt = imageh<INSTR_ID> * i(<scan_imageY>) ; set limts to scanned area kbasefreq = p4 * kpitchbend ;base frequency of tonegenerator AND pitchbend iX = i(<harmonic range>) ilin = <linear> ialias = <anti-aliasingON> ialiasq = i(<anti-aliasing>) if ilin == 1 && ialias == 0 then ; for freqs, choose between linear and logaritmic table ifrqs<INSTR_ID> ftgenonce 0, 0, imagew<INSTR_ID>, -7, 1, imagew<INSTR_ID>, int(iX) ; and choose if anti-aliasing elseif ilin == 1 && ialias == 1 then ; and how much of the anti-aliasing filter effect gitmp<INSTR_ID> ftgenonce 100, 0, imagew<INSTR_ID>, -7, 1, imagew<INSTR_ID>, int(iX) ifrqs<INSTR_ID> ftgenonce 0, 0, imagew<INSTR_ID> , -30, 100, 1, ialiasq elseif ilin == 2 && ialias == 0 then ifrqs<INSTR_ID> ftgenonce 0, 0, imagew<INSTR_ID> , -5, 1, imagew<INSTR_ID>, int(iX) elseif ilin == 2 && ialias == 1 then gitmp<INSTR_ID> ftgenonce 100, 0, imagew<INSTR_ID> , -5, 1, imagew<INSTR_ID>, int(iX) ifrqs<INSTR_ID> ftgenonce 0, 0, imagew<INSTR_ID> , -30, 100, 1, ialiasq endif iampsR<INSTR_ID> ftgen 0, 0, -imageh<INSTR_ID>, 10, 1 ; for holding the amplitudes iampsG<INSTR_ID> ftgen 0, 0, -imageh<INSTR_ID>, 10, 1 iampsB<INSTR_ID> ftgen 0, 0, -imageh<INSTR_ID>, 10, 1 iamps<INSTR_ID> ftgen 0, 0, -imageh<INSTR_ID>, 10, 1 ;===========fill the tables with image values=================================== kindex = 0 kx linseg i(<scan_imageX>), p3, i(<scan portion of image>) ; X-axis range loop: ; Get the pixel color values at kx, ky if i(<reverse playback>) == 1 then ; read image from top to bottom ky = kindex/imageh<INSTR_ID> else ky = 1-(kindex/imageh<INSTR_ID>) endif kred, kgreen, kblue imagegetpixel image<INSTR_ID>, kx, ky ; Write red, green and blue values inside the tables 'giampsX' kred *= <VOLUME red color> kgreen *= <VOLUME green color> kblue *= <VOLUME blue color> tabw kred, kindex, iampsR<INSTR_ID> tabw kgreen, kindex, iampsG<INSTR_ID> tabw kblue, kindex, iampsB<INSTR_ID> tabw (kred + kgreen + kblue)*.5, kindex, iamps<INSTR_ID> kindex = kindex+1 if (kindex < icnt) kgoto loop ;============================make sound========================================= iwave = <wave> ; choose basic waveform if i(<harmonic phase>) == 1 then iphase = 2 else iphase = 1 endif if i(<mono_stereo_phase>) == 0 then ;set mono/stereo/phase of adsynth2 asig adsynt2 1, kbasefreq, iwave, ifrqs<INSTR_ID>, iamps<INSTR_ID>, icnt, iphase ;additive synthesis to generate sound asigL, asigR pan2 asig, <pan mono signal> ;panning if mono asigM = 0 elseif i(<mono_stereo_phase>) == 1 then ;every colour divided in stereo image asigL adsynt2 1, kbasefreq, iwave, ifrqs<INSTR_ID>, iampsR<INSTR_ID>, icnt, iphase asigM adsynt2 1, kbasefreq, iwave, ifrqs<INSTR_ID>, iampsG<INSTR_ID>, icnt, iphase asigR adsynt2 1, kbasefreq, iwave, ifrqs<INSTR_ID>, iampsB<INSTR_ID>, icnt, iphase elseif i(<mono_stereo_phase>) == 2 then asigL adsynt2 1, kbasefreq, iwave, ifrqs<INSTR_ID>, iamps<INSTR_ID>, icnt, 5 asigR adsynt2 1, kbasefreq, iwave, ifrqs<INSTR_ID>, iamps<INSTR_ID>, icnt, 3 asigM = 0 endif ;===========filter===================================== if <FILTERon> == 1 then ;switch VCF on/off kfiltenv *= kfiltdepth asigL lpf18 asigL, <FILTERcutoff>*kfiltenv, <FILTERresonance>, <FILTERdistortion> ;lowpass filter with FILTERdistortion asigR lpf18 asigR, <FILTERcutoff>*kfiltenv, <FILTERresonance>, <FILTERdistortion> asigM lpf18 asigM, <FILTERcutoff>*kfiltenv, <FILTERresonance>, <FILTERdistortion> endif asigL *= <volume> asigR *= <volume> asigM *= <volume> *.707 ; compensate for double channels blueMixerOut (asigL + asigM) * aampenv, (asigR + asigM) * aampenv 5 5 NONE true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 10 10 l---------------------------- I m a g e p l a y e r ----------------------------l 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 10 440 envelopes 0x669966ff 0x000000ff 0xffffffff true 20 20 amplitude exponential/linear 215 150 true true true envelope 10 10 653 120 1.0 true COMMA false false 10 10 0x669966ff 0x000000ff 0xffffffff false 20 20 296 328 Group 0x669966ff 0x000000ff 0xffffffff false 210 87 120 55 System Regular 12.0 pan mono signal 140 15 true 0.0 1.0 0.52 40 true false false System Regular 12.0 mono_stereo_phase 10 15 true 1 12 true mono 1 stereo 2 stereophase 3 show image in external viewer 10 55 true true true 510 10 output 0x669966ff 0x000000ff 0xffffffff true 20 176 FILTERon 15 10 true FILTERcutoff 15 35 true 0.0 1.0 0.27000000000000013 45 true false true System Regular 12.0 FILTERdistortion 10 105 true 0.0 3.0 0.0 45 true false true System Regular 12.0 40 10 System Bold 14.0 FILTERresonance 85 35 true 0.0 0.9 0.531 45 true false true System Regular 12.0 volume 95 105 true 0.01 1.0 0.2872 45 true false true System Regular 12.0 295 75 value manipulations 0x669966ff 0x000000ff 0xffffffff true 20 221 20 45 System Bold 12.0 20 20 System Bold 12.0 50 75 System Regular 12.0 linear 85 15 false 0 12 true linear 1 exponentially 2 5 140 aliasing prevention 0x669966ff 0x000000ff 0xffffffff true 20 20 anti-aliasingON 10 5 false anti-aliasing 10 25 true 1.0 150.0 0.1 1.0 130 true true harmonic phase 10 110 true true true harmonic range 5 80 true 0.0 100.0 0.1 46.2 200 true false wave 115 40 false 2 12 true sine 10 soft saw 11 saw 12 square 13 pulse 14 200 170 System Bold 12.0 510 205 envelope scaling 0x669966ff 0x000000ff 0xffffffff true 20 20 45 70 System Regular 12.0 scale filter frequency envelope 110 10 true 1.0 50.0 9.82 35 true true false System Regular 12.0 10 25 System Regular 12.0 10 110 System Regular 12.0 FILTERENVELOPEon 70 45 true PITCHBENDENVELOPEon 50 165 true scale pitchbend envelope 10 130 true 1.0 50.0 1.0 35 true true false System Regular 12.0 45 150 System Regular 12.0 scale filter depth envelope 10 45 true 1.0 50.0 20.11 35 true true false System Regular 12.0 scale amplitude envelope 110 90 true 1.0 50.0 1.0 35 true true false System Regular 12.0 10 75 scan 0x669966ff 0x000000ff 0xffffffff true 20 20 15 135 System Regular 12.0 reverse playback 25 195 true true true 10 270 System Bold 12.0 20 290 System Bold 12.0 265 95 System Bold 12.0 25 250 System Bold 12.0 VOLUME blue color 50 285 true 0.0 0.1 0.001 0.07 200 true false 30 10 System Bold 18.0 75 230 System Bold 18.0 VOLUME red color 50 245 true 0.0 0.1 0.001 0.025 200 true false 265 35 System Bold 12.0 VOLUME green color 50 265 true 0.0 0.1 0.001 0.069 200 true false 265 65 System Bold 12.0 scan_image 10 35 true 250 100 0.0 1.0 1.0E-6 1.0 0.0 1.0 true false scan portion of image 10 145 true 0.0 1.0 0.01 0.57 255 true false 265 50 System Bold 12.0 265 110 System Bold 12.0 145 165 System Regular 12.0 25 210 System Regular 12.0 265 80 System Bold 12.0 10 10 select image (PNG) 0x669966ff 0x000000ff 0xffffffff true 20 20 file 5 5 /media/menno/datae/bubbles3.png 455 false