;; spacegong
to spacegong

local [env1 seg1 pitch adjustment]
make "env1 list [.9 15] [0 2500]
make "seg1 []

repeat 32 [
	make "pitch 560
	make "adjustment (random 1000) / 10
	make "pitch (pitch + adjustment)
	make "seg1 fput (list pitch env1) seg1

	make "pitch 600
	make "adjustment (random 1000) / 10
	make "pitch (pitch + adjustment)
	make "seg1 fput (list pitch env1) seg1	
]

harmony seg1

end


;; static
to static :seconds

local [env1 seg1 pitch adjustment duration]
make "env1 (list [.8 15] (lput (seconds * 1000) [.8]) [0 15])
make "seg1 []

make "pitch 100
repeat 500 [
	make "pitch (pitch + 5)
	make "seg1 fput (list pitch env1) seg1
]

harmony seg1

end


static 2
spacegong