home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaMiscModsCD3.iso / _PROGRAMME / TRACKER / PlotCMD.lha / plotcmd / mod_divide.omed < prev    next >
Encoding:
Text File  |  1999-02-14  |  580 b   |  32 lines
  1. /*
  2.     ARexx script for use with PlotCMD
  3.     (PlotCMD is a MUIRexx script for use with OctaMED Soundstudio)
  4.     Read the PlotCMD doc for details
  5. */
  6.  
  7. ADDRESS OCTAMED_REXX
  8. OPTIONS RESULTS
  9.  
  10. IN_SELECT LAST
  11. CALL checkifsample()
  12.  
  13. SA_GETSAMPLELENGTH VAR len
  14. SA_CHANGEPITCH SOURCE 2 DEST 1        /* downsample */
  15. SA_CHANGESIZE SIZE len
  16.  
  17. EXIT
  18.  
  19.  
  20.  
  21.  
  22. /*              P R O C E D U R E S
  23. -----------------------------------------------------*/
  24.  
  25. checkifsample: PROCEDURE
  26.    IN_GETTYPE VAR type
  27.    IF ~(type == SAMPLE | type == SAMPLE16) THEN DO
  28.       WI_REQUEST '"No sample!"' '"Ok"'
  29.       EXIT
  30.    END
  31. return
  32.