o: ActiveSupport::Cache::Entry :@compressedF: @value"'."!.
SVAK1_.txt
1 
;Josef Szylar ver 1.6 - 4. 8. 2013
1 
;Josef Szylar ver 1.6 - 4. 8. 2013
2 2 
;PODMÍNKA JEN 80 ZNAKŮ
3 3 
;PŘÍKAZY JEN 255 ZNAKŮ
4 4 

  		




  ......




  72
  72
  
    

  		




  73
  73
  
    
;-----------------A_init - Inicializace proměnných a konstant--------------------


  		




  74
  74
  
    
if( initialising ) then A_init=1:A_still_detect=0:n=0:n_1=0:f=0:f_1=0:aver_amp=0:a=0:mag=0:mag_max=0:hour_count=0:dur_count=0:dur_count_1=0:aver_amp_1=-999:aver_amp_max=-999:t0=0:t0_1=0:t1=0:t1_1=0:t1_2=0:t2=0:t3=0:t4=0:bolide=0


  		




  75
  
  
    
if( A_init = 1 ) then A_init=2:id_met="no":id_met2="no":K_station_name="SVAK1_":K_path_scr="c:\\meteors\\capture\\":K_path_audio="c:\\meteors\\bolides\\":K_path_RMOB="C:\\meteors\\RMOB\\":K_path_SDR="C:\\meteors\\data\\"


  		




  76
  
  
    
if( A_init = 2 ) then A_init=3:K_max_time_btw_met=2:K_max_time_to_scr=100:K_init_cond=50:K_time_to_start_up_waterf=4:K=7:K_min_dur_count_bolid=50


  		




  
  75
  
    
if( A_init = 1 ) then A_init=2:id_met="no":id_met2="no":K_station_name="SVAK1_":K_path_scr="c:\\meteors\\capture\\":K_path_audio="c:\\meteors\\audio\\":K_path_RMOB="C:\\meteors\\RMOB\\":K_path_SDR="C:\\meteors\\data\\"


  		




  
  76
  
    
if( A_init = 2 ) then A_init=3:K_path_extra="c:\\meteors\\extra\\":K_max_time_btw_met=2:K_max_time_to_scr=100:K_init_cond=50:K_time_to_start_up_waterf=4:K=7:K_min_dur_count_bolid=50


  		




  77
  77
  
    
if( A_init = 3 ) then A_init=4:A_measurement=0:A_start_detect=0:A_end_detect=0:A_end_detect_end=0:A_write_waterf=0:A_update_SDR_data_file=0:A_update_RMOB_Dur_file=0:A_met_screenshot=0


  		




  78
  78
  
    
if( A_init = 4 ) then A_init=5:A_no_met_screenshot=0:A_once_hour_20s_before=0:A_once_hour=0:A_once_hour_10s_before=0:A_once_hour_30s_after=0:A_once_hour_40s_after=0:timer3.restart(K_max_time_to_scr)


  		




  79
  79
  
    
if( A_init = 5 ) then A_init=0


  		




  ......




  99
  99
  
    

  		




  100
  100
  
    
;-----------------A_start_detect (událost začátku meteoru)----------------------


  		




  101
  101
  
    
if( never ) then REM --- A_start_detect (an event of begin of meteor) --------------


  		




  102
  
  
    
if( A_still_detect=1 ) then  A_still_detect=2:A_start_detect=1:t1_1=t1:id_met=(K_station_name+str(t1_1)):sp.print("               ^ t+"+str("ss",time))


  		




  
  102
  
    
if( A_still_detect=1 ) then  A_still_detect=2:A_start_detect=1:t1_1=t1:id_met=(K_station_name+str(t1_1)):sp.print("`                  ^ t+"+str("ss",time))


  		




  103
  103
  
    
if( A_start_detect=1 ) then A_start_detect=2:n_1=n:f_1=f


  		




  104
  104
  
    
if( A_start_detect=2 ) then A_start_detect=0:


  		




  105
  105
  
    

  		




  106
  106
  
    
