@title Belichtungsreihe fix Fokus @param a Stellweite (a*1/3EV) @default a 3 @param b Anzahl Fotografien @default b 5 @param c Startverzögerung (in sec) @default c 1 rem Ueberpruefung mind. 1 EV Step if a<1 then a=3 rem Ueberpruefung auf mehr als 1 Bild if b<1 then b=5 rem keine neg. Verzögerung if c<0 then c=0 if c>0 then print "Warte", c, "secunden" sleep c*1000 rem Belichtungskorrektur lesen und in u,v speichern get_prop 25 u get_prop 26 v rem fokussieren und Fokus speichern press "shoot_half" sleep 2000 get_focus q release "shoot_half" y=-(a*b+a)*16 for s=1 to b y=y+a*32 rem Belichtungskorrektur setzen set_prop 25 y set_prop 26 y rem Fokus pruefen und ggf. auf ermittelten Wert setzen get_focus r if r<>q then set_focus q endif z=y/32/3 if z<0 then t=-1 else t=1 print "Bild",s,"/",b,"->",z","(y*10/32/3-z*10)*t,"EV" rem Bild ausloesen und... click "shoot_full" rem ...warten, bis das Bild gespeichert ist do get_prop 205 w until w=1 do get_prop 205 w until w<>1 next s rem urspruengliche Belichtungskorrektur wieder herstellen set_prop 25 u set_prop 26 v end