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.6  1997/08/19 09:41:47  peterg
+% %% Some debugging lines added.
+% %%
 % %% Revision 1.5  1997/05/16  07:33:45  peterg
 % %% Now checks to see if sub system is a simple component before
 % %% recursion.
 % %% 0 --> zero
 % %% 1 --> one
@@ -98,11 +101,11 @@
 % Get the raw and the processed bonds
 eval(['[rbonds,rstrokes,rcomponents] = ', system_type, '_rbg;']);
 eval(['[bonds] = ', system_type, '_abg;']);
 
 % Original number of bonds
-[n_bonds,junk] = size(bonds);
+[n_bonds,junk] = size(rbonds);
 
 % Get the causal bonds
 eval(['[cbonds,status]=', full_name, '_cbg;']);
 
 % Check sizes
@@ -134,12 +137,12 @@
 unit_bond_vector = bond_vector./(length2d(bond_vector)*[1 1]);
 unit_stroke_vector = (rot*unit_bond_vector')';
   
 % Get indices of bonds with changed causality -- but ignore the extra bonds
 % due to vector bond expansion
-changed_e = bonds(:,1)~=cbonds(1:n_bonds,1)
-changed_f = bonds(:,2)~=cbonds(1:n_bonds,2)
+changed_e = bonds(1:n_bonds,1)~=cbonds(1:n_bonds,1)
+changed_f = bonds(1:n_bonds,2)~=cbonds(1:n_bonds,2)
 changed = changed_e|changed_f
 index_e  = getindex(changed_e,1)'
 index_f  = getindex(changed_f,1)'
 index  = getindex(changed,1)';