autotracker

autotracker copied to clipboard

Procedurally generate Impulse Tracker tunes using Hy (Lisp).

#!/usr/bin/env hy

(import [autotracker.utils [track-builder]])
(import [random [Random]])
(import [math [sin]])

(let [[rnd (Random)]
      ; get impulse tracker file, sample loader, pattern creator
      ; here our track is called "From Scratch" at 180 BPM with default pattern length of 128
      [[it sample pattern] (track-builder "From Scratch" 180 128 "This is my message")]
      ; create three samples
      ; one loading from file
      [s1 (sample "evolved" "samples/bassdrum-0-008307e09a04df9da674a0077f123c5960280db9-evolved.wav")]
      ; one from an array of floats (sine wave)
      [s2 (sample "sine" (list-comp (sin (* (/ s 4410) 440)) (s (range 4410))))]
      ; then an array of samples by slicing up a wav into 8 chunks
      [s3 (sample "amen" "autotracker/samples/amen.wav" :slices 8)]
      [rows (xrange 128)]]
  ; now we create patterns with the "pattern" function
  ; each row/col trigger entry is an array like:
  ; [midi-note sample volume fx-type fx-param]
  ; e.g. in pattern 0, channel 0 - lists of row/col note triggers
  (pattern 0 0 (list-comp [(rnd.randint 0 128) s1 255 0 0] [p rows]))
  (pattern 1 1 (list-comp [(rnd.randint 0 128) s1 255 0 0] [p rows]))
  (pattern 1 2 (list-comp [(rnd.randint 0 128) s2 255 0 0] [p rows]))
  (pattern 2 0 (list-comp [60 (rnd.choice s3) 255 0 0] [p rows]))
  ; write the impulse tracker file out to disk
  (it.save "from-scratch.it"))

Based on autotracker.py by Ben Russell.

Original license

autotracker-bottomup - the quite a few times more ultimate audio experience by Ben "GreaseMonkey" Russell, 2011. Public domain.