home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / ImportADPro.clssa < prev    next >
Text File  |  1993-05-01  |  2KB  |  84 lines
  1. /***********************************************************************
  2.  GADGET: "'Import ADPro'" "4" AUTO TYP: "?"
  3.  
  4.  $DAT >>ImportADPro.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options Results
  8.  
  9.   errvari=0
  10.  
  11.   DO FOREVER
  12.     ADDRESS clariSSA
  13.     SetScreenGrabber REQ TRIGGER 5
  14.  
  15.     ADDRESS "ADPro"
  16.  
  17.     ADDRESS clariSSA
  18.     GetDirectory "REQ TITLE '*** Load Single Frames ***' FULL CUT FILES"
  19.     Dir=RESULT
  20.     IF RC~=0 | Dir="0" THEN LEAVE
  21.     PARSE VAR Dir x Dir
  22.  
  23.     BOOLRequest "'*** Import ADPro ***''Install in ADPro ''change?'"
  24.     IF RC~=0 THEN LEAVE
  25.     IF RESULT="YES" THEN DO
  26.       PARSE VAR Dir 'FILE "' name '"' Dir
  27.       ADDRESS "ADPro"
  28.       LFORMAT "IFF"
  29.       ADPRO_TO_FRONT
  30.       LOAD "'"name"'"
  31.       LEAVE
  32.     END
  33.  
  34.     ADDRESS "ADPro"
  35.     RENDER_TYPE
  36.     RenderType=ADPRO_RESULT
  37.     SCREEN_TYPE
  38.     ScreenType=ADPRO_RESULT
  39.  
  40.     ADDRESS clariSSA
  41.  
  42.     spec=1
  43.     INTRequest "'Enter the number' 'of images to' 'be produced.' 1"
  44.     spec=RESULT
  45.     IF rc~=0 | spec<2 THEN LEAVE
  46.  
  47.  
  48.     PARSE VAR Dir x Dir
  49.     l=0
  50.     DO UNTIL Dir="" | l > spec
  51.       PARSE VAR Dir 'FILE "' name '"' Dir
  52.  
  53.       ADDRESS "ADPro"
  54.       LOAD "'"name"'"
  55.       SCREEN_TYPE ScreenType
  56.       RENDER_TYPE RenderType
  57.       EXECUTE
  58.       ADPRO_DISPLAY
  59.  
  60.       IF RC = 0 THEN DO
  61.         ADDRESS clariSSA
  62.         SetScreenGrabber RECORD
  63.       END ; ELSE errvari=1;
  64.  
  65.       ADDRESS clariSSA
  66.       IF errvari~=0 THEN DO
  67.         Message "'<Import ADPro>' 'Operational Error'"
  68.         LEAVE
  69.       END
  70.       ADDRESS "ADPro"
  71.       ADPRO_UNDISPLAY
  72.       l=l+1
  73.     END
  74.  
  75.     ADDRESS clariSSA
  76.     SetBasicScreen FRONT
  77.     SelectAnim Master
  78.     SetArea Full
  79.  
  80.     LEAVE
  81.   END
  82. exit
  83.  
  84.