rem Autor Trichtex rem Für A610 mit Allbest Build #50 rem Befehlsaufbau: rem /--/-Spalten und Zeilen, in die das Bild aufgeteilt wird rem | | Prüfmethode (Y,U,V R,G,B) - U-0, Y-1, V-2, 3-R, 4-G, 5-B rem | | | Timeout (ms) rem | | | | Vergleichsintervall (ms) rem | | | | | Lichtschwellwert (Unterschied in Zellen für Bewegungserkennung) rem | | | | | | Gitter zeichnen (0-Nein, 1-Ja) rem | | | | | | | Rückgabewert, Anzahl der Zellen, in denen Bewegung erkannt wurde rem | | | | | | | | VVVVVV OPTIONALE PARAMETER: VVVV rem | | | | | | | | Fenster: 0-Aus, 1-Ein, 2-Invertiert rem | | | | | | | | | Erste Spalte des Fensters rem | | | | | | | | | | Erste Zeile des Fensters rem | | | | | | | | | | | Letzte Spalte des Fensters rem | | | | | | | | | | | | Letzte Zeile des Fensters rem | | | | | | | | | | | | | Parameter: 1-Sofortauslösung, 2-Debuginformationen mitloggen. ODER-verknüpfte-Werte werden akzeptiert rem | | | | | | | | | | | | | | Empfindlichkeit (Pixel) - Geschwindigkeit kontra Präzision (1-verwendet jeden Pixel, 2-verwendet jeden zweiten Pixel, etc.) rem | | | | | | | | | | | | | | | Dauer bis zum Auslösen (ms) - kann hilfreich für die Kalibrierung mit der "Zeichne Gitter"-Option sein. rem | | | | | | | | | | | | | | | | rem V V V V V V V V V V V V V V V V @title Bewegungsauslöser @param a Zeilen Gitter @default a 4 @param b Spalten Gitter @default b 6 @param c Gitter zeigen (0=Nein 1=Ja) @default c 1 @param d Fenster (0=Aus 1=Ein 2=Inv) @default d 1 @param e Erste Zeile des Fensters @default e 2 @param f Letzte Zeile des Fensters @default f 3 @param h Erste Spalte des Fensters @default h 3 @param i Letzte Spalte des Fensters @default i 4 @param j Prüfmethode (0-U,1-Y,2-V) @default j 1 @param k Empfindlichkeit (Pixel) @default k 6 @param r Lichtschwellwert (0-255) @default r 10 @param l Vergleichsintervall (ms) @default l 1 @param m Auslöseverzögerung (0.1s) @default m 1 @param o Timeout-Periode (s) @default o 170 @param n Zahl Serienbilder @default n 5 rem s Wert: D=Direktauslösung, oN=Auslösung ohne Neufokussierung, S=Serienauslösung ohne Neufokussierung @param s Auslöseart (0=D/1=oN/2=S) @default s 1 @param u Vor-Fokus (0=Nein 1=Ja) @default u 1 if c<0 then c=0 if c>1 then c=1 if e>a then e=a if e<1 then e=1 if f>a then f=a if f<1 then f=1 if h>b then h=b if h<1 then h=1 if i>b then i=b if i<1 then i=1 if s<0 then let s=0 if s>2 then let s=2 get_prop 0 x if x=18 then let s=3 get_prop 6 y if s<>2 and y=1 then let s=2 if s=2 and y<>1 then let s=0 if s=0 then let g=1 else let g=0 m=m*100 o=o*1000 print "Beenden: Auslöser drücken" while 1 if x<>18 and u<>0 then gosub "fokussieren" md_detect_motion b, a, j, o, l, r, c, t, d, h, e, i, f, g, k, m if t>0 then print t, " Felder erkannt" if t=0 then gosub "wecken" if t>0 and u=0 and s=2 then gosub "fokussieren" if t>0 and s=1 then click "shoot_full" if t>0 and s=2 then gosub "Serienaufnahme" if t>0 and s=3 then gosub "Filmaufnahme" if t>0 and x<>18 then do get_prop 205 p until p<>1 let t=0 endif wend :fokussieren press "shoot_half" do get_prop 205 p until p=1 return :Serienaufnahme press "shoot_full" sleep n*1000 release "shoot_full" return :Filmaufnahme click "shoot_full" sleep n*1000 click "shoot_full" return :wecken release "shoot_half" if x<>18 and u=0 then click "set" click "set" endif return end