| Title: | Transform a Movie into a Synthetic Picture |
|---|---|
| Description: | Transform a Movie into a Synthetic Picture. A frame every 10 seconds is summarized into one colour, then every generated colors are stacked together. |
| Authors: | Vincent Guyader |
| Maintainer: | Vincent Guyader <[email protected]> |
| License: | GPL-3 |
| Version: | 0.1.2 |
| Built: | 2024-12-12 03:41:13 UTC |
| Source: | https://github.com/ThinkR-open/spongecake |
return the average color from an image
average_color(img)average_color(img)
img |
the image (a array) |
transform a folder of scrennshot into a synthetical picture
draw(folder)draw(folder)
folder |
the path of the folder |
## Not run: #options(ffmpeg = "C:/ffmpeg-3.1.4-win64-static/bin/ffmpeg.exe") # windows user library(magrittr) gen_screenshot(movie = "D:/mymovie.avi") %>% draw() ## End(Not run)## Not run: #options(ffmpeg = "C:/ffmpeg-3.1.4-win64-static/bin/ffmpeg.exe") # windows user library(magrittr) gen_screenshot(movie = "D:/mymovie.avi") %>% draw() ## End(Not run)
return the average color from all folder's images
folder_average_color(folder)folder_average_color(folder)
folder |
the path of the folder |
transform a movie into lot of screenshots
gen_screenshot(movie, folder = tempfile(), every = 10)gen_screenshot(movie, folder = tempfile(), every = 10)
movie |
the path of the movie |
folder |
the path of the folder |
every |
timbe between each screenshot in seconds |
## Not run: gen_screenshot(movie = "D:/mymovie.avi") %>% browseURL() ## End(Not run)## Not run: gen_screenshot(movie = "D:/mymovie.avi") %>% browseURL() ## End(Not run)
this package transform a movie into a simple image...
## Not run: #options(ffmpeg = "C:/ffmpeg-3.1.4-win64-static/bin/ffmpeg.exe") # windows user library(magrittr) gen_screenshot(movie = "D:/mymovie.avi") %>% draw() ## End(Not run)## Not run: #options(ffmpeg = "C:/ffmpeg-3.1.4-win64-static/bin/ffmpeg.exe") # windows user library(magrittr) gen_screenshot(movie = "D:/mymovie.avi") %>% draw() ## End(Not run)