home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / sfx-020m / sfx-data / _rexx / zoomloopstart.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  436 b   |  27 lines
  1. /* SFX ZoomLoopStart */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. GetActiveBuffer
  7. buf1=RESULT
  8. IF buf1>-1 THEN DO
  9.     GetLoopMode buf1
  10.     if RESULT=1 THEN DO
  11.         GetLength buf1
  12.         slen=RESULT
  13.         GetLoopStart buf1
  14.         ls=RESULT
  15.         zs=ls-50
  16.         IF zs<0 THEN zs=0
  17.         zl=100
  18.         IF (zs+zl)>=slen THEN zl=slen-zs
  19.         SetZoomXStart buf1 zs
  20.         SetZoomXLength buf1 zl
  21.     END
  22.     ELSE Message '"No loop is set !"'
  23. END
  24. ELSE Message '"No sample to operate on !"'
  25. ActivateSFX
  26. EXIT
  27.