home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / sfx-040m / sfx-data / _rexx / ghostecho.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  941 b   |  48 lines
  1. /* SFX GhostEcho */
  2.  
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS REXX_SFX
  6.  
  7. GetActiveBuffer
  8. buf1=RESULT
  9. IF buf1>-1 THEN DO
  10.     SelOperator 'Reverse'
  11.     SetOperatorParam 'Reverse' 'P1S' '1.0'
  12.     SetOperatorParam 'Reverse' 'P1ModShape' 'None'
  13.     ProcessSample buf1
  14.     IF RC=0 THEN buf1=RESULT
  15.     ELSE buf1=-2
  16.     IF buf1>-1 THEN DO
  17.         GetLength buf1
  18.         len=RESULT
  19.         GetRate buf1
  20.         rate=RESULT
  21.         len2=len+(rate/2)
  22.         SetLength buf1 len2
  23.         SelOperator 'MultiDelay'
  24.         ProcessSample buf1
  25.         IF RC=0 THEN buf2=RESULT
  26.         ELSE buf2=-2
  27.         RemoveBuffer buf1
  28.         IF buf2>-1 THEN DO
  29.             SelOperator 'Reverse'
  30.             ProcessSample buf2
  31.             IF RC=0 THEN buf1=RESULT
  32.             ELSE buf1=-1
  33.             RemoveBuffer buf2
  34.             IF buf1>-1 THEN DO
  35.                 RedrawBuffer buf1
  36.                 SetActiveBuffer buf1
  37.                 CleanUp 0
  38.             END
  39.             ELSE Message '"Operator Reverse failed !"'
  40.         END
  41.         ELSE Message '"Operator MultiDelay failed !"'
  42.     END
  43.     ELSE Message '"Operator Reverse failed !"'
  44. END
  45. ELSE Message '"No sample to operate on !"'
  46. ActivateSFX
  47. EXIT
  48.