From 024f1913e577cb8fde528f7296d499885fb20670 Mon Sep 17 00:00:00 2001 From: Isaac Van Doren <69181572+isaacvando@users.noreply.github.com> Date: Sun, 21 Jan 2024 20:13:33 -0600 Subject: [PATCH] Improve sounds --- README.md | 4 ++-- main.roc | 26 +++++++++++++------------- 2 files changed, 15 insertions(+), 15 deletions(-) diff --git a/README.md b/README.md index dde5c67..10a4bbc 100644 --- a/README.md +++ b/README.md @@ -8,8 +8,8 @@ zig build run ``` The instruments are (from top to bottom): -1. High tom -1. Low tom +1. Boop +1. Beep 1. HiHat 1. Snare 1. Kick diff --git a/main.roc b/main.roc index e791466..c2daa16 100644 --- a/main.roc +++ b/main.roc @@ -269,7 +269,7 @@ playColumn = \column -> else Task.ok {} -sounds = [highTom, lowTom, hihat, snare, kick] +sounds = [boop, beep, hihat, snare, kick] kick : Task {} [] kick = W4.tone { @@ -299,32 +299,32 @@ snare = W4.tone { hihat : Task {} [] hihat = W4.tone { - startFreq: 680, - endFreq: 675, + startFreq: 710, + endFreq: 695, attackTime: 0, - decayTime: 6, - sustainTime: 1, + decayTime: 2, + sustainTime: 0, releaseTime: 0, peakVolume: 60, volume: 60, channel: Pulse1 Eighth, } -lowTom : Task {} [] -lowTom = W4.tone { +beep : Task {} [] +beep = W4.tone { startFreq: 400, - endFreq: 200, + endFreq: 800, attackTime: 2, - decayTime: 22, - sustainTime: 14, - releaseTime: 8, + decayTime: 3, + sustainTime: 0, + releaseTime: 0, peakVolume: 68, volume: 58, channel: Pulse2 Eighth, } -highTom : Task {} [] -highTom = W4.tone { +boop : Task {} [] +boop = W4.tone { startFreq: 600, endFreq: 400, attackTime: 2,