Packages

undertheory

0.2.0
0.3.0 0.2.0 0.2.0-rc6 0.2.0-rc5 0.2.0-rc4 0.2.0-rc3 0.2.0-rc2 0.2.0-rc1 0.1.0

Music-theoretic LFE modules: notes, intervals, keys, scales, modes, melody-generation, etc.

Current section

Files

Jump to
Readme
9 Versions
1 Dependency
Dependants
Files
Activity
undertheory src uth note.lfe
Raw

src/uth/note.lfe 

(defmodule uth.note

  (export all))



(defun timings()

  `#m(1 1.0

      1/2 0.5

      1/4 0.25

      1/8 0.125

      1/16 0.0625

      1/32 0.03125

      1/64 0.015625

      ;; dotted notes

      1/2. ,(+ 0.5 0.25)

      1/4. ,(+ 0.25 0.125)

      1/8. ,(+ 0.125 0.0625)

      1/16. ,(+ 0.0625 0.03125)

      1/32. ,(+ 0.03125 0.015625)

      1/64. ,(+ 0.015625 0.0078125)))



(defun denom->timing

  ((1) (mref (timings) '1))

  ((2) (mref (timings) '1/2))

  ((4) (mref (timings) '1/4))

  ((8) (mref (timings) '1/8))

  ((16) (mref (timings) '1/16))

  ((32) (mref (timings) '1/32))

  ((64) (mref (timings) '1/64)))



(defun duration-fn

  ((bpm (= `#(,_beats/meas ,beat-note) _time-sig))

   (lambda (k)

     (let ((beat (denom->timing beat-note)))

     (trunc (* 1000

               (/ bpm 60)

               beat

               (/ (mref (timings) k) beat)))))))