Wersja do druku
Witam, zakładając temat widzę że jest wątek co do filmu poklatkowego tylko tam chodzi o timelapse, natomiast mi chodzi o animacje poklatkową czyli coś takiego jak na filmikach poniżej
http://www.youtube.com/watch?v=mOQJE...eature=related
http://www.youtube.com/watch?v=plL-JiMGPi4
i pytanie do tego czy da się to zrobić nagrywając film czy tylko za pomocą zdjęć ?
Chciałbym coś takiego zrobić jadąc lub idąc przez miasto
Robisz film, przyśpieszasz go np 2x, a potem robisz time distortion.
Ewentualnie, zrzucasz klatki z filmu, i pracowicie losowo kasujesz klatki (można to zrobić skryptem albo batchem w schellu), potem składasz to z powrotem.
Ciężkie rzeczy mi wypisałeś postaram się to jakoś ogarnąć w jakim programie można to zrobić i wiesz może skąd wziąć skrypt ?
Time distortion można zrobić w Premiere Pro. Jeśli masz np. film nagrany w 30 klatkach i nadasz efekt time d. z ustawieniem 15 fps. to premiere wyrzuci Ci co drugą klatkę, ale każda pozostawiona klatka będzie dwukrotnie dłużej odtwarzana. Da Ci to efekt podobny do stroboskopu, ale nie będzie efektu przyśpieszenia. Dlatego na początku, trzeba trochę film przyspieszyć. Jeśli nie masz Premiere, to sciągnij sobie np. avide mux, darmowy jest. Wczytaj do niego film. On Ci tam na początku sypnie ostrzeżeniem, że musi sobie zrobić jakąś konwersję, zgódź się. W menu File, masz Save/Save Selection as Jpg Images. Wybierasz katalog docelowy i podajesz jakąś nazwę np. test. W katalogu program zrzuci Ci Twój filmik w postaci klatek, test1.jpg, test2.jpg itd. Teraz musisz pousuwać klatki, żeby był efekt stroboskopowy. Z uwagi na to, że tych klatek jest bardzo dużo, upierdliwie się je kasuje. Dlatego, trzeba sobie coś napisać do kasowania.Cytat:
Zamieszczone przez grubcio644
Np:
Option Explicit
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
DoDir FSO.GetFolder("d:\")
Sub DoDir(Folder)
On Error Resume Next
Dim File
Dim i
i=0
For Each File In Folder.Files
i=i+1
Fname = File.Name
wscript.echo (File.Name)
'if i mod 30 = 0 then exit sub
'if i mod 2 = 0 then File.Delete
Next
End Sub
Kopiujesz to do notatnika, zmieniasz d:\ w tej linii
DoDir FSO.GetFolder("d:\")
na ścieżkę to swojego folderu.
Te linie są teraz zakomentowane poprzez znaczek '
'if i mod 30 = 0 then exit sub
'if i mod 2 = 0 then File.Delete
Pierwsza ograniczą liczbę plików do 30. To jest do testów. Możesz ją usunąć jak już sobie przetestujesz.
Druga linia mówi co który plik zostanie usunięty. Jeśli usuniesz komentarz z tej linii, czyli usuniesz znaczek ', to przy pierwszym uruchomieniu, usunie Ci pliki z klatkami 2, 4, 6, 8 itd. Gdy uruchomisz ponownie, to usunie Ci pliki z klatkami, 3, 7, 11 itd. Każde kolejne uruchomienie, usuwa co drugi plik.
Żeby to uruchomić, to trzeba zapisać plik nazwa.vbs, a potem normalnie kliknąć dwukrotnie w zapisany plik. W tej chwili skrypt tylko wypisuje nazwy plików w folderze.
Jak już będziesz pewny co do działania skryptu, to wywal linię
wscript.echo (File.Name)
to Ci nie będzie okienka dialogowego otwierał z nazwą kolejnego pliku.
O pisaniu skryptów masz tutaj
http://msdn.microsoft.com/pl-pl/library/t0aew7h6.aspx
Jak już będziesz miał swoje pliki, to zaznaczasz wszystkie i przeciągasz je do Avide Muxa. Z Menu Video, wybierasz Frame Rate, ustawiasz coś tam sobie próbnie, np. 14. Potem to już trzeba filmik skonwertować do jakiegoś formatu, czyli ustawić video, audio, format i z menu File zrobić Save/Save Video.
Pierwsza metoda wymaga Premiere, druga jest darmowa i daje dobry efekt, nawet lepszy niż t.d. z Premiere, bo możesz sobie klatki jeszcze losowo powyrzucać, a w Premier efekt jest zbyt rytmiczny. Pewnie są jeszcze inne sposoby, ale ja nie znam.
!!! Łączenie podwójnego wpisu !!!
Jeszcze taka uwaga. Nie wrzucaj za dużo plików do AvideMuxa bo zjada pamięć i pada.