# HG changeset patch # User Zachary Kanfer # Date 1597380913 14400 # Fri Aug 14 00:55:13 2020 -0400 # Node ID 76f0b3e5add2b4995aa75a526eaa9fd7f540f4de # Parent f8c4feefa84cd2bd0ead36417240c6844dc5a2c4 remove testing functions diff --git a/zmusic.el b/zmusic.el --- a/zmusic.el +++ b/zmusic.el @@ -281,37 +281,6 @@ (- orig-high orig-low)) (- new-high new-low)))) -(ert-deftest generate-samples/four-samples-per-second-one-hz-five-samples () - (should (equal '(127 255 255 255 127 255 0 0 127 255) - ;;four samples per second means five samples loops back to 127 255. - (zmusic//generate-samples 1 4 5)))) - -;;zck do we need sixteen-bit values? -(cl-defun zmusic//generate-samples (frequency samples-per-second number-of-samples) - "Make a sample data subchunk, of a tone FREQUENCY. - -The data is NUMBER-OF-SAMPLES data points, sampled from FREQUENCY at -SAMPLES-PER-SECOND. - -This returns a list of bytes, where two consecutive bytes is a single sample." - (cl-loop for sample-number below number-of-samples - ;;if you imagine a constantly spinning arm in a circle. - ;;It spins around FREQUENCY times in a second. - ;;We want to sample the sin of that value SAMPLES-PER-SECOND times. - ;;so we are (sample-number / samples-per-second) way through the second, - ;;and the angle of that arm goes to (2 * pi * frequency) radians. - for raw-value = (truncate (rescale (sin (rescale sample-number - ;;convert from the number of samples... - 0 samples-per-second - - ;;we loop through 2pi - ;;how many times? /frequency/ times. - 0 (* 2 float-pi frequency))) - -1 1 - 0 #xFFFF)) - collect (/ raw-value 256) - collect (mod raw-value 256))) - (ert-deftest data-subchunk/basic-data () (let ((data '(1 2 3 4 5 6 7 8))) (should (equal (values-to-bytes '(ASCII "data") @@ -327,17 +296,6 @@ (list 'b (length raw-samples) 4 big-endian) raw-samples)) -;;zck should this all be arrays? -(defun zmusic//make-sample-wave-data () - "Return a list of wave file data." - (let* ((sample-rate 100) - (seconds 1) - (raw-samples (zmusic//generate-samples 440 sample-rate (* seconds sample-rate))) - (data-subchunk (zmusic//data-subchunk raw-samples))) - (append (zmusic//wave-header data-subchunk) - (zmusic//fmt-subchunk sample-rate) - data-subchunk))) - (defun annotate-wave-data (wave-data) "Attempt to annotate the given WAVE-DATA." (message (concat (format "header\nRIFF (82 73 70 70): %s\n" (seq-subseq wave-data 0 4))