Index: mttroot/mtt/bin/trans/m/cbg2fig.m
==================================================================
--- mttroot/mtt/bin/trans/m/cbg2fig.m
+++ mttroot/mtt/bin/trans/m/cbg2fig.m
@@ -24,10 +24,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.4  1996/12/07  21:34:52  peterg
+% %% Tests for null string with strcmp
+% %% 
 % %% Revision 1.3  1996/08/08  15:52:28  peter
 % %% Recursive version.
 % %% Fails due to octave bug - reported.
 % %%
 % %% Revision 1.2  1996/08/05 20:15:39  peter
@@ -201,15 +204,26 @@
     fprintf(filenum, '%1.0f ', fig_params(j));
   end;
   fprintf(filenum, '%1.0f %1.0f ', coords(1), coords(2)); 
   fprintf(filenum, '%s:%s%s\n', comp_type, comp_name, Terminator);
   
-  % If it's a subsystem, do the fig file for that as well
-  cbg2fig(comp_name, ...
-                 comp_type, full_name, ...
-                 stroke_length, stroke_thickness, stroke_colour, ...
-                 comp_font, comp_colour_u, comp_colour_o);
+  % If it's a subsystem (ie not a component), do the fig file for that as
+  % well
+  if comp_type=='0'
+    comp_type='zero';
+  end
+  if comp_type=='1'
+    comp_type='one';
+  end
+  
+  if (exist([comp_type,'_cause'])==0)
+    cbg2fig(comp_name, ...
+	comp_type, full_name, ...
+        stroke_length, stroke_thickness, stroke_colour, ...
+        comp_font, comp_colour_u, comp_colour_o);
+  end;
+	   
 end;
 
 % Close the file
 fclose(filenum);
 return