renames, and frustration at inconsistent work

2022-08-12-setting-up-cl-collider.lisp

@@ -0,0 +1,54 @@
+;; https://defaultxr.github.io/cl-collider-tutorial/02-getting-started.html
+
+(ql:quickload :cl-collider)
+(in-package :sc-user)
+
+(setf *s* (make-external-server "localhost" :port 4444))
+(server-boot *s*)                       ; already in use
+
+
+;;; https://defaultxr.github.io/cl-collider-tutorial/03-make-a-sound.html
+(proxy :foo (sin-osc.ar 440 0 0.2))     ; no error, but hear no sound
+;; opened QjackCtl, connected Graph SuperCollider to Air by Aftershokz left
+(proxy :foo (sin-osc.ar 300 0 0.2))
+(proxy :foo (saw.ar 300 0.2))
+
+(proxy :foo (saw.ar (sin-osc.kr 0.5 0 150 300) 0.2))
+
+(proxy :foo (saw.ar (mouse-y.kr 20 10000 :exponential) 0.2))
+
+(proxy :foo ())
+
+
+;; lets go to 4th
+;; https://defaultxr.github.io/cl-collider-tutorial/04-further-soundmaking.html
+;;
+(defsynth drum ((freq 3000))
+  (let* ((env (env-gen.ar (perc 0.001 0.1) :act :free))
+         (sig (lpf.ar (white-noise.ar) (* freq env))))
+    (out.ar 0 (pan2.ar sig 0 0.2))))
+
+(synth 'drum :freq 3000)
+(synth 'drum :freq 400)
+
+;; 5th is about using .wav files as samples for synthesizers
+
+;; 6th is about doing sequenses
+(defsynth simple ((gate 1) (freq 440) (pan 0) (amp 0.5))
+  (let* ((env (env-gen.kr (asr 0.01 1 0.1) :gate gate :act :free))
+         (sig (sin-osc.ar freq 0 0.2)))
+    (out.ar 0 (pan2.ar sig pan (* env amp)))))
+
+
+(defun testing ()
+  (let ((syn (synth 'simple :freq (midicps (+ 30 (random 40))))))
+    (callback (+ (now) 0.7) #'release syn))
+  (callback (+ (now) 1) #'testing))
+
+(testing)
+(defun testing ()
+  nil)
+
+;;; and here's link to cl-patterns
+;; well, let's go do guide for pl-patterns then?
+;; since they'd need setup or something as well