home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / Mix01.clssa < prev    next >
Text File  |  1993-05-01  |  2KB  |  65 lines
  1. /***********************************************************************
  2.  GADGET: "VR-Mix" "2" AUTO TYP: "?"
  3.  
  4.  $DAT >>Mix01.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5.  
  6.  BiDirectional Mix Procedure - Interleaves first and last, then
  7.  penultimate and second, frames etc to produce effect.
  8. ************************************************************************/
  9.  
  10. Options Results
  11. Address clariSSA
  12.  
  13.   FailAt 10
  14.   AltFail=RESULT
  15.  
  16.   DO FOREVER
  17.     Anims=""
  18.     GetAnimInfo Source_A
  19.     IF RESULT~='' THEN Anims=Anims||" Source_A "
  20.     GetAnimInfo Source_B
  21.     IF RESULT~='' THEN Anims=Anims||" Source_B "
  22.     GetAnimInfo Source_C
  23.     IF RESULT~='' THEN Anims=Anims||" Source_C "
  24.     GetAnimInfo Source_D
  25.     IF RESULT~='' THEN Anims=Anims||" Source_D "
  26.  
  27.     IF Anims~='' THEN DO
  28.       SelectAnim Anims "TITLE 'Select an animation@for bidirectional mixing.' REQ"
  29.       IF rc~=0 THEN LEAVE
  30.       SelectAnim RESULT
  31.  
  32.       GetAnimInfo
  33.       PARSE VAR RESULT . "FRAMES" Max .
  34.       IF MAX >=2 THEN DO
  35.         GetArea
  36.         MarkRange=RESULT
  37.         PARSE VAR RESULT "FROM" Start "TO" Last .
  38.         CurV=Start
  39.         CurH=Last
  40.         Number=Last-Start
  41.  
  42.         DO FOREVER
  43.           IF Number <= 0  THEN LEAVE
  44.           SetArea FROM CurV TO CurV UP
  45.           Record AREA
  46.           IF rc~=0 THEN LEAVE
  47.  
  48.           SetArea FROM CurH TO CurH Up
  49.           Record AREA
  50.           IF rc~=0 THEN LEAVE
  51.  
  52.           CurV=CurV+1
  53.           CurH=CurH-1
  54.           Number=Number-1
  55.         END
  56.         SetArea MarkRange
  57.         SelectAnim MASTER
  58.  
  59.       END; ELSE Message '"Frame Number Too Low!"'
  60.     END; ELSE Message '"No Source Anim Available!"'
  61.     LEAVE
  62.   END
  63.   FailAt AltFail
  64. exit
  65.