(New page: rem Written for A710IS rem Should be okay on others rem Raw on/off (Fingalo's builds only) rem braketing make 3 shots - 0 + @title D-delay I-interval N-nr @param a D Shot/Braket cycl...) |
m (Formatting) |
||
Line 1: | Line 1: | ||
+ | == Simple bracketing Intervalometer == |
||
⚫ | |||
+ | |||
⚫ | |||
+ | :'''Written for/on:''' A710IS |
||
⚫ | |||
+ | :'''Also works on:''' Should be okay on others |
||
⚫ | |||
+ | :'''Required CHDK build:''' Fingalo's builds only |
||
⚫ | |||
+ | |||
⚫ | |||
+ | <<SCRIPT DESCRIPTION>> |
||
⚫ | |||
+ | |||
⚫ | |||
+ | '''Documentation/Help''' (save as a small "<<script_filename>>.txt" file to your /CHDK/SCRIPTS/ folder) |
||
⚫ | |||
+ | |||
⚫ | |||
+ | ---- |
||
⚫ | |||
+ | <<HELP TEXT>> |
||
⚫ | |||
+ | ---- |
||
⚫ | |||
+ | |||
⚫ | |||
+ | '''Script Code''' (save as "<<script_filename>>.bas" to your /CHDK/SCRIPTS/ folder) |
||
⚫ | |||
+ | |||
⚫ | |||
+ | <pre> |
||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
print "Shots/Bracket cycl", p, "of", c |
print "Shots/Bracket cycl", p, "of", c |
||
if g=1 then gosub "braketing" else shoot |
if g=1 then gosub "braketing" else shoot |
||
Line 38: | Line 55: | ||
sleep z |
sleep z |
||
if z>0 then gosub "interval" |
if z>0 then gosub "interval" |
||
− | + | next p |
|
− | + | end |
|
+ | |||
− | + | :interval |
|
− | + | for r=1 to z |
|
x=z-r |
x=z-r |
||
print "Next Shot/Braket", x/60; "min" x%60+1; "sec" |
print "Next Shot/Braket", x/60; "min" x%60+1; "sec" |
||
sleep 1000 |
sleep 1000 |
||
cls |
cls |
||
− | + | next r |
|
− | + | return |
|
+ | |||
− | + | :delay |
|
− | + | for m=0 to n-1 |
|
q=n-m |
q=n-m |
||
print "Start Shot/Braket", q/60; "min" q%60; "sec" |
print "Start Shot/Braket", q/60; "min" q%60; "sec" |
||
sleep 1000 |
sleep 1000 |
||
cls |
cls |
||
− | + | next m |
|
− | + | return |
|
+ | |||
− | + | :pbraket |
|
− | + | for r=0 to k-1 |
|
t=k-r |
t=k-r |
||
print "Braket:Next Shot", t/60; "min" t%60; "sec" |
print "Braket:Next Shot", t/60; "min" t%60; "sec" |
||
sleep 1000 |
sleep 1000 |
||
cls |
cls |
||
− | + | next r |
|
− | + | return |
|
+ | |||
− | + | :braketing |
|
− | + | click "erase" |
|
− | + | print "Preparing..." |
|
− | + | for n=1 to h |
|
click "left" |
click "left" |
||
− | + | next n |
|
− | + | print "braket: Shoot 1 of", 2+1 |
|
− | + | shoot |
|
− | + | if k>0 then gosub "pbraket" |
|
− | + | for s=1 to 2 |
|
for n=1 to h |
for n=1 to h |
||
− | + | click "right" |
|
next n |
next n |
||
print "braket: Shoot", s+1, "of", 2+1 |
print "braket: Shoot", s+1, "of", 2+1 |
||
shoot |
shoot |
||
if k>0 then gosub "pbraket" |
if k>0 then gosub "pbraket" |
||
− | + | next s |
|
− | + | print "Finalizing..." |
|
− | + | for n=1 to h |
|
click "left" |
click "left" |
||
− | + | next n |
|
− | + | return |
|
+ | |||
− | + | :end |
|
− | + | if f=1 then set_raw 0 |
|
− | + | end |
|
+ | </pre> |
||
+ | |||
+ | [[Category:Scripts|Simple bracketing Intervalometer]] |
Latest revision as of 17:28, 7 November 2007
Simple bracketing Intervalometer
- Written for/on: A710IS
- Also works on: Should be okay on others
- Required CHDK build: Fingalo's builds only
<<SCRIPT DESCRIPTION>>
Documentation/Help (save as a small "<<script_filename>>.txt" file to your /CHDK/SCRIPTS/ folder)
<<HELP TEXT>>
Script Code (save as "<<script_filename>>.bas" to your /CHDK/SCRIPTS/ folder)
rem Written for A710IS rem Should be okay on others rem Raw on/off (Fingalo's builds only) rem braketing make 3 shots - 0 + @title D-delay I-interval N-nr @param a D Shot/Braket cycl (Mins) @default a 0 @param b D Shot/Braket cycl (Secs) @default b 0 @param c N Shots/Bracket cycl @default c 1 @param d I Shot/Braket cycl (Mins) @default d 0 @param e I Shot/Braket cycl (Secs) @default e 0 @param f Enable RAW (0-no,1-yes) @default f 0 @param g Braketing (0-off,1-on) @default g 0 @param h Braketing Step (h/3) @default h 1 @param i I Braket Shots (Mins) @default i 0 @param j I Braket Shots (Secs) @default j 0 set_raw f if c<0 then c=1 if c=1 then z=0 if h<0 then h=1 z=(d*60)+e n=(a*60)+b k=(i*60)+j if n>0 then gosub "delay" for p=1 to c print "Shots/Bracket cycl", p, "of", c if g=1 then gosub "braketing" else shoot if p=c then goto "end" sleep z if z>0 then gosub "interval" next p end :interval for r=1 to z x=z-r print "Next Shot/Braket", x/60; "min" x%60+1; "sec" sleep 1000 cls next r return :delay for m=0 to n-1 q=n-m print "Start Shot/Braket", q/60; "min" q%60; "sec" sleep 1000 cls next m return :pbraket for r=0 to k-1 t=k-r print "Braket:Next Shot", t/60; "min" t%60; "sec" sleep 1000 cls next r return :braketing click "erase" print "Preparing..." for n=1 to h click "left" next n print "braket: Shoot 1 of", 2+1 shoot if k>0 then gosub "pbraket" for s=1 to 2 for n=1 to h click "right" next n print "braket: Shoot", s+1, "of", 2+1 shoot if k>0 then gosub "pbraket" next s print "Finalizing..." for n=1 to h click "left" next n return :end if f=1 then set_raw 0 end