home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / SingleFrameB.clssa < prev    next >
Text File  |  1993-05-03  |  2KB  |  72 lines
  1. /***********************************************************************
  2.  GADGET: "'DX Single Frames'" "2" AUTO TYP: "?"
  3.  
  4.  $DAT >>SingleFrameB.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5.  
  6.  Dynamic single frame loader.
  7. ************************************************************************/
  8.  
  9. Options RESULTS
  10. Address clariSSA
  11.  
  12.   FailAt 10
  13.   AltFail=RESULT
  14.  
  15.   DO FOREVER
  16.     SelectAnim "Source_A Source_B Source_C Source_D",
  17.                "TITLE 'Select An Anim Buffer@to use in the calculation.'",
  18.                "REQ"
  19.     IF rc > 1 THEN LEAVE
  20.     WorkAnim=RESULT
  21.  
  22.     CloseAnim WorkAnim
  23.     IF rc > 2 THEN LEAVE
  24.  
  25.     GetDirectory "REQ TITLE 'Dyn-Single Frame Loader' FULL CUT FILES"
  26.     Dir=RESULT
  27.     IF rc~=0 | Dir="0" THEN LEAVE
  28.  
  29.     INTRequest "'Enter the number of frames@available.'1"
  30.     Number=RESULT
  31.     IF rc~=0 | Number<2 THEN LEAVE
  32.  
  33.     spez=1
  34.     INTRequest "'Enter the number of frames@to be produced'" Number
  35.     spez=RESULT
  36.     IF rc~=0 | spez<2 THEN LEAVE
  37.  
  38.     M=0
  39.     S=(spez-1)/Number
  40.     C=1
  41.     PARSE VAR File pos File
  42.     DO UNTIL Number<1
  43.       C=C+S
  44.       PARSE VAR Dir 'FILE "' name '"' Dir
  45.  
  46.       x=TRUNC(C)
  47.       IF M~=x THEN DO
  48.         rep=x-M
  49.         M=x
  50.         LoadAnim WorkAnim "NAME" name
  51.         IF rc~=0 THEN LEAVE
  52.         SetArea "FROM 1 TO 1 UP"
  53.         l=0
  54.         DO UNTIL l>=rep
  55.           l=l+1
  56.           Record "AREA"
  57.           IF rc~=0 THEN LEAVE
  58.         END
  59.         IF rc~=0 THEN LEAVE
  60.         CloseAnim WorkAnim
  61.       END
  62.       Number=Number-1
  63.       IF Dir="" THEN LEAVE
  64.     END
  65.     SelectAnim "MASTER"
  66.     LEAVE
  67.   END
  68.  
  69.   FailAt AltFail
  70.  
  71. exit
  72.