[q-lang-cvs] q-faust/examples poly.q,1.1,1.2

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/q-faust/examples
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16075/examples

Modified Files:
	poly.q 
Log Message:
Windows compatibility fixes

Index: poly.q
===================================================================
RCS file: /cvsroot/q-lang/q-faust/examples/poly.q,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** poly.q	27 Feb 2006 13:14:35 -0000	1.1
--- poly.q	27 Feb 2006 13:35:13 -0000	1.2
***************
*** 10,17 ****
  
  def (_,_,_,_,SR) = audio_devices!AUDIO_OUT,
!   SR = round SR, BUFSZ = 512;
  
! def IN = midi_open "Synth",
!   _ = midi_connect (midi_client_ref "MidiShare/ALSA Bridge") IN,
    OUT = open_audio_stream AUDIO_OUT PA_WRITE (SR,2,PA_FLOAT32,BUFSZ);
  
--- 10,18 ----
  
  def (_,_,_,_,SR) = audio_devices!AUDIO_OUT,
!   SR = round SR, BUFSZ = 2048;
  
! def DRV = ifelse (pos "linux" sysinfo >= 0)
!   (midi_client_ref "MidiShare/ALSA Bridge") 0,
!   IN = midi_open "Synth", _ = midi_connect DRV IN,
    OUT = open_audio_stream AUDIO_OUT PA_WRITE (SR,2,PA_FLOAT32,BUFSZ);
  
***************
*** 95,99 ****
  /* The main function. */
  
! synth		= writes "DSP is running, hit <CR> to stop: " || reads || ()
  		    where H1 = thread (realtime || midi_loop init_voices),
  		      H2 = thread (realtime || audio_loop);
--- 96,101 ----
  /* The main function. */
  
! synth		= writes "DSP is running, hit <CR> to stop: " ||
! 		  flush || reads || ()
  		    where H1 = thread (realtime || midi_loop init_voices),
  		      H2 = thread (realtime || audio_loop);