         env (env-gen:ar (env-perc :release 0.25) :action FREE :time-scale dur)]
     (out out-bus (pan2 (* env src)))))
 
+;; Based on Dawn by Schemawound: http://sccode.org/1-c
+(defsynth fallout-wind [decay 30 attack 30 out-bus 0]
+  (let [lfo  (+ 0.5 (* 0.5 (sin-osc:kr [(ranged-rand 0.5 1000) (ranged-rand 0.5 1000)] :phase (* 1.5 Math/PI))))
+        lfo3 (+ 0.5 (* 0.5 (sin-osc:kr [(ranged-rand 0.1 0.5) (ranged-rand 0.1 0.5)] :phase (* 1.5 Math/PI))))
+        lfo2 (+ 0.5 (* 0.5 (sin-osc:kr [(* (ranged-rand 0.5 1000) lfo lfo3) (* (ranged-rand 0.5 1000) (- 1 lfo) (- 1 lfo3))] :phase (* 1.5 Math/PI))))
+        fillers (map (fn [_] (* lfo2 (sin-osc:ar (ranged-rand 40 1000) :phase 0))) (range 0 100))]
+    (out:ar out-bus  (* (mix:ar fillers)
+                  (env-gen:kr (perc attack decay) :action FREE)))))
+
+(fallout-wind)
 (woody-beep :freq 400)
 
 (kill woody-beep)

  (voice/instruments))

;;Sampled
(comment (require 'overtone.inst.sampled-piano))
(require '[overtone.inst.piano :as piano])

(require '[overtone.inst.sampled-piano :as s-piano])

(piano/piano :note 50)
(s-piano/sampled-piano :note 50)


(def waves-s (sample (freesound-path 48412)))
(def waves (waves-s :rate 0.3 :vol 0.5))
(def waves-s (freesound-sample 163120))
(def waves (waves-s :rate 0.8 :vol 0.5))
(ctl waves :rate 1)
(kill waves)

;;;;;;;;;;;;;;;;;;;;;;;;;;;
