Changeset 985


Ignore:
Timestamp:
11/24/10 19:00:54 (2 years ago)
Author:
pixeldoc2000
Message:

script/*.bas cleanup

Location:
trunk/script
Files:
28 edited

Legend:

Unmodified
Added
Removed

  • trunk/script/bracketing1.bas

    r515 r985  
    11@title EXP bracketing  
    2 @param a Number of ñsteps  
     2@param a Number of steps 
    33@default a 2 
    44@param b Step size (1/3EV) 

  • trunk/script/bracketing2.bas

    r515 r985  
    66@param c (0.1 sec) 
    77@default c 5 
    8  
    98 
    109if a<1 then let a=2 
    … …  
    2423    print "Shoot", s, "of", a*2+1 
    2524    shoot 
    26                 sleep c 
     25    sleep c 
    2726    for n=1 to b 
    2827        click "right" 
    … …  
    4039next n 
    4140 
    42  
    4341end 

  • trunk/script/default.bas

    r515 r985  
    1111 
    1212for s=1 to a 
    13   shoot 
    14   for n=1 to b 
    15     click "right" 
    16   next n 
     13    shoot 
     14    for n=1 to b 
     15        click "right" 
     16    next n 
    1717next s 
     18 
    1819shoot 
    1920 
    2021for n=1 to a*b 
    21   click "left" 
     22    click "left" 
    2223next n 
    2324 

  • trunk/script/dof_test.bas

    r515 r985  
    11@title DOF test 
     2 
    23do 
    3         f=f+100 
    4    set_focus f 
    5    print "dist: ", f 
    6    get_far_limit l 
    7    shoot 
    8    print "far: ", l 
     4    f=f+100 
     5    set_focus f 
     6    print "dist: ", f 
     7    get_far_limit l 
     8    shoot 
     9    print "far: ", l 
    910until F > 1000 
     11 
    1012end 

  • trunk/script/exp_info_tst.bas

    r515 r985  
    11@title Test Ev info 
     2 
    23sleep 500 
    34press "shoot_half" 
    … …  
    1314release "shoot_full" 
    1415release "shoot_half" 
     16 
    1517end 

  • trunk/script/fingalo.bas

    r515 r985  
     1@title Fingalo 
     2 
    13set_raw 1 
    24set_raw 0  
    … …  
    68 
    79if a=1 then 
    8  print "2" 
    9  print "2" 
     10    print "2" 
     11    print "2" 
    1012 
    11   if b=0 then 
    12     print "3" 
    13         if b=2 then 
    14                 print "hhh" 
    15         endif 
    16     print "6" 
    17   endif 
     13    if b=0 then 
     14        print "3" 
     15        if b=2 then 
     16            print "hhh" 
     17        endif 
     18        print "6" 
     19    endif 
    1820endif 
    1921 
    … …  
    2729 
    2830end 
    29  

  • trunk/script/foc-bracket.bas

    r515 r985  
    11@title Focus 
    2 @param a begin from  
     2@param a begin from 
    33@default a 30 
    4 @param b Step size  
     4@param b Step size 
    55@default b 10 
    6 @param c Steps count  
     6@param c Steps count 
    77@default c 10 
    8  
    98 
    109sleep 500 
    … …  
    1211 
    1312for s=1 to c 
    14   g=a+s*b  
    15   print "Shoot", s, "(", g, ")" 
    16   set_focus g 
    17   shoot 
     13    g=a+s*b 
     14    print "Shoot", s, "(", g, ")" 
     15    set_focus g 
     16    shoot 
    1817next s 
     18 
    1919end 

  • trunk/script/foc_bracket1.bas

    r515 r985  
    11@title Iso Bracket Real 
    2 @param a counter begin  
     2@param a counter begin 
    33@default a 1 
    4 @param b Step size  
     4@param b Step size 
    55@default b 200 
    6 @param c Steps count  
     6@param c Steps count 
    77@default c 10 
    88 
    … …  
    1010 
    1111for i=a to c 
    12   g=i*b  
    13   press "shoot_half" 
    14   sleep 2000 
    15   set_focus g 
    16   get_focus e 
    17   print "FOC:", e 
    18   sleep 2000 
    19   press "shoot_full" 
    20   release "shoot_full" 
    21   release "shoot_half" 
     12    g=i*b 
     13    press "shoot_half" 
     14    sleep 2000 
     15    set_focus g 
     16    get_focus e 
     17    print "FOC:", e 
     18    sleep 2000 
     19    press "shoot_full" 
     20    release "shoot_full" 
     21    release "shoot_half" 
    2222next i 
     23 
    2324end 

  • trunk/script/foc_bracket2.bas

    r515 r985  
    1 @title Focus bracketing  
     1@title Focus bracketing 
    22@param a focus shift 
    33@default a 1 
    … …  
    55if a<1 then let a=1 
    66sleep 500 
     7 
    78for s=1 to a 
    8 click "left" 
    9 sleep 100 
     9    click "left" 
     10    sleep 100 
    1011next s 
     12 
    1113print "Shoting", 1; " shot" 
    1214shoot 
    1315 
    1416for s=1 to a*2 
    15 print "Shooting", s+1; " shot" 
    16 click "right" 
    17 shoot 
    18 sleep 1000 
     17    print "Shooting", s+1; " shot" 
     18    click "right" 
     19    shoot 
     20    sleep 1000 
    1921next s 
    2022 
    21  
    2223end 

  • trunk/script/interval-video.bas

    r515 r985  
    44@default a 5 
    55 
    6 @param b Video length (min)  
     6@param b Video length (min) 
    77@default b 0 
    8 @param c Video length (sec)  
     8@param c Video length (sec) 
    99@default c 10 
    1010 

  • trunk/script/interval.bas

    r515 r985  
    1919print "Shoot 1 of", a 
    2020shoot 
     21 
    2122for n=2 to a 
    2223    sleep t 

  • trunk/script/iso_bracket.bas

    r515 r985  
    11@title Iso Bracket Real 
    2 @param a counter begin  
     2@param a counter begin 
    33@default a 1 
    4 @param b Step size  
     4@param b Step size 
    55@default b 30 
    6 @param c Steps count  
     6@param c Steps count 
    77@default c 10 
    8 @param d Sleep Interval (*100)  
     8@param d Sleep Interval (*100) 
    99@default d 20 
    10  
    1110 
    1211sleep 500 
    … …  
    1514 
    1615for i=a to c 
    17   g=i*b  
    18   press "shoot_half" 
    19   sleep t 
    20   set_iso_real g 
    21   get_iso_real e 
    22   get_iso_market f 
    23   print "ISO:", e, "(", f, ")" 
    24   sleep 500 
    25   press "shoot_full" 
    26   release "shoot_full" 
    27   release "shoot_half" 
     16    g=i*b 
     17    press "shoot_half" 
     18    sleep t 
     19    set_iso_real g 
     20    get_iso_real e 
     21    get_iso_market f 
     22    print "ISO:", e, "(", f, ")" 
     23    sleep 500 
     24    press "shoot_full" 
     25    release "shoot_full" 
     26    release "shoot_half" 
    2827next i 
     28 
    2929end 

  • trunk/script/iso_bracket1.bas

    r515 r985  
    11@title Iso Bracket Real 
    2 @param a counter begin  
     2@param a counter begin 
    33@default a 1 
    4 @param b Step size  
     4@param b Step size 
    55@default b 30 
    6 @param c Steps count  
     6@param c Steps count 
    77@default c 10 
    8 @param d Sleep Interval (*100)  
     8@param d Sleep Interval (*100) 
    99@default d 20 
    10  
    1110 
    1211sleep 500 
    … …  
    1514 
    1615for i=a to c 
    17   g=i*b  
    18   sleep t 
    19   set_iso_real g 
    20   shoot 
    21   get_iso_real e 
    22   get_iso_market f 
    23   print "ISO:", e, "(", f, ")" 
     16    g=i*b 
     17    sleep t 
     18    set_iso_real g 
     19    shoot 
     20    get_iso_real e 
     21    get_iso_market f 
     22    print "ISO:", e, "(", f, ")" 
    2423next i 
     24 
    2525end 

  • trunk/script/iso_set.bas

    r515 r985  
    66@param c koef3 
    77@default c 1 
    8 @param d Sleep Interval (*100)  
     8@param d Sleep Interval (*100) 
    99@default d 20 
    1010 
    … …  
    2323release "shoot_full" 
    2424release "shoot_half" 
     25 
    2526end 

  • trunk/script/iso_set1.bas

    r515 r985  
    66@param c koef3 
    77@default c 1 
    8 @param d Sleep Interval (*100)  
     8@param d Sleep Interval (*100) 
    99@default d 20 
    1010 
    … …  
    2020get_iso_market f 
    2121print "ISO:", e, "(", f, ")" 
     22 
    2223end 

  • trunk/script/led_tst.bas

    r515 r985  
    33@param b brightness 
    44@default b 200 
    5  
    65 
    76rem LED_GREEN       4 
    … …  
    1211rem LED_AF_BEAM     9 
    1312rem LED_TIMER       10 
     13 
    1414b=200 
     15 
    1516do 
     17    wait_click 
    1618 
    17   wait_click 
    18  
    19   if is_key "up"    then gosub "show_led" 
    20   if is_key "down"  then print get_vbatt 
    21   if is_key "display"  then cls 
    22   if is_key "right" then b=b-10  
    23   if is_key "left" then gosub "light" 
    24  
     19    if is_key "up"    then gosub "show_led" 
     20    if is_key "down"  then print get_vbatt 
     21    if is_key "display"  then cls 
     22    if is_key "right" then b=b-10 
     23    if is_key "left" then gosub "light" 
    2524until is_key "set" 
    2625 
    … …  
    2928:light 
    3029for c=0 to 20 
    31   for x=200 to 0 step -110 
    32     set_led 8 1 b 
    33     sleep 10 
    34   next x 
    35   for x=0 to 200 step 10 
    36     set_led 8 1 b 
    37     sleep 10 
    38   next x 
     30    for x=200 to 0 step -110 
     31        set_led 8 1 b 
     32        sleep 10 
     33    next x 
     34    for x=0 to 200 step 10 
     35        set_led 8 1 b 
     36        sleep 10 
     37    next x 
    3938next c 
    4039return 
    4140 
    4241:show_led 
    43  
    44   for x=4 to 10 
     42for x=4 to 10 
    4543    set_led x 1  
    4644    sleep 1000 
    4745    set_led x 0 
    48   next x 
    49  
     46next x 
    5047return 
    51  
    5248 
    5349:the_end 
    5450end 
    55   

  • trunk/script/md_demo_v1.bas

    r515 r985  
    2828@default i 1 
    2929 
    30  
    3130if a<1 then let a=1 
    3231if b<1 then let b=1 
    … …  
    3837let e=e*1000 
    3938 
    40  
    4139print_screen 1 
    4240 
    … …  
    4442 
    4543for z=0 to 10000 
    46  
    47         let t=0 
     44    let t=0 
    4845 
    4946rem              /--/-columns, rows to split picture into 
    … …  
    8077next z 
    8178 
    82  
    8379end 

  • trunk/script/md_test1.bas

    r515 r985  
    1515if c<0 then let c=0 
    1616 
    17  
    1817let e=e*1000 
    19   
    2018 
    2119sleep e 
    … …  
    2422 
    2523for i=0 to 10 
     24    let f=0 
     25    md_detect_motion a, b, 1, 30000, d, c, 0, f 
    2626 
    27         let f=0 
    28         md_detect_motion a, b, 1, 30000, d, c, 0, f 
     27    rem if f>0 then shoot else print "Timeout" 
    2928 
    30 rem     if f>0 then shoot else print "Timeout" 
     29    print "cells: ", f 
    3130 
    32         print "cells: ", f 
    33  
    34         for g=1 to b 
    35                 for x=1 to a 
    36                         md_get_cell_diff x, g, f 
    37                         print "[",x,",",g,"]=",f 
    38                 next x 
    39         next g 
    40  
    41  
     31    for g=1 to b 
     32        for x=1 to a 
     33            md_get_cell_diff x, g, f 
     34            print "[",x,",",g,"]=",f 
     35        next x 
     36    next g 
    4237next i 
    4338 

  • trunk/script/md_test2.bas

    r515 r985  
    1515if c<0 then let c=0 
    1616 
    17  
    1817let e=e*1000 
    19   
    2018 
    2119sleep e 
    … …  
    2422 
    2523for i=0 to 100000 
     24    let f=0 
     25    md_detect_motion a, b, 1, 30000, d, c, 0, f 
    2626 
    27         let f=0 
    28         md_detect_motion a, b, 1, 30000, d, c, 0, f 
     27    if f>0 then shoot else print "Timeout" 
    2928 
    30         if f>0 then shoot else print "Timeout" 
     29    rem print "cells: ", f 
    3130 
    32 rem     print "cells: ", f 
    33  
    34 rem     for g=1 to b 
    35 rem             for x=1 to a 
    36 rem                     md_get_cell_diff x, g, f 
    37 rem                     print "[",x,",",g,"]=",f 
    38 rem             next x 
    39 rem     next g 
    40  
    41  
     31    rem for g=1 to b 
     32    rem for x=1 to a 
     33    rem md_get_cell_diff x, g, f 
     34    rem print "[",x,",",g,"]=",f 
     35    rem next x 
     36    rem next g 
    4237next i 
    4338 

  • trunk/script/prop_case.bas

    r515 r985  
    44@param b value 
    55@default b 0 
     6 
    67:loop 
    7   wait_click 
    8   is_key k "left" 
     8    wait_click 
     9    is_key k "left" 
    910    if k=1 then get_prop a b 
    10   is_key k "set" 
    11   if k=1 then goto "lend" 
    12   print a,b 
    13 goto "loop" 
     11    is_key k "set" 
     12    if k=1 then goto "lend" 
     13    print a,b 
     14    goto "loop" 
     15 
    1416:lend 
    1517end 

  • trunk/script/script.bas

    r515 r985  
    11sleep 1000 
     2 
    23for s=1 to 3 
    3   shot 
    4   for n=1 to 5 
    5     click "left" 
    6   next n 
     4    shot 
     5    for n=1 to 5 
     6        click "left" 
     7    next n 
    78next s 
     9 
    810shot 
     11 
    912end 

  • trunk/script/set_av96_tst.bas

    r515 r985  
    22 
    33for a=1 to 6 
     4    if a = 1 then d = 608 
     5    if a = 2 then d = 640 
     6    if a = 3 then d = 672 
     7    if a = 4 then d = 704 
     8    if a = 5 then d = 736 
     9    if a = 6 then d = 768 
    410 
    5 if a = 1 then d = 608 
    6 if a = 2 then d = 640 
    7 if a = 3 then d = 672 
    8 if a = 4 then d = 704 
    9 if a = 5 then d = 736  
    10 if a = 6 then d = 768 
    11          
    12 if a = 1 then print d, "-9" 
    13 if a = 2 then print d, "-10.1" 
    14 if a = 3 then print d, "-11.3" 
    15 if a = 4 then print d, "-12.7" 
    16 if a = 5 then print d, "-14.3" 
    17 if a = 6 then print d, "-16.0" 
     11    if a = 1 then print d, "-9" 
     12    if a = 2 then print d, "-10.1" 
     13    if a = 3 then print d, "-11.3" 
     14    if a = 4 then print d, "-12.7" 
     15    if a = 5 then print d, "-14.3" 
     16    if a = 6 then print d, "-16.0" 
    1817 
    19 set_av96_direct d 
     18    set_av96_direct d 
    2019 
    21 shoot 
    22  
     20    shoot 
    2321next a 
    2422 

  • trunk/script/set_shutter_tst.bas

    r515 r985  
    22 
    33for a=1 to 3 
     4    if a = 1 then d = 1 
     5    if a = 2 then d = 100000 
     6    if a = 3 then d = 1000000 
    47 
    5 if a = 1 then d = 1 
    6 if a = 2 then d = 100000 
    7 if a = 3 then d = 1000000 
     8    if a = 1 then print d, " t=1/100000" 
     9    if a = 2 then print d, " t=1" 
     10    if a = 3 then print d, " t=10" 
    811 
    9 if a = 1 then print d, " t=1/100000" 
    10 if a = 2 then print d, " t=1" 
    11 if a = 3 then print d, " t=10" 
     12    set_shutter_speed d 
    1213 
    13 set_shutter_speed d 
    14  
    15 shoot 
    16  
     14    shoot 
    1715next a 
    1816 

  • trunk/script/set_tv96_tst.bas

    r515 r985  
    77b=b*10 
    88 
    9 for a=1 to 4  
     9for a=1 to 4 
     10    d=b+32*5*a 
    1011 
    11 d=b+32*5*a 
     12    set_tv96_direct d 
    1213 
    13 set_tv96_direct d 
     14    rem sleep 2000 
    1415 
    15 rem sleep 2000 
    16  
    17 shoot 
    18  
     16    shoot 
    1917next a 
    2018 

  • trunk/script/set_tv96_tst1.bas

    r515 r985  
    22 
    33for a=1 to 4 
     4    if a = 1 then d = 0 
     5    if a = 2 then d = -320 
     6    if a = 3 then d = 320 
     7    if a = 4 then d = 576 
     8    if a = 4 then d = 2000 
    49 
    5 if a = 1 then d = 0 
    6 if a = 2 then d = -320 
    7 if a = 3 then d = 320 
    8 if a = 4 then d = 576 
    9 if a = 4 then d = 2000 
     10    if a = 1 then print d, " t=1" 
     11    if a = 2 then print d, " T=10" 
     12    if a = 3 then print d, " t=1/10" 
     13    if a = 4 then print d, " t=1/...." 
    1014 
    11 if a = 1 then print d, " t=1" 
    12 if a = 2 then print d, " T=10" 
    13 if a = 3 then print d, " t=1/10" 
    14 if a = 4 then print d, " t=1/...." 
     15    set_tv96_direct d 
    1516 
    16 set_tv96_direct d 
    17  
    18 shoot 
    19  
     17    shoot 
    2018next a 
    2119 

  • trunk/script/video.bas

    r515 r985  
    1717 
    1818for s=1 to a 
    19 click "shoot_full" 
    20 print "Ñíèìàþ",s,"-é èç",c" ôèëüìîâ" 
    21 sleep t 
    22 click "shoot_full" 
    23 print "Æäó",d,"ìèíóò",e,"ñåêóíä" 
    24 sleep i 
     19    click "shoot_full" 
     20    print "Ñíèìàþ",s,"-é èç",c" ôèëüìîâ" 
     21    sleep t 
     22    click "shoot_full" 
     23    print "Æäó",d,"ìèíóò",e,"ñåêóíä" 
     24    sleep i 
    2525next s 
    2626 
    2727print "Ïðèÿòíîãî ïðîñìîòðà!" 
    2828sleep 2000 
     29 
    2930end 
    30  

  • trunk/script/white_balance.bas

    r515 r985  
    55@default b 5 
    66 
    7  sleep 2000 
    8  set_prop a 2 
    9  print "Cloudy" 
     7sleep 2000 
     8set_prop a 2 
     9print "Cloudy" 
    1010 
     11sleep 2000 
     12set_prop a 3 
     13print "Tungsten" 
    1114 
    12  sleep 2000 
    13   set_prop a 3 
    14  print "Tungsten" 
     15sleep 2000 
     16set_prop a 4 
     17print "Fluorescent" 
    1518 
    16  sleep 2000 
    17  set_prop a 4 
    18  print "Fluorescent" 
     19sleep 2000 
     20set_prop a 5 
     21print "Fluorescent H" 
    1922 
    20  sleep 2000 
    21  set_prop a 5 
    22  print "Fluorescent H" 
     23sleep 2000 
     24set_prop a 10 
     25print "Underwater" 
    2326 
    24  sleep 2000 
    25  set_prop a 10 
    26  print "Underwater" 
     27sleep 2000 
     28set_prop a 7 
     29print "Custom" 
    2730 
    28  sleep 2000 
    29  set_prop a 7 
    30  print "Custom" 
    31  
    32  sleep 2000 
    33  set_prop a 1 
    34  print "Daylight" 
    35  
    36  
     31sleep 2000 
     32set_prop a 1 
     33print "Daylight" 
    3734 
    3835end 
    39  

  • trunk/script/zoom-video.bas

    r515 r985  
    1313 
    1414:loop 
    15   wait_click 
     15    wait_click 
    1616 
    17   is_key k "zoom_in" 
     17    is_key k "zoom_in" 
    1818    if k=1 then set_zoom_rel +1 
    19   is_key k "zoom_out" 
     19    is_key k "zoom_out" 
    2020    if k=1 then set_zoom_rel -1 
    21   is_key k "shoot_half" 
     21    is_key k "shoot_half" 
    2222    if k=1 then goto "end" 
    23 goto "loop" 
     23    goto "loop" 
    2424 
    2525:end 
Note: See TracChangeset for help on using the changeset viewer.