#!/bin/sh

export MYTICKS=100
export MYINTERVAL=4 # we sample once every $MYINTERVAL seconds
export MYINVERSEINTERVAL=0.25

top -d $MYINVERSEINTERVAL -n $MYTICKS -b | egrep -e "mythfrontend|X" | perl -e "while(<>) { split(' '); print @_[8],"\n";}" > profile
sed -i '{ N; s/\n/ /}' profile
perl -e '$second=0; while(<>) { chop(); $load = $_; print "$second $load "; split " ", $load; print @_[0] + @_[1], "\n"; $second+=0.25;}' < profile > points
echo "set grid
set xrange [0: $(($MYTICKS/$MYINTERVAL))]
set yrange [0: 100]
set xtics 0,$MYINVERSEINTERVAL,$(($MYTICKS/$MYINTERVAL))
set xlabel "time"
set ylabel "CPU usage"
plot "points" using 1:2 with lines title 'frontend', "points" using 1:3 with lines lt -1 title 'X', "points" using 1:4 with lines lt 3 title 'frontend+X'
replot" > gplot.cmds
gnuplot -persist gplot.cmds