func Begin () { velocity=11.0; } func OnLineHeader () { samp = LH.SmpInt; output(LH); } func OnTrace () { a = Tr.DstUsg; t = a/velocity; s = t - 100.; if ( s > 0 ) { j = abs(s/samp); Tr.Series[j-1]=200000; Tr.Series[j]=200000; Tr.Series[j+1]=200000; } output(Tr); } func End () { }