Csound Csound-dev Csound-tekno Search About

[Cs-dev] virtual midi keyboard and fluid

Date2011-01-25 09:53
Frommenno
Subject[Cs-dev] virtual midi keyboard and fluid
Hi,

i notice a difference when i use the virtual midi keyboard or my own midi
keyboard.
Here in this csd instr. 1 = channel 1 and instr. 2 = channel 2. And that is
how it works when i use my own keyboard.
But with using the virtual keyboard i switch the channel form 1 to 2 to hear
the bassoon, but 01hpschd.sf2 is still there. Only when i use a program
change i switch to the second instrument.
So, external keyboard works on the channels, while virtual keyboard works on
the program change.

I believe the csd using the external keyboard is the correct behaviour, is
it not?
And another thing: using fluid i do not have to assign midichannels to the
instrument numbers, do i?
;massign   1, 1	;assign instr 1 to channel 1
;massign   2, 2	;assign instr 2 to channel 2 = not needed?

thanks,
Menno



; Select audio/midi flags here according to platform
-odac  -+rtmidi=virtual  -M0    ;;;realtime audio out and realtime midi in
;-iadc    ;;;uncomment -iadc if realtime audio input is needed too
; For Non-realtime ouput leave only the line below:
;-o fluidOut.wav -W ;;; for file output any platform



sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1

;massign   1, 1	;assign instr 1 to channel 1
;massign   2, 2	;assign instr 2 to channel 2

giengine1 fluidEngine
; soundfont path to manual/examples
isfnum1	 fluidLoad "/home/menno/CVS/manual/manual/examples/01hpschd.sf2",
giengine1, 1
	 fluidProgramSelect giengine1, 1, isfnum1, 0, 0

giengine2 fluidEngine
; soundfont path to manual/examples
isfnum2	 fluidLoad "/home/menno/CVS/manual/manual/examples/22Bassoon.sf2",
giengine2, 1
	 fluidProgramSelect giengine2, 1, isfnum2, 0, 70

instr 1

	mididefault   60, p3
	midinoteonkey p4, p5
ikey	init p4
ivel	init p5
	fluidNote giengine1, 1, ikey, ivel

endin

instr 2

	mididefault   60, p3
	midinoteonkey p4, p5
ikey	init p4
ivel	init p5
	fluidNote giengine2, 1, ikey, ivel

endin

instr 98

imvol  init 7
asigl, asigr fluidOut giengine1
       outs asigl*imvol, asigr*imvol
endin

instr 99

imvol init 4
asigl, asigr fluidOut giengine2		 ;add a stereo flanger
adelL linseg 0, p3*.5, 0.02, p3*.5, 0	 ;max delay time =20ms
adelR linseg 0.02, p3*.5, 0, p3*.5, 0.02 ;max delay time =20ms		
asigL flanger asigl, adelL, .6
asigR flanger asigr, adelR, .6
      outs asigL*imvol, asigR*imvol
endin



i 1 0 2 60 100 ;play one note of instr 1
i 2 2 2 60 100 ;play another note of instr 2 and...
i 98 0 60      ;play virtual keyboard for 60 sec.
i 99 0 60
e

 

-- 
View this message in context: http://csound.1045644.n5.nabble.com/virtual-midi-keyboard-and-fluid-tp3355999p3355999.html
Sent from the Csound - Dev mailing list archive at Nabble.com.

------------------------------------------------------------------------------
Special Offer-- Download ArcSight Logger for FREE (a $49 USD value)!
Finally, a world-class log management solution at an even better price-free!
Download using promo code Free_Logger_4_Dev2Dev. Offer expires 
February 28th, so secure your free ArcSight Logger TODAY! 
http://p.sf.net/sfu/arcsight-sfd2d
_______________________________________________
Csound-devel mailing list
Csound-devel@lists.sourceforge.net