UBASIC/Scripts: Easy Zoom & MF while Video Recording

Easy Zoom & MF while Video Recording

Fixed bug (zoom works even at beginning)

Written for/on: A710IS

Also works on: All Canon camers with edition of zoom steps and MF params (see below), without edit on A700,A720, and maybe A6x0 (14 zoom steps)

Required CHDK build: I don't now, uses get_prop and set_zoom_rel

Usage:

Run script. Video recording will start.

Controls:

• shoot half: change zoom step: 1->3(default)->5->7->1->...
• zoom in and out: zooming by set step
• MENU: Stop recording
• left/right: min/max zoom
• ERASE->UP->SET->DOWN->DISP: change focus: near->far

Note: very loud whirring/buzzing sounds recorded in video on most cameras.

Adaptation for other models:

• for changing mf steps edit these five lines

f is_key "..." then set_focus ...

• for change zoom boundaries edit:

if is_key "left" then set_zoom_rel -<<<zoom steps of your camera( 99 will be universal?)>>>

• also here zoom steps-1

if z>13 then z=13

Script Code (save as "ZoomVdeo.bas" to your /CHDK/SCRIPTS/ folder)

rem mart22, based on kamil
@title Zoom and Focus video

s=3
z=s

get_prop 12 q
if q=0 then set_prop 12 1

press "shoot_half"
sleep 800
click "shoot_full"

:loop
wait_click
if is_key "zoom_in" then goto "in"
if is_key "zoom_out" then goto "out"

if is_key "erase" then set_focus 59
if is_key "up" then  set_focus 120
if is_key "set" then set_focus 600
if is_key "down" then set_focus 2000 
if is_key "display" then set_focus 65535

if is_key "left" then set_zoom_rel -15
if is_key "right" then set_zoom_rel 15

if is_key "shoot_half" then goto "changestep"
if is_key "shoot_full" then goto "xend"
if is_key "menu" then goto "xend"
goto "loop"

:changestep
if s=7 then s=1 else s=s+2
z=s
print "step ",z
goto "loop"


:in
if z<0 then z=1
if z>13 then z=13
set_zoom_rel z
get_zoom r
print "zoom ", r
goto "loop"

:out
if z<0 then z=1
if z>13 then z=13
set_zoom_rel -z
get_zoom r
print "zoom ", r
goto "loop"



:xend
click "shoot_full"
set_prop 12 q
end

--88.102.189.164