;@ map w 8 9 DLY_5m DLY25m DLY100 DLY500 DLY_1s DLY_2s DLY2p7
;@ map d CLA000
;@ map d CLA000
;@ map d CLA000
;@ map d CLA000
;@ map d BUT002
;@ map d CLA000
;@ map d CLA000
;@ map d BUT002
;@ map d CLA000
;@ map d BUT007


opcode DelayB, 0, KKKKKKKK
  kTime, kFB, kLP, kHP,  kDW, kFBmod, kDWmod xin
  
  ain zar 2 ; CHANGE 
  kDW += kDWmod
  kFB += kFBmod
  
  abuf delayr 2.7
  atap deltapi kTime
  delayw ain+atap*kFB
  
  aout tone atap, kLP ; check filter type etc
  aout atone aout, kHP ; check filter type etc
  zaw aout*kDW+ain*(1-kDW), 1 ; CHANGE 
endop
