bytebeat.cmn 353 B

1234567891011121314151617181920212223242526272829303132333435
  1. # simple bytebeat, run and redirect to aplay
  2. ~32
  3. shift: # X, N
  4. $0
  5. @'
  6. $<0 $<0 2 /
  7. $>0 $>0 --
  8. .
  9. $<0 $<0
  10. .
  11. ~i
  12. bytebeat1: # this one is from Anarch
  13. $i $i 4 / 32 % shift
  14. $i $i 32 / 32 % shift +x12 &
  15. | 2 *
  16. $i 2048 / |
  17. ->
  18. $i ++ $:i
  19. .
  20. 0 $:i
  21. 50000 @'
  22. bytebeat1 # you can possibly try different bytebeat functions
  23. --
  24. .
  25. ~0