set output "$0.ps"
#set multiplot
print "processing $0"
set pointsize 0.5
f(x)= x<100 ? 1/0 : x*(($1)/8) + ($2-(($1)/8)*100)
s(x) = int(x)%90
s1(x) = int(x)%90 + 90
plot "$0.xgr" index 0 thru s(x) using 1:2 title "tcp_snd_data" pt 5,\
"$0.drops" index 0 thru s(x) using 1:2 title "tcp_drops" pt 2 ps 1.5,\
"$0.xgr" index 2 thru s1(x) using 1:2 title "tfrc_snd_data" pt 4,\
"$0.drops" index 1 thru s1(x) using 1:2 title "tfrc_drops" pt 2 ps 1.5

set arrow from 30,0 to 30, graph 1 nohead

#f(x) title "link_rate"
#"$0.xgr" index 1 using 1:2 title "tcp_snd_ack" pt 4,\
#"$0.xgr" index 3 using 1:2 title "tfrc_snd_ack" pt 2,\