home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / sfx-020m / sfx-doc / guides / workshop / hihat4.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  324 b   |  20 lines
  1. /* HiHat4.rexx */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. GetActiveBuffer
  7. buf1=RESULT
  8. IF buf1>-1 THEN DO
  9.     GetRate buf1
  10.     srat=RESULT
  11.     SelOperator 'Resample'
  12.     SetOperatorParam 'Resample' 'Factor' '0.5'
  13.     SetOperatorParam 'Resample' 'I1IntType' 'Lin'
  14.     ProcessSample buf1
  15.     buf2=RESULT
  16.     IF buf2>-1 THEN DO
  17.         SetRate buf2 srat
  18.     END
  19. END
  20.