ADDED   mttroot/mtt/bin/trans/abg2sensitivity_fig
Index: mttroot/mtt/bin/trans/abg2sensitivity_fig
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/abg2sensitivity_fig
@@ -0,0 +1,72 @@
+#!/bin/sh
+
+## Converts abg.fig to sensitivity version
+
+## Copyright (C) 1999 by Peter J. Gawthrop
+
+filename=$1_abg.fig
+sfilename=s$filename
+
+if [ -f "$sfilename" ]; then
+    echo $sfilename exists -- no action taken
+    exit
+else
+    echo Creating $sfilename   
+fi
+
+awk '
+  function modulo10(x) {
+    return x-int(x/10)*10
+    }
+  {
+
+  level_index = 4;
+  if ( match($NF,"001")&&(modulo10($level_index)==0)&&(index($NF,"[") != 1) ){
+    last = $NF
+    if ( (index($NF,"0") != 1)&&(index($NF,"1") != 1)&&(index($NF,"SS") != 1) ) {
+      $NF = sprintf("s%s", $NF);
+      print $0;
+    }
+    else {
+      x_1_index = 10;
+      x_2_index = 12;
+      y_1_index = 11;
+      y_2_index = 13;
+      colour_index=3;
+      yellow = 6;
+
+      ## save details 
+      colour=$colour_index;
+      component=$NF;
+      x_1 = $x_1_index;
+      x_2 = $x_2_index;
+      y_1 = $y_1_index;
+      y_2 = $y_2_index;
+      
+      ## print the label
+      $colour_index = yellow;
+      $NF = "[1,2]\\001";
+      $x_1_index = x_1+1;
+      $x_2_index = x_2+1;
+      $y_1_index = y_1+1;
+      $y_2_index = y_2+1;
+      print $0;
+
+      ## print the component
+      $colour_index = colour;
+      $NF = component;
+      $x_1_index = x_1;
+      $x_1_index = x_1;
+      $y_1_index = y_1;
+      $y_2_index = y_2;
+      print $0;
+
+      
+    }
+  }
+  else
+    print $0;
+'} < $filename >$sfilename
+
+
+