je prends vos discussions en cours - ou en parallèle Gilbert
- et vous livre si intérêt la dernière mise au point de mes réflexions sur chdk+camremote.
objectif: partir du script de Linnar et ajouter le décalage d'exposition (bouton 8+1, 8+2) et le changement d'iso (8+3,8+4), ainsi que la fonction 8+5 pour jeter un coup d'oeil aux paramètres de l'image.
NB cela semble fonctionner mais pas encore de tests sur le terrain, à évaluer avec précaution donc.
NB2 il reste beaucoup d'infos sur l'écran pour le suivi mais il faudra en enlever pour ... pouvoir voir les images sur l"écran. Cela fait partie des choses qui pourront être retirées pour finaliser...mais la finalisation n'est pas mon fort !
NB3 fonctionne en CHDK et non CHDK+ (je n'ai pas bien saisi ni pourquoi ni comment !)
@title CR-CHDK
rem inpired by VP-Systems
rem 04-11-2012
m=0
z=0
f=0
rem set_zoom_speed 10
rem set_zoom 0
rem goto "cr_fast"
rem CAMremote-1/2 (4-pin USB connector). Control Method: USB/CHDK
:cr_normal
print "CR: USB/CHDK"
while 1
do
c = get_usb_power
until c>0
print c
if c>74 then gosub "review8_5"
if c>67 then gosub "pwroff8_6"
if c>59 then gosub "stop_video"
if c>54 then gosub "evup8_2"
if c>48 then gosub "evdn8_1"
if c>40 then gosub "iso100_8_3"
if c>35 then gosub "iso+8_4"
if c>28 then gosub "rec_video"
if c>21 then gosub "zin"
if c>13 then gosub "zout"
if c>0 then gosub "shoot"
wend
end
rem CAMremote-2 (Mini USB connector). Control Method: USB/CHDK+
:cr_fast
print "CR: USB/CHDK+"
while 1
do
c = get_usb_power
until c>0
if c>41 then gosub "pwroff"
if c>21 then gosub "lensoff"
if c>19 then gosub "stop_video"
if c>17 then gosub "tvdn"
if c>15 then gosub "tvup"
if c>13 then gosub "avdn"
if c>11 then gosub "avup"
if c>8 then gosub "rec_video"
if c>7 then gosub "zout"
if c>5 then gosub "zin"
if c>3 then gosub "focusoff"
if c>1 then gosub "focus"
if c>0 then gosub "shoot"
wend
end
:shoot
if m=1 then gosub "stop_video"
print " ";c;":shoot"
c=0
shoot
d=get_av96
v=get_tv96
u=get_iso_real
print " iso ";u; " f";d/96;" vit ";v/96;
return
:rec_video
if m=1 then return
set_record 2
sleep 2000
print " ";c;":rec_video"
c=0
press "video"
sleep 500
release "video"
m=1
c=0
return
:stop_video
if m=0 then return
print " ";c;":stop_video"
c=0
press "video" rem press "shoot_full"
sleep 500
release "video"
m=0
sleep 1000
set_record 1
sleep 1000
return
:focus
print " ";c;":focus"
c=0
press "shoot_half"
f=1
sleep 500
return
:focusoff
print " ";c;":release"
c=0
release "shoot_half"
sleep 500
return
:zin
if f=1 then release "shoot_half"
if z<9 then z=z+1
print " ";c;":zoomin"
c=0
click "zoom_in"
rem set_zoom_to_step z
rem set_zoom_rel +1
sleep 1000
return
:zout
if f=1 then release "shoot_half"
if z<>0 then z=z-1
print " ";c;":zoomout"
c=0
click "zoom_out"
rem set_zoom_to_step z
rem set_zoom z
sleep 1000
return
:evup8_2
press "shoot_half"
sleep 100
get_prop 211 i
i=i+96
set_prop 211 i
sleep 100
print " 8+2";"EV ++"; i/96
c=0
return
:evdn8_1
press "shoot_half"
sleep 100
get_prop 211 i
i=i-96
print " 8+1";"EV ++"; i/96
set_prop 211 i
sleep 100
c=0
return
:iso100_8_3
press "shoot_half"
sleep 100
get_prop 149 s
s=100
set_prop 149 s
get_iso_market y
print " 8+3 Iso"; s ;" M ";y
sleep 100
c=0
press "shoot_half"
return
:iso+8_4
press "shoot_half"
sleep 100
get_prop 149 s
s=s*2
set_prop 149 s
get_iso_market y
print " 8+4 Iso "; s " M ";y
sleep 100
c=0
press "shoot_half"
return
:review8_5
c=0
rem play mode:
set_record 0
print "je compte jusqu'à 6000!"
sleep 6000
rem record mode:
set_record 1
return
:lensoff
print " ";c;":lensoff not supported"
goto "pwroff"
:pwroff8_6
print " ";c;":poweroff"
c=0
sleep 500
shut_down
sleep 500
return