main

.gitattributes

@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto

audacity_bitcrush_v3.ny.txt

@@ -0,0 +1,36 @@
+;version 3
+(setq sourcerate 4000) ; Source samplerate
+(setq multiplier (/ 44100 sourcerate)) ; New samplerate
+
+
+(defun bad-resample (sig num)
+  (setq size 1000)
+  (setf s-array (make-array (* num size)))
+  (setf end-array
+    (if (/= (rem (truncate len) size) 0)
+      (make-array (* num (rem (truncate len) size)))
+      nil))
+  (setf output (s-rest 0))
+  (dotimes (count (truncate (/ len size)))
+    (fill-array s-array sig num)
+    (setf output
+      (sim
+        output
+        (at-abs (/ (* count num size) *sound-srate*)
+          (cue (snd-from-array 0 *sound-srate* s-array))))))
+  (if end-array
+    (progn
+      (fill-array end-array sig num)
+      (sim
+        output
+        (at-abs (/ (* (truncate (/ len size)) (* num size)) *sound-srate*)
+          (cue (snd-from-array 0 *sound-srate* end-array)))))
+    output))
+
+(defun fill-array (s-a sig times)
+  (dotimes (count (/ (length s-a) times))
+    (let ((next (snd-fetch sig)))
+      (dotimes (i times)
+        (setf (aref s-a (+ i (* count times))) next)))))
+
+(multichan-expand #'bad-resample s (truncate multiplier))

audacity_bitcrush_v4.ny.txt

@@ -0,0 +1,10 @@
+;version 4
+;(setq factor 11.025) ;4000hz -> 44100hz
+;(setq factor 5.5125) ;8000hz -> 44100hz
+;(setq factor 4) ;11025hz -> 44100hz
+;(setq factor 2) ;22050hz -> 44100hz
+
+(control-srate-abs *sound-srate* 
+  (let ((sig2 (mult (/ *sound-srate*)
+                    (quantize (pwl factor len factor) 1))))
+    (multichan-expand #'snd-compose *track* sig2)))