home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / SingleFrameA.clssa < prev    next >
Text File  |  1993-05-02  |  3KB  |  100 lines
  1. /***********************************************************************
  2.  GADGET: "'Load Single Frames'" "7" AUTO TYP: "?"
  3.  
  4.  $DAT >>SingleFrameA.clssa<< 02 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options RESULTS
  8. Address clariSSA
  9.  
  10.   FailAt 11
  11.   AltFail=RESULT
  12.  
  13.   GetPref
  14.   IF FIND(RESULT,"LaceCompensation")>0 THEN PV=1
  15.   ELSE                                      PV=0
  16.  
  17.   DO FOREVER
  18.     Art=1
  19.     GetAnimInfo Master
  20.     IF RESULT~="" THEN DO
  21.       MSRequester "TITLE '*** Load Single Frames ***''MASTER buffer is already in use.'",
  22.                   "PTEXT 'Attach single frames to MASTER''Create New MASTER'"
  23.       IF RC~=0 THEN LEAVE
  24.       Art=0
  25.       IF RESULT=2 THEN DO
  26.         Art=1
  27.         CloseAnim Master
  28.         IF RC~=0 THEN LEAVE
  29.       END
  30.     END
  31.  
  32.     GetDirectory "REQ TITLE '*** Load First Frame***' FULL CUT FILES"
  33.     Dir=RESULT
  34.     IF RC~=0 | Dir="0" THEN LEAVE
  35.  
  36.     PARSE VAR Datei pos Datei
  37.     PARSE VAR Dir 'FILE "' name '"' .
  38.     GetFileInfo "NAME" name
  39.     IF RC~=0 THEN LEAVE
  40.     PARSE VAR RESULT . "FORMAT" ex ey et "VIEWMODE" eViewMode "FRAMES" .
  41.  
  42.     INTRequest "'Enter Number of frames' 1"
  43.     Anz=RESULT
  44.     IF RC~=0 | Anz<2 THEN LEAVE
  45.  
  46.  
  47.     IF Art=1 THEN DO
  48.       LaArt=3
  49.       IF FIND(eViewMode,"LACE")<1 THEN DO
  50.         IF PV=1 THEN DO
  51.           MSRequester "TITLE '*** Load Single Frames ***''Single Frames do not Contain LACE => CANNOT DISPLAY''FORMAT: "ex ey et eViewMode "'",
  52.                       "PTEXT 'Convert To LACE + Correct Proportions''Convert To LACE''Load Normally'"
  53.           IF RC~=0 THEN LEAVE
  54.           LaArt=RESULT
  55.           IF      LaArt=1 THEN SetPref LaceCompensation ON
  56.           ELSE IF LaArt=2 THEN SetPref LaceCompensation OFF
  57.         END; ELSE DO
  58.           MSRequester "TITLE '*** Load Single Frames ***''Single Frames do not Contain LACE => CANNOT DISPLAY''FORMAT: "ex ey et eViewMode "'",
  59.                       "PTEXT 'Convert To LACE + Correct Proportions''Load Normally'"
  60.           IF RC~=0 THEN LEAVE
  61.           LaArt=RESULT
  62.           IF LaArt=2 THEN LaArt=3
  63.         END
  64.       END
  65.  
  66.       IF LaArt<3 THEN DO
  67.         OpenAnim MASTER "FORMAT" ex ey*2 et "VIEWMODE" eViewMode LACE
  68.         IF RC~=0 THEN LEAVE
  69.       END
  70.  
  71.     END
  72.     IF Art=0 THEN DO
  73.       IF PV=1 THEN DO
  74.         GetAnimInfo Master
  75.         PARSE VAR RESULT . "FORMAT" mx my mt "VIEWMODE" mViewMode "FRAMES" .
  76.         IF FIND(mViewMode,"LACE")>0 THEN DO
  77.           IF FIND(eViewMode,"LACE")<1 THEN DO
  78.             MSRequester "TITLE '*** Load Single Frames ***''MASTER-Anim contains LACE,''Single Frames contain no LACE'' '",
  79.                         "'>>Frame Proportion is Different<<'' '",
  80.                         "'MASTER FORMAT: "mx my mt mViewMode "'",
  81.                         "'Frame   FORMAT: "ex ey et eViewMode "'",
  82.                         "PTEXT 'Convert To LACE + Correct''Convert To LACE'"
  83.             IF RC~=0 THEN LEAVE
  84.             IF      RESULT=1 THEN SetPref LaceCompensation ON
  85.             ELSE IF RESULT=2 THEN SetPref LaceCompensation OFF
  86.           END
  87.         END
  88.       END
  89.     END
  90.  
  91.     LoadAnim Master "NAME" name "FRAMES" Anz
  92.  
  93.     LEAVE
  94.   END
  95.  
  96.   SelectAnim Master
  97.  
  98.   FailAt AltFail
  99. exit
  100.