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