The application I am working on is taking a series of images (time lapse) and combining them into an .avi file. That part works well. Now I would like to superimpose on each image the date and time. I know how to do the superimpose, but cannot figure out how to make this happen inside of the code that brings in the images.
here is the code. pictures will be a list of images, pathname is the path to the subdirectory, pixss is the list of filenames that are to be imported.
pictures = Import[pathname <> #] & /@ pixss
The following are a function and the command to make the superimpose work.
img = Import["IMG_7038.jpg"];
year = 2013;
month = 3;
day = 4;
hour = 5;
min = 6;
overlay[img1_, yr_, mon_, day_, hr_, min_] :=
Overlay[{img1,
Framed[Graphics[{Text[
Style[DateString[{yr, mon, day, hr, min}, {"Month", "/", "Day",
"/", "YearShort", "--", "Hour", ":", "Minute"}], White,
24], {1, 1}]}, ImageSize -> {200, 24}], Background -> Black]},
Alignment -> Top]
img = Overlay[{img, overlay[img, year, month, day, hour, min]},
Alignment -> Top]
So, how can i put the function inside of the import code?
thanks for ideas and assistance.
Steve
