home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / sfx-020m / sfx-doc / guides / workshop / warp4.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  453 b   |  23 lines
  1. /* Warp4.rexx */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. SearchBuffer "'Warp3'"
  7. buf1=RESULT
  8. IF buf1>-1 THEN DO
  9.     SelOperator 'Slide'
  10.     SetOperatorParam 'Slide' 'P1S' "'0 lv'"
  11.     SetOperatorParam 'Slide' 'P1E' "'-25000 lv'"
  12.     SetOperatorParam 'Slide' 'P1ModShape' 'Curve'
  13.     SetOperatorParam 'Slide' 'P1CurveExp' '1.0'
  14.     ProcessSample buf1
  15.     buf2=RESULT
  16.     IF buf2>-1 THEN DO
  17.         RenameBuffer buf2 "'Warp4'"
  18.         RemoveBuffer buf1
  19.         SetActiveBuffer buf2
  20.         CleanUp 0
  21.     END
  22. END
  23.