home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / sfx-030m / sfx-data / _rexx / widestereo.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  874 b   |  43 lines
  1. /* SFX WideStereo */
  2.  
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS REXX_SFX
  6.  
  7. GetActiveBuffer
  8. buf1=RESULT
  9. IF buf1>-1 THEN DO
  10.     GetChannels buf1
  11.     cha=RESULT
  12.     IF cha=1 THEN DO
  13.         SelOperator 'ConvertChannels'
  14.         SetOperatorParam 'ConvertChannels' 'Dest' '1'
  15.         ProcessSample buf1
  16.         IF RC=0 THEN buf1=RESULT
  17.         ELSE buf1=-2
  18.         buf2=-1
  19.         IF buf1>-1 THEN DO
  20.             DisableChannel buf1 1
  21.             SelOperator 'Invert'
  22.             SetOperatorParam 'Invert' 'P1S' '1.0'
  23.             SetOperatorParam 'Invert' 'P1ModShape' 'None'
  24.             ProcessSample buf1
  25.             IF RC=0 THEN buf2=RESULT
  26.             ELSE buf2=-1
  27.             RemoveBuffer buf1
  28.         END
  29.         ELSE Message '"Operator ConvertChannels failed !"'
  30.         IF buf2>-1 THEN DO
  31.             EnableChannel buf2 1
  32.             RedrawBuffer buf2
  33.             SetActiveBuffer buf2
  34.             CleanUp 0
  35.         END
  36.         ELSE Message '"Operator Invert failed !"'
  37.     END
  38.     ELSE Message '"Mono source required !"'
  39. END
  40. ELSE Message '"No sample to operate on !"'
  41. ActivateSFX
  42. EXIT
  43.