rem Stacking mit USB Autor: gehtnix 29.9.08 @title Stacking mit USB @param a Objektlänge in cm @default a 5 @param b Winkel @default b 45 @param d Sleep-Time (x100) @default d 6 @param e USB 0=Aus/1=Ein @default e 0 A=a*10 d=d*100 E=b*10 if get_focus_mode=0 then print "************************" print "Manuellen Focus" print "einstellen und Script" print "erneut starten" end endif select E case 25 to 75; B=87 case 76 to 125; B=173 case 126 to 175; B=258 case 176 to 225; B=342 case 226 to 275; B=422 case 276 to 325; B=500 case 326 to 375; B=573 case 376 to 425; B=642 case 426 to 475; B=707 case 476 to 525; B=766 case 526 to 575; B=819 case 576 to 625; B=866 case 626 to 675; B=906 case 676 to 725; B=939 case 726 to 775; B=965 case 776 to 825; B=984 case 826 to 875; B=996 end_select press "shoot_half" sleep 500 get_focus G get_dof H release "shoot_half" rem Überlappung H=H*6/10 rem DOF-Teilstrecke Objekt I=H*1000/B rem F=Anzahl Bilder F=(A/I)+1 rem Anzahl der Rücksetzung J=F/2 G=G-(J*I) rem Min und Max Focus C=62 D=10383 if e=1 then cls print "************************" print "Mit USB-Taster auslösen" do until is_key "remote" endif for i=1 to F set_focus G sleep d press "shoot_full" print "Fokus: ", G, "Bild ", i G=G+I release "shoot_full" next i set_focus 10000 shoot print "Scriptende" end