-- Time Lapse Video -- Only for Canon S90 -- Script by Oliver Bruchwald -- www.br-photo.de --[[ @title TimeLapse_BRU @param a Aufnahme-Interval (sek) @default a 20 @param b Mittelungen (1...5) @default b 5 @param c EV-Korrektur (+1/3 EV) @default c 0 @param e max. ISO-Wert (50...1600) @default e 500 @param g Tag-HDR (0=n , 1/3 EV) @default g 0 @param h Tmax HDR (msec) @default h 250 @param i Nacht-HDR (1,2,3 Bilder) @default i 1 @param j T1max lang (msec) @default j 18000 @param k T2max mittel (msec) @default k 3000 @param l T3max kurz (msec) @default l 500 @param x Fokus Inf (1=n,2=y) @default x 2 ]] INTERVAL = a*1000 MITTEL = b EVKorr96 = c*32 TMax = j TMax96 = usec_to_tv96(j*1000) ISOMax = e ISOMax96 = iso_to_sv96(e) HDREV96 = g*32 TMaxHDR = h TMaxHDR96 = usec_to_tv96(h*1000) NHDR = i T2maxN =k T2maxN96 = usec_to_tv96(k*1000) T3maxN =l T3maxN96 = usec_to_tv96(l*1000) -- Print Screen init print_screen((get_time("m")*100)+(get_time("s")*1)) -- Einmessen press("shoot_half") repeat sleep(1) until get_shooting() == true release("shoot_half") BV96 = get_bv96() BV1 = BV96 BV2 = BV96 BV3 = BV96 BV4 = BV96 BV5 = BV96 -- PropSet4: S90 -- NoiseReduction aus set_raw_nr(1) -- AF-Licht aus set_prop_str(5,0) -- Blitz aus set_prop_str(143,2) -- IStabi aus set_prop_str(145,3) -- Autofokus set_aflock(1) if x == 2 then set_focus(6423) end set_lcd_display(0) TIME2 = get_tick_count() --------------------------------------- MAIN function main() TIME2 = get_tick_count() -- Mittelwerte Belichtung BV = get_bv96() set_av96_direct(200) AV96 = get_av96() if MITTEL == 1 then BV1 = BV BV96 = BV1 end if MITTEL == 2 then BV2=BV1 BV1=BV BV96 = (BV1+BV2)/2 end if MITTEL == 3 then BV3=BV2 BV2=BV1 BV1=BV BV96 = (BV1+BV2+BV3)/3 end if MITTEL == 4 then BV4=BV3 BV3=BV2 BV2=BV1 BV1=BV BV96 = (BV1+BV2+BV3+BV4)/4 end if MITTEL == 5 then BV5=BV4 BV4=BV3 BV3=BV2 BV2=BV1 BV1=BV BV96 = (BV1+BV2+BV3+BV4+BV5)/5 end BV96 = BV96-EVKorr96 -- Berechnung TLow für ISOmin = ISO50 (SV=350) SV96 = 350 TLow96 = BV96+SV96-AV96 tLow = (tv96_to_usec(TLow96))/1000 -- Übergangs-Belichtungszeit für ISO-Änderung tU = 200 TU96 = usec_to_tv96(tU*1000) -- Berechnung für niedrigen, fixen ISO-Wert if tLow <= tU then SV96 = 350 T1 = BV96+SV96-AV96 end -- Berechnung für variablen ISO-Wert und fixe Belichtungszeit tU if tLow > tU then T1 = usec_to_tv96(tU*1000) SV96 = T1+AV96-BV96 end -- Berechnung für hohen, fixen ISO-Wert (ISO600 = 728) if SV96 > ISOMax96 then SV96 = ISOMax96 T1 = BV96+SV96-AV96 end -- Begrenzung der max. Belichtungsdauer if T1 < TMax96 then T1 = TMax96 end -- Berechnung der HDR-Tag-Belichtungsdauer if HDREV96 ~= 0 then T2 = T1 + HDREV96 T3 = T1 - HDREV96 end -- HDR-Aufnahme TAG if HDREV96 ~= 0 and T1 > TMaxHDR96 then T2 = T1 + HDREV96 T3 = T1 - HDREV96 set_nd_filter(2) set_tv96_direct(T2) set_av96_direct(AV96) set_sv96(SV96) shoot() set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() set_nd_filter(2) set_tv96_direct(T3) set_av96_direct(AV96) set_sv96(SV96) shoot() -- max. HDR-Belichtungszeit TAG überschritten - kein N-HDR elseif T1 <= TMaxHDR96 and NHDR == 1 then set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() -- max. HDR-Belichtungszeit TAG überschritten - N-HDR 2Bilder elseif T1 <= TMaxHDR96 and NHDR == 2 and T1 > T2maxN96 then set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() elseif T1 <= TMaxHDR96 and NHDR == 2 and T1 <= T2maxN96 then set_nd_filter(2) set_tv96_direct(T2maxN96) set_av96_direct(AV96) set_sv96(SV96) shoot() set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() -- max. HDR-Belichtungszeit TAG überschritten - N-HDR 3Bilder elseif T1 <= TMaxHDR96 and NHDR == 3 and T1 > T3maxN96 then set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() elseif T1 <= TMaxHDR96 and NHDR == 3 and T1 <= T3maxN96 and T1 > T2maxN96 then set_nd_filter(2) set_tv96_direct(T3maxN96) set_av96_direct(AV96) set_sv96(SV96) shoot() set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() elseif T1 <= TMaxHDR96 and NHDR == 3 and T1 <= T3maxN96 and T1 <= T2maxN96 then set_nd_filter(2) set_tv96_direct(T3maxN96) set_av96_direct(AV96) set_sv96(SV96) shoot() set_nd_filter(2) set_tv96_direct(T2maxN96) set_av96_direct(AV96) set_sv96(SV96) shoot() set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() else set_nd_filter(2) set_tv96_direct(T1) set_av96_direct(AV96) set_sv96(SV96) shoot() end end -- Schleife main() repeat if (get_tick_count()-TIME2) < INTERVAL then repeat sleep(1) until (get_tick_count()-TIME2) >= INTERVAL main() else main() end until 1 == 2