- derive graph colors from rpc names. this gets hard to look at with

  many rpcs, but at least it works.
- also raise the graph a bit to account for lots more types of rpcs.
  need to get rid of a lot of the whitespace between bars..

diff --git a/lustre/scripts/graph-rpcs.sh b/lustre/scripts/graph-rpcs.sh
index d2e900a..4eb50c0 100755 (executable)
--- a/lustre/scripts/graph-rpcs.sh
+++ b/lustre/scripts/graph-rpcs.sh
@@ -18,6 +18,18 @@ cleanup() {
 }
 trap cleanup EXIT
 
+hex2float() {
+       echo "ibase=16;scale=2;$*/FF" | bc
+}
+make_color() {
+       local md5=`echo "$*" | md5sum - | awk '{print $1}' | \
+                       tr '[a-z]' '[A-Z]'`;
+       local r=`echo $md5 | cut -b 1,2`
+       local g=`echo $md5 | cut -b 3,4`
+       local b=`echo $md5 | cut -b 5,6`
+       echo "rgb(`hex2float $r`,`hex2float $g`,`hex2float $b`)"
+}
+
 rpc_name() {
        case "$1" in
                0) echo "OST_REPLY" ;;
@@ -233,12 +245,6 @@ sort -n $tmpdir/data >> $pl_script || die "sorting failed"
 # jeez. without another newline at the end pl doesn't read the last data row.
 echo >> $pl_script
 
-# could be smarter here
-# http://ploticus.sourceforge.net/doc/color.html
-colors=("red" "orange" "green" "blue" "purple" "pink" "powderblue" "yellow" \
-       "brown")
-num_colors=9
-
 legend_index=0
 legend_pane=0
 ops_per_pane=$(((NUM_OP_CODES  + 2)/ 3))
@@ -248,8 +254,6 @@ for op in $OP_CODES; do
        name=`rpc_name $op`
        [ $name == "unknown" ] && die "unknown op code $op"
 
-       [ $i == $num_colors ] && die "ran out of colors"
-
        label="$name "`pct ${rpc_count[$op]} $TOTAL_RPCS`
        label="$label, "`pct ${rpc_total_time[$op]} $TOTAL_RPC_TIME`
 
@@ -260,7 +264,7 @@ for op in $OP_CODES; do
        to_pl "#proc legendentry
                sampletype: color
                label: $label
-               details: ${colors[$i]}
+               details: `make_color $name`
                tag: $op"
 
        # ploticus makes you construct seperage legends stacked next to each
@@ -303,7 +307,7 @@ done
 
 to_pl  "
 #proc areadef
-       rectangle: 1 1 9.5 8
+       rectangle: 1 2 9.5 8
        xautorange datafields=2,3
           xrange:    $MIN $MAX
        yscaletype: categories