;------------A_end_detect (událost detekce konce meteoru nebo bolidu)-----------                                           


  		




  107
  107
  
    
if( never ) then REM --- A_end_detect (end of meteor) ---


  		




  108
  108
  
    
if( timer0.expired(1) ) then A_end_detect=1:id_met2=id_met:hour_count=hour_count+1:timer4.restart(K_time_to_start_up_waterf):dur_count1=dur_count*K_init_cond:


  		




  109
  
  
    
if( A_end_detect=1 ) then A_end_detect=2:sp.print("                 "+id_met2+" HCount"+str(hour_count)+" nb"+str(round(n_1))+" f"+str(f_1)+"  dur"+str(dur_count1)+"  mag"+str(round(n_1-aver_amp_max+10)))


  		




  
  109
  
    
if( A_end_detect=1 ) then A_end_detect=2:sp.print("`                    "+id_met2+" HCount"+str(hour_count)+" nb"+str(round(n_1))+" f"+str(f_1)+"  dur"+str(dur_count1)+"  mag"+str(round(n_1-aver_amp_max+10)))


  		




  110
  110
  
    
if( A_end_detect=2 ) then A_end_detect=3:A_update_SDR_data_file=1


  		




  111
  111
  
    
if( A_end_detect=3 ) then A_end_detect=0


  		




  112
  112
  
    
 


  		




  ......




  115
  115
  
    
;Název souboru:JOSY_A20130123.dat


  		




  116
  116
  
    
if( never ) then REM --- write data to file (project astrozor.cz) ---


  		




  117
  117
  
    
if( A_update_SDR_data_file=1 ) then A_update_SDR_data_file=2:fopen1(K_path_SDR+K_station_name+t0+".dat",a)


  		




  118
  
  
    
if( A_update_SDR_data_file=2 ) then A_update_SDR_data_file=3:fp1(id_met2+" ; "+str(round(n_1))+" ; "+str(f_1)+" ; "+str(aver_amp_max)+" ; "+str(round(n_1-aver_amp_max+10))+" ; "+str(dur_count_1)+" ; "+str(K_init_cond)+" ; "+str(K_min_dur_count_bolid))


  		




  
  118
  
    
if( A_update_SDR_data_file=2 ) then A_update_SDR_data_file=3:fp1(id_met2+" ; "+str(round(n_1))+" ; "+str(f_1)+" ; "+str(aver_amp_max)+" ; "+str(round(n_1-aver_amp_max+10))+" ; "+str(dur_count1)+" ; "+str(K_init_cond)+" ; "+str(K_min_dur_count_bolid))


  		




  119
  119
  
    
if( A_update_SDR_data_file=3 ) then A_update_SDR_data_file=4:fclose1


  		




  120
  120
  
    
if( A_update_SDR_data_file=4 ) then A_update_SDR_data_file=5:A_end_detect_end=1


  		




  121
  121
  
    
if( A_update_SDR_data_file=5 ) then A_update_SDR_data_file=0


  		




  ......




  134
  134
  
    
;---A_met_screenshot (událost generování screenshotu waterfallu pokud je zaznamenán meteor)---


  		




  135
  135
  
    
if( never ) then REM --- A_met_screenshot (capture a screenshot with meteor) ---


  		




  136
  136
  
    
if( timer4.expired(1) ) then A_met_screenshot=1:capture (K_path_scr+id_met2+".jpg")


  		




  137
  
  
    
if((A_met_screenshot=1)&&(bolide=1)) then capture (K_path_audio+id_met2+".jpg")


  		




  
  137
  
    
if((A_met_screenshot=1)&&(bolide=1)) then capture (K_path_extra+id_met2+".jpg")


  		




  138
  138
  
    
if( A_met_screenshot=1 ) then A_met_screenshot=2:REM exec(K_path_scr+"ftp_up.bat "+id_met2+".jpg")


  		




  139
  139
  
    
if( A_met_screenshot=2 ) then A_met_screenshot=0:bolide=0


  		




  140
  140
  
    

  		










:@created_atf1423081232.900542{:@expires_in0