| @@ -10,15 +10,6 @@ ksmps = 20 ; Number of audio samples in each control cycle | |||||
| nchnls = 2 ; Number of channels (2=stereo) | nchnls = 2 ; Number of channels (2=stereo) | ||||
| 0dbfs = 1 ; Maximum amplitude | 0dbfs = 1 ; Maximum amplitude | ||||
| ; Delay parameters | |||||
| gkporttime init 0.3 ; Portamento time | |||||
| ;gkdlt init 5 ; Max delay | |||||
| ;gkmix init .5 ; Dry/wet | |||||
| ;gkfeedamt init .95 ; Feedback ratio | |||||
| ;gkamp init .7 ; Output amplitude rescaling | |||||
| ;gkingain init .5 ; Input gain | |||||
| ;gkOnOff init 1 ; Input on off | |||||
| ; FLTK GUI interface | ; FLTK GUI interface | ||||
| FLcolor 200, 200, 255, 0, 0, 0 | FLcolor 200, 200, 255, 0, 0, 0 | ||||
| FLpanel "M I L C H L O D E", 500, 300, 0, 0, 0, 1 | FLpanel "M I L C H L O D E", 500, 300, 0, 0, 0, 1 | ||||
| @@ -60,10 +51,7 @@ endin | |||||
| ; Instr 2 is the delay line | ; Instr 2 is the delay line | ||||
| instr 2 | instr 2 | ||||
| kporttime linseg 0, .001, 1, 1, 1 ; A short envelope | |||||
| kporttime = kporttime * gkporttime ; TODO: remove this | |||||
| kdlt portk gkdlt, kporttime ; Apply portamento | |||||
| adlt interp kdlt ; Interpolate | |||||
| adlt = gkdlt | |||||
| ;Left channel | ;Left channel | ||||
| abufferL delayr 5 ;Buffer | abufferL delayr 5 ;Buffer | ||||