rem Datei: zoom-reihe.bas rem Zweck: in mehreren Stufen heranzoomen und fotografieren @title gezoomte Bilderserie @param a Zahl der Aufnahmen @default a 8 @param b Zoom-Schrittweite @default b 1 if a<2 then let a=8 if b<1 then let b=1 sleep 1000 print "Aufnahme 1 von", a shoot for s=2 to a for n=1 to b print "Zoome", n, "Schritt(e) hinein" click "zoom_in" sleep 750 next n print "Aufnahme", s, "von", a shoot next s sleep 1000 for s=1 to a*b-1 print "Zoome heraus ("; s; ")" click "zoom_out" sleep 750 next s end