home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / VLabSequence.clssa < prev   
Text File  |  1993-07-15  |  1KB  |  64 lines
  1. /***********************************************************************
  2.   GADGET: "'Import VLab-Seq.'" "4" AUTO TYP: "?"
  3.  
  4.   $DAT >>VLabSequence.clssa<<   21 Feb 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options Results
  8. Address clariSSA
  9.  
  10.   FailAt 10
  11.   AltFail=RESULT
  12.   SetScreenGrabber REQ TRIGGER 5
  13.  
  14.  
  15.   DO FOREVER
  16.     ADDRESS VLAB
  17.  
  18.     LOCKGUI ON
  19.     GETPATH SEQUENCE
  20.     Dir=RESULT
  21.  
  22.     ADDRESS clariSSA
  23.  
  24.     MSRequester "TITLE '*** Import VLab-Sequenz ***''''Method:'",
  25.                 "PTEXT 'Import interlaced sequence'",
  26.                       "'Import non-interlaced sequence'"
  27.  
  28.     IF RC~=0 THEN LEAVE
  29.     Art=RESULT
  30.  
  31.  
  32.     GetDirectory 'REQ Name' Dir 'TITLE "Choose the first image" PTEXT Laden FULL CUT FILES'
  33.     Dir=RESULT
  34.     IF RC ~= 0 THEN LEAVE
  35.  
  36.     PARSE VAR Dir pos Dir
  37.     DO FOREVER
  38.       PARSE VAR Dir 'FILE "' name '"' Dir
  39.       IF name="" THEN LEAVE
  40.  
  41.       ADDRESS VLAB
  42.       OPEN name
  43.       IF RC ~= 0 THEN LEAVE
  44.       IF Art=2 THEN   DEINTERLACE
  45.       CONVERT
  46.       DISPLAY
  47.  
  48.       ADDRESS clariSSA
  49.       SetScreenGrabber RECORD
  50.       if RC = 0 then Stop = 0
  51.     END
  52.  
  53.     LEAVE
  54.   END
  55.  
  56.   ADDRESS VLAB
  57.   LOCKGUI OFF
  58.  
  59.   Address clariSSA
  60.   FailAt AltFail
  61.   SetBasicScreen FRONT
  62.  
  63. exit
  64.