home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / sfx-020m / sfx-data / _rexx / remquantnoise.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  1005 b   |  52 lines
  1. /* SFX RemQuantNoise */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. SelOperator 'Resample'
  7. SetOperatorParam 'Resample' 'I1IntType' 'Linear'
  8.  
  9. buf1=-1
  10. GetActiveBuffer
  11. buf2=RESULT
  12. IF buf2>-1 THEN DO
  13.     SetOperatorParam 'Resample' 'Factor' '0.5'
  14.     ProcessSample buf2
  15.     IF RC=0 THEN buf1=RESULT
  16.     ELSE buf1=-1
  17. END
  18. ELSE Message '"No sample to operate on !"'
  19. buf2=-1
  20. IF buf1>-1 THEN DO
  21.     SetOperatorParam 'Resample' 'Factor' '2.0'
  22.     ProcessSample buf1
  23.     IF RC=0 THEN buf2=RESULT
  24.     ELSE buf2=-1
  25.     RemoveBuffer buf1
  26. END
  27. ELSE Message '"Operator Resample failed !"'
  28. buf1=-1
  29. IF buf2>-1 THEN DO
  30.     SetOperatorParam 'Resample' 'Factor' '0.5'
  31.     ProcessSample buf2
  32.     IF RC=0 THEN buf1=RESULT
  33.     ELSE buf1=-1
  34.     RemoveBuffer buf2
  35. END
  36. ELSE Message '"Operator Resample failed !"'
  37. buf2=-1
  38. IF buf1>-1 THEN DO
  39.     SetOperatorParam 'Resample' 'Factor' '2.0'
  40.     ProcessSample buf1
  41.     IF RC=0 THEN buf2=RESULT
  42.     ELSE buf2=-1
  43.     RemoveBuffer buf1
  44. END
  45. ELSE Message '"Operator Resample failed !"'
  46. IF buf2>-1 THEN DO
  47.     SetActiveBuffer buf2
  48.     CleanUp 0
  49. END
  50. ActivateSFX
  51. EXIT
  52.