Fandom

CHDK Wiki

UBASIC/Scripts:Simple bracketing Intervalometer

< UBASIC

598pages on
this wiki
Add New Page
Talk0 Share

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.

Simple bracketing Intervalometer Edit

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

Also on Fandom

Random Wiki