home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / sfx-020m / sfx-doc / guides / workshop / warp7.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  550 b   |  26 lines
  1. /* Warp6.rexx */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. SearchBuffer "'Warp6'"
  7. buf1=RESULT
  8. SearchBuffer "'Warp5'"
  9. buf2=RESULT
  10. IF buf1>-1 AND buf2>-1 THEN DO
  11.     SelOperator 'Amplify'
  12.     SetOperatorParam 'Amplify' 'P1S' '0.0'
  13.     SetOperatorParam 'Amplify' 'P1E' '1.0'
  14.     SetOperatorParam 'Amplify' 'P1ModShape' 'User'
  15.     SetOperatorParam 'Amplify' 'P1UserMode' 'Stretch'
  16.     SetOperatorParam 'Amplify' 'P1UserModBuf' buf2
  17.     ProcessSample buf1
  18.     buf3=RESULT
  19.     IF buf3>-1 THEN DO
  20.         RenameBuffer buf3 "'Warp7'"
  21.         RemoveBuffer buf1
  22.         SetActiveBuffer buf3
  23.         CleanUp 0
  24.     END
  25. END
  26.