here's i'm trying accomplish:
item 1. drop folder contains multiple image sequences onto applet.
firstimageseq0001.png firstimageseq0002.png firstimageseq0003.png secondimageseq0001.png secondimageseq0002.png secondimageseq0003.png thirdimageseq0001.png thirdimageseq0002.png thirdimageseq0001.png item 2. each group of sequences in folder , make quicktime mov
the script have allows me drop folder on applet , creates movie first set of images. how continue next set of images?
on open collection tell application "finder" set thesequence first item of folder collection alias tell application "quicktime player 7" activate open image sequence thesequence frames per second 30 set namesequence (thesequence string) & ".mov" tell document 1 timeout of 500 seconds save self contained in namesequence end timeout end tell end tell end open
the easiest way keep working on first item, once processed, delete file same root name , run again. script bellow this.
you must define lastdigitscount according file names. instance firstimageseq0001.png, lastdigitscount should @ least 8 means '0001.png' excluded rootname ofthe sequence.
set lastdigitscount 8 -- number of chars right contain extension , counters set myfolder "imac27:users:my_user:desktop:test:" repeat tell application "finder" if ((count items of folder (myfolder alias)) = 0) return set thesequence first item of folder myfolder alias set rootname name of thesequence set rootname text 1 thru ((length of rootname) - lastdigitscount) of rootname end tell -- make quicktime routine here tell application "quicktime player 7" activate open image sequence thesequence frames per second 30 set namesequence (thesequence string) & ".mov" tell document 1 timeout of 500 seconds save self contained in namesequence end timeout end tell end tell -- delete files same rootname tell application "finder" set mypng every item of folder (myfolder alias) name contains rootname delete mypng end tell end repeat 
Comments
Post a Comment