home *** CD-ROM | disk | FTP | other *** search
- /***********************************************************************
- GADGET: "'Import VLab-Sequenz'" "4" AUTO TYP: "?"
-
- $DAT >>VLabSequence.clssa<< 21.02.1993 - (C) ProDAD Holger Burkarth
- 20.01.1995 - (C) ProDAD Michael Christoph
- ************************************************************************/
-
- Options Results
- Address clariSSA
-
- FailAt 99
- AltFail=RESULT
-
-
- SetScreenGrabber REQ TRIGGER 5
-
-
- DO FOREVER
- Address VLAB
-
- LOCKGUI ON
- GETPATH SEQUENCE
- Dir=RESULT
-
- Address clariSSA
-
- MSRequester "TITLE '*** Import VLab-Sequenz ***'",
- "''",
- "'Bearbeitungsarten:'",
- "PTEXT 'Sequenz interlaced einlesen'",
- "'Sequenz deinterlaced einlesen'"
-
- IF RC~=0 THEN LEAVE
- Art=RESULT
-
-
- GetDirectory 'REQ Name' Dir 'TITLE "Wählen Sie das erste Bild" PTEXT Laden FULL CUT FILES'
- Dir=RESULT
- IF RC~=0 THEN LEAVE
-
- PARSE VAR Dir pos Dir
- DO FOREVER
- PARSE VAR Dir 'FILE "' name '"' Dir
- IF name="" THEN LEAVE
-
- Address VLAB
- OPEN name
- IF RC ~= 0 THEN LEAVE
- IF Art=2 THEN DEINTERLACE
- CONVERT
- DISPLAY
-
- Address clariSSA
- SetScreenGrabber RECORD
- IF RC=0 THEN Stop=0
- END
-
- LEAVE
- END
-
- Address VLAB
- LOCKGUI OFF
-
- Address clariSSA
- SetBasicScreen FRONT
-
- FailAt AltFail
- exit
-