test-1.lisp

;;; 
;;; some tests for cl-fluidsynth lib, set up based on access to cl-jack bindings
;;;
;;; Author: Anders Vinjar
;;;


(cl-jack::jack-get-client-name cl-jack::*CLJACKCLIENT*)
(cl-jack::jack-get-ports cl-jack::*CLJACKCLIENT* "" "" 0)

(with-foreign-object (fluidports :pointer)
  (setf fluidports (cl-jack::jack-get-ports cl-jack::*CLJACKCLIENT*  "fluid" "midi" 0))
  (loop for i from 0
     and port = (mem-aref fluidports :string i)
     while port
     collect port))

(cl-jack::jack-get-ports cl-jack::*CLJACKCLIENT*  "fluid" "midi" 0)

(cl-jack::jack-connect cl-jack::*CLJACKCLIENT* "OM_fluidsynth" )

;; play midi-file from file:

(setf percplayer (new_fluid_player *fluidsynth*))
(fluid_player_add percplayer "/home/andersvi/test.midi")
(fluid_player_play percplayer)
(fluid_player_get_status percplayer)
(fluid_player_stop percplayer)
(delete_fluid_player percplayer)

(progn
  (delete_fluid_audio_driver *fluidadriver*)
  (delete_fluid_player *fluidplayer*)
  (delete_fluid_synth *fluidsynth*)
  (delete_fluid_settings *fluidsynth-settings*))

(fluid_synth_noteon *fluidsynth* 0 63 127)
(fluid_synth_noteoff *fluidsynth* 0 63)

(loop repeat 120
   for note = (+ 20 (random 70))
   do
     (fluid_synth_noteon *fluidsynth* 0 note 100)
     (sleep 1/64)
     (fluid_synth_noteoff *fluidsynth* 0 note))

;; arpeggio example

(defun schedule-noteon (chan key ticks)
  (let ((ev (new_fluid_event)))
    (fluid_event_set_dest ev synth_destination)
    (fluid_event_noteon ev chan key 127)
    (fluid_sequencer_send_at sequencer ev ticks 1)
    (delete_fluid_event ev)))

(defun schedule-noteoff (chan key ticks)
  (let ((ev (new_fluid_event)))
    (fluid_event_set_dest ev synth_destination)
    (fluid_event_noteoff ev chan key)
    (fluid_sequencer_send_at sequencer ev ticks 1)
    (delete_fluid_event ev)))

(defun schedule-timer-event ()
  (let ((ev (new_fluid_event)))
    (fluid_event_set_source ev -1)
    (fluid_event_set_dest ev client_destination)
    (fluid_event_timer ev nil)
    (fluid_sequencer_send_at sequencer ev time_marker 1)
    (delete_fluid_event ev)))


(defun schedule-pattern (notes duration)
  (let* ((now time_marker)
	 (siz (length notes))
	 (note-duration (floor duration siz)))
    (loop for i from 0 below siz
	 for note = (elt notes i)
	 do
	 (schedule-noteon 0 note now)
	 (schedule-noteoff 0 note (+ now note-duration)))
    (incf time_marker duration)))

(defcallback sequencer-callback
    :void ((time :unsigned-int) (event fluid_event_t)
	   (seq fluid_sequencer_t) (data (:pointer :void)))
  (declare (ignore time event seq data))
  (schedule-timer-event)
  (schedule-pattern notes duration)
  )

(reverse '(60 64 67 72 76 79 84 79 76 72 67 64))
(setf notes #(64 72 67 79 76 79 76 72 84 60 64 67))
(setf duration 1440)
(setf notes #(60 64 67 72 76 79 84 79 76 72 67 64))
(setf notes (make-array 12 :initial-contents
			(loop repeat 12
			     collect (+ 12 (random 100)))))

(setf pattern_size (length notes))
(setf settings (new_fluid_settings))

(fluid_settings_setint settings "audio.jack.autoconnect" 1)

(setf synth (new_fluid_synth settings))
(setf audiodriver (new_fluid_audio_driver settings synth))
(setf sequencer (new_fluid_sequencer))
(setf synth_destination (fluid_sequencer_register_fluidsynth sequencer synth))
(setf client_destination (fluid_sequencer_register_client
			  sequencer
			  "arpeggio" (callback sequencer-callback) nil))
(setf n (fluid_synth_sfload synth "/usr/share/soundfonts/FluidR3_GM.sf2" 1))
(setf time_marker (fluid_sequencer_get_tick sequencer))
(schedule-pattern notes duration)
(schedule-timer-event)
(schedule-pattern)

;;cleanup

(progn
  (delete_fluid_synth synth)
  (delete_fluid_sequencer sequencer)
  (delete_fluid_audio_driver audiodriver)
  (delete_fluid_settings settings))