2011. május 29., vasárnap

Canon CHDK

A DSLR gépem óta is gyakran használom a kompakt gépemet. Persze most már más funkciót lát el. Nagyon szeretek time lapse videókat készíteni. Ehhez a Canon kompakt gépekhez elérhető CHDK-t használom. Nagyon sok script elérhető hozzá, de könnyen megírhatjuk a magunkét is, amellyel könnyen automatizálhatjuk a folyamatot.

Szerencsére ezen felül a Canon A720 kívülről is megtápolható, így könnyedén napok hosszat is képes futni. És a videó már 3 megapixeles képekből is rögtön full HD méretben élvezhető.

A képek összefűzését a Quicktime Player Pro-val készítem. De találtam egy teljesen ingyenes és könnyen használható szoftvert is ImageToAVI.

Egyik próbálkozásom:
http://www.youtube.com/watch?v=9WxGTwKKxJs

Kedvenc scriptem, amit egy kicsit személyre szabtam:

[sourcecode language="bash"]
rem Author - szbencsik
rem Written for S-Series
rem Should be okay on others
rem Use Endless mode with caution
rem See documentation for important info
@title Timelapse 02
@param h Delay 1st Shot (Hours)
@default h 0
@param a Delay 1st Shot (Mins)
@default a 0
@param b Delay 1st Shot (Secs)
@default b 0
@param c Number of Shots
@default c 5
@param i Interval (Hours)
@default i 0
@param d Interval (Minutes)
@default d 0
@param e Interval (Seconds)
@default e 0
@param g Endless? No=0 Yes=1
@default g 0

p=h*3600+a*60+b
t=i*3600+d*60+e
if t<1 then let t=1
if g<0 then let g=0
if g>1 then let g=1
if p<0 then let p=0
if c>0 then gosub "pause"
for n=1 to c
print "Shot", n, "of", c
shoot
gosub "wait"
next n
if g=1 then goto "interval" else end

:wait
r=(i*3600)+(d*60)+e
for m=1 to r
q=r-m
print "Wait..:",q/3600; "h", q/60; "m", q%60; "s"
sleep 930
next m
return

:pause
n=(h*3600)+(a*60)+b
for m=1 to n
q=n-m
print "Intvl Begins:",q/3600; "h", q/60; "m", q%60; "s"
sleep 930
next m
return
[/sourcecode]
Source code megjelenítés

Nincsenek megjegyzések:

Megjegyzés küldése