undertone_lib

(defmodule xt.midi
  (export
   (cc 1)
   (cc-off 1)
   (cc-on 1)
   (cc-ramp 4)
   (cc-sine 1)
   (init 0)
   (list-devices 0)
   (stop 1)
   (create-out-stream 2)))

(include-lib "logjam/include/logjam.hrl")

(defun init ()
  (xt:sys-load "libs/external/portmidi.xtm")
  (xt:sys-load "libs/core/pattern-language.xtm")
  (xt.msg:async
   (xt.lang:sexp "pm_initialize")))

(defun list-devices ()
  (init)
  (xt.msg:sync
   (xt.lang:sexp "pm_print_devices"))
  (xt.msg:sync
   (xt.lang:sexp "println" "'ok")))

(defun get-input-id (name)
  (xt.msg:sync
   (xt.lang:sexp
    "pm_input_device_with_name"
    (xt.lang:->xt name))))

(defun get-output-id (name)
  (xt.msg:sync
   (xt.lang:sexp
    "pm_output_device_with_name"
    (xt.lang:->xt name))))

(defun stop (fn-name)
  (xt.msg:async
   (xt.lang:sexp
    "define"
    (++ (xt.lang:->xt fn-name)
        (xt.lang:sexp
         "lambda"
         (xt.lang:sexp
          "beat"
          (xt.lang:->xt 'dur)))
        (xt.lang:->xt 'true)))))

(defun create-out-stream (device-name device-id)
  (xt.msg:async
   (xt.lang:sexp
    "define"
    (++ device-name
        " "
        (xt.lang:sexp
         "pm_create_output_stream"
         (xt.lang:->xt device-id))))))

(defun cc (midi-opts)
  (xt.msg:async
   (xt.lang:sexp
    "send-midi-cc"
    (++ "(now) "
        (mref midi-opts 'midi-device-name)
        " "
        (xt.lang:->xt (mref midi-opts 'cc-code))
        " "
        (xt.lang:->xt (mref midi-opts 'cc-value))
        " "
        (xt.lang:->xt (mref midi-opts 'midi-channel))))))

(defun cc-off (midi-opts)
  (cc (mupd midi-opts 'cc-value 0)))

(defun cc-on (midi-opts)
  (cc (mupd midi-opts 'cc-value 127)))

(defun cc-ramp (midi-opts start-val end-val duration)
  (let* ((sq (seq start-val end-val))
         (steps (length sq))
         (incr (/ (* 1000 duration) steps)))
    (lists:foldl
     (lambda (val acc)
       (let* ((sum (+ acc incr))
              (sched (timer:apply_after (round sum)
                                        'xt.midi
                                        'cc
                                        `(,(mupd midi-opts 'cc-value val)))))
         (log-debug "Scheduled: ~p" `(,sched))
         sum))
     0
     sq))
  'ok)

(defun seq (start end)
  (if (> end start)
    (lists:seq start end)
    (lists:reverse (lists:seq end start))))

(defun cc-sine (midi-opts)
  'not-implemented)