 (definst sing [freq 110 dur 1.0 vol 1.0]
   (-> (sin-osc freq)
       (+ (sin-osc (* 3.01 freq)))
-      (+ (* 1/4 (sin-osc (* 2.05 freq))))
-      (+ (* 1/3 (sin-osc (* 1/2 freq))))
-      (rlpf (line:kr 5000 0 1.0) 1/50)
-      (clip2 0.5)
-      (* (env-gen (adsr 0.05 (* dur 1/3) 0.3 0) (line:kr 1 0 dur) :action FREE))
+      (+ (* 1/3 (sin-osc (* 2.01 freq))))
+      (+ (* 1/8 (sin-osc (* 5.01 freq))))
+      (+ (* 1/2 (sin-osc (* 1/2 freq))))
+      (rlpf (line:kr 3000 0 1) 1/5)
+      (clip2 0.7)
+      (* (env-gen (adsr 0.001 0.03 0.9 0.2) (line:kr 1 0 dur) :action FREE))
       (* vol)))
 
 ; Arrangement

  (update-in v [i] (partial + n)))

(defn digit-shift [x n]
  (apply * x (repeat n (bigint 10))))

(defn construct [a b c d]
  (if (zero? (* a b))

  (fx-chorus)
  (fx-distortion)

  (live/play (track blurred-lines))
  )
