UBASIC/Scripts:symmetry EV bracketing

Symmetry EV bracketing

Written for/on: A710IS

Also works on: Should be okay on others

Required CHDK build: <<either 'any' or specify the build required>>

<<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
@title symmetry EV Braket 7
@param a Range EV (a/3 EV)
@default a 1
@param b Step size (b/3 EV)
@default b 1
@param c Shots in 1 (b/3EV ) step
@default c 1

get_prop 25 i

q=-a*32
p=b*32

if b=0 then goto "end2"
if a>12 then goto "end2"
if b>12 then goto "end2"

if c<1 then let c=1
if b>a then goto "end2"

d=(2*a/b)*p

g=2*a
if g%b>0 then goto "end2"

if d/p>1 then print "Total Shots",((d/p)+1)*c else print "Total Shots",((d/p)+2)*c 

if c>1 then print "Make",c,"Shots in 1 Step"

for s=q to -q step p

 if s=-384 then print "Shot -4 EV"
 if s=-352 then print "Shot -3 2/3 EV"
 if s=-320 then print "Shot -3 1/3 EV"
 if s=-288 then print "Shot -3 EV"
 if s=-256 then print "Shot -2 2/3 EV"
 if s=-224 then print "Shot -2 1/3 EV"

 if s=-192 then print "Shot -2 EV"
 if s=-160 then print "Shot -1 2/3 EV"
 if s=-128 then print "Shot -1 1/3 EV"
 if s=-96 then print "Shot -1 EV"
 if s=-64 then print "Shot -2/3 EV"
 if s=-32 then print "Shot -1/3 EV"

 if s=0 then print "Shot 0 EV"

 if s=32 then print "Shot +1/3 EV"
 if s=64 then print "Shot +2/3 EV"
 if s=96 then print "Shot +1 EV"
 if s=128 then print "Shot +1 1/3 EV"
 if s=160 then print "Shot +1 2/3 EV"
 if s=192 then print "Shot +2 EV"

 if s=224 then print "Shot +2 1/3 EV"
 if s=256 then print "Shot +2 2/3 EV"
 if s=288 then print "Shot +3 EV"
 if s=320 then print "Shot +3 1/3 EV"
 if s=352 then print "Shot +3 2/3 EV"
 if s=384 then print "Shot +4 EV"

 set_prop 25 s
 set_prop 26 s

 for w=1 to c

  get_prop 67 j

  if j=0 then goto "end3"
 
  shoot

 next w

next s

:end
set_prop 25 i
set_prop 26 i
end

:end2
print "Error, check parameters"
end

:end3
print "focus impossible"
print "set AF FRAME from AiAF"
print "to Center or Center to"
print "AiAF-maybe it help"
end