Because my tomatoes are growing unexpectedly fast I had to stop capturing pictures quicker than I have planned as they do not fit in the frame.
So 2664 pictures was taken from 16.03 to 23.04 at 20 minutes interval. The video size is about 715 Mb and the video length is 3min 43 seconds (at 12 fps or 1:47 at 25 fps).
Ustaliłem empirycznie w jaki sposób podłączyć aparat do Raspberry Pi (do SheevaPlug zresztą też) żeby nic się nie zacinało. W skrócie:
Używam kompakta Nikon S3000 (Canon A620 się zacinał/odłączał--sprzedałem go na Allegro).
Podłączam aparat poprzez aktywny USB hub (kupiłem w tym celu cztero-portowy HUB firmy Vivanco).
Po każdym zdjęciu wykonuję reset stosownego portu USB za pomocą programiku pn. usb_reset
(zobacz tutaj
oraz tutaj).
Używam dwóch aparatów Nikon S3000 (kupionych na Allegro oczywiście), więc jest problem z ustaleniem który jest który:
$gphoto2 --auto-detect Model Port ---------------------------------------------------------- Nikon Coolpix S3000 (PTP mode) usb:001,022 Nikon Coolpix S3000 (PTP mode) usb:001,021
Można użyć opcji --port usb:001,022
aby wykonać coś
z ,,pierwszym'' aparatem oraz --port usb:001,021
, aby dostać się do drugiego.
Oczywiście umieszczenie numerów portów na-zicher w skryptach byłoby kiepskim pomysłem
ponieważ nie są one ustalone, ale się zmienią jeżeli urządzenie zostanie odłączone/przyłączone ponownie.
Lepszym sposobem zidentyfikowania aparatów jest wykorzystanie numeru seryjnego:
## $gphoto2 --get-config serialnumber --port PORT ## example $gphoto2 --get-config serialnumber --port usb:001,022 Label: Serial Number Type: TEXT Current: 000047514512
Mam czarnego Nikona o numerze 000041076602 oraz różowego o numerze 000047514512. Używam następującego skryptu do wykonania zdjęcia określonym aparatem:
#!/bin/bash PINK_CAM_ID='000047514512' BLACK_CAM_ID='000041076602' while test $# -gt 0; do case "$1" in -b|--black) REQ_CAM="$BLACK_CAM_ID";; -p|--pink) REQ_CAM="$PINK_CAM_ID";; esac shift done ## Nazwa pliku ze zdjęciem: FILENAME="NIK`date +"%Y%m%d%H%M"`.jpg" ## Przejrzyj wszystkie podłączone aparaty: while read PORT_ID do ##echo $PORT_ID ## -n means string is non-empty if [ -n "$PORT_ID" ] ; then CAM_ID=`gphoto2 --get-config serialnumber --port $PORT_ID | awk '/Current:/ { print $2 }' ` if [ $CAM_ID = "$REQ_CAM" ] ; then REQ_CAM_PORT="$PORT_ID" ##echo "*** Req Camera ID: #$CAM_ID." fi fi done <<< "`gphoto2 --auto-detect | grep usb | awk '{ print $6}'`" # Na wypadek błędu wyślij alarmowego SMSa if [ -z "$REQ_CAM_PORT" ] ; then echo "*** Error: Camera $REQ_CAM not found ***" ## sent a SMS cf http://pinkaccordions.homelinux.org/wblog/sms_alerts_with_google_calendar.html sms_reminder.sh exit 1 fi ## reset USB REQ_CAM_PORT_DEVNAME=`echo $REQ_CAM_PORT | sed 's/^.*://' | sed 's/,/\//'` usb_reset /dev/bus/usb/${REQ_CAM_PORT_DEVNAME} LANG=C gphoto2 --port "$REQ_CAM_PORT" --force-overwrite --set-config flashmode=1 \ --set-config d002=4 \ --capture-image-and-download --filename "$FILENAME" ## reset USB (powtórny) usb_reset /dev/bus/usb/${REQ_CAM_PORT_DEVNAME}
Właściwość d002
ustawia rozdzielczość zdjęcia (4 oznacza 2592x1944).
Wartość 1 właściwościflashmode
wyłącza flash.
Z moich eksperymentów wynika, że bez wykonania
usb_reset
bateria aparatu nie jest doładowywana (czemu?) i po
pewnym czasie z powodu braku zasilania aparat odłącza się.
Po czterech tygodniach mam wystarczająco dużo zdjęć aby spróbować zrobić pierwszy film.
Najpierw konwertuję wszystkie zdjęcia do rozdzielczości 1920x1080 za pomocą
programu convert
(z zestawu ImageMagick)
uruchamianego z ,,wewnątrz'' prostego skryptu Perla. Ponieważ nazwy plików wejściowych są
konstruowane wg schematu NIKYYYYMMDDHHMM.jpg
(gdzie YYY to rok, MM oznacza miesiąc, itd.)
sortowanie alfabetyczne oznacza ustawienie ich także we właściwym porządku chronologicznym.
Nazwy plików wynikowych są zaś konstruowane jako:
hd1920_00001.jpg
, hd1920_00002.jpg
, itd.
#!/usr/bin/perl opendir (DIR, "."); my @files = sort { $a cmp $b } readdir(DIR); while (my $file = shift @files ) { if ($file =~ /.jpg$/) { $fileNo++; $file_out = sprintf "hd1920_%05d.jpg", $fileNo; print "$file -> $file_out\n"; system ("convert", $file, "-geometry", "1920x1080", "$file_out"); } }
Okazało się, że jest dokładnie 1784 zdjęć:
$ls -l hd1920_0* | wc -l 1784
Konwersja trwała około 30 min na moim przeciętnym zupełnie PC-cie. Każdy plik wynikowy miał około 0,5Mb; wszystkie razem zajmowały około 0,85Gb:
$ls -l hd1920_0* | awk '{t+=$5}; END{print t}' 853332231
Film został wykonany za pomocą programu ffmpeg
:
ffmpeg -r 12 -qscale 2 -i hd1920_%05d.jpg Tomato_12.mp4
Gdzie -r 12
oznacza liczbę klatek na sekundę (12 fps)
a -qscale
określa jakość (1 oznacza najlepszą,
32 najgorszą jakość).
Film ma około 450 Mb. Konwersja zajmuje około 3min (on my decent PC) a długość filmu to 2min i 29 sekundy.
Film przedstawia sadzonkę pomidora (Pinkaccordion oczywiście :-). Zdjęcia były robione co 20 minut od 16 marca do 11 kwietnia.
After almost 4 weeks I have enough pictures to create my first video production. (How to capture images with a still camera attached to Raspberry Pi is described here and here.)
I started from converting all pictures to 1920x1080 resolution with convert
run from a simple Perl script. As the input file
names are constructed as NIKYYYYMMDDHHMM.jpg
(where YYY denotes year, MM denotes month etc)
alphabetic sorting is OK. The resulting files
are named as hd1920_00001.jpg
, hd1920_00002.jpg
, etc.
#!/usr/bin/perl opendir (DIR, "."); my @files = sort { $a cmp $b } readdir(DIR); while (my $file = shift @files ) { if ($file =~ /.jpg$/) { $fileNo++; $file_out = sprintf "hd1920_%05d.jpg", $fileNo; print "$file -> $file_out\n"; system ("convert", $file, "-geometry", "1920x1080", "$file_out"); } }
There are exactly 1784 pictures:
$ls -l hd1920_0* | wc -l 1784
Conversion of all images lasted circa half an hour on my decent PC. Each picture size is about 0,5Mb, while the total size is 0,85Gb:
$ls -l hd1920_0* | awk '{t+=$5}; END{print t}' 853332231
To create a video from the images I run ffmpeg
now:
ffmpeg -r 12 -qscale 2 -i hd1920_%05d.jpg Tomato_12.mp4
Where -r 12
means frames ratio (12 fps) and -qscale
determines
video quality (1 denotes best quality and 32 is the lowest one).
The video size is about 450 Mb. The conversion takes circa 3min (on my decent PC) and the video length is 2min 29 seconds.
The movie's subject is a growing tomato (Pinkaccordion variety of course:-). The photographs were taken every 20 minutes from March 16th to April 11th.
Pythonowy skrypy youtube-dl
przestał działać pyszcząc:
ERROR: unable to download video (format may not be available).
Trzeba ściągnąć nową wersję:
http://rg3.github.com/youtube-dl/download.html
Z zapisków wynika, że kiedyś zainstalowałem
go aptem
, więc może pomógłby jakiś update.
Ale to następnym razem. Teraz już nie będę próbował, bo
zainstalowałem youtube-dl
ręcznie.
IMHO śmieszna etiuda z niedzielnego rowerowania (oryginalna ścieżka dźwiękowa).
A tutaj dłuższa forma z tego samego dnia...
Ponieważ opisany
poprzednio
uploader filmów na YT przestał działać przyjrzałem się bliżej skryptowi
youtube-upload.py.
Od pierwszego strzału nie działa, ale...
Skrypt ten
wymaga do działania programu ffmpeg
, który to program
służy wyłącznie do obliczenia czasu trwania filmu.
W przypadku szewy uruchamianie ffmpeg
chyba nie jest dobrym pomysłem, a uruchamianie
tylko po to żeby obliczyć ile trwa film to w ogóle beznadziejna sprawa...
Zatem ,,rozbroiłem'' skrypt, wpisując na zicher w odpowiednie miejsce długość filmu jako 60 (pewnie sekund):
def get_video_duration(video_path): """Return video duration in seconds.""" #errdata = ffmpeg("-i", video_path) #match = re.search(r"Duration:\s*(.*?),", errdata) #if not match: # return #strduration = match.group(1) #return sum(factor*float(value) for (factor, value) in # zip((60*60, 60, 1), strduration.split(":"))) return 60
Wygląda że działa.... Opis filmu dodaję po załadowaniu...
Skrypt youtube-upload.py
korzysta z API jest zatem dużo większa szansa,
że nagle przestanie działać (jak to było z poprzednio
wykorzystywanym
programem).
Do działania potrzebna jest też biblioteka
python-gdata, która wszakże zainstalowała
się na szewie w/o problems.
Trudno jest znaleźć gotowe i działające rozwiązanie pn. jak wysłać (upload) film na YT, nie używając formularza i przeglądarki. Teoretycznie jest API; jest tam nawet to opisane, ale jakoś tak na tyle pokrętnie, że nie mogę się połapać na szybko jak to zaimplementować. Szukałem po linii Pythona, por. Getting comments from youtube via... oraz python uploading scripts for youtube. Nic z tego nie wyszło...
Działa za to skrypt opisany na stronie How to Upload YouTube Videos Programmatically. Nie korzysta on wprawdzie z API--udaje przeglądarkę i analizuje kod HTML metodą data scrapping. Data scrapping ma ten minus, że w każdej chwili może przestać działać ale może nie będzie aż tak źle. Takie sztuczki sam kiedyś stosowałem, zresztą (por. Czy flickr umie liczyć -- rozwiązanie).
Przechodząc do konkretów. Uruchomienie skryptu ytup.pl
wygląda następująco:
perl ytup.pl -l login -p hasło -c nr_kategorii -d opis - t tytuł_filmu -x słowa-kluczowe -f plik
Ja chcę uruchamiać ytup.pl
w nocy, jak wszyscy śpią. W tym celu opis filmu
wstawiam do pliku z rozszerzenie .descr
, np.:
-t Elka plays accordion -d Elka's warm-up exercises -x elka,accordion,weltmaister,rehearsal,music,warm-up -c 24 -f Zi6_0042.MOV
Jak widać, plik zawiera wszystko co trzeba do uruchomienia skryptu ytup.pl
.
Teraz inny plik przegląda wybrane katalogi, czyta pliki .descr
i uruchamia ytup.pl
[pliki Video
i pliki .descr
muszą być w tym samym katalogu]:
#!/usr/bin/perl use File::Spec; use File::Basename; my $YTlogin = 'login'; ## wstaw login my $YTpassword = 'hasło'; ## wstaw hasło my $YTlog_file = "/home/tomek/SD/ytube/logs/YT_Upload.log"; my $PerlProg = "/usr/bin/perl"; my $PerlScript = '/home/tomek/bin/ytup.pl'; my @YT_watch_dirs=('/home/tomek/SD/ytube/upload', '/public/sheeva/winstuff/YTube'); open LOG, ">>$YTlog_file"; for my $dir (@YT_watch_dirs) { # Read directory and collect description files. opendir(DIR, $dir) or die "*** Can't open directory $dir: $!."; print STDERR "*** Processing directory: $dir\n"; my $count = 0; while (defined(my $file = readdir(DIR))) { if ($file =~ /^\./) { next ; } # pomin plik z kropka na poczatku if ($file =~ /\.descr$/) { $file = File::Spec->rel2abs(File::Spec->join($dir,$file)); print STDERR "*** Description file: $file\n"; Upload_video($file); rename($file, "${file}_") || print LOG "Problem ze zmiana $file => ${file}_\n"; $count++; } } closedir(DIR); print STDERR " $count .dscr file" . ($count!=1?'s':'') . ".\n"; } close(LOG); ### ### ### sub Upload_video { # Przeczytaj plik z opisem, wyslij plik video za pomoca system(...) my $file_name = shift ; my $key, $val; my @Options = (); open (DESCRIPTION, $file_name); while (<DESCRIPTION>) { # plik zawiera w kazdym wierszu: opcja spacja wartosc-opcji $_ =~ /([-\w]+)\s+(\S.*)/; $key = $1; $val = $2; # na wszelki wypadek if ($key =~ /-f/) { $val = dirname($file_name) . "/$val" ; } push (@Options, ("$key", "$val")); } my @UploadScript = ($PerlProg, $PerlScript, '-l', $YTlogin, '-p', $YTpassword, @Options); print STDERR "*** Executing: @UploadScript\n"; system ( @UploadScript ) == 0 || print LOG "Problem z zaladowaniem pliku $file_name\n" ; }
Powyższy plik jest uruchamiany -- w stosownym momencie
-- przez crona
,
a przesłany film jest tutaj.