home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / Form01.clssa < prev    next >
Text File  |  1993-05-01  |  1KB  |  44 lines
  1. /***********************************************************************
  2.  GADGET: "Format" "3" AUTO TYP: "?"
  3.  
  4.  $DAT >>Form01.clssa<<   01 May 1993 - (C) ProDAD Holger Burkarth
  5.  
  6.  Produces an anim copy whose fromat was predetermined.
  7. ************************************************************************/
  8.  
  9. Options Results
  10. Address clariSSA
  11.  
  12.   FailAt 10
  13.   AltFail=RESULT
  14.  
  15.   DO FOREVER
  16.     Anims=""
  17.     GetAnimInfo Source_A
  18.     IF RESULT~='' THEN Anims=Anims||" Source_A "
  19.     GetAnimInfo Source_B
  20.     IF RESULT~='' THEN Anims=Anims||" Source_B "
  21.     GetAnimInfo Source_C
  22.     IF RESULT~='' THEN Anims=Anims||" Source_C "
  23.     GetAnimInfo Source_D
  24.     IF RESULT~='' THEN Anims=Anims||" Source_D "
  25.  
  26.     IF Anims~='' THEN DO
  27.       SelectAnim Anims "TITLE 'Select a Source Animation@for the format conversion.' REQ"
  28.       IF rc~=0 THEN LEAVE
  29.       SelectAnim RESULT
  30.  
  31.       GetAnimInfo
  32.       PARSE VAR RESULT . "FORMAT" format "VIEWMODE" viewmode "FRAMES" Max .
  33.  
  34.       OpenAnim MASTER REQ  "FORMAT" format "VIEWMODE" viewmode
  35.       IF RC~=0 THEN LEAVE
  36.       Record AREA
  37.  
  38.     END; ELSE Message '"no Source anim available!"'
  39.     LEAVE
  40.   END
  41.   FailAt AltFail
  42. exit
  43.  
  44.