@title TV-AV-ISO Demo

@param n Tv96 1-8
@default n 1

@param d Blende [color=red]9-18[/color]
@default d 9

@param i ISO1 10x
@default i 5

@param s ISO2 1x
@default s 0

@param p ND 0=off 1=in 2=out
@default p 2

@param w Qualität 0=Super 1=Fein 2=Normal
@default w 1


if n=1 then let t=-288
if n=2 then let t=-384
if n=3 then let t=-480
if n=4 then let t=-576
if n=5 then let t=-672
if n=6 then let t=-768
if n=7 then let t=-864
if n=8 then let t=-960


set_nd_filter p

set_av d

set_iso_real (i*10)+s

set_quality q

set_tv96_direct t

sleep 1000

set_focus 65535

set_backlight 0

shoot


sleep 1000
set_backlight 1
sleep 1000
playsound 3
end

do
o=o+1
p=o*o*(o+1)*(o+1)+80
until u<p

:focus_DISP/MENU
u=(v*v*v*v)+80
if v>=12 then u=65535
if v<1 then let v=1
if v>12 then let v=12
set_focus u
get_focus t
print "focus", v; "/12 ("t; " mm)"
return

@title video SX200

@param p Metering 0E, 1S, 2C
@default p 2

@param z Zoom Stepp 1-128
@default z 20




set_zoom 0
get_prop 6 q
if q=0 then set_prop 6 1

set_prop 155 p

press "shoot_half"
sleep 800
click "shoot_full"

print "SET - Stop Rec"
print "DISP - Super Makro"
print "Shoot Half - Auto Focus"

:loop
wait_click

if is_key "zoom_in" then goto "in"
if is_key "zoom_out" then goto "out"
if is_key "left" then goto "min_focus"
if is_key "right" then goto "add_focus"
if is_key "set" then goto "end"
if is_key "shoot_half" then goto "aflock"
if is_key "display" then goto "superM"

goto "loop"


:aflock
sleep 100
set_aflock 1
goto "loop"

:superM
set_prop 6 5
sleep 200
set_aflock 1
goto "loop"


:in
if z<0 then z=1
if z>128 then z=128
set_zoom_rel +z
get_zoom r
sleep 500
set_aflock 1
print "zoom", r
sleep 500
cls
goto "loop"


:out
if z<0 then z=1
if z>128 then z=128
set_zoom_rel -z
get_zoom r
sleep 500
set_aflock 1
print "zoom", r
sleep 500
cls
goto "loop"


:add_focus
v=v+1
gosub "focus_dance"
goto "loop"

:min_focus
v=v-1
gosub "focus_dance"
goto "loop"

:focus_dance
if v<1 then let v=1
if v>11 then let v=11
u=(v*v*v*v)+80
if v=11 then u=65535
print "focus", u; "mm"
set_focus u
return


:end
click "shoot_full"
end
end
wait_click
cls
return