Skip to content

Instantly share code, notes, and snippets.

@TCotton

TCotton/fadetozero.hs

Created September 20, 2025 15:53
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save TCotton/4f9a2660931d29d21aed447e6ca2444e to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save TCotton/4f9a2660931d29d21aed447e6ca2444e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fadetozero.hs
let spread1 = (spread ($) [jux rev, rev])
spread2 = spread ($) [density 2, rev, slow 2, striate 3, (# speed "0.8")]
juxrev = jux rev
revEffect = rev
palindrom = palindrome
fadeOut = range 1 0 $ slow 16 saw
in d4 $ stack [(
slow 2
$ chop 32
$ sound "piano_c"
# gain fadeOut
# room 1.0
# orbit 7 -- routed to audiochannel 15-16
)]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment