rem Autor Christian72D 20.02.2012 @title MD Highspeed MF @param q Sekunden für Serienbilder @default q 3 @param s Startstunde -1=Aus @default s -1 @param t Startminute @default t 0 @param u Endstunde -1=Aus @default u -1 @param v Endminute @default v 0 @param a Anzahl Spalten @default a 1 @param b Anzahl Zeilen @default b 4 @param e Vergleichsintervall ms @default e 7 @param f Schwellwert 0-255 @default f 10 @param i Maske 0=ohne 1=inkl 2=exkl @default i 1 @param j Maske linke Spalte @default j 1 @param k Maske obere Zeile @default k 1 @param l Maske rechte Spalte @default l 1 @param m Maske untere Zeile @default m 3 @param o Pixel Step) @default o 6 @param r Reviewzeit Sek. @default r 0 @param w 0=Aufnahme,1=Autoschwellwert @default w 1 if a<1 then a=1 if b<1 then b=1 if e<1 then e=1 if f<1 then f=0 if f>255 then f=255 if i<0 then i=0 if i>2 then i=2 if j<0 then j=0 if j>a then j=a if k<0 then k=0 if k>b then k=b if la then l=a if mb then m=b if o<1 then o=1 if r<0 then r=0 if s<-1 then s=-1 if s>23 then s=23 if t<0 then t=0 if t>59 then t=59 if u<-1 then u=-1 if u>23 then u=23 if v<0 then v=0 if v>59 then v=59 r=r*1000 D=get_propset cls :SafetyWarning if D=1 then goto "ScriptAbort" get_prop 277 P if P=0 then goto "ScriptAbort" :SkipWarnings if w=1 then gosub "treshold_adj" rem ++++++++++++++ N=0 if s>-1 then cls print "*** Highspeedfoto MF ***" print " Warten auf Startzeit " print " ",s,":",t do S=get_time 2 until S=s do M=get_time 1 until M>=t endif :fast_md_loop cls print "*** Highspeedfoto MF ***" if u>=0 then print "Endzeit:",u,":",v print "Anzahl Aufnahmen:", N h=0 do M=get_time 1 S=get_time 2 if u>=0 and S=u and M>=v then goto "CamShutdown" if u>=0 and v>53 and S=(u+1) then goto "CamShutdown" release "shoot_half" press "shoot_half" do P=get_shooting until P=1 md_detect_motion a, b, 1, 300000, e, f, 1, h, i, j, k, l, m, 9, o, 500 until h>0 N=N+1 sleep q*1000 release "shoot_full" do P=get_shooting until P<>1 goto "fast_md_loop" rem ++++++++++++++ :treshold_adj cls print "Schwellwerteinstellung " P=0 N=0 f=0 :treshold_loop h=0 release "shoot_half" press "shoot_half" sleep 1000 md_detect_motion a, b, 1, 1000, e, f, 1, h, i, j, k, l, m, 0, o, 500 if h>0 then N=N+1 T=0 print "Schwellw./Trigger", f, "/", N f=f+1 else T=T+1 endif if T>5 then goto "AdjComplete" goto "treshold_loop" :AdjComplete f=f+1 :again cls print "Schwellwert =", f print "hoch => wiederholen" print "rechts => +1; links => -1" print "runter => weiter" wait_click 0 if is_key "up" then goto "treshold_adj" if is_key "down" then return if is_key "right" then f=f+1 if is_key "left" then f=f-1 goto "again" :CamShutdown shut_down sleep 3000 :ScriptAbort end