Index: mttroot/mtt/bin/trans/cbg_m2fig
==================================================================
--- mttroot/mtt/bin/trans/cbg_m2fig
+++ mttroot/mtt/bin/trans/cbg_m2fig
@@ -16,10 +16,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.9  1998/01/23 13:31:23  peterg
+## $RMATRIX --> $MATRIX
+##
 ## Revision 1.8  1996/12/07 19:23:07  peterg
 ## Registered agian.
 ##
 # Revision 1.7  1996/11/09  19:04:34  peterg
 # Removed cp $1_$1_cbg.fig $1_cbg.fig.
@@ -53,30 +56,30 @@
 # and each sub system.
 # (ls $1_*_cbg.m \
 # | sed 's/\(.*_\)\(.*_\)cbg.m/cp \2fig.fig \1\2cbg.fig/' \
 #| sh ) 2>mtt_error.txt
 
-sh $1_type.sh 'cp ' '_fig.fig ' '_cbg.fig'> mtt_error.txt
+#sh $1_type.sh 'cp ' '_fig.fig ' '_cbg.fig'> mtt_error.txt
+
+# Copy the unchaging part of the figure file
+cp $1_fig.fig $2_cbg.fig
 
 #Inform user
-echo Creating $1_cbg.fig
+echo Creating $2_cbg.fig -- component type $1
 
 # Use  matrix manipulation to accomplish the transformation
-$MATRIX > cbg_m2fig.log  2>>mtt_error.txt << EOF
+$MATRIX   <<EOF  2>mtt_error.txt #> cbg_m2fig.log
 
-  system_name = '$1';
+  system_type = "$1"
+  system_name = "$2"
+
   thick = 3; length = 150; red = 4; blue = 1; green = 12; font = 18;
-  cbg2fig(system_name, ...
-          '', '', ...
+  cbg2fig(system_name, system_type, '', ...
           length, thick, blue, ...
           font, green, red);
 EOF
 
 #cp $1_$1_cbg.fig $1_cbg.fig 2>> mtt_error.txt
 
 # Print errors, if any.
 mtt_error mtt_error.txt
-
-
-
-