hslider channel("Time_Scaling"), range(0.0, 2.0, 1.0),text("Time Scale")
hslider channel("Amplitude"), range(0.0, 5.0, 1.0)
hslider channel("Pitch"), range(0.0, 1.0, 1.0)
-n -d -m0d
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1.0
;instr 10
;ktrig metro 10
;if (ktrig == 1) then
;gktimescal ;invalue "Time_Scaling"
;gkamp ;invalue "Amplitude"
;gkpitch ;invalue "Pitch"
;endif
;endin
instr 1
;aL inch 1
;aR inch 2
ktime chnget "Time_Scaling"
kamp chnget "Amplitude"
kpitch chnget "Pitch"
Sfile_new strcpy ""
SPath chnget "AudioPath"
Sfile_old strcpyk Sfile_new
Sfile_new strcpyk SPath
kfile strcmpk Sfile_new, Sfile_old
if kfile != 0 then ;IF A
reinit NEW_FILE
endif
NEW_FILE:
SAudioFile sprintf "/Users/TaoYao/Google Drive/6th Semester/Class Recordings/MTEC-421/Unity Projects/DJ Game Project/Assets/Resources/%s",SPath
ifile ftgentmp 0, 0, 0, 1, SAudioFile,0,0,1
;Envelop
;kporttime linseg 0,0.001,0.02
;ktscale portk ktime, kporttime
asig temposcal ktime,kamp,kpitch, ifile, 1, 2048
rireturn
aenv linsegr 0,0.05,1,0.05,0 ;DE-
outs asig*aenv, asig*aenv
;outs asig,asig
endin
;/Users/TaoYao/Google Drive/6th Semester/Class Recordings/MTEC-421/Unity Projects/DJ Game Project/Assets/Resources/Everyday.wav
;chnget:k("Time_Scaling"), chnget:k("Amplitude"), chnget:k("Pitch")
;i 1 0 3600
100
100
320
240
true
255
255
255