From beb9feafc9c24424e85eb0ccffb3d786dacd7d26 Mon Sep 17 00:00:00 2001
From: Darell Chua Yun Da <darell27@gmail.com>
Date: Thu, 2 Dec 2021 14:42:35 +0800
Subject: [PATCH] Filter and Pitch Envelope

Updated Main_test.m
---
 .DS_Store                                    | Bin 6148 -> 10244 bytes
 src/.DS_Store                                | Bin 0 -> 6148 bytes
 src/DarellPitchEnvelope.m                    |  37 +++++++++++++++++++
 {DarellsAnnex => src}/DarellbandpassFilter.m |   0
 src/Main_test.m                              |  12 +++++-
 5 files changed, 48 insertions(+), 1 deletion(-)
 create mode 100644 src/.DS_Store
 create mode 100644 src/DarellPitchEnvelope.m
 rename {DarellsAnnex => src}/DarellbandpassFilter.m (100%)

diff --git a/.DS_Store b/.DS_Store
index 47b0a43f82ce85bb6f600aaba4a21846ecc9a4d2..c85b185ea95b98abb42560e1e1ed1f9a5f0a64a2 100644
GIT binary patch
literal 10244
zcmeHMU2GIp6uxJ+$ov!-ut1BpY%PI8meMV?rQ*+ayG7(DMRxlK=sLSIv?H@K%g*c;
z#A@T4g5uwkiSfY)eLzKxiJJI?8WIx~QVl-fgE8upi9Yzii=KP$ET!cq8X}l@XEXQA
zJ@=gZ^WE><-7`xFfn?c?6A~qa$aqt!*J5#ni?-AIvP%jz)DO^~5C=a#=_M|H#3c|A
z2nYlO0s;Ynz<&_|{LZGAtZ^wyfq+0jAaD@@dOk$)rZN%ADK6R3fdxweP}ZQDUHFW7
z0P~54G7-utE}1L#$+HItT_H>{fV*RRl$xVVgmQ{Y?oNQa69`9!Fhc=0I{HPKIe`S1
zq7(=S1TIH_=I*s5MGR6R)~x*9B8PGlelh2GIkfpOS9EMYXm9@(q)5%YTjtC2Wler4
zJ?>4U10yK=Nu#uv)-s;w<f_j`ZpgMKvU**g=LUxDS|#RSn--ev8@653n@D<P*Yufh
znm5RbtYr22BS$*Bx?<7Jc=u#1dZeeL9iKOLO-?HE(v}UIcV`bc1=o9qFA2h9fh?G_
z#G}_*pXukF9L|?IUljyrES}DLh2kY0U)8qYrBWeaa?{lBtD8=o>b+Lq1<(9P_QmnP
zKbK0n<T{=^hU3%qMexN;iR5qgmUhMCv1rGgo!7ag;c713z)<D*l|H@&5w*(Mb5+hN
zs#ZHVG^}RzB^4y*KrygA*B`P<KFX}V$VUP{koVkOC5yIa^~HI^$(J1?uzDRQZ9iuD
z!+Fms7hHcNunq-Ov&Z*JK_63&*yu}jSzRyt)@}<O?TVE`cV7oZetW^Prj|9ac-Q9p
zQd@UEIK6O@zIcgRr|v=CyMevmwo0RhpSN7ocE<)MY%>@iuGqevbF7SO6f9*i#FXiU
z%j+9f+@@*VV8)?pI#SNr2g`PFSZ|SKHpWV=S>0#iEOvS(9mSOO53nB`eU;X%?WHY!
zB@0V4bZFJqsTm&^BI^b>T(53WGY2qW72W5W4z*Jobc~$kD7wkV=~jER;R;7n(YJHu
z-D;gSf&o;(CHe~2CA6gWFdcS>;Rgdn%cWB~jcvHJ{$@=ZrER^Y$tKjWyndm!P1_;s
zXXQQqxKXkOCh#Pg4)wcane80vX>a|e9e5WTGqh2+-HMHe6z(xUt6CDRJep^L(voQB
zS_OZLG>|s@<&h!#@Kh|4!{iuwjvOb?lh??b<bCo9IYqu8Uz0OrntVgPCqI&3$sgoT
z0FWR8wa@@7;C5())zASOp%d<bB=kW)Y=HsDz#t662pBL1<M1dPfB+tcNq7>b;Awaf
zUV@k5RX71}!8>pgK7v#5DSQTB!dGwx&cb>434VrO;DQv9YNUBmz0@qVN!@(nQuP!Z
z<@IVQZNjIS_z2H*$+%*Cr24nqtoZnD0gH%R>y|ECxoU0OMvRk-%;8k4vg=aLGNR7f
zNk&u_F>^>ZO+!ah8=I=JG7~*Kng)^K)*+b&nm#|YzN1A(hU@df>Y7%pZr5+&RV}t&
z#%R(dR#mllhk`MqN5X1MLB`WTRki0X1!G6A39F6wVwJFprX~BZlhe9<9mIT{oFMO!
zkICmq%yZ;C`GNdKE+8FiVF}bTLN>xmXoa<~4r0&--LMIIU^7y43)~M|VH@l~Vh$lS
zM`16RV8MRypa=)ShcZ0D==l^Jg=6q69ETU+6?g+q&Y|7bD&e?<cV}of=i6wup{NN2
z1Ofs9fq+0jAaKJFi13l3^!<PT)&Kv$Ve=6K2?PWJHy#0~Nu^Us9JiW2&Yc2%*B-_D
z5xnU|?WVY7E?7_#s%Nj`u|i+Rvm_gJVOq`F6QSJ{m&_ggm^(`THveD$GeG43IovXl
K|6Bjx{QoaC?DAs(

delta 121
zcmZn(XfcprU|?W$DortDU=RQ@Ie-{Mvv5r;6q~50$jG@dU^g=(=VU=anaLUg4>s!x
z`Y}#kA>cmwkdV~oVu=98#q1m$g3LfIKp?;kBwRtdHx_<pp3JY}2{Ma;31TkDDu&JR
HJad=<ZU+^k

diff --git a/src/.DS_Store b/src/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..5008ddfcf53c02e82d7eee2e57c38e5672ef89f6
GIT binary patch
literal 6148
zcmeH~Jr2S!425mzP>H1@V-^m;4Wg<&0T*E43hX&L&p$$qDprKhvt+--jT7}7np#A3
zem<@ulZcFPQ@L2!n>{z**<q8>++&mCkOWA81W14cNZ<zv;LbK1Poaz?KmsK2CSc!(
z0ynLxE!0092;Krf2c+FF_Fe*7ECH>lEfg7;MkzE(HCqgga^y>{tEnwC%0;vJ&^%eQ
zLs35+`xjp>T0<F0fCPF1$Cyrb|F7^5{eNG?83~ZUUlGt@xh*qZDeu<Z%US-OSsOPv
j)R!Z4KLME7ReXlK;d!wEw5GODWMKRea10D2@KpjYNUI8I

literal 0
HcmV?d00001

diff --git a/src/DarellPitchEnvelope.m b/src/DarellPitchEnvelope.m
new file mode 100644
index 0000000..f0922ca
--- /dev/null
+++ b/src/DarellPitchEnvelope.m
@@ -0,0 +1,37 @@
+function output = DarellPitchEnvelope(input, Fs, attack,decay,sustain,release) %percentages for attack, decay, sustain, release
+    len = length(input);
+    T = (len-1)/Fs;
+    attacktime = attack * T * Fs;
+    decaytime = attacktime + decay * T * Fs;
+    sustaintime = (T - (release * T))* Fs;
+    
+    x = 0:1/Fs:T;
+    y = 0 .* x; %create zero array of y of len x
+    output = y;%create zero array of output of len x
+    tcounter = 1;
+    %attack phase
+    while tcounter <= attacktime
+        y(tcounter) = (1/attacktime) * tcounter;
+        tcounter = tcounter+1;
+    end
+    istart = tcounter;
+    while tcounter<= decaytime
+        y(tcounter) = 1 - (((1-sustain)/(decay * T * Fs)) * (tcounter - istart));
+        tcounter = tcounter+1;
+    end
+
+    while tcounter<= sustaintime
+        y(tcounter) = sustain;
+        tcounter = tcounter+1;
+    end
+    istart = tcounter;
+    while tcounter < (T * Fs)
+        y(tcounter) = sustain - ((sustain/(release * T * Fs)) * (tcounter - istart));
+        tcounter = tcounter+1;
+    end
+    
+    for counter = 1:1:len
+        output(counter) = y(counter) * input(counter);
+    end
+    
+end
\ No newline at end of file
diff --git a/DarellsAnnex/DarellbandpassFilter.m b/src/DarellbandpassFilter.m
similarity index 100%
rename from DarellsAnnex/DarellbandpassFilter.m
rename to src/DarellbandpassFilter.m
diff --git a/src/Main_test.m b/src/Main_test.m
index 034d0f6..140b7d8 100644
--- a/src/Main_test.m
+++ b/src/Main_test.m
@@ -22,4 +22,14 @@ x = DarellbandpassFilter(x,fs,LOW,MED,HIGH);
 
 %play over 5 counts, should only hear 200hz
 playtime = 5;
-play_continuous(x, fs, playtime)
\ No newline at end of file
+play_continuous(x, fs, playtime)
+
+attack = 0.2;
+decay = 0.2;
+sustain = 0.2;
+release = 0.1;
+
+x = DarellPitchEnvelope(x, fs, attack,decay,sustain,release); %output new sound in time domain
+%play over 5 counts, should only hear 200hz
+playtime = 5;
+play_continuous(x, fs, playtime)