home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / sfx-030 / sfx-data / _rexx / delayfx.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  1.2 KB  |  52 lines
  1. /* SFX DelayFX */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. GetActiveBuffer
  7. buf1=RESULT
  8. IF buf1>-1 THEN DO
  9.     GetLength buf1
  10.     dellen=RESULT/16
  11.     GetChannels buf1
  12.     cha=RESULT
  13.     IF cha=2 THEN DO
  14.         SelOperator 'Delay'
  15.         SetOperatorParam 'Delay' 'P1ModShape' 'Linear'
  16.         SetOperatorParam 'Delay' 'P2S' '0.4'
  17.         SetOperatorParam 'Delay' 'P2ModShape' 'None'
  18.         SetOperatorParam 'Delay' 'P3S' dellen
  19.         SetOperatorParam 'Delay' 'P3ModShape' 'None'
  20.         SetOperatorParam 'Delay' 'Ampf' '1.25'
  21.         DisableChannel buf1 1
  22.         SetOperatorParam 'Delay' 'P1S' '0.0'
  23.         SetOperatorParam 'Delay' 'P1E' '0.5'
  24.         ProcessSample buf1
  25.         IF RC=0 THEN buf1=RESULT
  26.         ELSE buf1=-2
  27.         buf2=-1
  28.         IF buf1>-1 THEN DO
  29.             EnableChannel buf1 1
  30.             DisableChannel buf1 0
  31.             SetOperatorParam 'Delay' 'P1S' '0.5'
  32.             SetOperatorParam 'Delay' 'P1E' '0.0'
  33.             ProcessSample buf1
  34.             IF RC=0 THEN buf2=RESULT
  35.             ELSE buf2=-2
  36.             RemoveBuffer buf1
  37.         END
  38.         ELSE Message '"Operator Delay failed !"'
  39.         IF buf2>-1 THEN DO
  40.             EnableChannel buf2 0
  41.             RedrawBuffer buf2
  42.             SetActiveBuffer buf2
  43.             CleanUp 0
  44.         END
  45.         ELSE Message '"Operator Delay failed !"'
  46.     END
  47.     ELSE Message '"Stereo source required !"'
  48. END
  49. ELSE Message '"No sample to operate on !"'
  50. ActivateSFX
  51. EXIT
  52.