@title gentled chdk2 A-series Zoom and Shoot
rem author Dave Mitchell - dave@zenonic.demon.co.uk
rem this script lets a Gentled CHDK2 use two servo channels to control zooming and shooting
rem 
rem It's designed to work on A-series cameras which have a small number of zoom steps.
rem It will not work properly on S-series cameras, because these have 128 zoom steps.
rem 

while 1
   do
      a = get_usb_power
   until a>0
   if a <=4 then gosub "ch1up" else if a <=7 then gosub "ch1mid" else if a <=10 then gosub "ch1down" else if a <=13 then gosub "ch2up" else if a <=16 then gosub "ch2mid" else if a <=19 then gosub "ch2down" else print "error"
   endif
wend
end

:ch1up
   print "shoot"
   shoot
   return

:ch1mid
   print "channel 1 middle"
   return

:ch1down
   print "channel 1 down"
   return

:ch2up
   click"zoom_in"
   print "zoom in"
   return

:ch2mid
   print "channel 2 middle"
   return

:ch2down
   print "zoom out"
   click "zoom_out"
   return

return