CHDK Wiki
Register
(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 ==
rem Written for A710IS
 
  +
rem Should be okay on others
 
  +
:'''Written for/on:''' A710IS
rem Raw on/off (Fingalo's builds only)
 
  +
:'''Also works on:''' Should be okay on others
rem braketing make 3 shots - 0 +
 
  +
:'''Required CHDK build:''' Fingalo's builds only
@title D-delay I-interval N-nr
 
  +
@param a D Shot/Braket cycl (Mins)
 
  +
<<SCRIPT DESCRIPTION>>
@default a 0
 
  +
@param b D Shot/Braket cycl (Secs)
 
  +
'''Documentation/Help''' (save as a small "<<script_filename>>.txt" file to your /CHDK/SCRIPTS/ folder)
@default b 0
 
  +
@param c N Shots/Bracket cycl
 
  +
----
@default c 1
 
  +
<<HELP TEXT>>
@param d I Shot/Braket cycl (Mins)
 
  +
----
@default d 0
 
  +
@param e I Shot/Braket cycl (Secs)
 
  +
'''Script Code''' (save as "<<script_filename>>.bas" to your /CHDK/SCRIPTS/ folder)
@default e 0
 
  +
@param f Enable RAW (0-no,1-yes)
 
  +
<pre>
@default f 0
 
 
rem Written for A710IS
@param g Braketing (0-off,1-on)
 
 
rem Should be okay on others
@default g 0
 
 
rem Raw on/off (Fingalo's builds only)
@param h Braketing Step (h/3)
 
 
rem braketing make 3 shots - 0 +
@default h 1
 
 
@title D-delay I-interval N-nr
@param i I Braket Shots (Mins)
 
 
@param a D Shot/Braket cycl (Mins)
@default i 0
 
 
@default a 0
@param j I Braket Shots (Secs)
 
 
@param b D Shot/Braket cycl (Secs)
@default j 0
 
 
@default b 0
set_raw f
 
 
@param c N Shots/Bracket cycl
if c<0 then c=1
 
 
@default c 1
if c=1 then z=0
 
 
@param d I Shot/Braket cycl (Mins)
if h<0 then h=1
 
 
@default d 0
z=(d*60)+e
 
 
@param e I Shot/Braket cycl (Secs)
n=(a*60)+b
 
 
@default e 0
k=(i*60)+j
 
 
@param f Enable RAW (0-no,1-yes)
if n>0 then gosub "delay"
 
 
@default f 0
for p=1 to c
 
 
@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
 
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
+
next p
end
+
end
  +
:interval
+
:interval
for r=1 to z
+
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
+
next r
return
+
return
  +
:delay
+
:delay
for m=0 to n-1
+
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
+
next m
return
+
return
  +
:pbraket
+
:pbraket
for r=0 to k-1
+
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
+
next r
return
+
return
  +
:braketing
+
:braketing
click "erase"
+
click "erase"
print "Preparing..."
+
print "Preparing..."
for n=1 to h
+
for n=1 to h
 
click "left"
 
click "left"
next n
+
next n
print "braket: Shoot 1 of", 2+1
+
print "braket: Shoot 1 of", 2+1
shoot
+
shoot
if k>0 then gosub "pbraket"
+
if k>0 then gosub "pbraket"
for s=1 to 2
+
for s=1 to 2
 
for n=1 to h
 
for n=1 to h
click "right"
+
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
+
next s
print "Finalizing..."
+
print "Finalizing..."
for n=1 to h
+
for n=1 to h
 
click "left"
 
click "left"
next n
+
next n
return
+
return
  +
:end
+
:end
if f=1 then set_raw 0
+
if f=1 then set_raw 0
end
+
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