home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / Form02.clssa < prev    next >
Text File  |  1993-05-01  |  1KB  |  51 lines
  1. /***********************************************************************
  2.  GADGET: "'Make LACE'" "3" AUTO TYP: "?"
  3.  
  4.  $DAT >>Form02.clssa<<   01 May 1993 - (C) ProDAD Holger Burkarth
  5.  
  6.  Converts an anim which is non-interlaced into a laced anim. The
  7.  LaceCompensation has a great influence on the conversion process.
  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 conversion.' REQ"
  29.       IF rc~=0 THEN LEAVE
  30.       SelectAnim RESULT
  31.  
  32.       GetAnimInfo
  33.       PARSE VAR RESULT . "FORMAT" format "VIEWMODE" viewmode "FRAMES" Max .
  34.  
  35.       IF FIND(viewmode,"LACE")~=0 THEN DO
  36.         Message "'Anim Format is already Laced!'"
  37.  
  38.       END; ELSE DO
  39.         PARSE VAR format x y t
  40.         OpenAnim MASTER "FORMAT" x y*2 t "VIEWMODE" viewmode "LACE"
  41.         IF RC~=0 THEN LEAVE
  42.         Record AREA
  43.       END
  44.  
  45.     END; ELSE Message '"No Anim available!"'
  46.     LEAVE
  47.   END
  48.   FailAt AltFail
  49. exit
  50.  
  51.