Hier mal das Script. Ich wollte erst einmal alle Funktionen drin haben, weil ich alle Zeiten - ausgehend von meinem Atmega8 - testen wollte. Ein bisschen Feintuning hier und da ist noch erforderlich!
Gruß
Christoph
P.S.: Wenn man eine Leine leicht "hört" bedeutet das bspw. wie bei Autoreifen, dass sich etwas im Grenzbereich beweget, oder war dass gar nicht so schlimm mit der 150er Cyclone T2 an der KAP Foil 5.0?
@title KAPv9
@param r JPEG=0 RAW=1
@default r 0
@param t Verschlusszeit96 1/1000
@default t 960
@param i IsoMode 100
@default i 1
@param y Zeit zw. Fotos 1000
@default y 1000
@default m 1
@default q 0
set_capture_mode 2
set_resolution 0
set_quality 0
set_raw r
set_iso_mode i
set_nd_filter 0
set_tv96 t
set_zoom q
set_focus 1279
set_aflock 1
set_record m
set_led 4 5
set_led 9 5
playsound 0
do
print " Welcome to"
print " KAP-Control!"
print " **************"
print " JPEG, ISO 100"
print " 1/1000"
print " **************"
sleep 4000
cls
:loop
do
z = get_usb_power
if is_pressed "set" then
set_led 9 5
end
endif
until z > 0
if z > 180 then gosub "all_off"
if z > 170 then gosub "shoot_sec"
if z > 160 then gosub "shoot_5"
if z > 150 then gosub "shoot_4"
if z > 140 then gosub "shoot_3"
if z > 130 then gosub "shoot_2"
if z > 120 then gosub "jpeg"
if z > 110 then gosub "raw"
if z > 100 then gosub "iso_auto"
if z > 90 then gosub "iso"
if z > 80 then gosub "vzeit_up"
if z > 70 then gosub "vzeit_down"
if z > 60 then gosub "play_r"
if z > 50 then gosub "play_l"
if z > 40 then gosub "cam_modi"
if z > 30 then gosub "zoomout"
if z > 20 then gosub "zoomin"
if z > 10 then gosub "shoot"
goto "loop"
end
:shoot
set_tv96 t
shoot
set_led 4 5
cls
print "1x Foto"
z=0
return
:zoomin
q=q+5
if q > 63 then
q = 63
cls
print "ZOOM IN MAX"
endif
set_zoom q
set_led 4 5
cls
print "ZOOM IN"
z=0
return
:zoomout
q=q-5
if q < 0 then
q = 0
cls
print "ZOOM OUT MAX"
endif
set_zoom q
set_led 4 5
cls
print "ZOOM OUT"
z=0
return
:cam_modi
if m = 1 then
set_record 0
set_led 4 5
cls
print "Modus <->"
endif
z=0
return
:play_l
return
:play_r
return
:vzeit_down
if i < 640 then i = 640
if i > 1056 then i = 1056
t=t-32
set_tv96 t
set_led 4 5
cls
if t = 640 then print "1/100"
if t = 672 then print "1/125"
if t = 704 then print "1/160"
if t = 736 then print "1/200"
if t = 768 then print "1/250"
if t = 800 then print "1/320"
if t = 832 then print "1/400"
if t = 864 then print "1/500"
if t = 896 then print "1/640"
if t = 928 then print "1/800"
if t = 960 then print "1/1000"
if t = 992 then print "1/1250"
if t = 1024 then print "1/1600"
if t = 1056 then print "1/2000"
z=0
return
:vzeit_up
if i < 640 then i = 640
if i > 1056 then i = 1056
t=t+32
set_tv96 t
set_led 4 5
cls
if t = 640 then print "1/100"
if t = 672 then print "1/125"
if t = 704 then print "1/160"
if t = 736 then print "1/200"
if t = 768 then print "1/250"
if t = 800 then print "1/320"
if t = 832 then print "1/400"
if t = 864 then print "1/500"
if t = 896 then print "1/640"
if t = 928 then print "1/800"
if t = 960 then print "1/1000"
if t = 992 then print "1/1250"
if t = 1024 then print "1/1600"
if t = 1056 then print "1/2000"
z=0
return
:iso
i=i+1
if i > 6 then i = 1
set_iso_mode i
set_led 4 5
cls
if i = 1 then print "ISO 100"
if i = 2 then print "ISO 200"
if i = 3 then print "ISO 400"
if i = 4 then print "ISO 800"
if i = 5 then print "ISO 1600"
if i = 6 then print "ISO 3200"
z=0
return
:iso_auto
cls
set_iso_mode 0
set_led 4 5
print "AUTO ISO"
z=0
return
:raw
set_raw 1
cls
print "RAW-Format"
z=0
return
:jpeg
set_raw 0
cls
print "JPEG-Format"
z=0
return
:shoot_2
set_tv96 t
shoot
set_led 4 5
sleep y
set_tv96 t
shoot
set_led 4 5
cls
print "2x Foto"
z=0
return
:shoot_3
set_tv96 t
shoot
set_led 4 5
sleep y
set_tv96 t
shoot
set_led 4 5
sleep y
set_tv96 t
shoot
set_led 4 5
cls
print "3x Foto"
z=0
return
:shoot_4
set_tv96 t
shoot
set_led 4 5
sleep y
set_tv96 t
shoot
set_led 4 5
sleep y
set_tv96 t
shoot
set_led 4 5
sleep y
set_tv96 t
shoot
set_led 4 5
cls
print "4x Foto"
z=0
return
:shoot_5
set_tv96 t
shoot
set_led 4 5
sleep y
set_tv96 t
shoot
set_led 4 5
sleep y
set_tv96 t
shoot
set_led 4 5
sleep y
set_tv96 t
shoot
set_led 4 5
sleep y
set_tv96 t
shoot
set_led 4 5
cls
print "5x Foto"
z=0
return
:shoot_sec
return
:all_off
shut_down
sleep 3000
z=0
return