Page History

#Read waypoint times from table
#These are seconds elapsed since the middle of the release interval
tt=values(tbl,"time")

#Build and define the visualiser for the date strings
#The plot definitions are collected into a list
pltDateLst=nil
for i=1 to count(tt) do

    d=releaseMidDate + second(tt[i])
    label="  " & string(d,"dd") & "/" & string(d,"HH")
    
    #visualiser
    iv_date = input_visualiser(
	   input_plot_type	:	"geo_points",
	   input_longitude_variable	:	mLon[i],
	   input_latitude_variable	:	mLat[i]	   	  	  
	)
    
    #text attributes
    sym_date=msymb(symbol_type: "text",
         symbol_text_list: label,
         symbol_text_font_size: 0.3,
         symbol_text_font_colour: "navy"
        ) 
    
    #collect the plot definitions into a list  
    pltDateLst= pltDateLst & [iv_date,sym_date]          

end for    

#Get rms of the horizontal distances (in km) to the mean particle positions (i.e. waypoints)
mRms=values(tbl,"rmsHBefore")

#Draw an rms circle around every second waypoint
iStart=1
if mod(count(mRms),2)= 0 then
    iStart=2
end if   

pltRmsLst=nil
for i=iStart to count(mRms) by 2 do

   if mRms[i] > 0 then
        
        #input visualiser defining the circle
        iv_rms=mvl_geocircle(mLat[i],mLon[i],mRms[i],100)

        #circle line attributes
        graph_rms=mgraph(           
            graph_line_colour: "magenta",
            graph_line_thickness: "2",
            graph_line_style: "dot",
            graph_symbol: "off"
            ) 

        #collect the plot definitions into a list  
        pltRmsLst=pltRmsLst & [iv_rms,graph_rms]

    end if
end for